Tutorial Perl
- Pendahuluan
- Pengertian CGI
- Syarat untuk menulis CGI
- Contoh script Perl sederhana
- Mengenal variable lingkungan
- Mengirim email lewat form
- Membuat script Tell a Friend
- Membuat buku tamu
Membuat Form Mail
Anda tentunya sudah sering menggunakan email, baik email yang disediakan oleh provider Anda atau email yang berbasiskan web (free web based email). Pada tutorial kali ini akan kami berikan contoh bagaimana mengirimkan email lewat sebuah form (halaman HTML). Sebelumnya buatlah file formmail.html seperti contoh berikut ini :
<head>
<title>Contoh formmail.html</title>
</head>
<body>
<form action="http://www.klik-kanan.com/cgi-bin/formmail.cgi" method="post">
Nama Anda : <input type="text" name="nama"> <br>
Email : <input type="text" name="email"><br>
<input type="submit" value="Kirim">
<input type="reset" value="Hapus">
</body>
</html>
Lihat contoh formmail.html
Sedangkan script Perl-nya adalah sebagai berikut (script tersebut bisa Anda beri nama formmail.cgi) :
#!/usr/bin/perl
# path yang menunjukkan letak program sendmail
$program = "/usr/sbin/sendmail";
# email Anda, perhatikan tanda \ sebelum @
$email = "alzamora\@mclarenfans.com";
print "Content-type:text/html\n\n";
# parse form
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value; }
# Kirim email
open (MAIL, "|$program -t");
# Email dari
print MAIL "From: form mail\n";
# Kirim email ke alamat email Anda
print MAIL "To: $email\n";
# Reply ke pengirim email
print MAIL "Reply-to: $FORM{'email'}\n";
# Subject email
print MAIL "Subject: Form mail - email dari $FORM{'name'}\n\n";
# isi email
print MAIL "$FORM{'message'}\n";
close(MAIL);
print <<EndofHTML;
<html>
<head>
<title>Terima kasih</title>
</head>
<body>
<h2>Terima kasih</h2>
Email Anda telah terkirim
</body>
</htm>
EndofHTML
;
