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
|
<?php
$ft=@fsockopen("irc.Mon.irc",6667);
fputs($ft, "PASS PasseDuServ\r\n");
fputs($ft, "USER Username localhost localhost :Testt\r\n");
fputs($ft, "NICK TestBot\r\n");
//stream_set_timeout($ft, 600); //marche pas ii fait un ping timeout en 3 minutes
//set_time_limit(600); //marche pas
fputs($ft, "JOIN #TEST\r\n");
while ($line = fgets($ft,250)) {
//il faudrait que ce while reste executé pendant 60 minutes - je recherche la bonne methode !
$a = explode(" ", $line);
if ($a[0] == "PING") {
fputs($ft, "PONG $a[1]");
}
if ($a[1] == "MODE") {
fputs($ft, "JOIN #TEST\r\n");
//fputs($ft, "QUIT\r\n");
}
}
}
//usleep(600000000); // 10 minutes
fputs($ft, "QUIT \r\n");
fclose($ft);
?> |
Partager