Senin, 04 Oktober 2010

Membuat Form Mail

Tutorial Perl

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
;