#!/usr/bin/perl
# -------------------------------------------- #
# Author: Vulcho Nedelchev <kumcho@vulcho.com> #
# Dependencies: libwww-perl                    #
# -------------------------------------------- #
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
print "Making request ... ";
my $req = POST 'http://www.register.com/whois.cgi?cmp=OT11310',
    [ vhost_name  => $ARGV[0], 
      chk_domain  => 'Check it',
      last_search => ''];
print "[ok]\n";



my @html = split(/\n/, $ua->request($req)->as_string);
my $status = undef;

for (@html) {

    $status = " Available:            " and print "\n" if m|Available|;
    $status = " Unavailable:          " and print "\n" if m|Unavailable|;
    $status = " Additional Addresses: " and print "\n" if m|Additional Addresses|;

    last if m|Select Your Desired Extension|;

    if (m|smgray|) {
	s|<.*?>||g;
	s|^\s*||;
	s|\s+| |g;
	print "$status $_\n";
    }
}
print "\n";