Skip to content
TechGear007 TG007 Technology · IRC · Community
Search
General IRCX

Ircx Roomlist

A TG007 community discussion started by Dippy.

Forum Home Search Forum Sign In
Discussion 40 posts
Page 1 of 2
Open
Topic #15519 · 40 published posts · 11,364 views
Dippy Member #6,161
#79,745

having a problem with this code it giving me

/socklisten: bind error (line 2, script2.ini)

can anyone help?

 

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>Liste Des salles:</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">Nom de la salle</font></b><br></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Sujet</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>ListRooms:</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)
}

BumbleBeeChat.Net

Dippy Member #6,161
#79,749

this what I'm trying to do

 

using this code to call the roomlist

 

<?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

 

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 all it does is suck on load then after 10 mins it goes to 500 error

BumbleBeeChat.Net

Dippy Member #6,161
#79,751

yeh I tried that but the chat itself works on that port 6668 so it got to be something to do with the code

BumbleBeeChat.Net

Maki Member #28,627
#79,755

I see nothing to trigger a sockopen to read the data the php socket is to return for mirc to use.

 

Were the php is being hosted on? ... ie(webserver, or localhost)

 

why you would be doing this way insted of using listx or list (Only network I seen not use one of the two or both commands was Buzzen)

 

I am not sure what you are doing fully the code you posted looks broken and missing key things to even start to make it work. I am not picking at you in any way, just need more info and hopefully be able to help you get your code working the way you want it to work

 

Dippy Member #6,161
#79,757

The irc side it self is on my computer but the php stuff is hosted on hostgator

 

All I want to do is get the roomlist from the ircx server and relay it back to the webserver

Edited Apr 5, 2012 1:18 PM by Dippy

BumbleBeeChat.Net

Dippy Member #6,161
#79,759

they dont allow the irc to be run on their sever I'm just running the php side on their server and I already have the chat side working on the webserver just not a working room list yet for the ircx server

BumbleBeeChat.Net

Dippy Member #6,161
#79,761

ok got this now but still unable to get it in working order

 

alias cmd {
  if (r isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return r }
}
alias ishidden {
  if (h isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true }
  if (p isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true }
  if (s isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true }
  else { return false }
}
on *:socklisten:listing:{ sockaccept sendlist. $+ $r(111111,999999) }
on *:sockread:sendlist.*:{ var %r | sockread %r | tokenize 32 %r
  if ($1 == ROOMLIST) {
    if ($var(%create.*,1)) {
	  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	  sockwrite -tn $sockname <center><b>Room List:</b><br>
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#9999FF">
	  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="2" color="White">Room Name</font></b><br></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="2" color="White">Topic</font></b><br></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="2" color="White">Category</font></b><br></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White">	 </font></b><br></td></tr>
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><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), ,$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,info,category) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "><center>To join</center></a></font></td></tr> | dec %a }
	    elseif (%a == 1) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><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), ,$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,info,category) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "><center>To join</center></a></font></td></tr> | inc %a }
	    inc %n
	  }
	  ;	  sockwrite -tn $sockname </table></center> |    $sockname
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Rooms List:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTGN) {

    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == GN) && ($ishidden == false) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="2.5"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><td style="vertical-align: top;"><font face="verdana" size="2.5"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"><a href=""> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == GN) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFFO"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="2.5"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><td style="vertical-align: top;"><font face="verdana" size="2.5"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"><a href=""> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center> 
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Rooms List:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTCC) {

    if ($var(%create.*,1)) {

	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == CC) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == CC) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center> 
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Room List:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTRM) {
    if ($var(%create.*,1)) {

	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>  

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RM) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RM) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  ;;sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></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,info,category) </font></td></tr>
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"><center>Ninguna sala disponible en esta categoria<br>
    }
    if ($sock($sockname)) { sockclose $sockname }
  }

  elseif ($1 == ROOMLISTTN) {

    if ($var(%create.*,1)) { 
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == TN) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == TN) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center> 
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center>
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTIN) {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == IN) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == IN) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTFN)  {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == FN) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == FN) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTLS) {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == LS) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == LS) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }

  elseif ($1 == ROOMLISTHB) {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == HB) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == HB) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }

  elseif ($1 == ROOMLISTSP) {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == SP) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == SP) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTNW) {
    if ($var(%create.*,1)) {

	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 
	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == NW) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == NW) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }
  elseif ($1 == ROOMLISTPR) {
    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == PR) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == PR) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }

  elseif ($1 == ROOMLISTRL) {

    if ($var(%create.*,1)) {
	  sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff">
	  sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td>
	  sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"></font></b><br></td>	 
	  sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td>
	  sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td>
	  sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td>	 

	  var %n = 1
	  var %a = 1
	  while (%n <= $var(%create.*,0)) {
	    if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RL) {
		  sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  dec %a
	    }
	    elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RL) {
		  sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,) </font></td><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="2"><a href="chats.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($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,info,language),es-mx,Spanish) </font></td>
		  inc %a
	    }
	    inc %n
	  }
	  sockwrite -tn $sockname </table></center>
	  sockclose $sockname
    }
    else {
	  sockwrite -tn $sockname <center><b>Lista de salas:</b><br>
	  sockwrite -tn $sockname No available rooms for the time being
	  sockwrite -tn $sockname </center> |    $sockname
    }
    if ($sock($sockname)) { sockclose $sockname }
  }

}

