Code:
bind pub - .google pub_googleset google(MAX) 10set google(deny_CHANS) { "#chan1" "#chan2"}package require httpproc pub_google {nick uhost hand chan arg} { global google if {[lsearch [string tolower $google(deny_CHANS)] [string tolower $chan]]!="-1"} { return 0 } if {$arg==""} { putserv "PRIVMSG $chan :$nick Usage: !google <search terms> \[-c1(Results to return)\] \[-a(Boolean And)\]" return 0 } set type as_oq set results 1 foreach flag $arg { if {$flag=="-a"} { set type as_q ; continue } else { if {[regexp -- {-c[0-9]*} $flag]} {set results [string range $flag 2 end] continue } } lappend search $flag } if {$results>$google(MAX)} { putnot $nick "Max results allowed is \002$google(MAX)\002, omitting extra" set results $google(MAX) } search_google $chan $results $type $search}proc search_google {chan results type search} { regsub -all " " $search "+" search set url http://www.google.com/search?$type=$search&num=$results http::config -useragent "Mozilla/5.0" set conn [http::geturl $url -headers "Referer http://www.google.com"] set data [http::data $conn] set count 0 set lcount 0 regsub -all .*<div> $data "" data regsub -all <div> $data <br> data regsub -all <br> $data \002 data foreach line [split $data \002] { incr lcount# putlog "$lcount: $line" if {$count==$results} { break } set line2 "" ; set line1 "" if {[regexp {(.*)<p [^>]*>(.*)} $line match line1 line2]} { if {$line2==""} { break } set description "" set desc "" regsub -all {<[^>]*>} $line2 "" description if {$description!=""} { set desc "($description)" } foreach word $line2 {if {[string match href=http://* [string tolower $word]]} { regsub -all {>[^<]*|<[^<]*|href=} $word "" word if {$results>1} { putserv "PRIVMSG $chan :Result([expr $count + 1]): \002$word\002 $desc" } else { putserv "PRIVMSG $chan :Result: \00304\002$word\002\003 \00302$desc\003" } incr count 1 break} } } } if {$count!=$results} { putserv "PRIVMSG $chan :Only could find \00302\002$count\002 results\003" }}
Statistics: Posted by lsn — Fri Oct 15, 2004 4:48 am
]]>