|
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 :
<html>
<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
;
|
