inc/libs/refback_functions.php

   1 <?php
   2 /************************************************************************
   3  * Mailer v0.2.1-FINAL                                Start: 09/28/2008 *
   4  * ===================                          Last change: 09/28/2008 *
   5  *                                                                      *
   6  * -------------------------------------------------------------------- *
   7  * File              : refback_functions.php                            *
   8  * -------------------------------------------------------------------- *
   9  * Short description : Functions for refback extension                  *
  10  * -------------------------------------------------------------------- *
  11  * Kurzbeschreibung  : Funktionen fuer Refback-Erweiterung              *
  12  * -------------------------------------------------------------------- *
  13  * $Revision::                                                        $ *
  14  * $Date::                                                            $ *
  15  * $Tag:: 0.2.1-FINAL                                                 $ *
  16  * $Author::                                                          $ *
  17  * Needs to be in all Files and every File needs "svn propset           *
  18  * svn:keywords Date Revision" (autoprobset!) at least!!!!!!            *
  19  * -------------------------------------------------------------------- *
  20  * Copyright (c) 2003 - 2009 by Roland Haeder                           *
  21  * Copyright (c) 2009, 2010 by Mailer Developer Team                    *
  22  * For more information visit: http://www.mxchange.org                  *
  23  *                                                                      *
  24  * This program is free software; you can redistribute it and/or modify *
  25  * it under the terms of the GNU General Public License as published by *
  26  * the Free Software Foundation; either version 2 of the License, or    *
  27  * (at your option) any later version.                                  *
  28  *                                                                      *
  29  * This program is distributed in the hope that it will be useful,      *
  30  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
  31  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
  32  * GNU General Public License for more details.                         *
  33  *                                                                      *
  34  * You should have received a copy of the GNU General Public License    *
  35  * along with this program; if not, write to the Free Software          *
  36  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
  37  * MA  02110-1301  USA                                                  *
  38  ************************************************************************/
  39
  40 // Some security stuff...
  41 if (!defined('__SECURITY')) {
  42         die();
  43 }
  44
  45 // Payback refback for refid and reduce it for current user
  46 function addRefbackPoints ($userid, $ref, $points, $ref_points) {
  47         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
  48         // Back ref depths
  49         $GLOBALS['refback_depth'][$userid][$ref] = $GLOBALS['ref_level'];
  50
  51         // Init points
  52         $return = $points;
  53
  54         // Get all ref levels
  55         $result_refs = SQL_QUERY('SELECT `level`, `percents` FROM `{?_MYSQL_PREFIX?}_refdepths` WHERE `level` > 0 ORDER BY `level` ASC',
  56                 __FUNCTION__, __LINE__);
  57
  58         // "Walk" through all level
  59         while ($content = SQL_FETCHARRAY($result_refs)) {
  60                 // Reset ref depths
  61                 // @TODO Try to rewrite the following unset()
  62                 unset($GLOBALS['ref_level']);
  63
  64                 // "Walk" through all refids
  65                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},ref={$ref},level={$content['level']},points={$points}<br />");
  66                 foreach (getArrayFromRefbackLevel($userid, $content['level']) as $refid) {
  67                         // Skip level zero or if both are the same
  68                         if ($userid == $refid) continue;
  69
  70                         // Get refback percents
  71                         $percents = getRefbackPercents($userid, $refid);
  72                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},ref={$ref},refid={$refid},points={$points},percents={$percents}<br />");
  73
  74                         // Some percents given?
  75                         if ($percents > 0) {
  76                                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):points={$points},perc={$content['percents']},percents={$percents},level={$content['level']}<br />");
  77                                 // Calculate points for refback
  78                                 $refback = $points * ($content['percents'] / 100) * ($percents / 100);
  79
  80                                 // Update refback table ('refid' and 'userid' must be exchanged!)
  81                                 SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_user_refs` SET `points`=`points`+%s WHERE `userid`=%s AND `refid`=%s LIMIT 1",
  82                                         array($refback, $refid, $userid), __FUNCTION__, __LINE__);
  83                                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):refback={$refback},userid={$userid},refid={$refid} - UPDATE! (".SQL_AFFECTEDROWS().")<br />");
  84
  85                                 // Add points again, but only directly
  86                                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):refback={$refback}<br />");
  87                                 addPointsDirectly(sprintf("refback:%s", $refid), $userid, $refback);
  88
  89                                 // Reduce points if refid is found
  90                                 if ($refid == $ref) {
  91                                         // Reduce points here!
  92                                         $return = $points * ($content['percents'] / 100) - $refback;
  93                                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):points={$return} - REDUCED<br />");
  94                                 } // END - if
  95                         } // END - if
  96                 } // END foreach
  97         } // END - while
  98
  99         // Free result
 100         SQL_FREERESULT($result_refs);
 101
 102         // Restore ref depth
 103         $GLOBALS['ref_level'] = $GLOBALS['refback_depth'][$userid][$ref];
 104
 105         // Return them
 106         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 107         return $return;
 108 }
 109
 110 // "Getter" for refback percents
 111 function getRefbackPercents ($userid, $ref) {
 112         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 113         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},ref={$ref}<br />");
 114         // Skip identical ids
 115         if ($userid == $ref) return 0;
 116
 117         // Is it cached?
 118         if (!isset($GLOBALS['refback_percents'][$userid][$ref])) {
 119                 // Default is zero
 120                 $GLOBALS['refback_percents'][$userid][$ref] = '0';
 121
 122                 // Get percents from database
 123                 $result = SQL_QUERY_ESC("SELECT `refback` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `refid`=%s LIMIT 1",
 124                         array($ref, $userid), __FUNCTION__, __LINE__);
 125
 126                 // Entry found? (Should be!)
 127                 if (SQL_NUMROWS($result) == 1) {
 128                         // Fetch percents
 129                         list($GLOBALS['refback_percents'][$userid][$ref]) = SQL_FETCHROW($result);
 130                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):percents=".$GLOBALS['refback_percents'][$userid][$ref]."<br />");
 131                 } else {
 132                         // Debug log
 133                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>): NO ENTRY FOUND! :-(<br />");
 134                         logDebugMessage(__FUNCTION__, __LINE__, 'userid=' . $userid . ',ref=' . $ref . ' - No entry found! :-(');
 135                 }
 136
 137                 // Free result
 138                 SQL_FREERESULT($result);
 139         } // END - if
 140
 141         // Return percents
 142         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 143         return $GLOBALS['refback_percents'][$userid][$ref];
 144 }
 145
 146 // "Getter" for userid array which will return only one entry
 147 function getArrayFromRefbackLevel ($refid, $level) {
 148         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 149         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):refid={$refid},level={$level}<br />");
 150         // Init userids
 151         $userIds = array();
 152
 153         // Look for all
 154         $result = SQL_QUERY_ESC("SELECT
 155         `userid`
 156 FROM
 157         `{?_MYSQL_PREFIX?}_user_refs`
 158 WHERE
 159         `refid`=%s AND `level`=%s
 160 ORDER BY
 161         `userid` ASC",
 162                 array($refid, $level), __FUNCTION__, __LINE__);
 163
 164         // Entries found?
 165         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):numRows=".SQL_NUMROWS($result)."<br />");
 166         if (!SQL_HASZERONUMS($result)) {
 167                 // Add all
 168                 while ($content = SQL_FETCHARRAY($result)) {
 169                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):refid={$refid},level={$level},userid={$content['userid']}<br />");
 170                         $userIds[] = $content['userid'];
 171                 } // END - while
 172         } // END - if
 173
 174         // Free result
 175         SQL_FREERESULT($result);
 176
 177         // Return array
 178         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):refid={$refid},count()=".count($userIds)."<br />");
 179         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 180         return $userIds;
 181 }
 182
 183 // Update "refback table"
 184 function updateRefbackTable ($userid) {
 185         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 186         // Make it sure referal level zero (member him-/herself) is at least selected
 187         if (empty($GLOBALS['refback_level'])) $GLOBALS['refback_level'] = 1;
 188         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level={$GLOBALS['refback_level']}<br />");
 189
 190         // Init refid
 191         $GLOBALS['refback_refid'][$GLOBALS['refback_level']] = '0';
 192         $old = '0'; $minus = '0';
 193
 194         // Check for his referal
 195         $result_refid = SQL_QUERY_ESC("SELECT `userid` FROM `{?_MYSQL_PREFIX?}_user_data` WHERE `refid`=%s ORDER BY `userid` ASC",
 196                 array(bigintval($userid)), __FUNCTION__, __LINE__);
 197
 198         // When no entry was updated then we have to create it here
 199         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):found=".SQL_NUMROWS($result_refid)."<br />");
 200         if (SQL_NUMROWS($result_refid) > 0) {
 201                 // Load all refids
 202                 while (list($GLOBALS['refback_refid'][$GLOBALS['refback_level']]) = SQL_FETCHROW($result_refid)) {
 203                         // Remmber userid
 204                         $GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']]] = $userid;
 205
 206                         // Refid set?
 207                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]}<br />");
 208                         if (($GLOBALS['refback_refid'][$GLOBALS['refback_level']] > 0) && ($GLOBALS['refback_refid'][$GLOBALS['refback_level']] != $userid) && (isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']]))) {
 209                                 // New userid?
 210                                 if ((isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']-1])) && (isset($GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]]))) {
 211                                         // New userid!
 212                                         $old = $userid;
 213                                         $userid = $GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]];
 214                                         $minus = 1;
 215                                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},old={$old},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - NEW UID!<br />");
 216                                 } // END - if
 217
 218                                 // Check existence
 219                                 $result = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `level`='%s' AND `refid`=%s LIMIT 1",
 220                                         array(bigintval($userid), $GLOBALS['refback_level'], bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
 221
 222                                 // Do we have no entry?
 223                                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]},minus={$minus},numRows=".SQL_NUMROWS($result)." - FOUND!<br />");
 224                                 if (SQL_HASZERONUMS($result)) {
 225                                         // Insert this level
 226                                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - ADD!<br />");
 227                                         SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_refs` (`userid`,`level`,`refid`) VALUES (%s,%s,%s)",
 228                                                 array(bigintval($userid), $GLOBALS['refback_level'], bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
 229
 230                                         // Move to next referal level and count his counter one up!
 231                                         $GLOBALS['refback_level']++;
 232                                         updateRefbackTable($GLOBALS['refback_refid'][($GLOBALS['refback_level'] - 1)]);
 233                                 } // END - if
 234
 235                                 // Do we have another level here?
 236                                 if ((($GLOBALS['refback_level']-$minus) > 0) && ($old > 0)) {
 237                                         // Restore old one
 238                                         $userid = $old;
 239
 240                                         // Shall we add this as well?
 241                                         $result = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `level`='%s' AND `refid`=%s LIMIT 1",
 242                                                 array(bigintval($userid), ($GLOBALS['refback_level']-$minus), bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
 243
 244                                         // Do we have no entry?
 245                                         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level=".($GLOBALS['refback_level']-$minus).",ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]},numRows=".SQL_NUMROWS($result)." - BACK!<br />");
 246                                         if (SQL_HASZERONUMS($result)) {
 247                                                 // Insert this level
 248                                                 SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_refs` (`userid`,`level`,`refid`) VALUES (%s,%s,%s)",
 249                                                         array(bigintval($userid), ($GLOBALS['refback_level']-$minus), bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
 250                                                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level=".($GLOBALS['refback_level']-$minus).",ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - RETURNED!<br />");
 251                                         } // END - if
 252                                 } // END - if
 253                         } // END - if
 254                 } // END - while
 255
 256                 // Free memory
 257                 SQL_FREERESULT($result_refid);
 258         } // END - if
 259
 260         // When he has a referal...
 261         if ((($GLOBALS['refback_refid'][$GLOBALS['refback_level']] == $userid) || ($GLOBALS['refback_refid'][$GLOBALS['refback_level']] == '0')) && (isExtensionInstalledAndNewer('cache', '0.1.2')) && (!isset($GLOBALS['refback_cached']))) {
 262                 // Remove cache here
 263                 //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - CACHE!<br />");
 264                 if ($GLOBALS['cache_instance']->loadCacheFile('refback')) $GLOBALS['cache_instance']->removeCacheFile();
 265                 $GLOBALS['refback_cached'] = 1;
 266         } // END - if
 267
 268         // "Walk" back here
 269         $GLOBALS['refback_level']--;
 270         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level={$GLOBALS['refback_level']} - LEVEL!<br />");
 271
 272         // Fix empty refid
 273         if (!isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']-1])) $GLOBALS['refback_refid'][$GLOBALS['refback_level']-1] = '0';
 274         //* DEBUG: */ print(__FUNCTION__ . '(<font color="#0000aa">' . __LINE__."</font>):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]} - BACK!<br />");
 275         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 276 }
 277
 278 // "Getter" for array for user refs in given level
 279 function getArrayFromRefbackUserRefs ($userid, $level) {
 280         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 281         // Default is no refs and no nickname
 282         $add = '';
 283         $refs = array();
 284
 285         // Do we have nickname extension installed?
 286         if (isExtensionActive('nickname')) {
 287                 $add = ", d.nickname";
 288         } // END - if
 289
 290         // Get refs from database
 291         $result = SQL_QUERY_ESC("SELECT
 292         r.id,
 293         r.refid,
 294         r.refback,
 295         r.points,
 296         d.status".$add.",
 297         d.joined,
 298         d.refid AS level_refid
 299 FROM
 300         `{?_MYSQL_PREFIX?}_user_refs` AS r
 301 LEFT JOIN
 302         `{?_MYSQL_PREFIX?}_user_data` AS d
 303 ON
 304         r.refid=d.userid
 305 WHERE
 306         r.userid=%s AND r.level=%s
 307 ORDER BY
 308         r.refid ASC",
 309                 array(bigintval($userid), bigintval($level)), __FUNCTION__, __LINE__);
 310
 311         // Are there some entries?
 312         if (!SQL_HASZERONUMS($result)) {
 313                 // Fetch all entries
 314                 while ($row = SQL_FETCHARRAY($result)) {
 315                         // Add row
 316                         $refs[$row['id']] = $row;
 317                 } // END - while
 318         } // END - if
 319
 320         // Free result
 321         SQL_FREERESULT($result);
 322
 323         // Return result
 324         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 325         return $refs;
 326 }
 327
 328 // "Getter" for refback entry
 329 function getArrayFromUserRefbackData ($id) {
 330         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 331         // Default data is nothing
 332         $data = array();
 333
 334         // Secure id number
 335         $id = bigintval($id);
 336
 337         // Get entry from database
 338         $result = SQL_QUERY_ESC("SELECT `id`, `userid`, `refid`, `refback`, `level`, `points` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `id`=%s AND `userid`=%s LIMIT 1",
 339                 array($id, getMemberId()), __FUNCTION__, __LINE__);
 340
 341         // Is there an entry?
 342         if (SQL_NUMROWS($result) == 1) {
 343                 // Fetch data
 344                 $data = SQL_FETCHARRAY($result);
 345         } // END - if
 346
 347         // Free result
 348         SQL_FREERESULT($result);
 349
 350         // Return entry
 351         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 352         return $data;
 353 }
 354
 355 // Update refback percents (but with some sanity-checks!
 356 function updateMemberRefbackPercents ($id, $percents) {
 357         //* DEBUG: */ print("----------------------- <font color=\"#00aa00\">".__FUNCTION__." - ENTRY</font> ------------------------<ul><li>\n");
 358         // Default status is failed
 359         $status['message'] = '{--MEMBER_REFBACK_ERROR_GENERAL--}';
 360
 361         // Do some sanity-checks
 362         if (!isMember()) {
 363                 // No member!
 364                 $status['message'] = '{--MEMBER_REFBACK_ERROR_NO_MEMBER--}';
 365                 return $status;
 366         } elseif (''.$id.'' != ''.($id + 0).'') {
 367                 // No number!
 368                 $status['message'] = '{--MEMBER_REFBACK_ERROR_INVALID_ID_NUMBER--}';
 369                 return $status;
 370         } elseif (($percents < 0) || ($percents > 100)) {
 371                 // Percentage is not valid!
 372                 $status['message'] = '{--MEMBER_REFBACK_ERROR_INVALID_PERCENTAGE--}';
 373                 return $status;
 374         }
 375
 376         // Get ref entry
 377         $dummy = getArrayFromUserRefbackData($id);
 378
 379         // Is this valid?
 380         if (count($dummy) == 0) {
 381                 // id does not belong to user!
 382                 $status['message'] = '{--MEMBER_REFBACK_ERROR_ID_MISMATCH--}';
 383                 return $status;
 384         } // END - if
 385
 386         // Revert german commata
 387         $percents = convertCommaToDot($percents);
 388
 389         // Update entry
 390         SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_user_refs` SET `refback`='%s' WHERE `id`=%s AND `userid`=%s LIMIT 1",
 391                 array($percents, $id, getMemberId()), __FUNCTION__, __LINE__);
 392
 393         // Entry updated?
 394         if (SQL_AFFECTEDROWS() < 1) {
 395                 // Entry not updated!
 396                 $status['message'] = '{--MEMBER_REFBACK_ERROR_NOT_UPDATED--}';
 397                 return $status;
 398         } // END - if
 399
 400         // Prepare email content
 401         $dummy['percents'] = $percents;
 402
 403         // Load member email template
 404         $mail = loadEmailTemplate('member_refback', $dummy, $dummy['refid']);
 405
 406         // Send email to user
 407         sendEmail($dummy['refid'], '{--MEMBER_REFBACK_SUBJECT--}', $mail);
 408
 409         // Send admin notification
 410         sendAdminNotification('{--ADMIN_REFBACK_SUBJECT--}', 'admin_refback', $dummy, getMemberId());
 411
 412         // All fine!
 413         $status['ok'] = true;
 414
 415         // Return status array
 416         //* DEBUG: */ print("</li></ul>----------------------- <font color=\"#aa0000\">".__FUNCTION__." - EXIT</font> ------------------------<br />");
 417         return $status;
 418 }
 419
 420 // [EOF]
 421 ?>