Actualización de código PHP antiguo (pocas líneas)

[bragolsul]

Hola, hace tiempo tengo la idea de poder poner en mi web un listado de la gente que está conectada a mi canal de IRC. Como una vista previa de los usuarios conectados.

Buscando en la web encontré un código hecho por Vlan7, que data de 2006 y que según dice, hace lo que quiero. Como no me funciona, antes de admitir que es culpa mía, prefiero echarle la culpa al código y por tanto, consultarles si el mismo está acorde a los tiempos que corren, ya que lo estoy probando en un server con PHP 5.3.4 y no me da ni pelota (bah, me dice que la constante salir no está definida).
¿Es mucha molestia si le hechan un vistazo?

Código PHP:

<?php
// botbc 2.0 Por vlan7
// http://www.vlan7.org
 
$servidor = 'dune.irc-hispano.org';
$puerto = 6667;
$nick = 'botbc';
$host = 'www.vlan7.org';
$canal='#canal';
 
$con = array();
 
$con['socket'] = fsockopen($servidor, $puerto);
 
if (!$con['socket']) {
  print ("No se ha podido conectar con $servidor en el puerto $puerto");
} else {
  fputs($con['socket'], "USER $nick $host $host ".$nick."\n\r");
  fputs($con['socket'], "NICK $nick ".$host."\n\r");
  
  $salir=false;
  $eof=false;
  while ((!$eof) && (!$salir)) {
  $con['buffer']['linea'] = trim(fgets($con['socket'], 1024));
 
  if(substr($con['buffer']['linea'], strpos($con['buffer']['linea'], 'End of /WHO list'))=='End of /WHO list') {
    fclose($con['socket']);
    $salir=true;
  }
 
  if(substr($con['buffer']['linea'], 0, strlen($servidor)+5) == ':'.$servidor.' 352') {
    $nicks = explode(" ", $con['buffer']['linea']);
    print "$nicks[7] ";
  }
 
  if(substr($con['buffer']['linea'], 0, 6) == 'PING :') {
    fputs($con['socket'], "PONG :".substr($con['buffer']['linea'],6)."\n\r");
    fputs($con['socket'], "WHO ". $canal ."\n\r");
  }
  if(!salir) {
    $eof=feof($con['socket']);
  }
}
}
?>
 

[andresdzphp]

y los errores?

[bragolsul]

Ah, perdón.
Los errores son estos dos. El primero se repite unas 20 veces y luego aparece el otro.

( ! ) Notice: Use of undefined constant salir - assumed 'salir' in C:\Users\****\wamp\www\IRCusers\index.php on line 48
Call Stack
# Time Memory Function Location
1 0.0206 694944 {main}( ) ..\index.php:0

( ! ) Fatal error: Maximum execution time of 30 seconds exceeded in C:\Users\****\wamp\www\IRCusers\index.php on line 32
Call Stack
# Time Memory Function Location
1 0.0206 694944 {main}( ) ..\index.php:0

[andresdzphp]

El primer error es porque aquí:

Código PHP:

if(!salir) {
 

debería ser

Código PHP:

if(!$salir) {
 

y el segundo intenta aumentando el tiempo de ejecución a ver si funciona.

Código PHP:

ini_set('max_execution_time', SEGUNDOS AQUI);
 

[bragolsul]

:FACEPALM:
Si, lo de salir era eso.
El tiempo se lo aumenté, pero el error sigue saliendo.
La conexión se establece pero al parecer lo que falla es la autenticación en el IRC, ya que en ningún momento veo aparecer al bot en el canal. Voy a ver qué puedo hacer con eso.

Muchas gracias andresdzphp.