Скрипт проверки ссылок на странице

Сделал пару дней назад скрипт небольшой для проверки обратной ссылки при обмене.

Вдруг кому пригодится код.

Все замечания и ошибки преветствуются.

N.B. Я не програмист, а так програмер немного

<pre><?

if ($url AND $site) {

	echo $site.'<hr>';

	$s=parse_url($site);

	if($s[host]) $site='http://'.$s[host]; else $site='http://'.$site;

	echo "ссылка на  $site со страницы $url <hr>";

	ini_set('user_agent','MSIE 4\.0b2;');

	$text = @join ('', @file ($url));

	preg_match("'<a.*?href=[\'|\"].*?(".preg_quote($site).").*?[\'|\"].*?".">'si", $text,$m);

	if ($m[1])echo "<h1>найдено !!!!</h1>"; else echo "<h1>нету ссылки по мнению скрипта</h1>";

}

?>

<table width=600>

<form action='<?=$PHP_SELF?>' method=post>

<tr><td width=100>ссылка </td><td><input style="width:100%" type=text name=site value="<?=$site?>"></td></tr>

<tr><td nowrap>на странице</td><td><input type=text  style="width:100%" name=url value="<?=$url?>"></td></tr>

<tr><td colspan=2><input name="submit" type=submit  style="width:100%"  value=check></td>

</tr>

</form>

</table>