--- awal script smtpclient.pl --- #!/usr/bin/perl -w use Getopt::Long; use Net::SMTP;# parameter yg bisa diubah # alamat smtp server $host = '192.168.2.3'; # isi subject $subject = "Log harian"; $from = $ENV{USER} || $ENV{LOGNAME}; GetOptions( 'h:s' => \$host, 'f:s' => \$from, 's:s' => \$subject ); die "No addresses\n" unless @ARGV; $smtp = Net::SMTP->new($host) or die "$@"; $smtp->mail($from) or die $smtp->message; $smtp->recipient(@ARGV) or die $smtp->message; $to = join(",", map { "<$_>" } @ARGV); $header = <<"EDQ"; To: $to Subject: $subject EDQ $smtp->data($header, <STDIN>) or die $smtp->message; $smtp->quit; --- akhir script smtpclient.pl --- Simpan script smtpclient.pl dan chmod 755 smtpclient.pl Untuk menjalankan script ini dan mengirimkan file log ke smtp server 192.168.2.3: $ cat /var/log/messages | /usr/local/bin/smtpclient.pl [EMAIL PROTECTED]
terima kasih mas arif, saya sudah coba pakai script perl diatas dan berhasil thanks, Bambang -- FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab Unsubscribe: kirim email ke [EMAIL PROTECTED] Arsip dan info milis selengkapnya di http://linux.or.id/milis
