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
41
|
on *:text:§google*:#:{
;when someone (not youself) write !google
if (!$2) { msg $iif($chan,$v1,$nick) Vitun vatipää! se on §google <hakusana(t)> }
else {
var %s = google. $+ $ticks
sockopen %s www.google.fi 80
sockmark %s $replace($2-,$chr(32),+) $iif($chan,$v1,$nick) $nick
}
}
on *:sockopen:google.*:{
tokenize 32 $sock($sockname).mark
if ($sockerr) { .notice $3 Error: Unable to open Connection to google.fi | halt }
var %s = sockwrite -n $sockname
%s GET /search?hl=fi&q= $+ $1 $+ &btnI=Kokeilen+onneani&meta= HTTP/1.0
%s Host: www.google.fi
%s User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
%s Connection: keep-alive
%s $crlf
}
on *:sockread:google.*:{
tokenize 32 $sock($sockname).mark
var %all
sockread %all
if (Location: * iswm %all) {
msg $2 Ensimmäinen tulos sanalle $+($replace($1,+,$chr(32)),:) $remove(%all,Location:)
sockclose $sockname
}
elseif (*Hakusi -*- ei vastaa* iswm %all) {
msg $2 Hakusi $+(",$replace($1,+,$chr(32)),",) ei vastaa yhtään sivua.
sockclose $sockname
}
}
; original code from blk_panther (german), translated by BiNDi (to finnish)
|