Hi,
Mungkin ndak, kita ngetest DNS lewat TELNET ke port 53 ?
Saya coba yah, bisa sih konek, tapi ndak bisa ngapa-ngapain :D
Saya pingin bikin script buat ngetest apakah DNS itu 'sehat' atau ndak.
Tapi tidak dengan cara melakukan query ke suata nama domain, sebab bisa jadi kan nama
domain ini
yang salah setup.
Ada cara yang baik ndak?
Thanks.
Kalau untuk ngetest anon ftp, saya bikin sbb:
akan mencetak 0 kalo 'sehat'
#!/usr/bin/perl
use Net::Telnet;
if ($#ARGV < 0) {
print -1;
exit(0);
}
if ($ARGV[1] != "") {
$timeout = $ARGV[1];
} else {
$timeout = 5;
}
$telnet = new Net::Telnet (Timeout=>$timeout, Port=>21, Errmode=>'die');
$telnet->open($ARGV[0]);
$telnet->waitfor('/220/');
$telnet->print('user anonymous');
$telnet->waitfor('/331/');
$telnet->print('pass [EMAIL PROTECTED]');
$telnet->waitfor('/230/');
$telnet->print('quit');
$telnet->waitfor('/221/');
print 0;
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
--
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
