#!/usr/local/bin/perl
# whois.cgi  by David Efflandt  vuser@cgi-help.virtualave.com
# last updated 8/14/99
# Checks availability or who owns a domain

use CGI qw/:standard :netscape/;

print header,start_html('Check a Domain'),"\n",
'<!--VirtualAvenueBanner-->',"\n";
if ($who = param('who')) {
    if ($who =~ s/[\/\\\|\&\*\?;()<>]//g) {
        print "Invalid entry: $who\n";
    } else {
        @result = `/usr/bin/whois $who`;
        print h1("Result of whois $who"),hr,pre(@result),hr;
    }
}

print start_form,center(table({border=>1,cellpadding=>10},Tr([
th(["See if a Domain is Available".br.textfield('who').br.submit])
]))),end_form,end_html;