At 00:50 31-08-99 +0700, you wrote:
>halo...
>saya ingin tanya apakah program perl untuk pengisian form via email ini
>sudah betul,
>soalnya saya udah coba tapi emailnya ngak pernah sampai....
>dibawah ini penggalan programnya...
>
>
>open(MAIL, "| /usr/lib/sendmail -t -f'$alamatpengirim'");
>
>print(MAIL "From: $namapengirim <$alamatpengirim>\r\n");
>print(MAIL "To: $alamattujuan\r\n");
>print(MAIL "Subject: Hasil tes\r\n\r\n");
>
>print MAIL qq(
>Remote Host: $ENV{"REMOTE_HOST"}
>Remote Addr: $ENV{"REMOTE_ADDR"}
>
>Form Responses:
>
>);
>
>foreach $name (keys(%dataform))
>{print MAIL "$name : $dataform{$name}\n"; }
>
>close(MAIL);
sekilas saya lihat sih sudah betul. yang kurang cuma... error
checking. coba dicek setelah open dan close: open(...) or
die "$!"; close(...) or die "$!";
ada alternatif lain pengiriman mail, yang tidak bergantung
pada binary sendmail, yaitu menggunakan modul Net::SMTP,
Mail::Sendmail, dan Mail::Sender. saya anjurkan pake
Mail::Sendmail... cara pakenya simpel kayak gini:
use Mail::Sendmail;
sendmail(From => $from, To => $to, Message => ....)
or die $Mail::Sendmail::error;
modul2 bisa dicari di server CPAN yang baru,
http://search.cpan.org/
>
>* udah gitu apa bedanya antara :
>- /usr/lib/sendmail
>- /usr/bin/sendmail
biasanya sendmail disimpan di /usr/lib atau /usr/sbin atau
dua2nya. dua2nya binary yang sama.
--
mailto:[EMAIL PROTECTED]
http://steven.haryan.to
Bandung Perl Mongers: http://bandung.pm.org
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
UNLIMITED POP3 Account @ http://www.indoglobal.com
