this what I'm trying to do

using this code to call the roomlist

Code:
<?php
error_reporting (E_ALL);
$service_port = 6668;
$address = gethostbyname ('86.6.32.133');
$socket = socket_create (AF_INET, SOCK_STREAM, 0);
if ($socket < 0) {
    echo "socket_create() Error: " . socket_strerror ($socket) . "\n";
}
$result = socket_connect ($socket, $address, $service_port);
if ($result < 0) {
    echo "socket_connect() Error: ($result) " . socket_strerror($result) . "\n";
}
$in = "ROOMLIST\n";
$out = '';
socket_write ($socket, $in, strlen ($in));
while ($out = socket_read ($socket, 2048)) {
    echo $out;
}
socket_close ($socket);
?>


and then use this code to reply back

Code:
on *:START:{ liststart }
alias liststart { socklisten listing 6668 }
on *:socklisten:listing:{ sockaccept sendlist. $+ $r(111,999) }
on *:sockread:sendlist.*:{ var %r | sockread %r | tokenize 32 %r
  if ($1 == ROOMLIST) {
    if ($var(%create.*,1)) {
          sockwrite -tn $sockname <center><b>List rooms:</b><br>
          sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="Black">
          sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White">Users</font></b><br></td>
          sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">RoomName</font></b><br></td>
          sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">topic</font></b><br></td>
          sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Modes</font></b><br></td></tr>
          var %n = 1
          var %a = 1
          while (%n <= $var(%create.*,0)) {
            if (%a == 2) { sockwrite -tn $sockname <tr bgcolor="bbbbbb"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | dec %a }
            elseif (%a == 1) { sockwrite -tn $sockname <tr bgcolor="dddddd"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | inc %a }
            inc %n
          }
          sockwrite -tn $sockname </table></center> |    $sockname
          sockclose $sockname
    }
    else {
          sockwrite -tn $sockname <center><b>List rooms:</b><br>
          sockwrite -tn $sockname No room available for the moment
          sockwrite -tn $sockname </center> |    $sockname
    }
  }
  else { sockclose $sockname }
}
alias    {
  sockwrite $1 $decode(PGJyPjxjZW50ZXI+PGEgaHJlZj0iaHR0cDovL3BhcGVyY2hhdC5mcmVlLmZyLyI+PGZvbnQgc2l6ZT0iMSI+UGFnZSBDcunpZSBQYXIgUGFwZXJJUkMgTVNOTGlrZSBTZXJ2ZXI8L2ZvbnQ+PC9hPjwvY2VudGVyPg==,m)
}


But it not working
I do get * /socklisten: bind error line 2
is it a firewall problem or router problem?