Babelfish Translator 2.0 [PHP]

Babelfish Translator 2.0

Publicado por Fábio Berbert de Paula 20/07/2004

[ Hits: 11.652 ]

Homepage: https://fabio.automatizando.dev

Download babelfish.php

0 0

Denuncie Favoritos Indicar

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

Versão atualizada com a correção do bug que o limitava a traduzir textos com menos de 30 caracteres.

Esconder código-fonte

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

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
Alterado em 20/07/2004
*/



// 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); // antiga regexp
   ereg("<div style=padding:10px;>(.*)<.div>",$html,$saida); // nova regexp
   $traducao = $saida[1];
   $traducao = ereg_replace(">.*$","",$traducao);
   // decodificar a string
   $traducao = utf8_decode($traducao);
   $fp = fopen("saida.txt", "w");
   fputs($fp, $html);
   fclose($fp);
   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" target="new">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

Exibir IP do cliente

Script PHP para autenticacao web dos usuarios do proprio linux

Script PHP para fazer UPLOAD de arquivos

PortScan em PHP com post usando fsockopen

Resolvendo IP para Hostname em PHP

Comentários

[1] Comentário enviado por RodrigoKulb em 07/07/2008 - 17:46h

Ola Fábio o script não funca mais, andei pesquisando e não achei a solução.

Tentei trocar o host:
de
$host = 'babelfish.altavista.com';
para
$host = 'br.babelfish.yahoo.com';
mais não funcou !!!

vc saberia me dizer o q podemos fazer para arrumar este script ??

0 0