Your browser must have JavaScript enabled in order to view this page.
> >
 
Welcome Guest#9427 Login/register    Go to Bottom


INSTALL | LICENSE | README | CHANGES | Class Tree | Index
Go to Top

Source for file dpuniverse.php

Documentation is available at dpuniverse.php

  1. <?php
  2. /**
  3.  * Provides 'DpUniverse' class to handle a specific 'universe'
  4.  *
  5.  * Defines DpObjects, users, pages, etc. (our 'rules of nature')
  6.  *
  7.  * DutchPIPE version 0.4; PHP version 5
  8.  *
  9.  * LICENSE: This source file is subject to version 1.0 of the DutchPIPE license.
  10.  * If you did not receive a copy of the DutchPIPE license, you can obtain one at
  11.  * http://dutchpipe.org/license/1_0.txt or by sending a note to
  12.  * license@dutchpipe.org, in which case you will be mailed a copy immediately.
  13.  *
  14.  * @package    DutchPIPE
  15.  * @subpackage lib
  16.  * @author     Lennert Stock <ls@dutchpipe.org>
  17.  * @copyright  2006, 2007 Lennert Stock
  18.  * @license    http://dutchpipe.org/license/1_0.txt  DutchPIPE License
  19.  * @version    Subversion: $Id: dpuniverse.php 311 2007-09-03 12:48:09Z ls $
  20.  * @link       http://dutchpipe.org/manual/package/DutchPIPE
  21.  * @see        currentdpuserrequest.php, dpserver.php, dpfunctions.php
  22.  */
  23.  
  24. /* Shows all possible errors */
  25. error_reporting(E_ALL | E_STRICT);
  26.  
  27. /**
  28.  * The universe object handling the current http user request. Do not access
  29.  * this variable directly, use get_current_dpuniverse() instead.
  30.  */
  31. $grCurrentDpUniverse = NULL;
  32.  
  33. /**
  34.  * The object responsible for the current chain of execution. Do not access
  35.  * this variable directly, use get_current_dpobject() instead.
  36.  */
  37. $grCurrentDpObject = NULL;
  38.  
  39. define('_DPUSER_OBJECT', 0);           /* Reference to /std/DpUser.php object */
  40. define('_DPUSER_MESSAGES', 1);         /* Array of strings with messages */
  41. define('_DPUSER_NAME', 2);             /* Name of user behind http request */
  42. define('_DPUSER_COOKIEID', 3);         /* Cookie Id used for authorization */
  43. define('_DPUSER_COOKIEPASS', 4);       /* Cookie Pass used for authorization */
  44. define('_DPUSER_ISREGISTERED', 5);     /* Is it a registered user? */
  45. define('_DPUSER_TIME_LASTREQUEST', 6); /* Last http request UNIX time */
  46. define('_DPUSER_CURRENT_SCRIPTID', 7); /* Script id of current AJAX request */
  47. define('_DPUSER_LAST_SCRIPTID', 8);    /* Script id of last AJAX request */
  48.  
  49. /**
  50.  * A DutchPIPE universe, handling objects, users, pages, etc. (rules of nature)
  51.  *
  52.  * @package    DutchPIPE
  53.  * @subpackage lib
  54.  * @author     Lennert Stock <ls@dutchpipe.org>
  55.  * @copyright  2006, 2007 Lennert Stock
  56.  * @license    http://dutchpipe.org/license/1_0.txt  DutchPIPE License
  57.  * @version    Release: 0.2.1
  58.  * @link       http://dutchpipe.org/manual/package/DutchPIPE
  59.  */
  60. final class DpUniverse
  61. {
  62.     /**
  63.      * @var         array      All objects on the site
  64.      * @access      private
  65.      */
  66.     private $mDpObjects = array();
  67.  
  68.     /**
  69.      * @var         array      Reset queue, first element will reset first
  70.      * @access      private
  71.      */
  72.     private $mDpObjectResets = array();
  73.  
  74.     /**
  75.      * The environment of each object on the site in env => ob pairs.
  76.      *
  77.      * @var         array      The environments of objects
  78.      * @access      private
  79.      */
  80.     private $mEnvironments = array();
  81.  
  82.     /**
  83.      * All user objects on the site + data
  84.      *
  85.      * Each element in the array represents a user. A user is stored in another
  86.      * array, with the elements as defined by the _DPUNIVERSE_USER_ definitions.
  87.      *
  88.      * @var         array      All user objects on the site + data
  89.      * @access      private
  90.      */
  91.     private $mDpUsers = array();
  92.  
  93.     /**
  94.      * @var         array      All pending timeouts after use of setTimeout()
  95.      * @access      private
  96.      */
  97.     private $mTimeouts = array();
  98.  
  99.     /**
  100.      * Increasing guest counter used to form unique names for guests, for
  101.      * example "Guest#8'
  102.      *
  103.      * @var         int        Increasing guest counter for unique guest names
  104.      * @access      private
  105.      */
  106.     private $mGuestCnt;
  107.  
  108.     /**
  109.      * DpObject counter increased by newDpObject, used to generate unique object
  110.      * ids
  111.      *
  112.      * @var         int        Used to generate unique object
  113.      * @access      private
  114.      */
  115.     private $mUniqueDpObjectCnt = 1;
  116.  
  117.     /**
  118.      * @var         object     The server object that called us
  119.      * @access      private
  120.      */
  121.     private $mrDpServer;
  122.  
  123.     /**
  124.      * @var         array      Info on the current HTTP user request
  125.      * @access      private
  126.      */
  127.     private $mrCurrentDpUserRequest;
  128.  
  129.     /**
  130.      * @var         array      The key of the current users' entry in mDpUsers
  131.      * @access      private
  132.      */
  133.     private $mCurrentDpUserKey;
  134.  
  135.     /**
  136.      * @var         boolean    Do not tell anything to the current http request?
  137.      * @access      private
  138.      */
  139.     private $mNoDirectTell = FALSE;
  140.  
  141.     /**
  142.      * Error messages for the last new user registration attempt
  143.      *
  144.      * @var         array 
  145.      * @access      private
  146.      */
  147.     private $mLastNewUserErrors = array();
  148.  
  149.     /**
  150.      * UNIX timestamp when next reset in an object will occur
  151.      *
  152.      * @var         integer 
  153.      * @access      private
  154.      */
  155.     private $mNextResetTime;
  156.  
  157.     /**
  158.      * UNIX time stamp when cleanup mechanism was last called
  159.      *
  160.      * @var         array 
  161.      * @access      private
  162.      */
  163.     private $mLastCleanUpTime = 0;
  164.  
  165.     /**
  166.      * Lists of objects listening to certain events
  167.      *
  168.      * @var         array 
  169.      * @access      private
  170.      */
  171.     private $mAlertEvents = array();
  172.  
  173.     /**
  174.      * Constructs this universe based on a universe ini file
  175.      *
  176.      * @param      string    $iniFile    path to settings file for this universe
  177.      */
  178.     function __construct($iniFile = 'dpuniverse-ini.php')
  179.     {
  180.         /* Gets the universe settings */
  181.         require_once($iniFile);
  182.  
  183.         $this->mGuestCnt = mt_rand(25, 75);
  184.         $this->mLastCleanUpTime = time();
  185.  
  186.         require_once(DPUNIVERSE_LIB_PATH . 'dpcurrentrequest.php');
  187.  
  188.         /* These functions will be available for all objects */
  189.         require_once(DPUNIVERSE_LIB_PATH . 'dptext.php');
  190.         require_once(DPUNIVERSE_LIB_PATH . 'dpfunctions.php');
  191.         require_once(DPUNIVERSE_LIB_PATH . 'dptemplates.php');
  192.         require_once(DPUNIVERSE_LIB_PATH . 'dpmbstring_'
  193.             . (!DPSERVER_ENABLE_MBSTRING || !function_exists('mb_strlen')
  194.             ? 'disabled' : 'enabled') . '.php');
  195.  
  196.         if (!DPUNIVERSE_MDB2_ENABLED) {
  197.             require_once(DPUNIVERSE_LIB_PATH . 'dpdb_mysql.php');
  198.         } else {
  199.             require_once(DPUNIVERSE_LIB_PATH . 'dpdb_mdb2.php');
  200.         }
  201.  
  202.         // Clean up guest avatar directory
  203.         if (DPUNIVERSE_AVATAR_CUSTOM_ENABLED
  204.                 && ($dir = @opendir(DPUNIVERSE_AVATAR_CUSTOM_GUEST_PATH))) {
  205.             while (FALSE !== ($entry = readdir($dir))) {
  206.                 if ('.' != $entry && '..' != $entry)
  207.                     @unlink(DPUNIVERSE_AVATAR_CUSTOM_GUEST_PATH . $entry);
  208.             }
  209.         }
  210.     }
  211.  
  212.     /**
  213.      * Gets an unique suffix to make Guest#x names
  214.      *
  215.      * @return     integer   A unique number, currently a counter
  216.      */
  217.     function getGuestCnt()
  218.     {
  219.         return $this->mGuestCnt++;
  220.     }
  221.  
  222.     /**
  223.      * Handles user requests passed on from the DutchPIPE server
  224.      *
  225.      * Called each time a user's browser does a normal page or AJAX request.
  226.      * Several variables are passed which represent their corresponding PHP
  227.      * global arrays: $_SERVER, $_COOKIE, etc.
  228.      *
  229.      * @param   array   &$rDpServer    Reference to the server object
  230.      * @param   array   &$rServerVars  User server variables
  231.      * @param   array   &$rSessionVars User session variables
  232.      * @param   array   &$rCookieVars  User cookie variables
  233.      * @param   array   &$rGetVars     User get variables
  234.      * @param   array   &$rPostVars    User post variables
  235.      * @param   array   &$rFilesVars   User files variables
  236.      */
  237.     function handleCurrentDpUserRequest(&$rDpServer = NULL,
  238.             &$rServerVars = NULL, &$rSessionVars = NULL, &$rCookieVars = NULL,
  239.             &$rGetVars = NULL, &$rPostVars = NULL, &$rFilesVars = NULL)
  240.     {
  241.         if (!is_null($rDpServer)) {
  242.             $this->mrDpServer = $rDpServer;
  243.         }
  244.  
  245.         $GLOBALS['grCurrentDpUniverse'] = &$this;
  246.  
  247.         /*
  248.          * Because we don't use a 'ticks' system or something similar yet, user
  249.          * user requests are used to handle some generic cyclic calls
  250.          */
  251.         $this->handleLinkdead();
  252.         if (isset($this->mNextResetTime) && $this->mNextResetTime <= time()) {
  253.             $this->handleReset();
  254.         }
  255.  
  256.         $this->mrCurrentDpUserRequest = new DpCurrentRequest($this,
  257.             $rServerVars, $rSessionVars, $rCookieVars, $rGetVars, $rPostVars,
  258.             $rFilesVars);
  259.         $this->mrCurrentDpUserRequest->handleRequest();
  260.  
  261.         if (FALSE === $this->mrCurrentDpUserRequest->isRegistered()
  262.                 && FALSE === $this->mrCurrentDpUserRequest->getUserAgent()) {
  263.             if (!isset($rGetVars['ajax'])) {
  264.                 $this->tellCurrentDpUserRequest('<event><div id="dppage">'
  265.                     . '<![CDATA['
  266.                     . dp_text('Your browser did not report a User Agent string to the server. This is required.<br />')
  267.                     . ']]></div></event>');
  268.             }
  269.             unset($this->mrCurrentDpUserRequest);
  270.             unset($this->mCurrentDpUserKey);
  271.             return;
  272.         }
  273.         if (FALSE === $this->mrCurrentDpUserRequest->isCookieEnabled()) {
  274.             $this->tellCurrentDpUserRequest('2');
  275.             unset($this->mrCurrentDpUserRequest);
  276.             unset($this->mCurrentDpUserKey);
  277.             return;
  278.         }
  279.  
  280.         if (isset($this->mCurrentDpUserKey)) {
  281.             $user_arr_key = $this->mCurrentDpUserKey;
  282.         } else {
  283.             end($this->mDpUsers);
  284.             $user_arr_key = key($this->mDpUsers);
  285.         }
  286.  
  287.         $this->mDpUsers[$user_arr_key][_DPUSER_TIME_LASTREQUEST] = time();
  288.  
  289.         /*
  290.          * scriptids are used to detect if a user has multiple browser windows
  291.          * open. Each initiated dpclient-js.php sets such a random id
  292.          */
  293.         $old_scriptid =
  294.             $this->mDpUsers[$user_arr_key][_DPUSER_CURRENT_SCRIPTID];
  295.         $new_scriptid = is_null($rGetVars) || !isset($rGetVars['ajax'])
  296.             || !isset($rGetVars['scriptid']) || 0 === (int)$rGetVars['scriptid']
  297.             ? FALSE : $rGetVars['scriptid'];
  298.  
  299.         if (FALSE !== $old_scriptid && FALSE !== $new_scriptid
  300.                 && $old_scriptid !== $new_scriptid) {
  301.             $this->mDpUsers[$user_arr_key][_DPUSER_LAST_SCRIPTID] = FALSE;
  302.             $this->mDpUsers[$user_arr_key][_DPUSER_CURRENT_SCRIPTID] = FALSE;
  303.             $this->mDpUsers[$user_arr_key][_DPUSER_OBJECT]->tell(
  304.                 'close_window');
  305.         } else {
  306.             $this->mDpUsers[$user_arr_key][_DPUSER_LAST_SCRIPTID] =
  307.                 $old_scriptid;
  308.             $this->mDpUsers[$user_arr_key][_DPUSER_CURRENT_SCRIPTID] =
  309.                 $new_scriptid;
  310.         }
  311.  
  312.         /*
  313.          * Because we don't use a 'ticks' system or something similar yet, user
  314.          * user requests are used to handle some generic cyclic calls
  315.          */
  316.         $this->handleTimeouts();
  317.  
  318.         $this->mrCurrentDpUserRequest->handleUser();
  319.  
  320.         unset($this->mrCurrentDpUserRequest);
  321.         unset($this->mCurrentDpUserKey);
  322.  
  323.         if ($this->mLastCleanUpTime < time() - DPUNIVERSE_RESET_CYCLE * 2) {
  324.             $this->handleCleanUps();
  325.             $this->mLastCleanUpTime = time();
  326.         }
  327.     }
  328.  
  329.     /**
  330.      * Adds a new, given user object to the universe
  331.      *
  332.      * :WARNING: Should normally only be called from lib/dpcurrentrequest.php.
  333.      *
  334.      * @access     private
  335.      * @param      object    &$user        a new DpUser object
  336.      * @param      string    $username     the user's username
  337.      * @param      string    $cookieID     the user's cookie ID
  338.      * @param      string    $cookiePass   the user's cookie password
  339.      * @param      boolean   $isRegistered TRUE for registered user, else FALSE
  340.      */
  341.     function addDpUser(&$user, $username, $cookieId, $cookiePass,
  342.             $isRegistered) {
  343.         $this->mDpUsers[] = array($user, array(), $username, $cookieId,
  344.             $cookiePass, $isRegistered, 0, FALSE, FALSE);
  345.     }
  346.  
  347.     /**
  348.      * Gets pending messages for the current user request
  349.      *
  350.      * :WARNING: Should normally only be called from lib/dpcurrentrequest.php.
  351.      *
  352.      * @access     private
  353.      * @return     mixed     array with messages of FALSE for no messages
  354.      */
  355.     function &getCurrentDpUserMessages()
  356.     {
  357.         $rval = FALSE;
  358.  
  359.         if (isset($this->mCurrentDpUserKey)
  360.                 && isset($this->mDpUsers[$this->mCurrentDpUserKey])) {
  361.             return $this->mDpUsers[$this->mCurrentDpUserKey][_DPUSER_MESSAGES];
  362.         }
  363.  
  364.         return $rval;
  365.     }
  366.  
  367.     /**
  368.      * Clears pending messages for the current user request
  369.      *
  370.      * :WARNING: Should normally only be called from lib/dpcurrentrequest.php.
  371.      *
  372.      * @access     private
  373.      */
  374.     function clearCurrentDpUserMessages()
  375.     {
  376.         $this->mDpUsers[$this->mCurrentDpUserKey][_DPUSER_MESSAGES] = array();
  377.     }
  378.  
  379.     /**
  380.      * Finds if a user is on this site based on cookie data
  381.      *
  382.      * If found, sets $this->mCurrentDpUserKey to the key to the user info in
  383.      * the universe's user array.
  384.      *
  385.      * :WARNING: Should normally only be called from lib/dpcurrentrequest.php.
  386.      *
  387.      * @access     private
  388.      * @param      string    $cookieID     the user's cookie ID
  389.      * @param      string    $cookiePass   the user's cookie password
  390.      * @return     mixed     array with user info or FALSE if no user found
  391.      */
  392.     function &findCurrentDpUser($cookieid, $cookiepass)
  393.     {
  394.         $rval = FALSE;
  395.  
  396.         foreach ($this->mDpUsers as $user_arr_key => &$u) {
  397.             if ($u[_DPUSER_COOKIEID] === $cookieid
  398.                     && $u[_DPUSER_COOKIEPASS] === $cookiepass) {
  399.                 $this->mCurrentDpUserKey = $user_arr_key;
  400.                 return $u;
  401.             }
  402.         }
  403.  
  404.         return $rval;
  405.     }
  406.  
  407.     /**
  408.      * Checks if people left the site, throws them out of the universe
  409.      *
  410.      * @access     private
  411.      */
  412.     private function handleLinkdead()
  413.     {
  414.         $cur_time = time();
  415.  
  416.         /* Time the user's browser should have done a page or AJAX request */
  417.         $linkdeath_time = $cur_time - DPUNIVERSE_LINKDEATH_KICKTIME;
  418.  
  419.         /*
  420.          * Currently, this function is triggered by a user http request. If
  421.          * there's one user and he leaves, then if the next user enters, say a
  422.          * minute later (this time is defined here), he should not see
  423.          * 'X leaves the site.'
  424.          */
  425.         $showmsg_time = $linkdeath_time - DPUNIVERSE_LINKDEATH_SHOWMSGTIME;
  426.  
  427.         /*
  428.          * Bots may be visible a bit longer, since they don't have Javacript and
  429.          * sometimes do a lot of requests. With a short 'kick' time, users would
  430.          * get a lot of 'Bot enters the site' and 'Bot leaves the site'
  431.          * messages.
  432.          */
  433.         $botkick_time = $cur_time - DPUNIVERSE_BOT_KICKTIME;
  434.  
  435.         $showbot_time = $botkick_time - DPUNIVERSE_LINKDEATH_SHOWBOTTIME;
  436.  
  437.         foreach ($this->mDpUsers as $i => &$u) {
  438.             /*
  439.              * Throw out people who lost connection or browsed elsewhere. Need
  440.              * to think this one out (move them to a void, etc.), something
  441.              * simple for now.
  442.              */
  443.             $lastrequest_time = $u[_DPUSER_TIME_LASTREQUEST];
  444.             $ajax_capable = (isset($u[_DPUSER_OBJECT]->isAjaxCapable)
  445.                 && TRUE === $u[_DPUSER_OBJECT]->isAjaxCapable)
  446.                 || !empty($u[_DPUSER_OBJECT]->browseAvatarCustom);
  447.  
  448.             /* The "linkdeath" check */
  449.             if (($ajax_capable && $lastrequest_time < $linkdeath_time
  450.                     && (empty($u[_DPUSER_OBJECT]->browseAvatarCustom)
  451.                     || $lastrequest_time < $cur_time
  452.                     - DPSERVER_OBJECT_IMAGE_CUSTOM_MAX_BROWSETIME))
  453.                     || (!$ajax_capable && $lastrequest_time < $botkick_time)) {
  454.                 /*
  455.                  * This method is called before an instance of
  456.                  * CurrentDpUserRequest is created and the current http request
  457.                  * is handled. However, the tell() functions operate on the
  458.                  * current request. Therefore, any sound made should be stored
  459.                  * for the next cycle, otherwise the people get wrong messages.
  460.                  * tell() in the User class checks for this variable:
  461.                  */
  462.                 $this->mNoDirectTell = TRUE;
  463.  
  464.                 if (FALSE !== ($env =
  465.                         $u[_DPUSER_OBJECT]->getEnvironment())) {
  466.                     if (($ajax_capable && $lastrequest_time > $showmsg_time)
  467.                             || (!$ajax_capable
  468.                             && $lastrequest_time > $showbot_time)) {
  469.                         /* Drop stuff, tell people on the page the user left */
  470.                         $u[_DPUSER_OBJECT]->actionDrop(dp_text('drop'),
  471.                             dp_text('all'));
  472.                         $env->tell($left_msg = sprintf(
  473.                             dp_text('%s left the site.<br />'),
  474.                             ucfirst($u[_DPUSER_OBJECT]->getTitle(
  475.                             DPUNIVERSE_TITLE_TYPE_DEFINITE))),
  476.                             $u[_DPUSER_OBJECT]);
  477.                         if (!$u[_DPUSER_OBJECT]->isKnownBot) {
  478.                             $listeners = get_current_dpuniverse()->
  479.                                 getAlertEvent('people_leaving');
  480.                             if (is_array($listeners)) {
  481.                                 $listener_msg = ' ' . sprintf(
  482.                                     dp_text("<span class=\"col2\">%s</span> %s left the site at %s.<br />"),
  483.                                     strftime(dp_text('%H:%M')),
  484.                                     ucfirst($u[_DPUSER_OBJECT]->getTitle(
  485.                                     DPUNIVERSE_TITLE_TYPE_DEFINITE)),
  486.                                     $env->title);
  487.                                 foreach ($listeners as &$listener) {
  488.                                     if ($listener->getEnvironment() !== $env) {
  489.                                         $listener->tell($listener_msg);
  490.                                     }
  491.                                 }
  492.                             }
  493.                         }
  494.                     } else {
  495.                         /* Drop all silently */
  496.                         $u[_DPUSER_OBJECT]->actionDrop(dp_text('drop'),
  497.                             dp_text('all'), TRUE);
  498.                     }
  499.                 }
  500.  
  501.                 /* Keeps track of all unique user agents */
  502.                 $this->saveUserAgent($u[_DPUSER_OBJECT]);
  503.  
  504.                 /* Remove the object */
  505.                 $this->mDpUsers[$i][_DPUSER_OBJECT]->removeDpObject();
  506.  
  507.                 $this->mNoDirectTell = FALSE;
  508.             }
  509.         }
  510.     }
  511.  
  512.     /**
  513.      * Calls '__reset' in each object every DPUNIVERSE_RESET_CYCLE seconds
  514.      *
  515.      * @access     private
  516.      */
  517.     private function handleReset()
  518.     {
  519.         /* Perform a limited number of resets per cycle */
  520.         $max_resets = DPUNIVERSE_MAX_RESETS;
  521.         $max_loop = 100;
  522.  
  523.         reset($this->mDpObjectResets);
  524.         /* Pick up where we were in the reset array */
  525.         while (($ob = current($this->mDpObjectResets)) && $max_resets--
  526.                  && $max_loop--) {
  527.             /* Checks if the current object ready to reset */
  528.             if ($ob->resetTime > time()) {
  529.                 $this->mNextResetTime = $ob->resetTime;
  530.                 return;
  531.             }
  532.             /* Resets the object, sets next reset time */
  533.             $ob->__reset();
  534.             $ob->resetTime = time() + DPUNIVERSE_RESET_CYCLE;
  535.             $this->mDpObjectResets[] = $ob;
  536.             array_splice($this->mDpObjectResets, 0, 1);
  537.             reset($this->mDpObjectResets);
  538.             $this->mNextResetTime = current($this->mDpObjectResets)->resetTime;
  539.         }
  540.     }
  541.  
  542.     /**
  543.      * Optionally uses experimental PHP runkit module to catch errors in code
  544.      */
  545.      /*
  546.     function handleRunkit()
  547.     {
  548.         if (FALSE !== DPUNIVERSE_RUNKIT) {
  549.             if (FALSE === @runkit_lint_file(DPUNIVERSE_PREFIX_PATH
  550.                     . $this->__GET['location'])) {
  551.                 if ($this->mrUser->getEnvironment()) {
  552.                     $this->mrEnvironment = $this->mrUser->getEnvironment();
  553.                 }
  554.                 $this->__GET['location'] =
  555.                     FALSE === is_null($this->mrEnvironment)
  556.                     ? $this->mrEnvironment->location
  557.                     : DPUNIVERSE_PAGE_PATH . 'index.php';
  558.                 $this->mrUser->tell('<location>' . $__GET['location']
  559.                     . '</location>');
  560.                 $this->mMoveError = dp_text('You notice a disruptance.<br />');
  561.             }
  562.         }
  563.     }
  564.     */
  565.  
  566.     /**
  567.      * Handles delayed function calls requested by objects in the universe
  568.      *
  569.      * @access     private
  570.      */
  571.     private function handleTimeouts()
  572.     {
  573.         while (sizeof($this->mTimeouts)) {
  574.             foreach ($this->mTimeouts as $i => $to) {
  575.                 if (isset($this->mTimeouts[$i][0]->isRemoved)
  576.                         && TRUE === $this->mTimeouts[$i][0]->isRemoved) {
  577.                     unset($this->mTimeouts[$i][0]);
  578.                     unset($this->mTimeouts[$i]);
  579.                     break;
  580.                 }
  581.                 $cur_time = time();
  582.                 if ($this->mTimeouts[$i][2] <= $cur_time) {
  583.                     $method = $this->mTimeouts[$i][1];
  584.                     if (!isset($this->mTimeouts[$i][3])) {
  585.                         $this->mTimeouts[$i][0]->$method();
  586.                     } else {
  587.                         call_user_func_array(array(&$this->mTimeouts[$i][0],
  588.                             $method), $this->mTimeouts[$i][3]);
  589.                     }
  590.                     unset($this->mTimeouts[$i][0]);
  591.                     unset($this->mTimeouts[$i]);
  592.                     break;
  593.                 }
  594.                 break 2;
  595.             }
  596.         }
  597.     }
  598.  
  599.     /**
  600.      * Handles removal of unused object instances
  601.      *
  602.      * @access     private
  603.      */
  604.     private function handleCleanUps()
  605.     {
  606.         echo "HandleCleanUps called\n";
  607.         foreach ($this->mDpObjects as $i => &$ob) {
  608.             if (!$ob->getEnvironment()
  609.                     && $ob->lastEventTime < time() - DPUNIVERSE_RESET_CYCLE) {
  610.                 echo "calling handleCleanUp in {$ob->title}\n";
  611.                 $ob->handleCleanUp();
  612.             }
  613.         }
  614.     }
  615.  
  616.     /**
  617.      * Stores user agent information in the database
  618.      *
  619.      * Experimental. Used to catch search bots.
  620.      *
  621.      * @access     private
  622.      * @param      string    &$user      user object
  623.      */
  624.     private function saveUserAgent(&$user)
  625.     {
  626.         $agent = !isset($user->_SERVER['HTTP_USER_AGENT'])
  627.             || 0 === dp_strlen($user->_SERVER['HTTP_USER_AGENT'])
  628.             ? '[Undefined]'
  629.             : $user->_SERVER['HTTP_USER_AGENT'];
  630.  
  631.         if (isset($user->isAjaxCapable) && TRUE === $user->isAjaxCapable) {
  632.             $result = dp_db_query('SELECT userAgentId from UserAgents '
  633.                 . 'WHERE userAgentString=' . dp_db_quote($agent, 'text'));
  634.             if (FALSE === $result || !dp_db_num_rows($result)) {
  635.                 if ($next_id = dp_db_next_id('UserAgents', 'userAgentId')) {
  636.                     dp_db_exec('INSERT INTO UserAgents '
  637.                         . '(userAgentId,userAgentString) VALUES ('
  638.                         . dp_db_quote($next_id, 'integer') . ','
  639.                         . dp_db_quote($agent, 'text') . ')');
  640.                 }
  641.             }
  642.             dp_db_free($result);
  643.         } else {
  644.             $remote_address = !isset($user->_SERVER['REMOTE_ADDR'])
  645.                 || 0 === dp_strlen($user->_SERVER['REMOTE_ADDR'])
  646.                 ? '[Undefined]'
  647.                 : $user->_SERVER['REMOTE_ADDR'];
  648.             $result = dp_db_query('SELECT userAgentId from UserAgents '
  649.                 . 'WHERE userAgentString=' . dp_db_quote($agent, 'text')
  650.                 . ' AND userAgentRemoteAddress='
  651.                 . dp_db_quote($remote_address, 'text'));
  652.             if (FALSE === $result || !dp_db_num_rows($result)) {
  653.                 if ($next_id = dp_db_next_id('UserAgents', 'userAgentId')) {
  654.                     dp_db_exec('INSERT INTO UserAgents '
  655.                         . '(userAgentId,userAgentString,userAgentRemoteAddress)'
  656.                         . ' VALUES (' . dp_db_quote($next_id, 'integer') . ','
  657.                         . dp_db_quote($agent, 'text') . ','
  658.                         . dp_db_quote($remote_address, 'text') . ')');
  659.                 }
  660.             }
  661.             dp_db_free($result);
  662.         }
  663.     }
  664.  
  665.     /**
  666.      * Stores a message for a user while we wait for another http request
  667.      *
  668.      * Called from tell in DpUser.php
  669.      *
  670.      * :WARNING: This method should normally only be called the tell method in
  671.      * DpUser.php.
  672.      *
  673.      * @access     private
  674.      * @param      object    $user        recipient user of message
  675.      * @param      string    $data        message string
  676.      * @param      object    $binded_env  optional binded environment
  677.      * @see        DpObject::tell()
  678.      *
  679.      */
  680.     function storeTell(&$user, $data, &$binded_env = NULL)
  681.     {
  682.         foreach ($this->mDpUsers as $i => &$u) {
  683.             if ($u[_DPUSER_OBJECT] === $user) {
  684.                 $this->mDpUsers[$i][1][] = array($data, $binded_env);
  685.             }
  686.         }
  687.     }
  688.  
  689.     /**
  690.      * Tells something back to the currently connected user client
  691.      *
  692.      * :WARNING: This method should normally only be called from DpUser.php.
  693.      *
  694.      * @access     private
  695.      * @param      string    $talkback   XML string
  696.      */
  697.     function tellCurrentDpUserRequest($talkback)
  698.     {
  699.         // echo "Talkback: " . htmlentities($talkback) . "\n";
  700.         $this->mrDpServer->tellCurrentDpUserRequest($talkback);
  701.         $this->mrCurrentDpUserRequest->setToldSomething();
  702.     }
  703.  
  704.     /**
  705.      * Gets db row key of a random CAPTCHA code for the user registration page
  706.      *
  707.      * Used to seperate software robots from real people during registration.
  708.      * Codes aren't generated on the fly and as such not really random because
  709.      * the CPU time penalty is too high. A directory with pre-generated codes
  710.      * exists and a database table with info. A cronjob makes one every hour and
  711.      * replaces the oldest one in the database. Then we obtain a random entry
  712.      * here. This should do it for now, but your milleague might vary and the
  713.      * situation might change as spambots get smarter.
  714.      *
  715.      * @return     int       CAPTCHA database row key
  716.      */
  717.     function getRandCaptcha()
  718.     {
  719.         $result = dp_db_query('SELECT captchaId FROM Captcha');
  720.  
  721.         if (FALSE === $result || !($num_rows = dp_db_num_rows($result))) {
  722.             return FALSE;
  723.         }
  724.  
  725.         $rval = dp_db_fetch_one($result, mt_rand(0, $num_rows - 1), 0);
  726.         dp_db_free($result);
  727.         return $rval;
  728.     }
  729.  
  730.     /**
  731.      * Creates a new object in the universe
  732.      *
  733.      * You MUST call this function to create new objects in a DutchPIPE
  734.      * universe, don't use the 'new' construct directly.
  735.      *
  736.      * The object can have a unique location, given with $pathname, or just be
  737.      * based on $pathname, with a sublocation handling multiple objects. For
  738.      * example, the URL in uour browser contains the following bit for the
  739.      * DutchPIPE "about" page: location=/page/about.php
  740.      *
  741.      * It is a unique page with a unique location. The manual however is not
  742.      * based on many unique locations, but just one object which spawns pages
  743.      * based on the sublocation given in the URL:
  744.      * location=/page/manual.php&sublocation=index.html
  745.      *
  746.      * @param      string    $pathname     path to code from universe base path
  747.      * @param      string    $sublocation  optional sublocation
  748.      * @return     object    The newly created object
  749.      */
  750.     function &newDpObject($pathname, $sublocation = FALSE)
  751.     {
  752.         if (!$pathname) {
  753.             $pathname = DPUNIVERSE_PAGE_PATH . 'index.php';
  754.         }
  755.  
  756.         echo "Making: $pathname, $sublocation\n";
  757.  
  758.         if (dp_strlen($pathname) >= 7 && dp_substr($pathname, 0, 7)
  759.                 == 'http://') {
  760.             if (($len = dp_strlen(DPSERVER_HOST_URL)) >= dp_strlen($pathname)
  761.                     || DPSERVER_HOST_URL !== dp_substr($pathname, 0, $len)) {
  762.                 echo dp_text("Illegal object requested!\n");
  763.                 $rval = FALSE;
  764.                 return $rval;
  765.             }
  766.         }
  767.  
  768.         $unique_id = $this->mUniqueDpObjectCnt;
  769.         $this->mUniqueDpObjectCnt++;
  770.  
  771.         if ($pathname && (dp_substr($pathname, 0, 1) != '/'
  772.                 || ((FALSE === dp_strpos($pathname, '://'))
  773.                 && (dp_strlen($pathname) < 4
  774.                 || dp_substr($pathname, - 4) != '.php')))) {
  775.             require_once(DPUNIVERSE_PREFIX_PATH . DPUNIVERSE_STD_PATH
  776.                 . 'DpPage.php');
  777.             $ob = new DpPage($unique_id, time() + DPUNIVERSE_RESET_CYCLE,
  778.                 $pathname, FALSE);
  779.             $ob->setTitle($pathname);
  780.             $ob->isStandalone = new_dp_property(TRUE);
  781.             if (FALSE === dp_strpos($pathname, '://')) {
  782.                 $ob->setBody($pathname, 'file');
  783.                 $ob->setNavigationTrail(array(DPUNIVERSE_NAVLOGO, '/'));
  784.             }
  785.         } else {
  786.             require_once(DPUNIVERSE_PREFIX_PATH . $pathname);
  787.             $classname =  explode("/", $pathname);
  788.             $classname = ucfirst(!dp_strlen($classname[sizeof($classname) - 1])
  789.                 ? 'index'
  790.                 : dp_substr($classname[sizeof($classname) - 1], 0, -4));
  791.             $ob = new $classname($unique_id, time() + DPUNIVERSE_RESET_CYCLE,
  792.                 $pathname, $sublocation);
  793.         }
  794.         if (empty($ob)) {
  795.             $rval = FALSE;
  796.             return $rval;
  797.         }
  798.  
  799.         $this->__GET['location'] = $pathname;
  800.         if (FALSE !== $sublocation) {
  801.             $this->__GET['sublocation'] = $sublocation;
  802.         }
  803.  
  804.         $this->mDpObjects[] =& $ob;
  805.         $this->mDpObjectResets[] =& $ob;
  806.         if (!isset($this->mNextResetTime)) {
  807.             $this->mNextResetTime = $ob->resetTime;
  808.         }
  809.  
  810.         $ob->__construct2();
  811.  
  812.         echo sprintf(dp_text("Made new object %s\n"), $pathname);
  813.  
  814.         return $ob;
  815.     }
  816.  
  817.     /**
  818.      * Moves the object to another environment
  819.      *
  820.      * This method only handles the internal storage of environments.
  821.      * Most functionality can be found in  moveDpObject in DpObject.php.
  822.      *
  823.      * :WARNING: This method should normally only be called from DpObject.php.
  824.      *
  825.      * @access     private
  826.      * @param      object  &$rItem      object to move
  827.      * @param      mixed   &$rDest      object to move into to
  828.      */
  829.     function moveDpObject(&$rItem, &$rDest)
  830.     {
  831.         foreach ($this->mEnvironments as $i => &$pair) {
  832.             if ($pair[0] === $rItem) {
  833.                 unset($this->mEnvironments[$i]);
  834.                 break;
  835.                 $this->mEnvironments[$i][1] =& $rDest;
  836.                 return;
  837.             }
  838.         }
  839.  
  840.         $this->mEnvironments[] = array(&$rItem, &$rDest);
  841.     }
  842.  
  843.     /**
  844.      * Removes this object
  845.      *
  846.      * The object is destroyed and no longer part of the universe.
  847.      * This method only handles the internal storage of objects.
  848.      * Most functionality can be found in removeDpObject in DpObject.php.
  849.      *
  850.      * :WARNING: This method should normally only be called from DpObject.php.
  851.      *
  852.      * @access     private
  853.      * @param      object  &$rTarget    object to remove
  854.      */
  855.     function removeDpObject(&$rTarget)
  856.     {
  857.         global $grCurrentDpObject;
  858.  
  859.         foreach ($this->mDpUsers as $i => &$u) {
  860.             if ($u[_DPUSER_OBJECT] === $rTarget) {
  861.                 $del_user = $i;
  862.                 break;
  863.             }
  864.         }
  865.  
  866.         $del_envs = array();
  867.         foreach ($this->mEnvironments as $i => &$env) {
  868.             if ($env[0] === $rTarget) {
  869.                 $del_env = $i;
  870.             }
  871.             if ($env[1] === $rTarget) {
  872.                 $del_envs[] = $i;
  873.             }
  874.         }
  875.  
  876.         foreach ($this->mDpObjects as $i => &$ob) {
  877.             if ($ob === $rTarget) {
  878.                 $del_obj = $i;
  879.                 break;
  880.             }
  881.         }
  882.  
  883.         foreach ($this->mDpObjectResets as $i => &$ob) {
  884.             if ($ob === $rTarget) {
  885.                 $del_reset = $i;
  886.                 break;
  887.             }
  888.         }
  889.  
  890.         $del_timeouts = array();
  891.         foreach ($this->mTimeouts as $i => &$ob) {
  892.             if ($ob[0] === $rTarget) {
  893.                 $del_timeouts[] = $i;
  894.             }
  895.         }
  896.  
  897.         $del_events = array();
  898.         foreach ($this->mAlertEvents as $event => &$listeners) {
  899.             foreach ($listeners as $i => &$ob) {
  900.                 if ($ob === $rTarget) {
  901.                     $del_events[] = array($event, $i);
  902.                 }
  903.             }
  904.         }
  905.         if (isset($del_user)) {
  906.             unset($this->mDpUsers[$del_user][_DPUSER_OBJECT]);
  907.             unset($this->mDpUsers[$del_user]);
  908.         }
  909.         if (isset($del_env)) {
  910.             unset($this->mEnvironments[$del_env][0]);
  911.             unset($this->mEnvironments[$del_env]);
  912.         }
  913.         foreach ($del_envs as $del_env) {
  914.             unset($this->mEnvironments[$del_env][1]);
  915.             $this->mEnvironments[$del_env][0]->removeDpObject();
  916.         }
  917.         if (isset($del_obj)) {
  918.             unset($this->mDpObjects[$del_obj]);
  919.         }
  920.         if (isset($del_reset)) {
  921.             unset($this->mDpObjectResets[$del_reset]);
  922.         }
  923.         foreach ($del_timeouts as $del_timeout) {
  924.             unset($this->mTimeouts[$del_timeout][0]);
  925.             unset($this->mTimeouts[$del_timeout]);
  926.         }
  927.         foreach ($del_events as $event => $i) {
  928.             unset($this->mAlertEvents[$event][$i]);
  929.         }
  930.         unset($rTarget);
  931.     }
  932.  
  933.     /**
  934.      * Finds an object in the universe with the given unique id
  935.      *
  936.      * @param      string    $unique_id  the object's unique string id
  937.      * @return     mixed     Object reference if found, FALSE otherwise
  938.      */
  939.     function &findDpObject($unique_id)
  940.     {
  941.         $rval = FALSE;
  942.  
  943.         foreach ($this->mDpObjects as $i => &$ob) {
  944.             if ($unique_id === $ob->getUniqueId()) {
  945.                 return $ob;
  946.             }
  947.         }
  948.  
  949.         return $rval;
  950.     }
  951.  
  952.     /**
  953.      * Finds or makes an object in the universe with the given pathname
  954.      *
  955.      * If an object with the given pathname exists, a reference to that object
  956.      * is returned. Otherwise a new instance of the class found at $pathname
  957.      * is created and returned.
  958.      *
  959.      * The object can have a unique location, given with $pathname, or just be
  960.      * based on $pathname, with a sublocation handling multiple objects. For
  961.      * example, the URL in uour browser contains the following bit for the
  962.      * DutchPIPE "about" page: location=/page/about.php
  963.      *
  964.      * It is a unique page with a unique location. The manual however is not
  965.      * based on many unique locations, but just one object which spawns pages
  966.      * based on the sublocation given in the URL:
  967.      * location=/page/manual.php&sublocation=index.html
  968.      *
  969.      *
  970.      * @param      string    $pathname     a path within dpuniverse/
  971.      * @param      string    $sublocation  optional sublocation
  972.      * @return     object    Reference to instance of $pathname
  973.      * @see        newDpObject
  974.      */
  975.     function &getDpObject($pathname, $sublocation = FALSE)
  976.     {
  977.         if (!$pathname) {
  978.             $pathname = DPUNIVERSE_PAGE_PATH . 'index.php';
  979.         }
  980.  
  981.         if (FALSE === $sublocation) {
  982.             foreach ($this->mDpObjects as $i => &$ob) {
  983.                 if ($pathname === $ob->location) {
  984.                     //echo dp_text("getDpObject(): returning existing object with location %s, no sublocation\n",
  985.                     //    $pathname);
  986.                     return $ob;
  987.                 }
  988.             }
  989.         } else {
  990.             foreach ($this->mDpObjects as $i => &$ob) {
  991.                 if ($pathname === $ob->location
  992.                         && $sublocation === $ob->sublocation) {
  993.                     //echo dp_text("getDpObject(): returning existing object with location %s, sublocation %s\n",
  994.                     //    $pathname, $sublocation);
  995.                     return $ob;
  996.                 }
  997.             }
  998.         }
  999.  
  1000.         echo FALSE == $sublocation
  1001.             ? dp_text("getDpObject(): returning new object for location %s, no sublocation\n",
  1002.                 $pathname)
  1003.             : dp_text("getDpObject(): returning new object for location %s, sublocation %s\n",
  1004.                 $pathname, $sublocation);
  1005.         return $this->newDpObject($pathname, $sublocation);
  1006.     }
  1007.  
  1008.     /**
  1009.      * Gets the object reference to the environment of this object
  1010.      *
  1011.      * Don't call this method here, call it in objects in the universe instead,
  1012.      * for instance $user->getEnvironment().
  1013.      *
  1014.      * :WARNING: This method should normally only be called from DpObject.php.
  1015.      *
  1016.      * @access     private
  1017.      * @param      object    &$ob        object we want to know environment of
  1018.      * @return     mixed     object reference or FALSE for no environment
  1019.      */
  1020.     function &getEnvironment(&$ob)
  1021.     {
  1022.         $env = FALSE;
  1023.  
  1024.         foreach ($this->mEnvironments as &$pair) {
  1025.             if ($pair[0] === $ob) {
  1026.                 return $pair[1];
  1027.             }
  1028.         }
  1029.  
  1030.         return $env;
  1031.     }
  1032.  
  1033.     /**
  1034.      * Gets an array with object references to all objects in our inventory
  1035.      *
  1036.      * If this object contains no other objects, an empty array is returned.
  1037.      *
  1038.      * :WARNING: This method should normally only be called from DpObject.php.
  1039.      *
  1040.      * @access     private
  1041.      * @param      object    &$ob        object we want to know inventory of
  1042.      * @return     array     object references to objects in our inventory
  1043.      */
  1044.     function &getInventory(&$ob)
  1045.     {
  1046.         $inv = array();
  1047.  
  1048.         foreach ($this->mEnvironments as &$pair) {
  1049.             if ($pair[1] === $ob) {
  1050.                 $inv[] =& $pair[0];
  1051.             }
  1052.         }
  1053.  
  1054.         return $inv;
  1055.     }
  1056.  
  1057.     /**
  1058.      * Checks if an object is present
  1059.      *
  1060.      * Search in the inventory of an object, as specified in $where, for another
  1061.      * object, as specified in $what. If $what is a string the objects searched
  1062.      * are checked for returning TRUE on the call isId($what).
  1063.      *
  1064.      * :WARNING: This method should normally only be called from DpObject.php.
  1065.      *
  1066.      * @access      private
  1067.      * @param       string|object    $what   object to search for
  1068.      * @param       object          &$where object to search in
  1069.      * @return      object|boolean the found object or FALSE if not found
  1070.      * @see         DpObject::getEnvironment(), DpObject::getInventory()
  1071.      */
  1072.     function &isPresent($what, &$where)
  1073.     {
  1074.         $inv = $this->getInventory($where);
  1075.         $rval = FALSE;
  1076.         if (sizeof($inv)) {
  1077.             if (is_string($what) && dp_strlen($what = trim($what))) {
  1078.                 $what = dp_strtolower($what);
  1079.                 $nr = 1;
  1080.                 if (FALSE !== ($pos = dp_strrpos($what, ' '))) {
  1081.                     $nr = dp_substr($what, $pos + 1);
  1082.                     if (FALSE === is_whole_number($nr)) {
  1083.                         $nr = 1;
  1084.                     }
  1085.                     else {
  1086.                         $nr = (int)$nr;
  1087.                         $what = trim(dp_substr($what, 0, $pos));
  1088.                     }
  1089.                 }
  1090.                 foreach ($inv as &$ob) {
  1091.                     if ($ob->isId($what) && (0 === --$nr)) {
  1092.                         return $ob;
  1093.                     }
  1094.                 }
  1095.             }
  1096.             elseif (is_object($what)) {
  1097.                 foreach ($inv as &$ob) {
  1098.                     if ($ob === $what) {
  1099.                         return $ob;
  1100.                     }
  1101.                 }
  1102.             }
  1103.         }
  1104.  
  1105.         return $rval;
  1106.     }
  1107.  
  1108.     /**
  1109.      * Gets the current user connected to the server
  1110.      *
  1111.      * If a user page or AJAX request caused the current chain of execution that
  1112.      * caused this function to be called, that user object is returned.
  1113.      * Otherwise FALSE is returned. For example, if the chain of execution if
  1114.      * caused by a setTimeout, this will return FALSE.
  1115.      *
  1116.      * :WARNING: Use the function get_current_dpuser() instead of calling this
  1117.      * method.
  1118.      *
  1119.      * @access     private
  1120.      * @return     object    Reference to user object, FALSE for no current user
  1121.      */
  1122.     function &getCurrentDpUser()
  1123.     {
  1124.         $rval = !isset($this->mrCurrentDpUserRequest) ? FALSE
  1125.             : $this->mrCurrentDpUserRequest->getUser();
  1126.  
  1127.         return $rval;
  1128.     }
  1129.  
  1130.     /**
  1131.      * Finds the user with the given user name or id.
  1132.      *
  1133.      * @param       string   $userName  user name or id of player
  1134.      * @return      object|boolean     the found player or FALSE if not found
  1135.      */
  1136.     function &findUser($userName)
  1137.     {
  1138.         $rval = FALSE;
  1139.  
  1140.         foreach ($this->mDpUsers as &$u) {
  1141.             if ($u[_DPUSER_OBJECT]->isId($userName)) {
  1142.                 return $u[_DPUSER_OBJECT];
  1143.             }
  1144.         }
  1145.  
  1146.         return $rval;
  1147.     }
  1148.  
  1149.     /**
  1150.      * Gets an array with user object references of all users on this site
  1151.      *
  1152.      * @return     array     user object references of all users
  1153.      */
  1154.     function &getUsers()
  1155.     {
  1156.         $users = array();
  1157.  
  1158.         /*
  1159.          * :TODO: Since this will be used a lot, keep a seperate copy instead of
  1160.          * constructing this array each time
  1161.          */
  1162.         foreach ($this->mDpUsers as &$u) {
  1163.             $users[] =& $u[_DPUSER_OBJECT];
  1164.         }
  1165.  
  1166.         return $users;
  1167.     }
  1168.  
  1169.     /**
  1170.      * Gets the number of users on this site
  1171.      *
  1172.      * @return     int       number of users on this site
  1173.      */
  1174.     function getNrOfUsers()
  1175.     {
  1176.         return sizeof($this->mDpUsers);
  1177.     }
  1178.  
  1179.  
  1180.     /**
  1181.      * Calls a given method in an object after the given number of seconds
  1182.      *
  1183.      * Use this to perform delayed method calls in the given object. Note that
  1184.      * functions such as get_current_dpuser can be totally different when the
  1185.      * method is called. Also note that the actual delay is not exact science.
  1186.      *
  1187.      * :WARNING: This method should normally only be called from DpObject.php.
  1188.      *
  1189.      * @access     private
  1190.      * @param      object    &$ob        reference to object to call method in
  1191.      * @param      string    $method     name of method to call
  1192.      * @param      mixed     $arg1, $arg2, ...  optional arguments for method
  1193.      * @param      int d     $secs       delay in seconds
  1194.      */
  1195.     function setTimeout(&$ob, $method, $secs)
  1196.     {
  1197.         if (is_object($ob) && method_exists($ob, $method) && $secs > 0) {
  1198.             $timeout_info = array(&$ob, $method, time() + $secs);
  1199.             if (func_num_args() > 3) {
  1200.                 $args = func_get_args();
  1201.                 $tmp = array_slice($args, 3);
  1202.                 $timeout_info[] = $tmp;
  1203.             }
  1204.             $this->mTimeouts[] =& $timeout_info;
  1205.         }
  1206.     }
  1207.  
  1208.     /**
  1209.      * Gets an array with information about the universe
  1210.      *
  1211.      * The following array is returned:
  1212.      *
  1213.      * array(
  1214.      *     'memory_usage'       : <int Universe memory usage in bytes>
  1215.      *     'nr_of_objects'      : <int Number of objects in the universe>
  1216.      *     'nr_of_users'        : <int Number of users in the universe>
  1217.      *     'nr_of_environments' : <int Number of environments in the universe>
  1218.      *     'nr_of_timeouts'     : <int Number of "timeouts" in the universe>
  1219.      * );
  1220.      *
  1221.      * @return     array     universe information
  1222.      */
  1223.     function getUniverseInfo()
  1224.     {
  1225.         /*
  1226.         echo "Saving...\n";
  1227.         $serialized_universe = serialize($this);
  1228.         $fp = fopen('/tmp/serialized_universe', 'w');
  1229.         fwrite($fp, $serialized_universe);
  1230.         fclose($fp);
  1231.         */
  1232.         $arr = array(
  1233.             'memory_usage' => memory_get_usage(),
  1234.             'nr_of_objects' => sizeof($this->mDpObjects),
  1235.             'nr_of_users' => sizeof($this->mDpUsers),
  1236.             'nr_of_environments' => sizeof($this->mEnvironments),
  1237.             'nr_of_timeouts' => sizeof($this->mTimeouts));
  1238.  
  1239.         return $arr;
  1240.     }
  1241.  
  1242.     /**
  1243.      * Attempts to login the given user object of a guest as a registered user
  1244.      *
  1245.      * @param      object    &$user      user to validate
  1246.      * @return     boolean   TRUE for succesful login, FALSE otherwise
  1247.      */
  1248.     function validateExisting(&$user)
  1249.     {
  1250.         $this->mLastNewUserErrors = array();
  1251.         if (!isset($user->_GET['username'])
  1252.                 || 0 === dp_strlen($user->_GET['username'])) {
  1253.             $this->mLastNewUserErrors[] = '<li>'
  1254.                 . dp_text('No username was given') . '</li>';
  1255.         }
  1256.         if (0 === sizeof($this->mLastNewUserErrors)
  1257.                 && $user->_GET['username'] === $user->getTitle()) {
  1258.             $this->mLastNewUserErrors[] = '<li>'
  1259.                 . sprintf(dp_text('You are already logged in as %s'),
  1260.                 $user->getTitle()) . '</li>';
  1261.         } elseif (!isset($user->_GET['password'])
  1262.                 || 0 === dp_strlen($user->_GET['password'])) {
  1263.             $this->mLastNewUserErrors[] = '<li>'
  1264.                 . dp_text('No password was given') . '</li>';
  1265.         }
  1266.         if (0 === sizeof($this->mLastNewUserErrors)) {
  1267.             $username = dp_strtolower($user->_GET['username']);
  1268.             $result = dp_db_query('SELECT userUsername, userPassword, '
  1269.                 . 'userCookieId, userCookiePassword FROM Users WHERE '
  1270.                 . 'userUsernameLower=' . dp_db_quote($username, 'text'));
  1271.             if (FALSE === $result || !($row = dp_db_fetch_row($result))) {
  1272.                 $this->mLastNewUserErrors[] =
  1273.                     '<li>' . dp_text('That username doesn\'t exist') . '</li>';
  1274.             } else {
  1275.                 if ($row[1] !== $user->_GET['password']) {
  1276.                     $this->mLastNewUserErrors[] = '<li>'
  1277.                         . dp_text('Invalid password') . '</li>';
  1278.                 }
  1279.             }
  1280.             dp_db_free($result);
  1281.         }
  1282.  
  1283.         if (sizeof($this->mLastNewUserErrors)) {
  1284.             $user->tell('<window styleclass="dpwindow_error"><h1>'
  1285.                 . dp_text('Invalid login') . '</h1><br /><ul>'
  1286.                 . implode('', $this->mLastNewUserErrors) . '</ul></window>');
  1287.             return FALSE;
  1288.         }
  1289.  
  1290.         $username = $row[0];
  1291.         $cookie_id = $row[2];
  1292.         $cookie_pass = $row[3];
  1293.         $user->tell('<cookie>removeguest</cookie>');
  1294.         $user->_COOKIE[DPSERVER_COOKIE_NAME] = "$cookie_id;$cookie_pass";
  1295.         $user->tell('<cookie>' . $user->_COOKIE[DPSERVER_COOKIE_NAME]
  1296.             . '</cookie>');
  1297.         $user->_GET['username'] = $username;
  1298.         $user->addId($user->_GET['username']);
  1299.         $user->addId(dp_strtolower($user->_GET['username']));
  1300.         $user->setTitle(ucfirst($user->_GET['username']));
  1301.         $user->isRegistered = TRUE;
  1302.         if ($user === get_current_dpuser()) {
  1303.             $user->titleImgWidth = NULL;
  1304.             $user->titleImgHeight = NULL;
  1305.             $row = $this->mrCurrentDpUserRequest->findAndInitRegisteredDpUser(
  1306.                 $cookie_id, $cookie_pass);
  1307.             $this->mrCurrentDpUserRequest->initDpUser();
  1308.         }
  1309.  
  1310.         /* :TODO: Move admin flag to user table in db */
  1311.         if (in_array($user->_GET['username'],
  1312.                 explode('#', DPUNIVERSE_ADMINISTRATORS))) {
  1313.             $user->isAdmin = TRUE;
  1314.         }
  1315.         foreach ($this->mDpUsers as $user_nr => &$u) {
  1316.             if ($u[0] === $user) {
  1317.                 $this->mDpUsers[$user_nr][2] = $user->_GET['username'];
  1318.                 $this->mDpUsers[$user_nr][3] = $cookie_id;
  1319.                 $this->mDpUsers[$user_nr][4] = $cookie_pass;
  1320.                 $this->mDpUsers[$user_nr][5] = 1;
  1321.             }
  1322.         }
  1323.         $user->tell('<changeDpElement id="username">'
  1324.             . $user->_GET['username'] . '</changeDpElement>');
  1325.  
  1326.         $user->tell(array('abstract' => '<changeDpElement id="'
  1327.             . $user->getUniqueId() . '"><b>'
  1328.             . $user->getAppearance(1, FALSE) . '</b></changeDpElement>',
  1329.             'graphical' => '<changeDpElement id="'
  1330.             . $user->getUniqueId() . '"><b>'
  1331.             . $user->getAppearance(1, FALSE, $user, 'graphical')
  1332.             . '</b></changeDpElement>'));
  1333.         $user->tell('<changeDpElement id="loginlink"><a href="'
  1334.             . DPSERVER_CLIENT_URL . '?location=' . DPUNIVERSE_PAGE_PATH
  1335.             . 'login.php&amp;act=logout" style="padding-left: 4px">'
  1336.             . dp_text('Logout') . '</a></changeDpElement>');
  1337.         $user->getEnvironment()->tell(array(
  1338.             'abstract' => '<changeDpElement id="' . $user->getUniqueId() . '">'
  1339.             . $user->getAppearance(1, FALSE) . '</changeDpElement>',
  1340.             'graphical' => '<changeDpElement id="'
  1341.             . $user->getUniqueId() . '">'
  1342.             . $user->getAppearance(1, FALSE, $user, 'graphical')
  1343.             . '</changeDpElement>'), $user);
  1344.         $user->tell('<window><h1>' . dp_text('Welcome back') . '</h1><br />'
  1345.             . sprintf(dp_text('You are now logged in as: <b>%s</b>'),
  1346.             $user->getTitle()) . '</window>');
  1347.  
  1348.         return TRUE;
  1349.     }
  1350.  
  1351.     /**
  1352.      * Logs out a given registered user and turns the user into a guest
  1353.      *
  1354.      * @param      object    &$user      user to logout
  1355.      */
  1356.     function logoutUser(&$user)
  1357.     {
  1358.         $username = sprintf(dp_text('Guest#%d'), $this->getGuestCnt());
  1359.         $cookie_id = make_random_id();
  1360.         $cookie_pass = make_random_id();
  1361.         $oldtitle = $user->getTitle();
  1362.         $user->tell('<cookie>removeregistered</cookie>');
  1363.         $user->_COOKIE[DPSERVER_COOKIE_NAME] = "$cookie_id;$cookie_pass";
  1364.         $this->tellCurrentDpUserRequest("Set-Login: "
  1365.             . $user->_COOKIE[DPSERVER_COOKIE_NAME]);
  1366.         $user->_GET['username'] = $username;
  1367.         $user->removeId($oldtitle);
  1368.         $user->addId($username);
  1369.         $user->setTitle(ucfirst($username));
  1370.         if ($user->avatarCustom) {
  1371.             $user->avatarCustom = NULL;
  1372.             $user->titleImgWidth = NULL;
  1373.             $user->titleImgHeight = NULL;
  1374.             $user->avatarNr = $this->getRandAvatarNr();
  1375.             $user->titleImg = DPUNIVERSE_AVATAR_STD_URL . 'user'
  1376.                 . $user->avatarNr . '.gif';
  1377.             $user->body = '<img src="' . DPUNIVERSE_AVATAR_STD_URL
  1378.                 . 'user' . $user->avatarNr . '_body.gif" border="0" '
  1379.                 . 'alt="" align="left" style="margin-right: 15px" />'
  1380.                 . dp_text('A user.') . '<br />';
  1381.         }
  1382.         $user->isRegistered = FALSE;
  1383.         $user->isAdmin = FALSE;
  1384.         if ($user === get_current_dpuser()) {
  1385.             $this->mrCurrentDpUserRequest->setUsername($username);
  1386.         }
  1387.  
  1388.         foreach ($this->mDpUsers as $user_nr => &$u) {
  1389.             if ($u[0] === $user) {
  1390.                 $this->mDpUsers[$user_nr][2] = $username;
  1391.                 $this->mDpUsers[$user_nr][3] = $cookie_id;
  1392.                 $this->mDpUsers[$user_nr][4] = $cookie_pass;
  1393.                 $this->mDpUsers[$user_nr][5] = 0;
  1394.             }
  1395.         }
  1396.         $this->mrCurrentDpUserRequest->setHasMoved();
  1397.         $this->mNoDirectTell = TRUE;
  1398.         $user->tell('<window><h1>' . sprintf(dp_text('Logged out %s'),
  1399.             $oldtitle) . '</h1><br />' . dp_text('See you later!') . '<br />'
  1400.             . dp_text('You are now: <b>%s</b>', $user->getTitle())
  1401.             . '</b></window>');
  1402.         $this->mNoDirectTell = FALSE;
  1403.         $user->tell('<location>' . DPUNIVERSE_PAGE_PATH
  1404.             . 'login.php</location>');
  1405.  
  1406.         $user->getEnvironment()->tell(array(
  1407.             'abstract' => '<changeDpElement id="' . $user->getUniqueId() . '">'
  1408.             . $user->getAppearance(1, FALSE) . '</changeDpElement>',
  1409.             'graphical' => '<changeDpElement id="'
  1410.             . $user->getUniqueId() . '">'
  1411.             . $user->getAppearance(1, FALSE, $user, 'graphical')
  1412.             . '</changeDpElement>'), $user);
  1413.     }
  1414.  
  1415.     /**
  1416.      * Attempts the first step in registering a new user, throws CAPTCHA
  1417.      *
  1418.      * @param      object    &$user      user to register
  1419.      * @return     boolean   TRUE to continue to CAPTCHA, FALSE for errors
  1420.      */
  1421.     function validateNewUser(&$user)
  1422.     {
  1423.         if (FALSE === $this->validLoginInfo($user->_GET['username'],
  1424.                 $user->_GET['password'], $user->_GET['password2'])) {
  1425.             $user->tell('<window styleclass="dpwindow_error"><h1>'
  1426.                 . dp_text('Invalid registration') . '</h1><br />'
  1427.                 . dp_text('Please correct the following errors:') . '<ul>'
  1428.                 . implode('', $this->mLastNewUserErrors) . '</ul></window>');
  1429.             return FALSE;
  1430.         } else {
  1431.             if (!isset($user->_GET['givencode'])) {
  1432.                 if (FALSE === ($captcha_id = $this->getRandCaptcha())) {
  1433.                     return TRUE;
  1434.                 }
  1435.                 $user->tell('<window><form method="post" '
  1436.                     . 'onsubmit="send_captcha(' . $captcha_id
  1437.                     . '); return false"><div align="center">'
  1438.                     . '<img id="captchaimage" src="' . DPSERVER_CLIENT_DIR
  1439.                     . 'dpcaptcha.php?captcha_id='
  1440.                     . $captcha_id . '" border="0" alt="" /></div>'
  1441.                     . '<br clear="all" />'
  1442.                     . dp_text('To complete registration, please enter the code you see above:')
  1443.                     . '<br /><br /><div align="center" '
  1444.                     . 'style="margin-bottom: 5px"><input id="givencode" '
  1445.                     . 'type="text" size="6" maxlength="6" value="" /> '
  1446.                     . '<input type="submit" value="'
  1447.                     . dp_text('OK') . '" /></div><br />'
  1448.                     . dp_text('This system is used to filter software robots
  1449. from registrations submitted by individuals. If you are unable to validate the
  1450. above code, please <a href="mailto:registration@dutchpipe.org">mail us</a>
  1451. to complete registration.') . '</form></window>');
  1452.                 return FALSE;
  1453.             }
  1454.             return TRUE;
  1455.         }
  1456.     }
  1457.  
  1458.     /**
  1459.      * Attempts the second step in registering a new user, validates CAPTCHA
  1460.      *
  1461.      * @param      object    &$user      user to register
  1462.      */
  1463.     function validateCaptcha(&$user)
  1464.     {
  1465.         if (FALSE === $this->validateNewUser($user)) {
  1466.             return;
  1467.         }
  1468.         if (!isset($user->_GET['captcha_id'])
  1469.                 || !isset($user->_GET['givencode']) || FALSE ===
  1470.                 $this->validateCaptcha2($user->_GET['captcha_id'],
  1471.                 $user->_GET['givencode'])) {
  1472.             if (NULL === ($captcha_attempts = $user->captchaAttempts)
  1473.                     || $captcha_attempts < 2) {
  1474.                 $user->captchaAttempts = new_dp_property(
  1475.                     NULL === $captcha_attempts ? 1 : $captcha_attempts + 1);
  1476.                 return;
  1477.             }
  1478.             unset($user->captchaAttempts);
  1479.             $user->tell('<window styleclass="dpwindow_error"><h1>'
  1480.                 . dp_text('Failure validating code') . '</h1><br />'
  1481.                 . dp_text('Please try again.') . '</window>');
  1482.             return;
  1483.         }
  1484.         if ($next_id = dp_db_next_id('Users', 'userId')) {
  1485.             $username = $user->_GET['username'];
  1486.             $keys = $vals = array();
  1487.             $keys[] = 'userId';
  1488.             $vals[] = dp_db_quote($next_id);
  1489.             $keys[] = 'userUsername';
  1490.             $vals[] = dp_db_quote($user->_GET['username']);
  1491.             $keys[] = 'userUsernameLower';
  1492.             $vals[] = dp_db_quote(dp_strtolower($user->_GET['username']));
  1493.             $keys[] = 'userPassword';
  1494.             $vals[] = dp_db_quote($user->_GET['password']);
  1495.             $keys[] = 'userCookieId';
  1496.             $vals[] = dp_db_quote($cookie_id = make_random_id());
  1497.             $keys[] = 'userCookiePassword';
  1498.             $vals[] = dp_db_quote($cookie_pass = make_random_id());
  1499.             $keys = implode(',', $keys);
  1500.             $vals = implode(',', $vals);
  1501.  
  1502.             if (FALSE !==
  1503.                     dp_db_exec("INSERT INTO Users ($keys) VALUES ($vals)")) {
  1504.                 $user->tell('<cookie>removeguest</cookie>');
  1505.                 $user->_COOKIE[DPSERVER_COOKIE_NAME] =
  1506.                     "$cookie_id;$cookie_pass";
  1507.                 $user->tell('<cookie>' . $user->_COOKIE[DPSERVER_COOKIE_NAME]
  1508.                     . '</cookie>');
  1509.                 $user->addId($username);
  1510.                 $user->setTitle(ucfirst($username));
  1511.                 $user->isRegistered = TRUE;
  1512.                 $user->isAdmin = FALSE;
  1513.                 if ($user === get_current_dpuser()) {
  1514.                     $this->mrCurrentDpUserRequest->findAndInitRegisteredDpUser(
  1515.                         $cookie_id, $cookie_pass);
  1516.                 }
  1517.  
  1518.                 foreach ($this->mDpUsers as $user_nr => &$u) {
  1519.                     if ($u[0] === $user) {
  1520.                         $this->mDpUsers[$user_nr][2] = $username;
  1521.                         $this->mDpUsers[$user_nr][3] = $cookie_id;
  1522.                         $this->mDpUsers[$user_nr][4] = $cookie_pass;
  1523.                         $this->mDpUsers[$user_nr][5] = 1;
  1524.                     }
  1525.                 }
  1526.                 $user->tell('<changeDpElement id="username">' . $username
  1527.                     . '</changeDpElement>');
  1528.                 $user->tell(array('abstract' => '<changeDpElement id="'
  1529.                     . $user->getUniqueId() . '"><b>'
  1530.                     . $user->getAppearance(1, FALSE) . '</b></changeDpElement>',
  1531.                     'graphical' => '<changeDpElement id="'
  1532.                     . $user->getUniqueId() . '"><b>'
  1533.                     . $user->getAppearance(1, FALSE, $user, 'graphical')
  1534.                     . '</b></changeDpElement>'));
  1535.                 $user->tell('<changeDpElement id="loginlink"><a href="'
  1536.                     . DPSERVER_CLIENT_URL . '?location=' . DPUNIVERSE_PAGE_PATH
  1537.                     . 'login.php&amp;act=logout" style="padding-left: 4px">'
  1538.                     . dp_text('Logout') . '</a></changeDpElement>');
  1539.                 if ($env = $user->getEnvironment()) {
  1540.                     $env->tell(array('abstract' => '<changeDpElement id="'
  1541.                         . $user->getUniqueId() . '">'
  1542.                         . $user->getAppearance(1, FALSE) . '</changeDpElement>',
  1543.                         'graphical' => '<changeDpElement id="'
  1544.                         . $user->getUniqueId() . '">'
  1545.                         . $user->getAppearance(1, FALSE, $user, 'graphical')
  1546.                         . '</changeDpElement>'), $user);
  1547.                 }
  1548.                 $user->tell('<window><h1>'
  1549.                     . dp_text('Thank you for registering and welcome to DutchPIPE!')
  1550.                     . '</h1><br />' . sprintf(
  1551.                     dp_text('You are now logged in as: <b>%s</b>'), $username)
  1552.                     . '</window>');
  1553.                 return;
  1554.             }
  1555.         }
  1556.         $user->tell('<window>' .
  1557.             dp_text('There was a problem registering your new user. Registration failed.')
  1558.             . '</window>');
  1559.     }
  1560.  
  1561.     /**
  1562.      * Validates a given CAPTCHA code against the code in the database
  1563.      *
  1564.      * @param      string    $captchaId  Captcha id given by the validation form
  1565.      * @param      string    $captchaGivenCode  User input
  1566.      * @return     boolean   TRUE if the given code was valid, FALSE otherwise
  1567.      */
  1568.     function validateCaptcha2($captchaId, $captchaGivenCode)
  1569.     {
  1570.         $captchaId = addslashes($captchaId);
  1571.         $captchaGivenCode = addslashes($captchaGivenCode);
  1572.  
  1573.         $result = dp_db_query('SELECT captchaId FROM Captcha WHERE '
  1574.             . 'captchaId=' . dp_db_quote($captchaId, 'integer')
  1575.             . ' AND captchaFile=' . dp_db_quote($captchaGivenCode . '.gif'));
  1576.  
  1577.         $rval = $result && dp_db_num_rows($result);
  1578.         dp_db_free($result);
  1579.         return $rval;
  1580.     }
  1581.  
  1582.     /**
  1583.      * Is the given login info valid for a new user?
  1584.      *
  1585.      * In case of errors, fills array $this->mLastNewUserErrors with one or more
  1586.      * error strings.
  1587.      *
  1588.      * @param      string    $userName   given user name to check
  1589.      * @param      string    $password   given password
  1590.      * @param      string    $password2  given repeated pssword
  1591.      * @return     boolean   TRUE for valid login info, FALSE otherwise
  1592.      */
  1593.     private function validLoginInfo($userName, $password, $password2)
  1594.     {
  1595.         $this->mLastNewUserErrors = array();
  1596.  
  1597.         $len = dp_strlen($userName);
  1598.         if (0 === $len) {
  1599.             $this->mLastNewUserErrors[] = '<li>'
  1600.                 . dp_text('No username was given') . '</li>';
  1601.         } else {
  1602.             if ($len < DPUNIVERSE_MIN_USERNAME_LEN) {
  1603.                 $this->mLastNewUserErrors[] = '<li>' . sprintf(
  1604.                     dp_text('The username must be at least %d characters long'),
  1605.                     DPUNIVERSE_MIN_USERNAME_LEN) . '</li>';
  1606.             } elseif ($len > DPUNIVERSE_MAX_USERNAME_LEN) {
  1607.                 $this->mLastNewUserErrors[] = '<li>' . sprintf(
  1608.                     dp_text('The username must be at most %d characters long'),
  1609.                     DPUNIVERSE_MAX_USERNAME_LEN) . '</li>';
  1610.             }
  1611.  
  1612.             /*if (FALSE !== ($words = file(DUTCHPIPE_FORBIDDEN_USERNAMES_FILE))
  1613.                     && count($words)) {
  1614.                 foreach ($words as $word) {
  1615.                     if (FALSE !== dp_strpos($userName, $word)) {
  1616.                         $this->lastUsernameError[] = '<li>' .
  1617.                         dp_text('This username is not allowed, please try again.')
  1618.                         . '</li>';
  1619.                         break;
  1620.                     }
  1621.                 }
  1622.             }*/
  1623.  
  1624.             $lower_user_name = dp_strtolower($userName);
  1625.             if ($lower_user_name{0} < 'a' || $lower_user_name{0} > 'z') {
  1626.                 $this->mLastNewUserErrors[] = '<li>'
  1627.                      . dp_text('Illegal character in username at position 1 (usernames must start with a letter, digits or other characters are not allowed)')
  1628.                      . '</li>';
  1629.             }
  1630.             for ($i = 1; $i < $len; $i++) {
  1631.                 if (($lower_user_name{$i} < 'a' || $lower_user_name{$i} > 'z')
  1632.                         && ($lower_user_name{$i} < '0'
  1633.                         || $lower_user_name{$i} > '9')) {
  1634.                     $this->mLastNewUserErrors[] = '<li>' . sprintf(
  1635.                         dp_text('Illegal character in username at position %d (you can only use a-z and 0-9)'),
  1636.                         ($i + 1)) . '</li>';
  1637.                     break;
  1638.                 }
  1639.             }
  1640.  
  1641.             $result = dp_db_query('SELECT userId FROM Users WHERE '
  1642.                 . 'userUsernameLower=' . dp_db_quote(dp_strtolower($userName)));
  1643.             if ($result && dp_db_num_rows($result)) {
  1644.                 $this->mLastNewUserErrors[] = '<li>'
  1645.                     . dp_text('That username is already in use') . '</li>';
  1646.             }
  1647.             dp_db_free($result);
  1648.         }
  1649.  
  1650.         if (!isset($password) || !dp_strlen($password)) {
  1651.             $this->mLastNewUserErrors[] = '<li>'
  1652.                 . dp_text('No password was given') . '</li>';
  1653.         }
  1654.  
  1655.         if (0 === sizeof($this->mLastNewUserErrors)) {
  1656.             if (dp_strlen($password) < 6) {
  1657.                 $this->mLastNewUserErrors[] = '<li>'
  1658.                     . dp_text('Your password must be at least 6 characters long')
  1659.                     . '</li>';
  1660.             } elseif (dp_strlen($password) > 32) {
  1661.                 $this->mLastNewUserErrors[] = '<li>'
  1662.                     . dp_text('Your password must be at most 32 characters long')
  1663.                     . '</li>';
  1664.             } elseif (!dp_strlen($password2)) {
  1665.                 $this->mLastNewUserErrors[] = '<li>'
  1666.                     . dp_text('You didn\'t repeat your password') . '</li>';
  1667.             } elseif ($password !== $password2) {
  1668.                 $this->mLastNewUserErrors[] = '<li>'
  1669.                     . dp_text('The repeated password was different') . '</li>';
  1670.             }
  1671.         }
  1672.  
  1673.         return 0 === sizeof($this->mLastNewUserErrors);
  1674.     }
  1675.  
  1676.     /**
  1677.      * Gets a random avatar image number in order to give guests an avatar
  1678.      *
  1679.      * Checks the avatar image directory for images with the format:
  1680.      * public/avatar/user<number>.gif
  1681.      * for possible numbers.
  1682.      *
  1683.      * @return  int     random avatar image number
  1684.      * @see     getNrOfAvatars
  1685.      */
  1686.     function getRandAvatarNr()
  1687.     {
  1688.         $entries = $this->getNrOfAvatars();
  1689.         if (0 === $entries) {
  1690.             return 1;
  1691.         }
  1692.         return (mt_rand(51, 50 + $entries) - 50);
  1693.     }
  1694.  
  1695.     /**
  1696.      * Gets the available number of avatars images
  1697.      *
  1698.      * Searches the DPUNIVERSE_AVATAR_STD_PATH directory for files ending with
  1699.      * "_body.gif".
  1700.      *
  1701.      * @return  int     the number of available avatar images
  1702.      * @see     getRandAvatarNr
  1703.      */
  1704.     function getNrOfAvatars()
  1705.     {
  1706.         $entries = 0;
  1707.         $d = dir(DPUNIVERSE_AVATAR_STD_PATH);
  1708.             while (false !== ($entry = $d->read())) {
  1709.             if ($entry !== '.' && $entry !== '..' && dp_strlen($entry) > 13
  1710.                     && dp_substr($entry, -9) == '_body.gif') {
  1711.                 $entries++;
  1712.             }
  1713.         }
  1714.         return $entries;
  1715.     }
  1716.  
  1717.     /**
  1718.      * Sets the user been told anything this request
  1719.      *
  1720.      * @access     private
  1721.      */
  1722.     function setToldSomething()
  1723.     {
  1724.         $this->mrCurrentDpUserRequest->setToldSomething();;
  1725.     }
  1726.  
  1727.     /**
  1728.      * Has the user been told anything this request?
  1729.      *
  1730.      * @access     private
  1731.      * @return     boolean TRUE if user was told something, FALSE otherwise
  1732.      */
  1733.     function isToldSomething()
  1734.     {
  1735.         return $this->mrCurrentDpUserRequest->isToldSomething();
  1736.     }
  1737.  
  1738.     /**
  1739.      * Do not tell anything to the current http request?
  1740.      *
  1741.      * @access     private
  1742.      * @return     boolean TRUE for no telling, FALSE otherwise
  1743.      */
  1744.     function isNoDirectTell()
  1745.     {
  1746.         return $this->mNoDirectTell;
  1747.     }
  1748.  
  1749.     /**
  1750.      * Adds a user to the listener list of the given event
  1751.      *
  1752.      * @param      string    $event      Name of the event
  1753.      * @param      string    &$who       User listening to event
  1754.      */
  1755.     function addAlertEvent($event, &$who)
  1756.     {
  1757.         if (!isset($this->mAlertEvents[$event])) {
  1758.             $this->mAlertEvents[$event] = array();
  1759.         }
  1760.  
  1761.         if (FALSE === array_search($who, $this->mAlertEvents[$event], TRUE)) {
  1762.             $this->mAlertEvents[$event][] =& $who;
  1763.         }
  1764.     }
  1765.  
  1766.     /**
  1767.      * Removes a user from the listener list of the given event
  1768.      *
  1769.      * @param      string    $event      Name of the event
  1770.      * @param      string    &$who       User listening to event
  1771.      */
  1772.     function removeAlertEvent($event, &$who)
  1773.     {
  1774.         if (isset($this->mAlertEvents[$event]) && FALSE !==
  1775.             ($key = array_search($who, $this->mAlertEvents[$event], TRUE))) {
  1776.             unset($this->mAlertEvents[$event][$key]);
  1777.             if (0 === count($this->mAlertEvents[$event])) {
  1778.                 unset($this->mAlertEvents[$event]);
  1779.             }
  1780.         }
  1781.     }
  1782.  
  1783.     /**
  1784.      * Gets list of listening users to the given event
  1785.      *
  1786.      * @param      string    $event      Name of the event
  1787.      * @return     array     Users listening to event
  1788.      */
  1789.     function &getAlertEvent($event)
  1790.     {
  1791.         if (!isset($this->mAlertEvents[$event])) {
  1792.             $rval = FALSE;
  1793.         } else {
  1794.             /* Clean up event listeners list */
  1795.             foreach ($this->mAlertEvents[$event] as $key => &$who) {
  1796.                 if (!isset($who) || is_null($who) || $who->isRemoved) {
  1797.                     unset($this->mAlertEvents[$event][$key]);
  1798.                 }
  1799.             }
  1800.  
  1801.             $rval = $this->mAlertEvents[$event];
  1802.         }
  1803.  
  1804.         return $rval;
  1805.     }
  1806.  
  1807.     /**
  1808.      * Shows a line with memory and universe info
  1809.      */
  1810.     function showStatusMemoryGetUsage()
  1811.     {
  1812.         if (!function_exists('memory_get_usage')) {
  1813.             return;
  1814.         }
  1815.  
  1816.         $info = $this->getUniverseInfo();
  1817.  
  1818.         printf("Memory: %dKB  #Objects: %d  #Users: %d  #Environments: %d  "
  1819.             . "#Timeouts: %d\n",
  1820.             round($info['memory_usage'] / 1024),
  1821.             $info['nr_of_objects'],
  1822.             $info['nr_of_users'],
  1823.             $info['nr_of_environments'],
  1824.             $info['nr_of_timeouts']);
  1825.     }
  1826.  
  1827.     /**
  1828.      * Gets a list of all objects in this DutchPIPE universe
  1829.      *
  1830.      * @return     array     A list of all objects in this DutchPIPE universe
  1831.      * @see        DpUser::actionOblist()
  1832.      * @since      DutchPIPE 0.4.0
  1833.      */
  1834.     function getObjectList()
  1835.     {
  1836.         $rval = '<table border="0" cellspacing="2" cellpadding="2" '
  1837.             . 'class="dpoblist sortable"><thead><tr>'
  1838.             . '<th nowrap="nowrap" style="white-space: nowrap">'
  1839.                 . '<div style="float: left">' . dp_text('Unique Id')
  1840.             . '</div></th>'
  1841.             . '<th>' . dp_text('Title') . '</th>'
  1842.             . '<th>' . dp_text('Location') . '</th>'
  1843.             . '<th>' . dp_text('Environment') . '</th>'
  1844.             . '<th class="align_c">' . dp_text('User') . '</th>'
  1845.             . '<th class="align_c">' . dp_text('Adm') . '</th>'
  1846.             . '<th class="align_c">' . dp_text('NPC') . '</th>'
  1847.             . '<th class="align_c">' . dp_text('Page') . '</th>'
  1848.             . '<th>' . dp_text('Created') . '</th>'
  1849.             . '<th>' . dp_text('Reset') . '</th>'
  1850.             . '</tr></thead><tbody>';
  1851.         $checked = '<img src="' . DPUNIVERSE_IMAGE_URL . 'checked.gif'
  1852.             . '" width="7" height="7" border="0" alt="*" title="*" />';
  1853.  
  1854.         $ob_nr = 1;
  1855.         $ob_sz = count($this->mDpObjects);
  1856.         foreach ($this->mDpObjects as &$ob) {
  1857.             $rval .= '<tr>'
  1858.                 . '<td sorttable_customkey="' . $ob_nr . '">'
  1859.                     . $ob->uniqueId
  1860.                 . '</td>'
  1861.                 . '<td><div>' . ucfirst($ob->title) . '</div></td>'
  1862.                 . '<td><div>' . $ob->location . '</div></td>'
  1863.                 . '<td><div>'
  1864.                     . (!($env = $ob->getEnvironment()) ? '&nbsp;'
  1865.                     : '<a href="' . (!$env->isStandalone ? DPSERVER_CLIENT_URL
  1866.                     . '?location=' : '') . $env->location . '">'
  1867.                     . ucfirst($env->title)
  1868.                     . '</a>')
  1869.                 . '</div></td>'
  1870.                 . '<td class="align_c"' . (!$ob->isUser
  1871.                     ? ' sorttable_customkey="' . $ob_sz . '">&nbsp;'
  1872.                     : '">' . $checked)
  1873.                 . '</td>'
  1874.                 . '<td class="align_c"' . (!$ob->isAdmin
  1875.                     ? ' sorttable_customkey="' . $ob_sz . '">&nbsp;'
  1876.                     : '">' . $checked)
  1877.                 . '</td>'
  1878.                 . '<td class="align_c"' . (!$ob->isNpc
  1879.                     ? ' sorttable_customkey="' . $ob_sz . '">&nbsp;'
  1880.                     : '">' . $checked)
  1881.                 . '</td>'
  1882.                 . '<td class="align_c"' . (!$ob->isPage
  1883.                     ? ' sorttable_customkey="' . $ob_sz . '">&nbsp;'
  1884.                     : '">' . $checked)
  1885.                 . '</td>'
  1886.                 . '<td><div>'
  1887.                     . strftime('%d %b %H:%M', $ob->creationTime)
  1888.                 . '</div></td>'
  1889.                 . '<td><div>'
  1890.                     . strftime('%H:%M', $ob->resetTime)
  1891.                 . '</div></td>'
  1892.                 . '</tr>';
  1893.             $ob_nr++;
  1894.         }
  1895.  
  1896.         return $rval . '</tbody></table>';
  1897.     }
  1898. }
  1899. ?>
Documentation generated on Mon, 03 Sep 2007 22:20:58 +0200 by phpDocumentor 1.3.0RC6

Click me!
Guest#9427
 
 
 
  Go to Top
 
 
 Input Field OptionsClose Input Field Go to Top
 
Legal Notices | Copyright © 2006, 2007 Lennert Stock. All rights reserved. Last update: Mon Sep 03 2007, 21:50 CET.