| Server IP : 23.254.227.96 / Your IP : 216.73.216.21 Web Server : Apache/2.4.62 (Unix) OpenSSL/1.1.1k System : Linux hwsrv-1277026.hostwindsdns.com 4.18.0-477.13.1.el8_8.x86_64 #1 SMP Tue May 30 14:53:41 EDT 2023 x86_64 User : viralblo ( 1001) PHP Version : 8.1.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /proc/self/root/usr/share/doc/perl-MailTools/examples/ |
Upload File : |
#!/usr/bin/perl -w
use Mail::Internet;
@mail = <>;
$mail = Mail::Internet->new(\@mail);
$mail->remove_sig;
$mail->tidy_body;
@reply = ();
if(open(HDR,"$ENV{HOME}/.mailhdr")) {
@reply = <HDR>;
close(HDR);
}
$rply = Mail::Internet->new(\@reply);
$subject = $mail->get('Subject');
$rply->replace('To', "");
$rply->replace('Cc', "");
$rply->replace('Subject',$subject);
$rply->body($body = $mail->body);
unshift @{$body},"---------- Begin Included Message ----------\n";
push @{$body},"----------- End Included Message -----------\n";
$file = "/tmp/reply.$$";
open(FILE,">$file") || die "Cannot open $file:$!\n";
$rply->print(\*FILE);
close(FILE);
$editor = $ENV{"EDITOR"} || "/usr/bin/nvi";
warn "$editor :$!\n" if (system("$editor $file"));
unlink($file,$file . '%');
exit 0;