home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / old / amirc_34.lzx / AmIRC_34 / Rexx / babel.amirx next >
Encoding:
Text File  |  2014-05-19  |  1.5 KB  |  48 lines
  1. /* 
  2.    $VER:Babelfish-Translator 1.0▀ (29.01.00) C.Birchinger (Joker)
  3.    License: GPL (http://www.gnu.org/copyleft/gpl.html)
  4. */
  5.  
  6. parse arg argument
  7. parse var argument lang text
  8.  
  9. if text='' then do
  10.     "echo P="d2c(27)"b½babel╗ Usage: babel <languages> <text>"
  11.   "echo P="d2c(27)"b½babel╗ Available languages: en_fr, en_de, en_it, en_pt, en_es, fr_en, de_en, it_en, es_en, pt_en."
  12.     exit
  13. end 
  14. lang=lower(strip(lang));text=strip(text)
  15.  
  16. if (lang~='en_fr' & lang~='en_de' & lang~='en_it' & lang~='en_pt' & lang~='en_es' & lang~='fr_en' & lang~='de_en' & lang~='it_en' & lang~='es_en' & lang~='pt_en') then do
  17.     "echo P="d2c(27)"b½babel╗ Wrong languages! Available languages: en_fr, en_de, en_it, en_pt, en_es, fr_en, de_en, it_en, es_en, pt_en."
  18.     exit
  19. end 
  20.  
  21. parse var lang prelang'_'suflang
  22. "echo P="d2c(27)"b½"prelang"╗ "text
  23.  
  24. findtext=text
  25. conlen=length(findtext)+28
  26.  
  27. if open(x,'tcp:babelfish.altavista.com/80') then do
  28.     writeln(x,'POST /cgi-bin/translate HTTP/1.0')
  29.     writeln(x,'Content-Length: 'conlen)
  30.     writeln(x,'')
  31.     writeln(x,'urltext='findtext'&lp='lang'&doit=done')
  32.   do until (index(line,'<font face="arial, helvetica">') & 0=index(line,'</b></font>') )
  33.         line=readln(x)
  34.     end
  35.  
  36.   parse var line '<font face="arial, helvetica">'outtext
  37.     "echo P="d2c(27)"b½"suflang"╗ "outtext
  38.  
  39. end
  40. else
  41.     "echo P="d2c(27)"b½babel╗ Error: 'http://babelfish.altavista.com' is down or TCP: not mounted."
  42.     exit
  43. end
  44. exit
  45.  
  46. lower:
  47. return translate(arg(1),'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  48.