Weh, makin seru saja.. heheheh. jadi pengen nimbrung. Kebetulan dimintain
tolong buat script supaya bisa autorespond setiap mail konfirmasi dari
[EMAIL PROTECTED] dan langsung membalas dengan approval NO. Bagi yang punya
qmail taruh saja di .qmail:
|/var/qmail/bin/getlost.pl
./Maildir/
ini scriptnya, tolong dikoreksi kalau ada kesalahan/bug:
==== cut here ======
#!/usr/bin/perl
#This script automatically reply to domreg with approval NO
#Please let me know if you found any bugs
#
#[EMAIL PROTECTED]
#set some stuff here
$from = "youremail\@yourdomain.com";
#Get the environment variable
$sender = $ENV{'SENDER'};
if ($sender =~ /domreg\@internic.net/) {
open(MAIL,"|/var/qmail/bin/qmail-inject -f$from $sender");
while(<STDIN>) {
if (/^From/) {
print MAIL "From: $from\n";
} elsif (/^To/) {
print MAIL "To: $sender\n";
} elsif (/0a\./) {
print MAIL "0a\. \(Y\)ES \(N\)O\.\.\.\.\.\.: NO\n";
} else { print MAIL;}
}
close(MAIL);
}
==== cut here =====
semoga membantu
-pampi
--
STOP-LANGGANAN: 'unsubscribe' ke: [EMAIL PROTECTED]
START-LANGGANAN: 'subscribe' ke: [EMAIL PROTECTED]
