X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=ctdlphp%2Fctdlprotocol.php;h=80b5a3219739f227664bb79942009ca944a0d5e1;hb=51b18018ff923284d76a36cbd421d62abf6afcf4;hp=bd619598e257c688a8e0bac8c0cd77e012d6529e;hpb=c474bf690e7c1410e6d9331f46a968a44e7be877;p=citadel.git diff --git a/ctdlphp/ctdlprotocol.php b/ctdlphp/ctdlprotocol.php index bd619598e..80b5a3219 100644 --- a/ctdlphp/ctdlprotocol.php +++ b/ctdlphp/ctdlprotocol.php @@ -7,7 +7,40 @@ // One program is released under the terms of the GNU General Public License. include "config_ctdlclient.php"; +define('VIEW_BBS' ,'0'); /* Bulletin board view */ +define('VIEW_MAILBOX' ,'1'); /* Mailbox summary */ +define('VIEW_ADDRESSBOOK' ,'2'); /* Address book view */ +define('VIEW_CALENDAR' ,'3'); /* Calendar view */ +define('VIEW_TASKS' ,'4'); /* Tasks view */ +define('VIEW_NOTES' ,'5'); /* Notes view */ +define("FMT_CITADEL", 0); +define("FMT_FIXED", 1); +define("FMT_RFC822", 4); + +function debugLog($string) +{ + print ($string); +} +function dbgprintf_wrapin($string, $html) +{ + if (!CITADEL_DEBUG_HTML){ + if ($html) + debugLog("<< ".$string."\n"); + } + else + printf($string); +} +function dbgprintf_wrapout($string, $html) +{ + if (!CITADEL_DEBUG_HTML){ + if ($html) + debugLog("<< ".$string."\n"); + } + else + printf($string); + +} //-------------------------------------------------------------------------------- // internal functions for server communication //-------------------------------------------------------------------------------- @@ -20,10 +53,31 @@ function serv_gets($readblock=FALSE) { $buf = fgets($clientsocket, 4096); // Read line $buf = substr($buf, 0, (strlen($buf)-1) ); // strip trailing LF if (CITADEL_DEBUG_CITPROTO == 1) { - if (!$readblock) printf ("
"; - print_r($server_info); - echo ""; + dbgprintf_wrapout("
", false); + dbgprintf_wrapout(print_r($server_info, true), true); + dbgprintf_wrapout("", false); } return $server_info; } else - die ("didn't understand the reply to the INFO command"); + { + dbgprintf_wrapin ("didn't understand the reply to the INFO command". + print_r($reply, TRUE), false); + + die ("CTDLPHP: didn't understand the reply to the INFO command"); + } +} + +// +// Learn all sorts of interesting things about the Citadel server to +// which we are connected. +/* http://www.citadel.org/doku.php/documentation:appproto:connection#info.get.server.info */ +// +function ctdl_get_registration_info() { + serv_puts("GREG"); + $reply = read_array(); + dbgprintf_wrapout(print_r($reply, true), true); +// die ("didn't understand the reply to the INFO command"); } @@ -337,6 +438,26 @@ function ctdl_mesg($msgname) { return($msgtext); } +// +// Delete a Message. +// http://www.citadel.org/doku.php/documentation:appproto:room_indexes_and_messages#dele.delete.a.message + +function ctdl_dele($msgname) { + global $clientsocket; + + $msgtext = "
"; - print_r($oneline); - echo ""; + dbgprintf_wrapout("
", false); + dbgprintf_wrapout(print_r($oneline, true), true); + dbgprintf_wrapout("", false);; } @@ -440,9 +561,9 @@ function ctdl_goto($to_where) { $_SESSION["room"] = $room; if (CITADEL_DEBUG_CITPROTO == 1) { - echo "
"; - print_r($room_state); - echo ""; + dbgprintf_wrapout("
", false); + dbgprintf_wrapout(print_r($room_state, true), true); + dbgprintf_wrapout("", false); } @@ -464,12 +585,11 @@ function ctdl_knrooms() { global $clientsocket; serv_puts("LKRA"); - $results = read_array(); - - if (substr($results[0], 0, 1) != "1") { + $response = serv_gets(); + if (substr($response, 0, 1) != "1") { return array(0, NULL); } - array_shift($results); + $results = read_array(); $all_lines = array(); $num_lines = 0; @@ -493,10 +613,48 @@ function ctdl_knrooms() { if (CITADEL_DEBUG_CITPROTO == 1) { - echo "
"; - print_r($oneline); - echo ""; + dbgprintf_wrapout("
", false); + dbgprintf_wrapout(print_r($oneline, true), true); + dbgprintf_wrapout("", false); + + } + $num_lines = array_push($all_lines, $oneline); + } + + return array($num_lines, $all_lines); + +} + +// +// Fetch the list of known floors. +// +/* http://www.citadel.org/doku.php/documentation:appproto:rooms#lflr.list.all.known.floors */ +function ctdl_knfloors() { + global $clientsocket; + + serv_puts("LFLR"); + $response = serv_gets(); + if (substr($response, 0, 1) != "1") { + return array(0, NULL); + } + + $results = read_array(); + $all_lines = array(); + $num_lines = 0; + foreach ($results as $result){ + $oneline = array(); + $tokens = explode("|",$result); + + $oneline["id"] = $tokens[0]; + $oneline["name"] = $tokens[1]; + $oneline["nref"] = $tokens[2]; + + if (CITADEL_DEBUG_CITPROTO == 1) + { + dbgprintf_wrapout("
", false); + dbgprintf_wrapout(print_r($oneline, true), true); + dbgprintf_wrapout("", false); } $num_lines = array_push($all_lines, $oneline); } @@ -505,6 +663,7 @@ function ctdl_knrooms() { } +/* http://www.citadel.org/doku.php/documentation:appproto:rooms#cflr.create.a.new.floor */ // // Fetch the list of messages in one room. @@ -515,7 +674,7 @@ function ctdl_msgs($mode, $count) { serv_puts("MSGS " . $mode . "|" . $count); $responses = read_array(); - print_r($responses); + dbgprintf_wrapout(print_r($responses, true), false); $response = array_shift($responses); @@ -526,7 +685,7 @@ function ctdl_msgs($mode, $count) { if (CITADEL_DEBUG_CITPROTO == 1) { - printf("found ".$num_msgs." messages."); + dbgprintf_wrapout("found ".$num_msgs." messages.", true); } return array($num_msgs, $response, $responses); } @@ -539,7 +698,7 @@ function ctdl_fetch_message($msgnum) { serv_puts("MSG4 " . $msgnum); if (CITADEL_DEBUG_CITPROTO == 1) - printf ("