| #!/usr/bin/perl |
| |
| # Domain Checker |
| # v0.0.1 |
| # o.Toom |
| |
| use LWP::UserAgent; |
| |
| print "Domain Checker | v0.0.1 | o.Toom\n"; |
| print "Enter site to check: "; |
| chomp($site = <stdin>); |
| |
| $ua = LWP::UserAgent->new(); |
| $response = $ua->get("http://www.whois.net/whois_new.cgi?d=".$site); |
| |
| if ($response->is_success) { |
| if($response->content =~ m/Available for you now!/i ) { |
| print "The website $site is available!\n"; |
| } |
| else { |
| print "The website is taken, sorry!\n"; |
| } |
| } |
| |
| chomp($pause = <stdin>); |