BumbleBeeChat.Net

Dippy Member #6,161
#79,763

ok

BumbleBeeChat.Net

Dippy Member #6,161
#79,768

ok I used my computer as a web server also and still no joy so it not the web server

BumbleBeeChat.Net

Dippy Member #6,161
#79,770

new code

 

<?php
    $botnick = "Chatterup";
    $server = "irc.zunkies.com";
    $port = "6668";
    $channel = "#TheLobby";
?>
<html>
<head>
<meta http-equiv="Content-Language" content="en">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Room List</title>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse">
  <tr>
    <td width="8%" height="20" align="center" valign="middle" bgcolor="#FFFFCC" style="border-left:1px solid #333333;border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"> Users</td>
    <td width="15%" height="20" align="left" valign="middle" bgcolor="#FFFFCC" style="border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"> Roomname:</td>
    <td width="77%" height="20" align="left" valign="middle" bgcolor="#FFFFCC" style="border-right:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"> Topic:</td>
  </tr>
<?php
    $fp = fsockopen($server, $port, $errno, $errstr, 30);
    if (!$fp) {
	    echo "$errstr ($errno)<br />\n";
    }
    else {
	    fputs($fp,"USER $botnick $botnick 127.0.0.1 :php\n");
	    $nick = $botnick . rand(10000,99999);
	    fputs($fp,"NICK $nick\n");
	    while (!feof($fp)) {
		    usleep(50);
		    $fget = @fgets($fp, 128);
		    echo "$fget <br>\n";
		    $match = explode(" ", $fget);
		    $fget = ereg_replace ("\n", "", $fget);
		    $fget = ereg_replace ("\r", "", $fget);
		    if ($match[1] == "001") {
			    fputs($fp,"LIST\n");
		    }
		    else if ($match[0] == "PING") {
			    fputs($fp, "PONG :" . $match[1]);
		    }
		    else if ($match[1] == "433") {
			    $nick = $botnick . rand(10000,99999);
			    fputs($fp,"NICK $nick\n");
		    }
		    else if ($match[1] == "323") {
			    fputs($fp, "QUIT :bye!\n");
			    break;
		    }
		    else if ($match[1] == "322") {
			    $match[3] = ereg_replace ("#", "", $match[3]);
			    if (eregi ("$channel(.*)", $match[3], $chan)) {
				    $topic = explode(":", $fget);
				    unset($topic[0]);
				    unset($topic[1]);
				    $topic = implode(":", $topic);
				    if ($color == "FBFBF7") {
					    $color = "FFFFFF";
				    }
				    else {
					    $color = "FBFBF7";
				    }
				    ?>
  <tr>
    <td width="8%" align="center" valign="middle" bgcolor="#<?php echo $color; ?>" style="border-top:1px solid #333333;border-left:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"><?php echo $match[4]; ?></td>
    <td width="15%" style="border-bottom:1px solid #333333;bordertop:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;" bgcolor="#<?php echo $color; ?>"> <a href="./chats.php?action=Chat&rmname=[EN]<?php echo $chan[1]; ?>">
	  <?php echo $chan[1]; ?>
	  </a></td>
    <td width="77%" style="border-right:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY:;border-top:1px solid #333333; verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"bgcolor="#<?php echo $color; ?>"> 
	  <?php echo $topic; ?></td>
  </tr>
					  <?php
			    }
		    }
	    }
	    fclose($fp);
    }
?>
</table>
</body>
</html>

now I get the tables and this

:86.6.32.133 001 Welcome To Zunkies IRCX Network

BumbleBeeChat.Net

Dippy Member #6,161
#79,781

ok I got roomlist up on http://www.zunkies.com/roomist.php but it not showing topic can anyone help?

BumbleBeeChat.Net

Pablo Member #27,826
#79,782

404

