All pastes #82102 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-07-08 03:08 UTC
rendered paste body
on *:TEXT:*:#:{ 
  if ($1 == !translate) { 
    if ($2 == $null) { 
      notice $nick $cmderror nothing to Translate! 
      halt
    }
    set %trans.input $2-
    if $sock(gizoogle) { sockclose gizoogle } 
    sockopen gizoogle www.gizoogle.com 80
    set %trans.nick $nick
  }
}
on *:SOCKOPEN:gizoogle: { 
  sockwrite -n gizoogle GET /index.php?hl=en&translate=true&transtext= $+ $+(trans:,+,%trans.input) $+ &transtype=jive
  sockwrite -n gizoogle Host: www.gizoogle.com
}
on *:SOCKREAD:gizoogle: { 
  if ($sockerr) {
    notice %trans.nick $cmderror Socket error translating 14 %trans.input $+ !
    sockclose gizoogle
    halt
  }  
  else {
    var %gizoogle  
    sockread %gizoogle
    var %gizoogle = $htmlfree(%gizoogle)
    if (trans: isin %gizoogle) { notice %trans.nick 4(14 Gizoogle Translation 4)-14 $right(%gizoogle,-6) } 
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}