Url Kısaltma (Otomatik) Nasıl Yapılır?

Arkadaşlar merhaba,

Uzun bir link var diyelim. Bunu yazdığımızda görüntü kirliliği oluyor bildiğiniz gibi. Bazı siteler bunu kısa gösteriyorlar. R10'da da var aynı olay. Mesela linki yazdığımızda;

http://alkislarlayasiyorum.com/iceri...hin-arka-odasi

belli bir kısım gözüktükten sonra ... (3 nokta) geliyor ve link kısalıyor. belli bir karakter gözüküyor sadece. Bunu nasıl yaparız? Yardımlarınızı bekliyorum

http://ideone.com/gyInHR

hocam teşekkür ederim ama ben bu kodu siteme nasıl entegre edeceğimi tam çözemedim. sitemde şu kodu kullanıyorum link yapmak için (linki yazdığımızda otomatik "a href" yapıyor)

if ( ! function_exists('httpYap'))
{
	function httpYap($str){		$s = $str[0];
		if(eregi('youtube.com/watch',$s)){
			return vidYap($s);
		}else if(eregi('.jpg',$s) || eregi('.jpeg',$s) || eregi('.png',$s) || eregi('.gif',$s)){
			return fotoYap($s);
		}else{
		 $s = str_replace('<br','',$s);	$s = trim($s); if(!preg_match("#https?:\/\/#",$s)){$sl = "http://".$s;}else{$sl = $s;}	$l = "<a target='_blank' href='$sl' title='$s'>$s</a>";	return $l;
		}
	}
}

sizin yaptığınız kodu buraya entegre edebilirsek süper olur

if ( ! function_exists('httpYap'))
{

function o($l,$y=50) {
	if( $y>25 ) {
		if( strlen($l)>$y) {
 
		$l = substr( $l, 0 ,($y/2) ).'/....../'.substr($l,-15);
		}
	}
return $l;
}


	function httpYap($str){		$s = $str[0];
		if(eregi('youtube.com/watch',$s)){
			return vidYap($s);
		}else if(eregi('.jpg',$s) || eregi('.jpeg',$s) || eregi('.png',$s) || eregi('.gif',$s)){
			return fotoYap($s);
		}else{
		 $s = str_replace('<br','',$s);	$s = trim($s); if(!preg_match("#https?:\/\/#",$s)){$sl = "http://".$s;}else{$sl = $s;}	$l = "<a target='_blank' href='$sl' title='$s'>".o($s)."</a>";	return $l;
		}
	}
}

hocam çok teşekkürler oldu )