<?php
if (!file_exists("irkit.txt")) hae();
$osotteet = file("irkit.txt");
foreach ($osotteet as $addr) tsekkaa(trim($addr));

function tsekkaa($addr) {
    echo "$addr... ";
    $f = @fsockopen($addr, 6667, $ern, $ers, 5);
    if (!$f) {
        echo "ei yhdistä ($ers)\n";
        return;
    }
    echo "yhteys toimii...";
    fwrite($f, "USER foo 8 * :foo\r\n");
    list($mt, $s) = explode(" ", microtime());
    $mt = substr($mt, 2, -2);
    $nisk = chr(ord("a") - 1 + $mt{0}) . $mt;
    fwrite($f, "NICK $nisk\r\n");
    while (!feof($f)) {
        $s = trim(fgets($f));
        $st = explode(" ", $s);
        if ($st[0] == "ERROR") {
            preg_match('/.*?(\(.*\)).*/', $s, $mats);
            echo "ei pääse. $mats[1]\n";
            fclose($f);
            return;
        } else if ($st[0] == "PING") {
            fwrite($f, "PONG " . substr($s, 5) . "\r\n");
        } else if ($st[1] == "001") {
            fwrite($f, "QUIT :bye\r\n");
            fclose($f);
            echo "sisään pääsee!\n";
            return;
        }
    }
    fclose($f);
}

function hae() {
    $sivu = file_get_contents("http://irc.tu-ilmenau.de/all_servers/");
    preg_match_all('/\<tr\>\<td\>\<a.*?\>(.*?)(\<| )/', $sivu, $osotteet);
    $f = fopen("irkit.txt", "w");
    foreach ($osotteet[1] as $osote) fwrite($f, "$osote\n");
    fclose($f);
}
?>