<?php
function traduzir($urltext,$lp)
{
    // definição de variáveis
    $host = 'babelfish.altavista.com';
    // codificar a linha que será enviada ao programa CGI do babelfish
    $vars = "doit=$DOIT&tt=$TT&urltext=" . urlencode(utf8_encode($urltext)) . "&lp=$lp";
    $url  = "/tr?$vars";

    // efetuando conexão com o babelfish
    $fp = fsockopen ($host, 80, $errno, $errstr, 30);
    if (!$fp) {
        echo "Ocorreu um erro ao tentar conexão com $host: $errstr ($errno)<br>\n";
        exit;
    } else {
        // informações adicionais: nossa localidade e mapa 
        // de caracteres
        $addinfo .= "Accept-Language: en\r\nAccept-Charset: iso-8859-1,*,utf-8\r\n";

        // envie as informações e jogue todo o retorno para a 
        // variável $html
        fputs ($fp, "GET $url HTTP/1.1\r\nHost: $host\r\n$addinfo\r\n");
        while (!feof($fp)) {
            $html .= fgets ($fp,128);
        }
        fclose ($fp);
    }
    // removendo quebras de linhas do resultado para facilitar 
    // a expressão regular
    $html = ereg_replace("\n"," ",$html);

    // capturando o texto traduzido, que está na linha que casa 
    // com a expressão abaixo
    ereg("name=\"q\" value=(.*)>",$html,$saida);
    $traducao = $saida[1];
    $traducao = ereg_replace(">.*$","",$traducao);

    // decodificar a string, pois os acentos vem em formato UNICODE, 
    // ilegíveis para nós
    $traducao = utf8_decode($traducao);

    return($traducao);
}
?>