Transformar texto (com url/email) em link clicável

[Espartaco]

Selva, galera.

No meu site, existe uma área onde o pessoal posta dicas de hotéis, transportadores, etc, e muiats vezes, colocam um e-mail ou url de site. Para não ter que editar, cada vez que um abençoado colcoa um desses elementos, fiz uma função para converter texto "plano" em links clicáveis. Funciona para http, ftp e mailto. qualquer dúvida, perguntem.

<?
function _auxiliar_cria_clicavel_URL($combinacoes) {
    $tratadoTexto = '';
    $url = $combinacoes[2];
    if ( empty($url) )
        return $combinacoes[0];
    if ( in_array(substr($url, -1), array('.', ',', ';', ':')) === true ) {
        $tratadoTexto = substr($url, -1);
        $url = substr($url, 0, strlen($url)-1);
    }
    return $combinacoes[1] . "<a href=\"$url\" rel=\"nofollow\">$url</a>" . $tratadoTexto;
}

function _auxiliar_cria_clicavel_FTP($combinacoes) {
    $tratadoTexto = '';
    $originalTexto = $combinacoes[2];
    $originalTexto = 'http://' . $originalTexto;

    if ( empty($originalTexto) )
        return $combinacoes[0];
    if ( in_array(substr($originalTexto, -1), array('.', ',', ';', ':')) === true ) {
        $tratadoTexto = substr($originalTexto, -1);
        $originalTexto = substr($originalTexto, 0, strlen($originalTexto)-1);
    }
    return $combinacoes[1] . "<a href=\"$originalTexto\" rel=\"nofollow\">$originalTexto</a>" . $tratadoTexto;
}
function _auxiliar_cria_clicavel_EMAIL($combinacoes) {
    $email = $combinacoes[2] . '@' . $combinacoes[3];
    return $combinacoes[1] . "<a href=\"mailto:$email\">$email</a>";
}
function cria_clicavel($tratadoTexto) {
    $tratadoTexto = ' ' . $tratadoTexto;
    $tratadoTexto = preg_replace_callback('#([\s>])([\w]+?://[\w\\x80-\\xff\#$%&~/.\-;:=,?@\[\]+]*)#is', '_auxiliar_cria_clicavel_URL', $tratadoTexto);
    $tratadoTexto = preg_replace_callback('#([\s>])((www|ftp)\.[\w\\x80-\\xff\#$%&~/.\-;:=,?@\[\]+]*)#is', '_auxiliar_cria_clicavel_FTP', $tratadoTexto);
    $tratadoTexto = preg_replace_callback('#([\s>])([.0-9a-z_+-]+)@(([0-9a-z-]+\.)+[0-9a-z]{2,})#i', '_auxiliar_cria_clicavel_EMAIL', $tratadoTexto);

    $tratadoTexto = preg_replace("#(<a( [^>]+?>|>))<a [^>]+?>([^>]+?)</a></a>#i", "$1$3</a>", $tratadoTexto);
    $tratadoTexto = trim($tratadoTexto);
    return $tratadoTexto;
}
//texto para teste
$textoteste = "Esse é um link clicável: http://www.meusite.com.br. Você pode, também, usar links de e-mail, como  eu@meusite.com.br";
//Uso
echo cria_clicavel($textoteste);
?>