#!/usr/local/bin/perl # (c) kreator, 2000AD use Socket; $irchost = "irc.srk.fer.hr"; $ircport = "6666"; $nick1 = "StatsLeech"; $nick2 = "WebStats"; print < CARNET IRC tim

CARNet IRC mreza - statistike

EOF getinfo($irchost, $ircport); print <

Ove stranice su automatski generirane datuma: EOF print `/bin/date`; print <

Copyright (c) 2000AD - Dinko Korunic - kreator, IRC admin, email: kreator\@bagan.srce.hr EOF exit; sub connect_host { local($ip, $port) = @_; ($d1, $d2, $proto) = getprotobyname("tcp"); ($d1, $d2, $d3, $d4, $rawclient) = gethostbyname(`hostname`); ($d1, $d2, $d3, $d4, $rawserver) = gethostbyname($ip); $clientaddr = pack("Sna4x8", 2, 0, $rawclient); $serveraddr = pack("Sna4x8", 2, $port, $rawserver); socket(SOCKET, AF_INET, SOCK_STREAM, $proto) || die "No socket: $!"; bind(SOCKET, $clientaddr); connect(SOCKET, $serveraddr) || die "connect failed: $!"; select(SOCKET); $| = 1; select(STDOUT); } sub getinfo { local($host, $port) = @_; $pcount=1; connect_host($host, $port); print SOCKET "user efnet # # #\nnick $nick1 # # #\n"; while() { chomp(); @args = split(' ', "$_"); #print "$_\n"; if ($args[0] eq "PING") { @burek = split(':', $args[1]); print SOCKET "pong :$burek[1]\nprivmsg statserv stats\n"; } if (substr($args[0], 0, 1) eq ":") { if ($args[1] eq "433") { print SOCKET "nick $nick2 # # #\n"; } elsif ($args[1] eq "NOTICE") { $value=$#args; $i=3; while ($i <= $value) { if ($i eq 3) { $args[3] = substr($args[3], 1); } print "$args[$i++] "; } print "
\n"; $pcount++; } if ($pcount eq 20) { print SOCKET "quit\n"; } } } close(SOCKET); }