Úpravy diskuse • 2008

<?php 
function get_title($link)	{
	if (preg_match("/diskuse\.jakpsatweb\.cz\/.*/", $link))	{
		$host = "diskuse.jakpsatweb.cz";
		$link = str_replace("http://", "", $link);
		$address = explode("/", $link);
		$fp = @fsockopen ($host, 80, $errno, $errstr, 10); 
		fputs ($fp, "GET /".$address[1]." HTTP/1.0\r\nHost: ".$host."\r\n\r\n"); 
		$dta = ''; 
		while (!feof($fp))	{ 
			$dta.= fgets($fp, 2048); 
			if (preg_match('/<title>\s*(.*?)\s*<\/title>/i', $dta, $matches)) 
			break; 
		} 
		fclose ($fp); 
		return $matches[1]; 
	}
	else return $link;
}

function create_link($matches)	{
	$link = strtolower($matches[0]);
	$class = str_replace(array("www.", "."), array("", "-"), strtolower($matches[3]));

	$link = (ereg("http://", $link)? $link: "http://".$link);
	if (in_array(substr($link, -1), array(".", ":", ",", ";", "-")))	{
		$append_char = substr($link, -1);
		$link = substr($link, 0, -1);
	}
	return "<a class='".$class."' href='".$link."'>".get_title($link)."</a>".$append_char;
}

function urlMaker($text)	{
	return preg_replace_callback("/((http:\/\/){0,1}([\+_a-z0-9\.\-]+\.[a-z]{2})\ /{0,1}[\[\]\+-_~&=\?\.a-z0-9\/#]*)/i", "create_link", $text);
}
?>