Stupidity is a metric of success.

Dippy Member #6,161
#79,783

sorry ment to be roomlist.php not roomist.php

BumbleBeeChat.Net

JOhnson I know not of what I speak Member #27,425
#79,788
:shock: im surprised no one has come forward and replied or even offered you help as iv been to your site and see a lot of potential ... yes its looks like msn and iv noticed you are working on msn ocx chat but that is a start ... trouble is most of the php coders and irc coders have lost interested in coding for msn ocx chat networks and why I dont know as iv been in a few other msn clone sites and they seem to be doing fine ... you will need help dippy so why not yell a bit louder and someone might hear you :lolwave: and give you some help :D

err0r Subject Matter Expert Member #20,793
#79,792

still having problems?

Get information about ircWx here

Dippy Member #6,161
#79,795

yes I do

 

in the topic bit it shows roomlister nick number of users and room name as well as the topic

 

I also having problems with hiden rooms still showing on the list and setting category

BumbleBeeChat.Net

err0r Subject Matter Expert Member #20,793
#79,796

What is your current code

Get information about ircWx here

Dippy Member #6,161
#79,799 



<? require('includes/pages/header.php'); ?>


<br />


<br />


<?php


error_reporting(E_ALL ^ E_NOTICE);


	    $botnick = "RoomLister";


	    $server = "irc.zunkies.com";


	    $port = "6668";


	    $channel = "zunkies";


?>


<html>


<head>


<meta http-equiv="Content-Language" content="en">


<meta name="GENERATOR" content="Microsoft FrontPage 5.0">


<meta name="ProgId" content="FrontPage.Editor.Document">


<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">


<title>Room List</title>


</head>


<body>


<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse">


  <tr>


	    <td width="8%" height="20" align="center" valign="middle" bgcolor="#00CCFF" style="border-left:1px solid #333333;border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <img src='http://www.zunkies.com/icons/people.png' width='25' height='25'></td>


	    <td width="15%" height="20" align="left" valign="middle" bgcolor="#00CCFF" style="border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <b>Roomname:</b></td>


	    <td width="77%" height="20" align="left" valign="middle" bgcolor="#00CCFF" style="border-right:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <b>Topic:</b></td>


  </tr>


<?php


	    $fp = fsockopen($server, $port, $errno, $errstr, 30);


	    if (!$fp) {


					    echo "$errstr ($errno)<br />\n";


	    }


	    else {


					    fputs($fp,"USER $botnick $botnick 127.0.0.1 :php\n");


					    $nick = $botnick . rand(10000,99999);


					    fputs($fp,"NICK $nick\n");


					    while (!feof($fp)) {


									    usleep(50);


									    $fget = @fgets($fp, 500);


									    //echo "$fget <br>\n";


									    $match = explode(" ", $fget);


									    $fget = str_replace ("\n", "", $fget);


									    $fget = str_replace ("\r", "", $fget);


									    if ($match[1] == "001") {


													    fputs($fp,"LIST\n");


									    }


else if ($match[0] == "PING") {


													    fputs($fp, "PONG " . $match[1]);


									    }


									    else if ($match[1] == "433") {


													    $nick = $botnick . rand(10000,99999);


													    fputs($fp,"NICK $nick\n");


									    }


									    else if ($match[1] == "323") {


													    fputs($fp, "QUIT :bye!\n");


													    break;


									    }


									    else if ($match[1] == "322") {


										 $room = $match[3];


										 $room = str_replace("#","",$room);


										 $room = str_replace("\b"," ",$room);


		  $count = $match[4];


		  $topic = explode(" ", $fget);


										 unset($topic[0]);


										 unset($topic[1]);


										 $topic = implode(" ", $topic);


										 $topic = str_replace("#","",$topic);


										 $topic = str_replace("\b"," ",$topic);


										  if ($color == "FBFBF7") {


																					    $color = "FFFFFF";


																	    }


																	    else {


																					    $color = "FBFBF7";


																	    }


																	    ?>


  <tr>


	    <td width="8%" align="center" valign="middle" bgcolor="#<?php echo $color; ?>" style="border-top:1px solid #333333;border-left:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"><?php echo $count; ?></td>


	    <td width="15%" style="border-bottom:1px solid #333333;bordertop:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;" bgcolor="#<?php echo $color; ?>"> <a href="http://zunkies.com/chats.php?nick=<?php echo $username; ?>&room=<?php echo $room; ?>" target="_blank">


				  <?php echo $room; ?>


				  </a></td>


	    <td width="77%" style="border-right:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY:;border-top:1px solid #333333; verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"bgcolor="#<?php echo $color; ?>"> 


				  <?php echo $topic; ?></td>


  </tr>


																				  <?php


													    }




					    }


					    fclose($fp);


	    }


