nforce17
Administrator
Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów
Pomógł: 4 razy
Ostrzeżeń: 0/5
|
 Wysłany: Pią 15:33, 21 Sty 2011 Temat postu: !google by nforce |
|
|
| Kod: | # Google For Irssi
# By Nforce
# OnetChat Only
# Ver 0.1
# Date 01.13.2011
use Irssi;
use strict;
use IO::Socket;
sub google {
my ($server, $msg, $nick, $address, $channel) = @_;
my $szukamy;
my $post;
my $bufor;
if ($msg =~ /.*!google (.*)/) {
$szukamy = $1;
$szukamy =~ s/ /\+/g;
my $sock = new IO::Socket::INET->new(PeerPort=> '80', Proto => 'tcp', PeerAddr => '74.125.230.81', TimeOut => '30') or die "nie mozna polaczyc";
$post = "GET /search?hl=pl&source=hp&biw=&bih=&q=". $szukamy ."&btnI=Szcz%C4%99%C5%9Bliwy+traf&aq=f&aqi=g1&aql=&oq=&gs_rfai= HTTP/1.1
Host: [link widoczny dla zalogowanych]
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: pl,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-2,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.google.pl/\r\n\r\n";
$sock->send($post);
$sock->recv($bufor,1024);
if ($sock) {
if ($bufor =~ /.*Location: (.*)/) {
$szukamy = $1;
}
}
$server->command("msg ". $channel ." ". $nick ." wynik szukania: ". $szukamy ."");
}
}
Irssi::signal_add('message public', 'google'); |
Pozdrawiam 
Post został pochwalony 0 razy
|
|
