From: Andrew Brown (no email)
Date: Fri Jun 23 2000 - 17:43:00 EDT
>Can someone point me to the source for a whois server... I don't know
>why, but I haven't been able to find any sources....
it seems to me that in the complete and utter absence of a formal
protocol, a sample implementation might something like:
#!/usr/local/bin/perl
chomp($query=<>);
dbmopen(%whois,"whoisdatabase",undef);
$answer=$whois{$query}||"what's that?\r\n";
dbmclose(%whois);
print($answer);
run from inetd on port 43.
feel free to add your own output format and/or information copyright
warning. none of the whois servers out there right now seem to adhere
to any sort of standard and the output seems to be of the "just send
eight" variety.
--
|-----< "CODE WARRIOR" >-----|
* "ah! i see you have the internet
(Andrew Brown) that goes *ping*!"
* "information is power -- share the wealth."
|
|
|