moved public files to public, old and yet untouched files to directories ending with _old

1 files changed, 0 insertions, 1853 deletions

diff --git a/includes/funktion_jabber.php b/includes/funktion_jabber.php
deleted file mode 100644
index 9c699d70..00000000
--- a/includes/funktion_jabber.php
+++ /dev/null
@@ -1,1853 +0,0 @@
-<?php
-
-/***************************************************************************
-
-  Class.Jabber.PHP v0.4.2
-  (c) 2004 Nathan "Fritzy" Fritz
-  http://cjphp.netflint.net *** fritzy@netflint.net
-
-  This is a bugfix version, specifically for those who can't get
-  0.4 to work on Jabberd2 servers.
-
-  last modified: 24.03.2004 13:01:53
-
- ***************************************************************************/
-
-/***************************************************************************
- *
-
- *
- ***************************************************************************/
-
-/*
-  Jabber::Connect()
-  Jabber::Disconnect()
-  Jabber::SendAuth()
-  Jabber::AccountRegistration($reg_email {string}, $reg_name {string})
-
-  Jabber::Listen()
-  Jabber::SendPacket($xml {string})
-
-  Jabber::RosterUpdate()
-  Jabber::RosterAddUser($jid {string}, $id {string}, $name {string})
-  Jabber::RosterRemoveUser($jid {string}, $id {string})
-  Jabber::RosterExistsJID($jid {string})
-
-  Jabber::Subscribe($jid {string})
-  Jabber::Unsubscribe($jid {string})
-
-  Jabber::CallHandler($message {array})
-  Jabber::CruiseControl([$seconds {number}])
-
-  Jabber::SubscriptionApproveRequest($to {string})
-  Jabber::SubscriptionDenyRequest($to {string})
-
-  Jabber::GetFirstFromQueue()
-  Jabber::GetFromQueueById($packet_type {string}, $id {string})
-
-  Jabber::SendMessage($to {string}, $id {number}, $type {string}, $content {array}[, $payload {array}])
-  Jabber::SendIq($to {string}, $type {string}, $id {string}, $xmlns {string}[, $payload {string}])
-  Jabber::SendPresence($type {string}[, $to {string}[, $status {string}[, $show {string}[, $priority {number}]]]])
-
-  Jabber::SendError($to {string}, $id {string}, $error_number {number}[, $error_message {string}])
-
-  Jabber::TransportRegistrationDetails($transport {string})
-  Jabber::TransportRegistration($transport {string}, $details {array})
-
-  Jabber::GetvCard($jid {string}[, $id {string}])  -- EXPERIMENTAL --
-
-  Jabber::GetInfoFromMessageFrom($packet {array})
-  Jabber::GetInfoFromMessageType($packet {array})
-  Jabber::GetInfoFromMessageId($packet {array})
-  Jabber::GetInfoFromMessageThread($packet {array})
-  Jabber::GetInfoFromMessageSubject($packet {array})
-  Jabber::GetInfoFromMessageBody($packet {array})
-  Jabber::GetInfoFromMessageError($packet {array})
-
-  Jabber::GetInfoFromIqFrom($packet {array})
-  Jabber::GetInfoFromIqType($packet {array})
-  Jabber::GetInfoFromIqId($packet {array})
-  Jabber::GetInfoFromIqKey($packet {array})
-  Jabber::GetInfoFromIqError($packet {array})
-
-  Jabber::GetInfoFromPresenceFrom($packet {array})
-  Jabber::GetInfoFromPresenceType($packet {array})
-  Jabber::GetInfoFromPresenceStatus($packet {array})
-  Jabber::GetInfoFromPresenceShow($packet {array})
-  Jabber::GetInfoFromPresencePriority($packet {array})
-
-  Jabber::AddToLog($string {string})
-  Jabber::PrintLog()
-
-  MakeXML::AddPacketDetails($string {string}[, $value {string/number}])
-  MakeXML::BuildPacket([$array {array}])
-*/
-
-
-
-class Jabber
-{
-  function Jabber($server, $port, $username, $password, $resource)
-  {
-
-    $this->server        = $server;
-    $this->port          = $port;
-
-    $this->username        = $username;
-    $this->password        = $password;
-    $this->resource        = $resource;
-
-    $this->enable_logging    = FALSE;
-    $this->log_array      = array();
-    $this->log_filename      = '';
-    $this->log_filehandler    = FALSE;
-
-    $this->packet_queue      = array();
-    $this->subscription_queue  = array();
-
-    $this->iq_sleep_timer    = 1;
-    $this->delay_disconnect    = 1;
-
-    $this->returned_keep_alive  = TRUE;
-    $this->txnid        = 0;
-
-    $this->iq_version_name    = "Class.Jabber.PHP -- http://cjphp.netflint.net -- by Nathan 'Fritzy' Fritz, fritz@netflint.net";
-    $this->iq_version_version  = "0.4";
-    $this->iq_version_os    = $_SERVER['SERVER_SOFTWARE'];
-
-    $this->connection_class    = "CJP_StandardConnector";
-
-    $this->error_codes      = array(400 => "Bad Request",
-                      401 => "Unauthorized",
-                      402 => "Payment Required",
-                      403 => "Forbidden",
-                      404 => "Not Found",
-                      405 => "Not Allowed",
-                      406 => "Not Acceptable",
-                      407 => "Registration Required",
-                      408 => "Request Timeout",
-                      409 => "Conflict",
-                      500 => "Internal Server Error",
-                      501 => "Not Implemented",
-                      502 => "Remove Server Error",
-                      503 => "Service Unavailable",
-                      504 => "Remove Server Timeout",
-                      510 => "Disconnected");
-  }
-
-
-
-  function Connect()
-  {
-    $this->_create_logfile();
-
-    $this->CONNECTOR = new $this->connection_class;
-
-    if ($this->CONNECTOR->OpenSocket($this->server, $this->port))
-    {
-      $this->SendPacket("<?xml version='1.0' encoding='UTF-8' ?" . ">\n");
-      $this->SendPacket("<stream:stream to='{$this->server}' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams'>\n");
-
-      sleep(2);
-
-      if ($this->_check_connected())
-      {
-        $this->connected = TRUE;  // Nathan Fritz
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: Connect() #1");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: Connect() #2");
-      return FALSE;
-    }
-  }
-
-
-
-  function Disconnect()
-  {
-    if (is_int($this->delay_disconnect))
-    {
-      sleep($this->delay_disconnect);
-    }
-
-    $this->SendPacket("</stream:stream>");
-    $this->CONNECTOR->CloseSocket();
-
-    $this->_close_logfile();
-    $this->PrintLog();
-  }
-
-
-
-  function SendAuth()
-  {
-    $this->auth_id  = "auth_" . md5(time() . $_SERVER['REMOTE_ADDR']);
-
-    $this->resource  = ($this->resource != NULL) ? $this->resource : ("Class.Jabber.PHP " . md5($this->auth_id));
-    $this->jid    = "{$this->username}@{$this->server}/{$this->resource}";
-
-    // request available authentication methods
-    $payload  = "<username>{$this->username}</username>";
-    $packet    = $this->SendIq(NULL, 'get', $this->auth_id, "jabber:iq:auth", $payload);
-
-    // was a result returned?
-    if ($this->GetInfoFromIqType($packet) == 'result' && $this->GetInfoFromIqId($packet) == $this->auth_id)
-    {
-      // yes, now check for auth method availability in descending order (best to worst)
-
-      if (!function_exists('mhash'))
-      {
-        $this->AddToLog("ATTENTION: SendAuth() - mhash() is not available; screw 0k and digest method, we need to go with plaintext auth");
-      }
-
-      // auth_0k
-      if (function_exists('mhash') && isset($packet['iq']['#']['query'][0]['#']['sequence'][0]["#"]) && isset($packet['iq']['#']['query'][0]['#']['token'][0]["#"]))
-      {
-        return $this->_sendauth_0k($packet['iq']['#']['query'][0]['#']['token'][0]["#"], $packet['iq']['#']['query'][0]['#']['sequence'][0]["#"]);
-      }
-      // digest
-      elseif (function_exists('mhash') && isset($packet['iq']['#']['query'][0]['#']['digest']))
-      {
-        return $this->_sendauth_digest();
-      }
-      // plain text
-      elseif ($packet['iq']['#']['query'][0]['#']['password'])
-      {
-        return $this->_sendauth_plaintext();
-      }
-      // dude, you're fucked
-      {
-        $this->AddToLog("ERROR: SendAuth() #2 - No auth method available!");
-        return FALSE;
-      }
-    }
-    else
-    {
-      // no result returned
-      $this->AddToLog("ERROR: SendAuth() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function AccountRegistration($reg_email = NULL, $reg_name = NULL)
-  {
-    $packet = $this->SendIq($this->server, 'get', 'reg_01', 'jabber:iq:register');
-
-    if ($packet)
-    {
-      $key = $this->GetInfoFromIqKey($packet);  // just in case a key was passed back from the server
-      unset($packet);
-
-      $payload = "<username>{$this->username}</username>
-            <password>{$this->password}</password>
-            <email>$reg_email</email>
-            <name>$reg_name</name>\n";
-
-      $payload .= ($key) ? "<key>$key</key>\n" : '';
-
-      $packet = $this->SendIq($this->server, 'set', "reg_01", "jabber:iq:register", $payload);
-
-      if ($this->GetInfoFromIqType($packet) == 'result')
-      {
-        if (isset($packet['iq']['#']['query'][0]['#']['registered'][0]['#']))
-        {
-          $return_code = 1;
-        }
-        else
-        {
-          $return_code = 2;
-        }
-
-        if ($this->resource)
-        {
-          $this->jid = "{$this->username}@{$this->server}/{$this->resource}";
-        }
-        else
-        {
-          $this->jid = "{$this->username}@{$this->server}";
-        }
-
-      }
-      elseif ($this->GetInfoFromIqType($packet) == 'error' && isset($packet['iq']['#']['error'][0]['#']))
-      {
-        // "conflict" error, i.e. already registered
-        if ($packet['iq']['#']['error'][0]['@']['code'] == '409')
-        {
-          $return_code = 1;
-        }
-        else
-        {
-          $return_code = "Error " . $packet['iq']['#']['error'][0]['@']['code'] . ": " . $packet['iq']['#']['error'][0]['#'];
-        }
-      }
-
-      return $return_code;
-
-    }
-    else
-    {
-      return 3;
-    }
-  }
-
-
-
-  function SendPacket($xml)
-  {
-    $xml = trim($xml);
-
-    if ($this->CONNECTOR->WriteToSocket($xml))
-    {
-      $this->AddToLog("SEND: $xml");
-      return TRUE;
-    }
-    else
-    {
-      $this->AddToLog('ERROR: SendPacket() #1');
-      return FALSE;
-    }
-  }
-
-
-
-  function Listen()
-  {
-    $incoming = "";
-
-    while ($line = $this->CONNECTOR->ReadFromSocket(4096))
-    {
-      $incoming .= $line;
-    }
-
-    $incoming = trim($incoming);
-
-    if ($incoming != "")
-    {
-      $this->AddToLog("RECV: $incoming");
-    }
-
-    if ($incoming != "")
-    {
-      $temp = $this->_split_incoming($incoming);
-
-      for ($a = 0; $a < count($temp); $a++)
-      {
-        $this->packet_queue[] = $this->xmlize($temp[$a]);
-      }
-    }
-
-    return TRUE;
-  }
-
-
-
-  function StripJID($jid = NULL)
-  {
-    preg_match("/(.*)\/(.*)/Ui", $jid, $temp);
-    return ($temp[1] != "") ? $temp[1] : $jid;
-  }
-
-
-
-  function SendMessage($to, $type = "normal", $id = NULL, $content = NULL, $payload = NULL)
-  {
-    if ($to && is_array($content))
-    {
-      if (!$id)
-      {
-        $id = $type . "_" . time();
-      }
-
-      $content = $this->_array_htmlspecialchars($content);
-
-      $xml = "<message to='$to' type='$type' id='$id'>\n";
-
-      if (isset($content['subject']))
-      {
-        $xml .= "<subject>" . $content['subject'] . "</subject>\n";
-      }
-
-      if (isset($content['thread']))
-      {
-        $xml .= "<thread>" . $content['thread'] . "</thread>\n";
-      }
-
-      $xml .= "<body>" . $content['body'] . "</body>\n";
-      $xml .= $payload;
-      $xml .= "</message>\n";
-
-
-      if ($this->SendPacket($xml))
-      {
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: SendMessage() #1");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: SendMessage() #2");
-      return FALSE;
-    }
-  }
-
-
-
-  function SendPresence($type = NULL, $to = NULL, $status = NULL, $show = NULL, $priority = NULL)
-  {
-    $xml = "<presence";
-    $xml .= ($to) ? " to='$to'" : '';
-    $xml .= ($type) ? " type='$type'" : '';
-    $xml .= ($status || $show || $priority) ? ">\n" : " />\n";
-
-    $xml .= ($status) ? "  <status>$status</status>\n" : '';
-    $xml .= ($show) ? "  <show>$show</show>\n" : '';
-    $xml .= ($priority) ? "  <priority>$priority</priority>\n" : '';
-
-    $xml .= ($status || $show || $priority) ? "</presence>\n" : '';
-
-    if ($this->SendPacket($xml))
-    {
-      return TRUE;
-    }
-    else
-    {
-      $this->AddToLog("ERROR: SendPresence() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function SendError($to, $id = NULL, $error_number, $error_message = NULL)
-  {
-    $xml = "<iq type='error' to='$to'";
-    $xml .= ($id) ? " id='$id'" : '';
-    $xml .= ">\n";
-    $xml .= "  <error code='$error_number'>";
-    $xml .= ($error_message) ? $error_message : $this->error_codes[$error_number];
-    $xml .= "</error>\n";
-    $xml .= "</iq>";
-
-    $this->SendPacket($xml);
-  }
-
-
-
-  function RosterUpdate()
-  {
-    $roster_request_id = "roster_" . time();
-
-    $incoming_array = $this->SendIq(NULL, 'get', $roster_request_id, "jabber:iq:roster");
-
-    if (is_array($incoming_array))
-    {
-      if ($incoming_array['iq']['@']['type'] == 'result'
-        && $incoming_array['iq']['@']['id'] == $roster_request_id
-        && $incoming_array['iq']['#']['query']['0']['@']['xmlns'] == "jabber:iq:roster")
-      {
-        $number_of_contacts = count($incoming_array['iq']['#']['query'][0]['#']['item']);
-        $this->roster = array();
-
-        for ($a = 0; $a < $number_of_contacts; $a++)
-        {
-          $this->roster[$a] = array(  "jid"      => strtolower($incoming_array['iq']['#']['query'][0]['#']['item'][$a]['@']['jid']),
-                        "name"      => $incoming_array['iq']['#']['query'][0]['#']['item'][$a]['@']['name'],
-                        "subscription"  => $incoming_array['iq']['#']['query'][0]['#']['item'][$a]['@']['subscription'],
-                        "group"      => $incoming_array['iq']['#']['query'][0]['#']['item'][$a]['#']['group'][0]['#']
-                      );
-        }
-
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: RosterUpdate() #1");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: RosterUpdate() #2");
-      return FALSE;
-    }
-  }
-
-
-
-  function RosterAddUser($jid = NULL, $id = NULL, $name = NULL)
-  {
-    $id = ($id) ? $id : "adduser_" . time();
-
-    if ($jid)
-    {
-      $payload = "    <item jid='$jid'";
-      $payload .= ($name) ? " name='" . htmlspecialchars($name) . "'" : '';
-      $payload .= "/>\n";
-
-      $packet = $this->SendIq(NULL, 'set', $id, "jabber:iq:roster", $payload);
-
-      if ($this->GetInfoFromIqType($packet) == 'result')
-      {
-        $this->RosterUpdate();
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: RosterAddUser() #2");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: RosterAddUser() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function RosterRemoveUser($jid = NULL, $id = NULL)
-  {
-    $id = ($id) ? $id : 'deluser_' . time();
-
-    if ($jid && $id)
-    {
-      $packet = $this->SendIq(NULL, 'set', $id, "jabber:iq:roster", "<item jid='$jid' subscription='remove'/>");
-
-      if ($this->GetInfoFromIqType($packet) == 'result')
-      {
-        $this->RosterUpdate();
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: RosterRemoveUser() #2");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: RosterRemoveUser() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function RosterExistsJID($jid = NULL)
-  {
-    if ($jid)
-    {
-      if ($this->roster)
-      {
-        for ($a = 0; $a < count($this->roster); $a++)
-        {
-          if ($this->roster[$a]['jid'] == strtolower($jid))
-          {
-            return $a;
-          }
-        }
-      }
-      else
-      {
-        $this->AddToLog("ERROR: RosterExistsJID() #2");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: RosterExistsJID() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function GetFirstFromQueue()
-  {
-    return array_shift($this->packet_queue);
-  }
-
-
-
-  function GetFromQueueById($packet_type, $id)
-  {
-    $found_message = FALSE;
-
-    foreach ($this->packet_queue as $key => $value)
-    {
-      if ($value[$packet_type]['@']['id'] == $id)
-      {
-        $found_message = $value;
-        unset($this->packet_queue[$key]);
-
-        break;
-      }
-    }
-
-    return (is_array($found_message)) ? $found_message : FALSE;
-  }
-
-
-
-  function CallHandler($packet = NULL)
-  {
-    $packet_type  = $this->_get_packet_type($packet);
-
-    if ($packet_type == "message")
-    {
-      $type    = $packet['message']['@']['type'];
-      $type    = ($type != "") ? $type : "normal";
-      $funcmeth  = "Handler_message_$type";
-    }
-    elseif ($packet_type == "iq")
-    {
-      $namespace  = $packet['iq']['#']['query'][0]['@']['xmlns'];
-      $namespace  = str_replace(":", "_", $namespace);
-      $funcmeth  = "Handler_iq_$namespace";
-    }
-    elseif ($packet_type == "presence")
-    {
-      $type    = $packet['presence']['@']['type'];
-      $type    = ($type != "") ? $type : "available";
-      $funcmeth  = "Handler_presence_$type";
-    }
-
-
-    if ($funcmeth != '')
-    {
-      if (function_exists($funcmeth))
-      {
-        call_user_func($funcmeth, $packet);
-      }
-      elseif (method_exists($this, $funcmeth))
-      {
-        call_user_func(array(&$this, $funcmeth), $packet);
-      }
-      else
-      {
-        $this->Handler_NOT_IMPLEMENTED($packet);
-        $this->AddToLog("ERROR: CallHandler() #1 - neither method nor function $funcmeth() available");
-      }
-    }
-  }
-
-
-
-  function CruiseControl($seconds = -1)
-  {
-    $count = 0;
-
-    while ($count != $seconds)
-    {
-      $this->Listen();
-
-      do {
-        $packet = $this->GetFirstFromQueue();
-
-        if ($packet) {
-          $this->CallHandler($packet);
-        }
-
-      } while (count($this->packet_queue) > 1);
-
-      $count += 0.25;
-      usleep(250000);
-
-      if ($this->last_ping_time + 180 < time())
-      {
-        // Modified by Nathan Fritz
-        if ($this->returned_keep_alive == FALSE)
-        {
-          $this->connected = FALSE;
-          $this->AddToLog('EVENT: Disconnected');
-        }
-        if ($this->returned_keep_alive == TRUE)
-        {
-          $this->connected = TRUE;
-        }
-
-        $this->returned_keep_alive = FALSE;
-        $this->keep_alive_id = 'keep_alive_' . time();
-        //$this->SendPacket("<iq id='{$this->keep_alive_id}'/>", 'CruiseControl');
-        $this->SendPacket("<iq type='get' from='" . $this->username . "@" . $this->server . "/" . $this->resource . "' to='" . $this->server . "' id='" . $this->keep_alive_id . "'><query xmlns='jabber:iq:time' /></iq>");
-        // **
-
-        $this->last_ping_time = time();
-      }
-    }
-
-    return TRUE;
-  }
-
-
-
-  function SubscriptionAcceptRequest($to = NULL)
-  {
-    return ($to) ? $this->SendPresence("subscribed", $to) : FALSE;
-  }
-
-
-
-  function SubscriptionDenyRequest($to = NULL)
-  {
-    return ($to) ? $this->SendPresence("unsubscribed", $to) : FALSE;
-  }
-
-
-
-  function Subscribe($to = NULL)
-  {
-    return ($to) ? $this->SendPresence("subscribe", $to) : FALSE;
-  }
-
-
-
-  function Unsubscribe($to = NULL)
-  {
-    return ($to) ? $this->SendPresence("unsubscribe", $to) : FALSE;
-  }
-
-
-
-  function SendIq($to = NULL, $type = 'get', $id = NULL, $xmlns = NULL, $payload = NULL, $from = NULL)
-  {
-    if (!preg_match("/^(get|set|result|error)$/", $type))
-    {
-      unset($type);
-
-      $this->AddToLog("ERROR: SendIq() #2 - type must be 'get', 'set', 'result' or 'error'");
-      return FALSE;
-    }
-    elseif ($id && $xmlns)
-    {
-      $xml = "<iq type='$type' id='$id'";
-      $xml .= ($to) ? " to='" . htmlspecialchars($to) . "'" : '';
-      $xml .= ($from) ? " from='$from'" : '';
-      $xml .= ">
-            <query xmlns='$xmlns'>
-              $payload
-            </query>
-          </iq>";
-
-      $this->SendPacket($xml);
-      sleep($this->iq_sleep_timer);
-      $this->Listen();
-
-      return (preg_match("/^(get|set)$/", $type)) ? $this->GetFromQueueById("iq", $id) : TRUE;
-    }
-    else
-    {
-      $this->AddToLog("ERROR: SendIq() #1 - to, id and xmlns are mandatory");
-      return FALSE;
-    }
-  }
-
-
-
-  // get the transport registration fields
-  // method written by Steve Blinch, http://www.blitzaffe.com
-  function TransportRegistrationDetails($transport)
-  {
-    $this->txnid++;
-    $packet = $this->SendIq($transport, 'get', "reg_{$this->txnid}", "jabber:iq:register", NULL, $this->jid);
-
-    if ($packet)
-    {
-      $res = array();
-
-      foreach ($packet['iq']['#']['query'][0]['#'] as $element => $data)
-      {
-        if ($element != 'instructions' && $element != 'key')
-        {
-          $res[] = $element;
-        }
-      }
-
-      return $res;
-    }
-    else
-    {
-      return 3;
-    }
-  }
-
-
-
-  // register with the transport
-  // method written by Steve Blinch, http://www.blitzaffe.com
-  function TransportRegistration($transport, $details)
-  {
-    $this->txnid++;
-    $packet = $this->SendIq($transport, 'get', "reg_{$this->txnid}", "jabber:iq:register", NULL, $this->jid);
-
-    if ($packet)
-    {
-      $key = $this->GetInfoFromIqKey($packet);  // just in case a key was passed back from the server
-      unset($packet);
-
-      $payload = ($key) ? "<key>$key</key>\n" : '';
-      foreach ($details as $element => $value)
-      {
-        $payload .= "<$element>$value</$element>\n";
-      }
-
-      $packet = $this->SendIq($transport, 'set', "reg_{$this->txnid}", "jabber:iq:register", $payload);
-
-      if ($this->GetInfoFromIqType($packet) == 'result')
-      {
-        if (isset($packet['iq']['#']['query'][0]['#']['registered'][0]['#']))
-        {
-          $return_code = 1;
-        }
-        else
-        {
-          $return_code = 2;
-        }
-      }
-      elseif ($this->GetInfoFromIqType($packet) == 'error')
-      {
-        if (isset($packet['iq']['#']['error'][0]['#']))
-        {
-          $return_code = "Error " . $packet['iq']['#']['error'][0]['@']['code'] . ": " . $packet['iq']['#']['error'][0]['#'];
-          $this->AddToLog('ERROR: TransportRegistration()');
-        }
-      }
-
-      return $return_code;
-    }
-    else
-    {
-      return 3;
-    }
-  }
-
-
-
-  function GetvCard($jid = NULL, $id = NULL)
-  {
-    if (!$id)
-    {
-      $id = "vCard_" . md5(time() . $_SERVER['REMOTE_ADDR']);
-    }
-
-    if ($jid)
-    {
-      $xml = "<iq type='get' to='$jid' id='$id'>
-            <vCard xmlns='vcard-temp'/>
-          </iq>";
-
-      $this->SendPacket($xml);
-      sleep($this->iq_sleep_timer);
-      $this->Listen();
-
-      return $this->GetFromQueueById("iq", $id);
-    }
-    else
-    {
-      $this->AddToLog("ERROR: GetvCard() #1 - to and id are mandatory");
-      return FALSE;
-    }
-  }
-
-
-
-  function PrintLog()
-  {
-    if ($this->enable_logging)
-    {
-      if ($this->log_filehandler)
-      {
-        echo "<h2>Logging enabled, logged events have been written to the file {$this->log_filename}.</h2>\n";
-      }
-      else
-      {
-        echo "<h2>Logging enabled, logged events below:</h2>\n";
-        echo "<pre>\n";
-        echo (count($this->log_array) > 0) ? implode("\n\n\n", $this->log_array) : "No logged events.";
-        echo "</pre>\n";
-      }
-    }
-  }
-
-
-
-  // ======================================================================
-  // private methods
-  // ======================================================================
-
-
-
-  function _sendauth_0k($zerok_token, $zerok_sequence)
-  {
-    // initial hash of password
-    $zerok_hash = mhash(MHASH_SHA1, $this->password);
-    $zerok_hash = bin2hex($zerok_hash);
-
-    // sequence 0: hash of hashed-password and token
-    $zerok_hash = mhash(MHASH_SHA1, $zerok_hash . $zerok_token);
-    $zerok_hash = bin2hex($zerok_hash);
-
-    // repeat as often as needed
-    for ($a = 0; $a < $zerok_sequence; $a++)
-    {
-      $zerok_hash = mhash(MHASH_SHA1, $zerok_hash);
-      $zerok_hash = bin2hex($zerok_hash);
-    }
-
-    $payload = "<username>{$this->username}</username>
-          <hash>$zerok_hash</hash>
-          <resource>{$this->resource}</resource>";
-
-    $packet = $this->SendIq(NULL, 'set', $this->auth_id, "jabber:iq:auth", $payload);
-
-    // was a result returned?
-    if ($this->GetInfoFromIqType($packet) == 'result' && $this->GetInfoFromIqId($packet) == $this->auth_id)
-    {
-      return TRUE;
-    }
-    else
-    {
-      $this->AddToLog("ERROR: _sendauth_0k() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function _sendauth_digest()
-  {
-    $payload = "<username>{$this->username}</username>
-          <resource>{$this->resource}</resource>
-          <digest>" . bin2hex(mhash(MHASH_SHA1, $this->stream_id . $this->password)) . "</digest>";
-
-    $packet = $this->SendIq(NULL, 'set', $this->auth_id, "jabber:iq:auth", $payload);
-
-    // was a result returned?
-    if ($this->GetInfoFromIqType($packet) == 'result' && $this->GetInfoFromIqId($packet) == $this->auth_id)
-    {
-      return TRUE;
-    }
-    else
-    {
-      $this->AddToLog("ERROR: _sendauth_digest() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function _sendauth_plaintext()
-  {
-    $payload = "<username>{$this->username}</username>
-          <password>{$this->password}</password>
-          <resource>{$this->resource}</resource>";
-
-    $packet = $this->SendIq(NULL, 'set', $this->auth_id, "jabber:iq:auth", $payload);
-
-    // was a result returned?
-    if ($this->GetInfoFromIqType($packet) == 'result' && $this->GetInfoFromIqId($packet) == $this->auth_id)
-    {
-      return TRUE;
-    }
-    else
-    {
-      $this->AddToLog("ERROR: _sendauth_plaintext() #1");
-      return FALSE;
-    }
-  }
-
-
-
-  function _listen_incoming()
-  {
-    $incoming = "";
-
-    while ($line = $this->CONNECTOR->ReadFromSocket(4096))
-    {
-      $incoming .= $line;
-    }
-
-    $incoming = trim($incoming);
-
-    if ($incoming != "")
-    {
-      $this->AddToLog("RECV: $incoming");
-    }
-
-    return $this->xmlize($incoming);
-  }
-
-
-
-  function _check_connected()
-  {
-    $incoming_array = $this->_listen_incoming();
-
-    if (is_array($incoming_array))
-    {
-      if ($incoming_array["stream:stream"]['@']['from'] == $this->server
-        && $incoming_array["stream:stream"]['@']['xmlns'] == "jabber:client"
-        && $incoming_array["stream:stream"]['@']["xmlns:stream"] == "http://etherx.jabber.org/streams")
-      {
-        $this->stream_id = $incoming_array["stream:stream"]['@']['id'];
-
-        return TRUE;
-      }
-      else
-      {
-        $this->AddToLog("ERROR: _check_connected() #1");
-        return FALSE;
-      }
-    }
-    else
-    {
-      $this->AddToLog("ERROR: _check_connected() #2");
-      return FALSE;
-    }
-  }
-
-
-
-  function _get_packet_type($packet = NULL)
-  {
-    if (is_array($packet))
-    {
-      reset($packet);
-      $packet_type = key($packet);
-    }
-
-    return ($packet_type) ? $packet_type : FALSE;
-  }
-
-
-
-  function _split_incoming($incoming)
-  {
-    $temp = preg_split("/<(message|iq|presence|stream)/", $incoming, -1, PREG_SPLIT_DELIM_CAPTURE);
-    $array = array();
-
-    for ($a = 1; $a < count($temp); $a = $a + 2)
-    {
-      $array[] = "<" . $temp[$a] . $temp[($a + 1)];
-    }
-
-    return $array;
-  }
-
-
-
-  function _create_logfile()
-  {
-    if ($this->log_filename != '' && $this->enable_logging)
-    {
-      $this->log_filehandler = fopen($this->log_filename, 'w');
-    }
-  }
-
-
-
-  function AddToLog($string)
-  {
-    if ($this->enable_logging)
-    {
-      if ($this->log_filehandler)
-      {
-        #fwrite($this->log_filehandler, $string . "\n\n");
-        print "$string \n\n";
-      }
-      else
-      {
-        $this->log_array[] = htmlspecialchars($string);
-      }
-    }
-  }
-
-
-
-  function _close_logfile()
-  {
-    if ($this->log_filehandler)
-    {
-      fclose($this->log_filehandler);
-    }
-  }
-
-
-
-  // _array_htmlspecialchars()
-  // applies htmlspecialchars() to all values in an array
-
-  function _array_htmlspecialchars($array)
-  {
-    if (is_array($array))
-    {
-      foreach ($array as $k => $v)
-      {
-        if (is_array($v))
-        {
-          $v = $this->_array_htmlspecialchars($v);
-        }
-        else
-        {
-          $v = htmlspecialchars($v);
-        }
-      }
-    }
-
-    return $array;
-  }
-
-
-
-  // ======================================================================
-  // <message/> parsers
-  // ======================================================================
-
-
-
-  function GetInfoFromMessageFrom($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['@']['from'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageType($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['@']['type'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageId($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['@']['id'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageThread($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['#']['thread'][0]['#'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageSubject($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['#']['subject'][0]['#'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageBody($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['#']['body'][0]['#'] : FALSE;
-  }
-
-  function GetInfoFromMessageXMLNS($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['message']['#']['x'] : FALSE;
-  }
-
-
-
-  function GetInfoFromMessageError($packet = NULL)
-  {
-    $error = preg_replace("/^\/$/", "", ($packet['message']['#']['error'][0]['@']['code'] . "/" . $packet['message']['#']['error'][0]['#']));
-    return (is_array($packet)) ? $error : FALSE;
-  }
-
-
-
-  // ======================================================================
-  // <iq/> parsers
-  // ======================================================================
-
-
-
-  function GetInfoFromIqFrom($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['iq']['@']['from'] : FALSE;
-  }
-
-
-
-  function GetInfoFromIqType($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['iq']['@']['type'] : FALSE;
-  }
-
-
-
-  function GetInfoFromIqId($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['iq']['@']['id'] : FALSE;
-  }
-
-
-
-  function GetInfoFromIqKey($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['iq']['#']['query'][0]['#']['key'][0]['#'] : FALSE;
-  }
-
-
-
-  function GetInfoFromIqError($packet = NULL)
-  {
-    $error = preg_replace("/^\/$/", "", ($packet['iq']['#']['error'][0]['@']['code'] . "/" . $packet['iq']['#']['error'][0]['#']));
-    return (is_array($packet)) ? $error : FALSE;
-  }
-
-
-
-  // ======================================================================
-  // <presence/> parsers
-  // ======================================================================
-
-
-
-  function GetInfoFromPresenceFrom($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['presence']['@']['from'] : FALSE;
-  }
-
-
-
-  function GetInfoFromPresenceType($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['presence']['@']['type'] : FALSE;
-  }
-
-
-
-  function GetInfoFromPresenceStatus($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['presence']['#']['status'][0]['#'] : FALSE;
-  }
-
-
-
-  function GetInfoFromPresenceShow($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['presence']['#']['show'][0]['#'] : FALSE;
-  }
-
-
-
-  function GetInfoFromPresencePriority($packet = NULL)
-  {
-    return (is_array($packet)) ? $packet['presence']['#']['priority'][0]['#'] : FALSE;
-  }
-
-
-
-  // ======================================================================
-  // <message/> handlers
-  // ======================================================================
-
-
-
-  function Handler_message_normal($packet)
-  {
-    $from = $packet['message']['@']['from'];
-    $this->AddToLog("EVENT: Message (type normal) from $from");
-  }
-
-
-
-  function Handler_message_chat($packet)
-  {
-    $from = $packet['message']['@']['from'];
-    $this->AddToLog("EVENT: Message (type chat) from $from");
-  }
-
-
-
-  function Handler_message_groupchat($packet)
-  {
-    $from = $packet['message']['@']['from'];
-    $this->AddToLog("EVENT: Message (type groupchat) from $from");
-  }
-
-
-
-  function Handler_message_headline($packet)
-  {
-    $from = $packet['message']['@']['from'];
-    $this->AddToLog("EVENT: Message (type headline) from $from");
-  }
-
-
-
-  function Handler_message_error($packet)
-  {
-    $from = $packet['message']['@']['from'];
-    $this->AddToLog("EVENT: Message (type error) from $from");
-  }
-
-
-
-  // ======================================================================
-  // <iq/> handlers
-  // ======================================================================
-
-
-
-  // application version updates
-  function Handler_iq_jabber_iq_autoupdate($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:autoupdate from $from");
-  }
-
-
-
-  // interactive server component properties
-  function Handler_iq_jabber_iq_agent($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:agent from $from");
-  }
-
-
-
-  // method to query interactive server components
-  function Handler_iq_jabber_iq_agents($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:agents from $from");
-  }
-
-
-
-  // simple client authentication
-  function Handler_iq_jabber_iq_auth($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:auth from $from");
-  }
-
-
-
-  // out of band data
-  function Handler_iq_jabber_iq_oob($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:oob from $from");
-  }
-
-
-
-  // method to store private data on the server
-  function Handler_iq_jabber_iq_private($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:private from $from");
-  }
-
-
-
-  // method for interactive registration
-  function Handler_iq_jabber_iq_register($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:register from $from");
-  }
-
-
-
-  // client roster management
-  function Handler_iq_jabber_iq_roster($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:roster from $from");
-  }
-
-
-
-  // method for searching a user database
-  function Handler_iq_jabber_iq_search($packet)
-  {
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: jabber:iq:search from $from");
-  }
-
-
-
-  // method for requesting the current time
-  function Handler_iq_jabber_iq_time($packet)
-  {
-    if ($this->keep_alive_id == $this->GetInfoFromIqId($packet))
-    {
-      $this->returned_keep_alive = TRUE;
-      $this->connected = TRUE;
-      $this->AddToLog('EVENT: Keep-Alive returned, connection alive.');
-    }
-    $type  = $this->GetInfoFromIqType($packet);
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-    $id    = ($id != "") ? $id : "time_" . time();
-
-    if ($type == 'get')
-    {
-      $payload = "<utc>" . gmdate("Ydm\TH:i:s") . "</utc>
-            <tz>" . date("T") . "</tz>
-            <display>" . date("Y/d/m h:i:s A") . "</display>";
-
-      $this->SendIq($from, 'result', $id, "jabber:iq:time", $payload);
-    }
-
-    $this->AddToLog("EVENT: jabber:iq:time (type $type) from $from");
-  }
-
-
-
-  // method for requesting version
-  function Handler_iq_jabber_iq_version($packet)
-  {
-    $type  = $this->GetInfoFromIqType($packet);
-    $from  = $this->GetInfoFromIqFrom($packet);
-    $id    = $this->GetInfoFromIqId($packet);
-    $id    = ($id != "") ? $id : "version_" . time();
-
-    if ($type == 'get')
-    {
-      $payload = "<name>{$this->iq_version_name}</name>
-            <os>{$this->iq_version_os}</os>
-            <version>{$this->iq_version_version}</version>";
-
-      #$this->SendIq($from, 'result', $id, "jabber:iq:version", $payload);
-    }
-
-    $this->AddToLog("EVENT: jabber:iq:version (type $type) from $from -- DISABLED");
-  }
-
-
-
-  // keepalive method, added by Nathan Fritz
-  /*
-  function Handler_jabber_iq_time($packet)
-  {
-    if ($this->keep_alive_id == $this->GetInfoFromIqId($packet))
-    {
-      $this->returned_keep_alive = TRUE;
-      $this->connected = TRUE;
-      $this->AddToLog('EVENT: Keep-Alive returned, connection alive.');
-    }
-  }
-  */
-
-
-  // ======================================================================
-  // <presence/> handlers
-  // ======================================================================
-
-
-
-  function Handler_presence_available($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-
-    $show_status = $this->GetInfoFromPresenceStatus($packet) . " / " . $this->GetInfoFromPresenceShow($packet);
-    $show_status = ($show_status != " / ") ? " ($addendum)" : '';
-
-    $this->AddToLog("EVENT: Presence (type: available) - $from is available $show_status");
-  }
-
-
-
-  function Handler_presence_unavailable($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-
-    $show_status = $this->GetInfoFromPresenceStatus($packet) . " / " . $this->GetInfoFromPresenceShow($packet);
-    $show_status = ($show_status != " / ") ? " ($addendum)" : '';
-
-    $this->AddToLog("EVENT: Presence (type: unavailable) - $from is unavailable $show_status");
-  }
-
-
-
-  function Handler_presence_subscribe($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-    $this->SubscriptionAcceptRequest($from);
-    $this->RosterUpdate();
-
-    $this->log_array[] = "<b>Presence:</b> (type: subscribe) - Subscription request from $from, was added to \$this->subscription_queue, roster updated";
-  }
-
-
-
-  function Handler_presence_subscribed($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-    $this->RosterUpdate();
-
-    $this->AddToLog("EVENT: Presence (type: subscribed) - Subscription allowed by $from, roster updated");
-  }
-
-
-
-  function Handler_presence_unsubscribe($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-    $this->SendPresence("unsubscribed", $from);
-    $this->RosterUpdate();
-
-    $this->AddToLog("EVENT: Presence (type: unsubscribe) - Request to unsubscribe from $from, was automatically approved, roster updated");
-  }
-
-
-
-  function Handler_presence_unsubscribed($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-    $this->RosterUpdate();
-
-    $this->AddToLog("EVENT: Presence (type: unsubscribed) - Unsubscribed from $from's presence");
-  }
-
-
-
-  // Added By Nathan Fritz
-  function Handler_presence_error($packet)
-  {
-    $from = $this->GetInfoFromPresenceFrom($packet);
-    $this->AddToLog("EVENT: Presence (type: error) - Error in $from's presence");
-  }
-
-
-
-  // ======================================================================
-  // Generic handlers
-  // ======================================================================
-
-
-
-  // Generic handler for unsupported requests
-  function Handler_NOT_IMPLEMENTED($packet)
-  {
-    $packet_type  = $this->_get_packet_type($packet);
-    $from      = call_user_func(array(&$this, "GetInfoFrom" . ucfirst($packet_type) . "From"), $packet);
-    $id        = call_user_func(array(&$this, "GetInfoFrom" . ucfirst($packet_type) . "Id"), $packet);
-
-    $this->SendError($from, $id, 501);
-    $this->AddToLog("EVENT: Unrecognized <$packet_type/> from $from");
-  }
-
-
-
-  // ======================================================================
-  // Third party code
-  // m@d pr0ps to the coders ;)
-  // ======================================================================
-
-
-
-  // xmlize()
-  // (c) Hans Anderson / http://www.hansanderson.com/php/xml/
-
-  function xmlize($data)
-  {
-    $vals = $index = $array = array();
-    $parser = xml_parser_create('utf-8');
-    xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, 0);
-    xml_parser_set_option($parser, XML_OPTION_SKIP_WHITE, 1);
-    xml_parse_into_struct($parser, $data, $vals, $index);
-    xml_parser_free($parser);
-
-    $i = 0;
-
-    $tagname = $vals[$i]['tag'];
-    $array[$tagname]['@'] = $vals[$i]['attributes'];
-    $array[$tagname]['#'] = $this->_xml_depth($vals, $i);
-
-    return $array;
-  }
-
-
-
-  // _xml_depth()
-  // (c) Hans Anderson / http://www.hansanderson.com/php/xml/
-
-  function _xml_depth($vals, &$i)
-  {
-    $children = array();
-
-    if (isset($vals[$i]['value']))
-    {
-      array_push($children, trim($vals[$i]['value']));
-    }
-
-    while (++$i < count($vals))
-    {
-      switch ($vals[$i]['type'])
-      {
-        case 'cdata':
-          array_push($children, trim($vals[$i]['value']));
-           break;
-
-        case 'complete':
-          $tagname = $vals[$i]['tag'];
-          $size = isset($children[$tagname]) ? sizeof($children[$tagname]) : 0;
-          $children[$tagname][$size]['#'] = isset($vals[$i]['value']) ? trim($vals[$i]['value']) : "";
-          if (isset($vals[$i]['attributes']))
-          {
-            $children[$tagname][$size]['@'] = $vals[$i]['attributes'];
-          }
-          break;
-
-        case 'open':
-          $tagname = $vals[$i]['tag'];
-          $size = isset($children[$tagname]) ? sizeof($children[$tagname]) : 0;
-          if ($vals[$i]['attributes'])
-          {
-            $children[$tagname][$size]['@'] = $vals[$i]['attributes'];
-            $children[$tagname][$size]['#'] = $this->_xml_depth($vals, $i);
-          }
-          else
-          {
-            $children[$tagname][$size]['#'] = $this->_xml_depth($vals, $i);
-          }
-          break;
-
-        case 'close':
-          return $children;
-          break;
-      }
-    }
-
-    return $children;
-  }
-
-
-
-  // TraverseXMLize()
-  // (c) acebone@f2s.com, a HUGE help!
-
-  function TraverseXMLize($array, $arrName = "array", $level = 0)
-  {
-    if ($level == 0)
-    {
-      echo "<pre>";
-    }
-
-    while (list($key, $val) = @each($array))
-    {
-      if (is_array($val))
-      {
-        $this->TraverseXMLize($val, $arrName . "[" . $key . "]", $level + 1);
-      }
-      else
-      {
-        echo '$' . $arrName . '[' . $key . '] = "' . $val . "\"\n";
-      }
-    }
-
-    if ($level == 0)
-    {
-      echo "</pre>";
-    }
-  }
-}
-
-
-
-class MakeXML extends Jabber
-{
-
-  function MakeXML()
-  {
-    $nodes = array();
-  }
-
-
-
-  function AddPacketDetails($string, $value = NULL)
-  {
-    if (preg_match("/\(([0-9]*)\)$/i", $string))
-    {
-      $string .= "/[\"#\"]";
-    }
-
-    $temp = @explode("/", $string);
-
-    for ($a = 0; $a < count($temp); $a++)
-    {
-      $temp[$a] = preg_replace("/^[@]{1}([a-z0-9_]*)$/i", "[\"@\"][\"\\1\"]", $temp[$a]);
-      $temp[$a] = preg_replace("/^([a-z0-9_]*)\(([0-9]*)\)$/i", "[\"\\1\"][\\2]", $temp[$a]);
-      $temp[$a] = preg_replace("/^([a-z0-9_]*)$/i", "[\"\\1\"]", $temp[$a]);
-    }
-
-    $node = implode("", $temp);
-
-    // Yeahyeahyeah, I know it's ugly... get over it. ;)
-    echo "\$this->nodes$node = \"" . htmlspecialchars($value) . "\";<br/>";
-    eval("\$this->nodes$node = \"" . htmlspecialchars($value) . "\";");
-  }
-
-
-
-  function BuildPacket($array = NULL)
-  {
-
-    if (!$array)
-    {
-      $array = $this->nodes;
-    }
-
-    if (is_array($array))
-    {
-      array_multisort($array, SORT_ASC, SORT_STRING);
-
-      foreach ($array as $key => $value)
-      {
-        if (is_array($value) && $key == "@")
-        {
-          foreach ($value as $subkey => $subvalue)
-          {
-            $subvalue = htmlspecialchars($subvalue);
-            $text .= " $subkey='$subvalue'";
-          }
-
-          $text .= ">\n";
-
-        }
-        elseif ($key == "#")
-        {
-          $text .= htmlspecialchars($value);
-        }
-        elseif (is_array($value))
-        {
-          for ($a = 0; $a < count($value); $a++)
-          {
-            $text .= "<$key";
-
-            if (!$this->_preg_grep_keys("/^@/", $value[$a]))
-            {
-              $text .= ">";
-            }
-
-            $text .= $this->BuildPacket($value[$a]);
-
-            $text .= "</$key>\n";
-          }
-        }
-        else
-        {
-          $value = htmlspecialchars($value);
-          $text .= "<$key>$value</$key>\n";
-        }
-      }
-
-      return $text;
-    }
-  }
-
-
-
-  function _preg_grep_keys($pattern, $array)
-  {
-    while (list($key, $val) = each($array))
-    {
-      if (preg_match($pattern, $key))
-      {
-        $newarray[$key] = $val;
-      }
-    }
-    return (is_array($newarray)) ? $newarray : FALSE;
-  }
-}
-
-
-
-class CJP_StandardConnector
-{
-  function OpenSocket($server, $port)
-  {
-    if ($this->active_socket = fsockopen($server, $port))
-    {
-      socket_set_blocking($this->active_socket, 0);
-      socket_set_timeout($this->active_socket, 31536000);
-
-      return TRUE;
-    }
-    else
-    {
-      return FALSE;
-    }
-  }
-
-
-
-  function CloseSocket()
-  {
-    return fclose($this->active_socket);
-  }
-
-
-
-  function WriteToSocket($data)
-  {
-    return fwrite($this->active_socket, $data);
-  }
-
-
-
-  function ReadFromSocket($chunksize)
-  {
-    set_magic_quotes_runtime(0);
-    $buffer = fread($this->active_socket, $chunksize);
-    set_magic_quotes_runtime(get_magic_quotes_gpc());
-
-    return $buffer;
-  }
-}
-
-
-
-?>