ANTICHAT - Показать сообщение отдельно - Злой орг, очередной конкурс на 5 знак

PHP код:


		
			
<?php

error_reporting(0);

?>

<FORM METHOD=POST ACTION="">

    File:<BR>

    <INPUT TYPE="text" NAME="file"><INPUT TYPE="submit"><BR><BR>

</FORM>

<?

if(isset($_POST['file'])){



    $file=$_POST['file'];

    echo "Файл: ".$file."<br />\n";

    $site="zloy.org";if(check($site,$file)){die("Found at: http://$site/$file");}else{echo "Check - $site/$file bad\n<BR>";}

    $site="forum.zloy.org";if(check($site,$file)){die("Found at: http://$site/$file");}else{echo "Check - $site/$file bad\n<BR>";}

    $site="zaeb.biz";if(check($site,$file)){die("Found at: http://$site/$file");}else{echo "Check - $site/$file bad\n<BR>";}

    $site="quotes.zloy.org";if(check($site,$file)){die("Found at: http://$site/$file");}else{echo "Check - $site/$file bad\n<BR>";}

}

function check($domain,$file){$fp = fsockopen($domain, 80, $errno, $errstr, 4);$out = "HEAD /$file HTTP/1.1\r\n";$out .= "Host: $domain\r\n";$out .= "Connection: Close\r\n\r\n";fwrite($fp, $out);while (!feof($fp)) {$res[]=fgets($fp, 512);}fclose($fp);if(trim($res[0])==trim("HTTP/1.1 200 OK")){return true;}else{return false;}}

?>

Юзаем. Файл чекер.
eLWAux перепиши под perl