__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/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;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| forwd_demo | File | 797 B | 0755 |
|
| forwd_demo.PL | File | 1.14 KB | 0644 |
|
| mail-mailer.pl | File | 3.16 KB | 0644 |
|
| rplyto_demo | File | 415 B | 0755 |
|
| rplyto_demo.PL | File | 791 B | 0644 |
|
| send_demo | File | 1.51 KB | 0755 |
|
| send_demo.PL | File | 1.88 KB | 0644 |
|