Simple Whois Scripts....FREE

Found this Free Script, thought it might be usefull for somone

Three Perl scripts in one. The good whois script allows users to search for .com .net .org and all UK Domain Name extensions. The multi whois allows multiple Domain Names to be searched in one go and the name whois allows users to check the availability of .name Domain Names.

http://www.polyspaston.com/content_simple.php

Interesting script Midlandi

Thanks for sharing

Thanks for the great tip

The good thing about these type of simple scripts is that they are easy to edit. The trouble with something like my script (for qwhois.net) is that it can be easy to add new extensions (or edit servers) but it can be difficult to change the way in which the script works because it is quite complex!

Keep it simple, it works

Should be php ...

PHP:

<?php
function determine_whois_server( $domain )
{
    /** NOT FINISHED, I REPEAT NOT FINISHED **/
    switch( @end( explode( ".", $domain ) ) )
    {
        case 'com':
        case 'net':
        case 'edu':
            return "whois.internic.net";
        break;

        case 'org':
            return "whois.publicinterestregistry.net";
        break;

        case 'biz':
            return "whois.neulevel.biz";    
        break;
       
        case 'info':
            return "whois.affilias.info";
        break;        

        /** other registries here, can't be bothered ... **/

        /** uwhois will serve any domain, but it's slow as hell **/

        default: return "uwhois.com"; break;
    }
    /** NOT FINISHED, I REPEAT NOT FINISHED **/
}
function whois( $domain )
{
    if( ( $sock = @fsockopen( determine_whois_server( $domain ), 43, $errno, $errstr, 5 ) ) )
    {
        $buffer =  array( );
       
        if( fwrite( $sock, "$domain\n" ) )
        {
            while( !feof( $sock ) )
            {
                $buffer[ ] = fgets( $sock );
            }
        }
        fclose( $sock );

        if( count( $buffer ) )
        {
            return implode( null, $buffer );
        }
    }
    else printf( "Error connecting to socket: %s", $errstr );
}
/**
* Example ( with cheeky plug )
* echo whois( "interviolet.com" );
**/
?>