From 1eab928d963935425463b16424ee64442324d9a0 Mon Sep 17 00:00:00 2001
From: Art Cancro <ajc@citadel.org>
Date: Sun, 2 Nov 2003 05:35:11 +0000
Subject: [PATCH] * who.php: added * ctdlprotocol.php: worked out a tentative
 data API using this function.

---
 ctdlphp/ChangeLog        |  5 +++-
 ctdlphp/ctdlprotocol.php | 55 +++++++++++++++++++++++++++++++++++-----
 ctdlphp/do_login.php     |  3 ++-
 ctdlphp/login.php        |  3 +--
 ctdlphp/page2.php        |  1 +
 ctdlphp/welcome.php      |  1 +
 ctdlphp/who.php          | 32 +++++++++++++++++++++++
 7 files changed, 90 insertions(+), 10 deletions(-)
 create mode 100644 ctdlphp/who.php

diff --git a/ctdlphp/ChangeLog b/ctdlphp/ChangeLog
index 7e0a956b4..03e0c9552 100644
--- a/ctdlphp/ChangeLog
+++ b/ctdlphp/ChangeLog
@@ -1,4 +1,8 @@
  $Log$
+ Revision 1.10  2003/11/02 05:35:11  ajc
+ * who.php: added
+ * ctdlprotocol.php: worked out a tentative data API using this function.
+
  Revision 1.9  2003/11/02 04:26:11  ajc
  * Cleaned up the pages in preparation for handing it off to the extremely
    talented developers and webmasters who will soon be working on it.
@@ -41,4 +45,3 @@
 
  Revision 1.1  2003/10/31 03:47:13  ajc
  * Initial CVS import
-
diff --git a/ctdlphp/ctdlprotocol.php b/ctdlphp/ctdlprotocol.php
index 2fd38d4f3..32d003045 100644
--- a/ctdlphp/ctdlprotocol.php
+++ b/ctdlphp/ctdlprotocol.php
@@ -145,12 +145,9 @@ function ctdl_mesg($msgname) {
 	
 	if (substr($response, 0, 1) == "1") {
 		echo "<DIV ALIGN=CENTER>\n";
-		do {
-			$buf = serv_gets();
-			if (strcasecmp($buf, "000")) {
-				echo "<TT>", $buf, "</TT><BR>\n" ;
-			}
-		} while (strcasecmp($buf, "000"));
+		while (strcmp($buf = serv_gets(), "000")) {
+			echo "<TT>", $buf, "</TT><BR>\n" ;
+		}
 		echo "</DIV>\n";
 	}
 	else {
@@ -159,4 +156,50 @@ function ctdl_mesg($msgname) {
 }
 
 
+//
+// Fetch the list of users currently logged in.
+//
+function ctdl_rwho() {
+	global $clientsocket;
+
+	serv_puts("RWHO");
+	$response = serv_gets();
+
+	if (substr($response, 0, 1) != "1") {
+		return array(0, NULL);
+	}
+	
+	$all_lines = array();
+	$num_lines = 0;
+
+	while (strcmp($buf = serv_gets(), "000")) {
+
+		$thisline = array();
+
+		$tok = strtok($buf, "|");
+		if ($tok) $thisline["session"] = $tok;
+
+		$tok = strtok("|");
+		if ($tok) $thisline["user"] = $tok;
+		
+		$tok = strtok("|");
+		if ($tok) $thisline["room"] = $tok;
+		
+		$tok = strtok("|");
+		if ($tok) $thisline["host"] = $tok;
+		
+		$tok = strtok("|");
+		if ($tok) $thisline["client"] = $tok;
+
+		// IGnore the rest of the fields for now.
+
+		$num_lines = array_push($all_lines, $thisline);
+	}
+
+	return array($num_lines, $all_lines);
+
+}
+
+
+
 ?>
diff --git a/ctdlphp/do_login.php b/ctdlphp/do_login.php
index 6e0943293..cc1429ded 100644
--- a/ctdlphp/do_login.php
+++ b/ctdlphp/do_login.php
@@ -31,7 +31,8 @@ if ($retval == FALSE) {
 	echo "<a href=\"logout.php\">Log out</A><BR>\n" ;
 }
 else {
-	echo "<A HREF=\"welcome.php\">Logged in.  Click to continue.</a><BR>";
+	echo "<A HREF=\"welcome.php\">Logged in.  ";
+	echo "Click to continue if your browser does not refresh.</a><BR>";
 	echo "<meta http-equiv=\"refresh\" content=\"0;url=welcome.php\">\n";
 }
 
diff --git a/ctdlphp/login.php b/ctdlphp/login.php
index 00f25254e..1a084aae8 100644
--- a/ctdlphp/login.php
+++ b/ctdlphp/login.php
@@ -19,7 +19,7 @@
 
 	<table border="0" cellspacing="5" cellpadding="5" BGCOLOR="#EEEEEE">
 		<tr><td>User name:</td>
-		<td><input type="text" name="name" maxlength="25"></td></tr>
+		<td><input type="text" name="user" maxlength="25"></td></tr>
 		<tr><td>Password:</td>
 		<td><input type="password" name="pass" maxlength="20"></td></tr>
 
@@ -36,4 +36,3 @@
 <?PHP
 	bbs_page_footer();
 ?>
-
diff --git a/ctdlphp/page2.php b/ctdlphp/page2.php
index 3c93e0939..7d690b515 100644
--- a/ctdlphp/page2.php
+++ b/ctdlphp/page2.php
@@ -24,6 +24,7 @@ faucibus sit amet, magna. In pretium lacus eget mi.</p>
 
 <a href="welcome.php">Page One</a><BR>
 <a href="page3.php">Page Three</a><BR>
+<a href="who.php">Who is online?</a><BR>
 
 <?PHP
 	bbs_page_footer();
diff --git a/ctdlphp/welcome.php b/ctdlphp/welcome.php
index 149273349..e1a49cafd 100644
--- a/ctdlphp/welcome.php
+++ b/ctdlphp/welcome.php
@@ -20,6 +20,7 @@ tellus tortor, vehicula at, iaculis vitae, adipiscing quis, sapien. Lorem
 ipsum dolor sit amet, consectetuer adipiscing elit.</p>
 
 <a href="page2.php">Page Two</a><BR>
+<a href="who.php">Who is online?</a><BR>
 <a href="page3.php">Page Three</a><BR>
 
 <?PHP
diff --git a/ctdlphp/who.php b/ctdlphp/who.php
new file mode 100644
index 000000000..d1f78366e
--- /dev/null
+++ b/ctdlphp/who.php
@@ -0,0 +1,32 @@
+<?PHP
+	include "ctdlheader.php";
+	bbs_page_header();
+
+
+	echo "<TABLE border=1>";
+	echo "<TR>";
+	echo "<TD><B>User</B></TD>";
+	echo "<TD><B>Room</B></TD>";
+	echo "<TD><B>Host</B></TD>";
+	echo "</TR>";
+
+	list($num_users, $wholist) = ctdl_rwho();
+
+	if ($num_users > 0) foreach ($wholist as $x) {
+		echo "<TR>";
+		echo "<TD>", htmlspecialchars($x["user"]), "</TD>";
+		echo "<TD>", htmlspecialchars($x["room"]), "</TD>";
+		echo "<TD>", htmlspecialchars($x["host"]), "</TD>";
+		echo "</TR>\n";
+	}
+
+	echo "</TABLE>\n";
+
+?>
+
+<a href="welcome.php">Page One</a><BR>
+<a href="page3.php">Page Three</a><BR>
+
+<?PHP
+	bbs_page_footer();
+?>
-- 
2.30.2