ING – TR / TR – ING Ceviri Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;, ) return %x } on *:sockopen:ceviri*: { sockwrite -n $sockname GET $+(/,%tr-ing,.php?,%dtr-ing,=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: guzelsozluk.com $+ $crlf $+ $crlf } on *:Sockread:ceviri*: { var %ceviri sockread %ceviri tokenize 32 %ceviri if (*button.gif" title="dinle"* iswm %ceviri) { echo -a Cevirilcek Sozcuk: $replace($qt($sock($sockname).mark),+,$chr(32)) echo -a Ceviri: $qt($htmlfree(%ceviri)) } } alias pck { inc %63 sockopen $+(ceviri,%63) guzelsozluk.com 80 sockmark $+(ceviri,%63) $replace($1-,$chr(32),+) } alias cevir { if ($1 == ing) { set %tr-ing turkce set %dtr-ing ing pck $2- } if ($1 == tr) { set %tr-ing ingilizce set %dtr-ing tur pck $2- } ---- Cevirilcek Sozcuk: "merhaba" Ceviri: "Hi" Cevirilcek Sozcuk: "hi" Ceviri: "merhaba" |