Babelfish Translator [PHP]

Babelfish Translator

Publicado por Fábio Berbert de Paula 11/12/2002

[ Hits: 11.574 ]

Homepage: https://fabio.automatizando.dev

Download babelfishPHP.zip

0 0

Denuncie Favoritos Indicar

Script usado para traduzir texto em diversos idiomas usando a engine do babelfish.altavista.com como fonte de pesquisa.

Esconder código-fonte

<!-- babelfish.php -->
<?
/*
Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
http://www.vivaolinux.com.br

Script usado para traduzir texto em diversos idiomas usando a engine 
do babelfish.altavista.com como fonte de pesquisa.

Rio de Janeiro, 29/07/2002
*/



// definição de constantes
//setlocale('LC_ALL','nl_NL');

$DOIT = 'done';
$TT   = 'urltext';

// se o formulário foi submetido, teremos urltext diferente de vazio
if ($urltext) {
   $traducao = traduzir($urltext,$lp);
} else {
  $traducao  = '-';
}

// função usada para traduzir um texto
function traduzir($urltext,$lp) {
   // definição de variáveis
   $host = 'babelfish.altavista.com';
   $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 {
// Accept-Language: en
// Accept-Charset: iso-8859-1,*,utf-8
       $addinfo .= "Accept-Language: en\r\nAccept-Charset: iso-8859-1,*,utf-8\r\n";
       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
   $html = ereg_replace("\n"," ",$html);

   // capturando o texto rtaduzido
   ereg("name=\"q\" value=(.*)>",$html,$saida);
   $traducao = $saida[1];
   $traducao = ereg_replace(">.*$","",$traducao);
   // decodificar a string
   $traducao = utf8_decode($traducao);
   return($traducao);
}
?>

<html>

<style type="text/css">
td,textarea,select,input { 
   font-family: Arial,Helvetica,Sans-Serif;
   font-size: 11px;
   color: #000000;
}
</style>

<body style="margin-left: 20px; margin-top: 20px">

<form name="form1" action="<? echo $PHP_SELF ?>">
<table width="400" bgcolor="#000000" cellpadding=1 cellspacing=0>
<tr><td>
<table width="100%" bgcolor="#ffffff" cellpadding=3 cellspacing=0>
<tr>
  <td bgcolor="#cccccc" nowrap><b><big>BabelFish Translator</big></b></td>
  <td bgcolor="#cccccc" align="right">
     <a href="http://www.altavista.com">Powered by AltaVista</a>
  </td>
</tr>

<tr><td colspan=2>
Texto:
<br>
<textarea name="urltext" style="width: 100%;"><? echo $urltext ?></textarea>
</td></tr>

<tr>
<td width="1%" nowrap>Selecione uma linguagem:</td>
<td>
  <select name="lp" style="width: 100%;">
      <option value="en_zh">Inglês para Chinês
      <option value="en_fr">Inglês para Francês
      <option value="en_de">Inglês para Alemão
      <option value="en_it">Inglês para Italiano
      <option value="en_ja">Inglês para Japonês
      <option value="en_ko">Inglês para Koreano
      <option value="en_pt">Inglês para Português
      <option value="en_es">Inglês para Espanhol
      <option value="zh_es">Chinês para Inglês
      <option value="fr_en">Francês para Inglês
      <option value="fr_de">Francês para Alemão
      <option value="de_en">Alemão para Inglês
      <option value="de_fr">Alemão para Francês
      <option value="it_en">Italiano para Inglês
      <option value="ja_en">Japonês para Inglês
      <option value="ko_en">Koreano para Inglês
      <option value="pt_en" SELECTED>Português para Inglês
      <option value="ru_en">Russo para Inglês
      <option value="es_en">Espanhol para Inglês
  </select>
</td>
</tr>

<tr>
  <td align="right">Tradução </td>
  <td><? echo $traducao ?></td>
</tr>

<tr><td colspan=2 align="center">
<br>
<input type="submit" value=" Traduzir agora ! " style="width: 100%;">
</td></tr>

</table>
</td></tr>
</table>
</form>

</body>
</html>

Scripts recomendados

ZPanel

Babelfish Translator 2.0

php-scan-rede - scanner de rede simples em PHP

Whois em PHP

Tradutor Google

Comentários

[1] Comentário enviado por chavslinux em 18/11/2005 - 13:26h

Legal Fábio, parabéns!!! Gostei do script, existem muitos scripts que são publicados na net que não funcionam, funcionou legal. Valeu mano

0 0