1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
alias country {
//sockclose tlen
/set %country $replace($1,*,?)
if (!$1) //set %country $replace($$?="Country",*,?)
sockopen tlen en.wikipedia.org 80
}
on *:sockopen:tlen: {
; sockwrite -n $sockname GET /wiki/List_of_countries/index.php HTTP/1.1
sockwrite -n $sockname GET /wiki/List_of_countries HTTP/1.1
sockwrite -n $sockname Host: en.wikipedia.org
sockwrite -n $sockname $crlf
sockwrite -n $sockname Connection: Keep-Alive
}
on *:sockread:tlen: {
/sockread %asd
set %asd $remove($nohtml(%asd), )
if (%country iswm $gettok(%asd,1,32)) /echo -a 4*** %asd
/unset %asd
}
|