Get page title

<?php
 
function get_page_title($url)
{
	if (!preg_match('#^(http:\/\/|https:\/\/|www\.)#', $url))
		return array(FALSE, 'not-valid-url', NULL);		
	while (TRUE)
	{
		$headers = @get_headers($url, TRUE);
		if (empty($headers['Location']))
			break;
		elseif (is_array($headers['Location']))
			$url = end($headers['Location']);
		else $url = $headers['Location'];
	}
	if (empty($headers['Content-Type']))
		return array(FALSE, 'non-html', NULL);
	$type = is_array($headers['Content-Type'])
	      ? end($headers['Content-Type'])
	      : $headers['Content-Type'];
	if (stristr($type, 'html') == FALSE)
		return array(FALSE, 'non-html', NULL);
	if (!$fp = @fopen($url, 'r'))
		return array(FALSE, 'error', NULL);
	stream_set_timeout($fp, 60);
	$t = FALSE;
	$buf = '';
	$tbuf = '';
	while (!feof($fp))
	{
		$c = fgetc($fp);
		if ($c == '<') $buf = $c;
		elseif ($c == '>')
		{
			if ($t && strcasecmp($buf, '</title') == 0)
				break;
			elseif (strcasecmp($buf, '<title') == 0)
			{
				$t = TRUE;
				$tbuf = '';
				$buf = '';
			}
			elseif (strcasecmp($buf, '</head') == 0 || strcasecmp($buf, '<body') == 0)
				break;
		}
		elseif (substr($buf, 0, 1) == '<')
			$buf .= $c;
		elseif ($t)
			$tbuf .= $c;
		$info = stream_get_meta_data($fp);
		if ($info['timed_out'])
			return array(FALSE, 'timeout', NULL);
	}
	fclose($fp);
	// hack to convert or fix utf8 encoding
	$tbuf = trim($tbuf);
	if (empty($tbuf))
		return array(FALSE, 'empty', NULL);
	if (utf8_encode(utf8_decode($tbuf)) !== $tbuf)
		$tbuf = iconv(mb_detect_encoding($tbuf), 'UTF-8', utf8_encode($tbuf));
	foreach (array(
		'UTF-8',
		'ISO-8859-1',
		'ISO-8859-15',
		'cp866',
		'cp1251',
		'cp1252',
		//'KOI8-R', # php bug - cannot yet handle MBCS
		'BIG5',
		'GB2312',
		'BIG5-HKSCS',
		'Shift_JIS',
		'EUC-JP'
	) as $enc) $tbuf = html_entity_decode($tbuf, ENT_QUOTES, $enc);
	$tbuf = preg_replace('#[\n\t\r]+#', ' ', $tbuf);
	return array(TRUE, 'ok', $tbuf);
}
 
?>