?>


</table>


<br />


<br />


<table width="99%" align="center">


<tr>


    <? require('includes/pages/footer.php') ?></div></td>


  </tr>


</table>


</body>


</html>

BumbleBeeChat.Net

err0r Subject Matter Expert Member #20,793
#79,802

You should consider fixing some of the html errors and such but the problem was that you weren't exploding the topic get correctly. you want to explode or "split" by the :

<?php
error_reporting(E_ALL ^ E_NOTICE);
		    $botnick = "RoomListertest";
		    $server = "irc.zunkies.com";
		    $port = "6668";
		    $channel = "zunkies";
?>
<html>
<head>
<meta http-equiv="Content-Language" content="en">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Room List</title>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse">
  <tr>
		    <td width="8%" height="20" align="center" valign="middle" bgcolor="#00CCFF" style="border-left:1px solid #333333;border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <img src='http://www.zunkies.com/icons/people.png' width='25' height='25'></td>
		    <td width="15%" height="20" align="left" valign="middle" bgcolor="#00CCFF" style="border-bottom:1px solid;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <b>Roomname:</b></td>
		    <td width="77%" height="20" align="left" valign="middle" bgcolor="#00CCFF" style="border-right:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"> <b>Topic:</b></td>
  </tr>
<?php
		    $fp = fsockopen($server, $port, $errno, $errstr, 30);
		    if (!$fp) {
										    echo "$errstr ($errno)<br />\n";
		    }
		    else {
										    fputs($fp,"USER $botnick $botnick 127.0.0.1 :php\n");
										    $nick = $botnick . rand(10000,99999);
										    fputs($fp,"NICK $nick\n");
										    while (!feof($fp)) {
																		    usleep(50);
																		    $fget = @fgets($fp, 500);
																		    //echo "$fget <br>\n";
																		    $match = explode(" ", $fget);
																		    $fget = str_replace ("\n", "", $fget);
																		    $fget = str_replace ("\r", "", $fget);
																		    if ($match[1] == "001") {
																										    fputs($fp,"LIST\n");
																		    }
else if ($match[0] == "PING") {
																										    fputs($fp, "PONG " . $match[1]);
																		    }
																		    else if ($match[1] == "433") {
																										    $nick = $botnick . rand(10000,99999);
																										    fputs($fp,"NICK $nick\n");
																		    }
																		    else if ($match[1] == "323") {
																										    fputs($fp, "QUIT :bye!\n");
																										    break;
																		    }
																		    else if ($match[1] == "322") {
																				 $room = $match[3];
																				 $room = str_replace("#","",$room);
																				 $room = str_replace("\b"," ",$room);
																				 $count = $match[4];
																				 $gettopic = explode(":", $fget);
																				 $topic = $gettopic[1];
																				 $topic = str_replace("#","",$topic);
																				 $topic = str_replace("\b"," ",$topic);
																				  if ($color == "FBFBF7") {
																																										    $color = "FFFFFF";
																																		    }
																																		    else {
																																										    $color = "FBFBF7";
																																		    }
																																		    ?>
  <tr>
		    <td width="8%" align="center" valign="middle" bgcolor="#<?php echo $color; ?>" style="border-top:1px solid #333333;border-left:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;"><?php echo $count; ?></td>
		    <td width="15%" style="border-bottom:1px solid #333333;bordertop:1px solid #333333;border-top:1px solid #333333;FONT-FAMILY: verdana;FONT-SIZE: 8pt;TEXT-DECORATION: none;" bgcolor="#<?php echo $color; ?>"> <a href="http://zunkies.com/chats.php?nick=<?php echo $username; ?>&room=<?php echo $room; ?>" target="_blank">
								  <?php echo $room; ?>
								  </a></td>
		    <td width="77%" style="border-right:1px solid #333333;border-bottom:1px solid #333333;FONT-FAMILY:;border-top:1px solid #333333; verdana;FONT-SIZE: 10pt;TEXT-DECORATION: none;"bgcolor="#<?php echo $color; ?>"> 
								  <?php echo $topic; ?></td>
  </tr>
																																								  <?php
																										    }
								
										    }
										    fclose($fp);
		    }
?>
</table>
<br />
<br />
<table width="99%" align="center">
<tr>
  </tr>
</table>
</body>
</html>

Get information about ircWx here

Dippy Member #6,161
#79,806

Thank You that worked :)

 

how would make the list in category ?

BumbleBeeChat.Net