Saya juga membuat hal serupa dalam sistem yang saya buat,
hanya saja hal tersebut kadangkala tidak efektif lagi,
karena saya hanya mendapatkan sekali notifikasi,
ketika domain saya dibajak,
dan notifikasi tersebut adalah notifikasi AFTER-UPDATE.
noka fahimi
----- Original Message -----
From: Dian Pamilih <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, March 02, 2000 1:11 PM
Subject: Re: [idnic] Pembajakan Domain SERIUS
> 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]
>
--
STOP-LANGGANAN: 'unsubscribe' ke: [EMAIL PROTECTED]
START-LANGGANAN: 'subscribe' ke: [EMAIL PROTECTED]
