#!/usr/bin/perl
# - jordan 8/24/06
# whoisd checker
#

$server = 'whois.dreamhost.com';
$whois = "/usr/bin/whois";
$whois_data = `$whois -h $server dreamhost.com |grep \"Record\"`;

if (($whois_data =~ /created/) && ($whois_data =~ /expires/)) {	
	1;
	print "whoisd is responding \n";
} else {
	0;
	print "whoisd not responding\n";

}
