Mailer dengan Perl

Beberapa hari yang lalu ada temen tanya-tanya tentang mailer dengan Perl, Ehmm… untuk menjawab pertanyaan tersebut maka saya cuma bisa nunjukkan scriptnya seperti dibawah ini.

#!/usr/bin/perl —

use strict;

my $mailFrom = ‘halim@umm.ac.id’;
my $mailTo = ‘johan@umm.ac.id’;

open MAIL,”/usr/sbin/sendmail -t”;
print MAIL “FROM: $mailFrom \n”;
print MAIL “TO: $mailTo\n”;
print MAIL “Subject: Perl Memang Ok!\n”;
print MAIL “MIME-Version: 1.0\n”;
print MAIL “Content-type: text/plain; charset=ISO-2022-JP\n”;
print MAIL “Content-Transfer-Encoding: 7bit\n”;
print MAIL “——————————————————–\n”;
print MAIL “Jangan Kaget, Aku cuma tes apa yang aku kasih tahu lewat YM tadi siang. From:johan \n”;
print MAIL “——————————————————–\n”;
close (MAIL);

Dengan menggunkan script Perl yang sederhana diatas kita sudah bisa mengirimkan email dengan menggunakan sendmail tanpa melalui email clien. Karena langsung menggunakan sistem SMTP maka pengirim dapat memalsukan alamat emailnya my $mailFrom = ‘halim@umm.ac.id’; bisa di ganti dengan alamat yang diinginkan misal popo@yahoo.com, nah karena begitu mudahnya memalsukan alamat email pengirim maka kita sebagai pengguna email sudah seharusnya berhati – hati dan tidak langsung terpikat dengan email yang isinya rayuan” ataupun yang laiinya, soalnya siapa tahu itu kiriman dari si pengirim email palsu.

..”..Blogging : Programing..”..

One Response to “Mailer dengan Perl”

  1. Jauhari Says:

    Itu SCRIPT kode SENDIRI atau CP?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


%d bloggers like this: