A Script Request-About Domains

<?php 
//This only supports .COM, .NET and .BIZ domains - but more could be added easily. 
//Because I gave you this code untested, i cannot guarantee that it will work perfectly. I may have made a few typos in the NP New Post box. 

$email = 'your_email_address_here'; 
$file_location = 'http://www.domain.com/list.txt'; 

//Each domain MUST be on a new line! 
$domains = file($file_location); 
$domain_list = 'Domains:\r\n\r\n';

foreach($domains as $domain){
	$server = 'null';
	$domain = trim($domain);
	if(stristr($domain, '.COM') || stristr($domain, '.NET')){ 
		$server = 'rs.internic.net'; 
	}elseif(stristr($domain, '.BIZ')){ 
		$server = 'whois.biz';
	}else{ 
		$server = 'null'; 
	}
	if($server != 'null'){
		$sock = fsockopen($server,43) or die('Error Connecting To Whois Server');  
		fputs($sock,$domain.'\r\n');  
		while(!feof($sock)){  
			$result .= fgets($sock,1024);  
		} 
		fclose($sock);  
		if(eregi('No match',$result)||eregi('NOT FOUND',$result)){ 
			$domain_list .= $domain.' is avaliable.\r\n'; 
		}else{ 
			$domain_list .= $domain.' is unavaliable.\r\n'; 
		} 
	}
}
mail($email, 'Domains', $domain_list); 
?>

<?php  
//This only supports .COM, .NET and .BIZ domains - but more could be added easily.  
//Because I gave you this code untested, i cannot guarantee that it will work perfectly. I may have made a few typos in the NP New Post box.  

$email = 'your_email_address_here';  
$file_location = 'http://www.domain.com/list.txt';  

//Each domain MUST be on a new line!  
$domains = file_get_contents($file_location);  
$domain_list = 'Domains:\r\n\r\n'; 

$domains = explode("\n", $domains);
foreach($domains as $domain){ 
    $server = 'null'; 
    $domain = trim($domain); 
    if(stristr($domain, '.COM') || stristr($domain, '.NET')){  
        $server = 'rs.internic.net';  
    }elseif(stristr($domain, '.BIZ')){  
        $server = 'whois.biz'; 
    }else{  
        $server = 'null';  
    } 
    if($server != 'null'){ 
        $sock = fsockopen($server,43) or die('Error Connecting To Whois Server');   
        fputs($sock,$domain.'\r\n');   
        while(!feof($sock)){   
            $result .= fgets($sock,1024);   
        }  
        fclose($sock);   
        if(eregi('No match',$result)||eregi('NOT FOUND',$result)){  
            $domain_list .= $domain.' is avaliable.\r\n';  
        }else{  
            $domain_list .= $domain.' is unavaliable.\r\n';  
        }  
    } 
} 
mail($email, 'Domains', $domain_list);  
?>