package require http
bind pub - !ara pub:google
bind pub - !resim pub:image
bind pub - !dosya pub:file
set agent "Mozilla"
proc pub:google { nick uhost handle channel arg } {
 global agent
 if {[llength $arg]==0} {
  putserv "PRIVMSG $channel :hey ! tappes des mots boulet !"
 } else {
  set query "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">for { set index 0 } { $index<[llength $arg] } { incr index } {
   set query "$query[lindex $arg $index]"
   if {$index<[llength $arg]-1} then {
    set query "$query+"
   }
  }
  #putserv "PRIVMSG $channel :$query"
                set token [http::config -useragent $agent]
  set token [http::geturl $query]
  puts stderr ""
  upvar #0 $token state
  set max 0
  foreach {name value} $state(meta) {
   if {[regexp -nocase ^location$ $name]} {
    set newurl [string trim $value]
    putserv "PRIVMSG $channel :$newurl"
   }
  }
 }
}
proc pub:image { nick uhost handle channel arg } {
 global agent
 if {[llength $arg]==0} {
  putserv "PRIVMSG $channel :hey ! tappes des mots boulet !"
 } else {
  set query "http://images.google.de/images?btnI=&q="
  for { set index 0 } { $index<[llength $arg] } { incr index } {
   set query "$query[lindex $arg $index]"
   if {$index<[llength $arg]-1} then {
    set query "$query+"
   }
  }
  append query &imgsafe=off
 # putserv "PRIVMSG $channel :$query"
                set token [http::config -useragent $agent]
  set token [http::geturl $query]
  puts stderr ""
  upvar #0 $token state
  set max 0
  foreach {name value} $state(meta) {
   if {[regexp -nocase ^location$ $name]} {
    set starturl "http://"
    set newurl [string trim $value]
    set newurl [string range $newurl [expr [string first = $newurl]+1] [expr [string first & $newurl]-1]]
    append starturl $newurl
    putserv "PRIVMSG $channel :$starturl"
   }
  }
 }
}
proc pub:file { nick uhost handle channel arg } {
 global agent
 if {[llength $arg]==0} {
  putserv "PRIVMSG $channel :hey ! tappes un nom de fichier boulet !"
 } else {
  set query "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set query "$query[lindex $arg 0]"
 # putserv "PRIVMSG $channel :$query"
                set token [http::config -useragent $agent]
  set token [http::geturl $query]
  set html  [http::data $token]
  puts stderr ""
  upvar #0 $token state
  set max 0
 # foreach {name value} $state(meta) {
 #  putserv "PRIVMSG $channel :$value"
 # }
 # putserv "PRIVMSG $channel :$html"
  set result "[lindex $html 1]"
  set result [string range $result [expr [string first = $result]+2] [expr [string first > $result]-2]]
  putserv "PRIVMSG $channel :$result"
 }
}
putlog "Google v0.2.1 - LOADED!"