Last references to now replaced with mergeConfig()
[mailer.git] / inc / functions.php
index e25fce111139915ff13934aeaf5e26894a8bb0f5..591a56c702a432cd908f76714cba97d5b76506a2 100644 (file)
@@ -40,7 +40,7 @@ if (!defined('__SECURITY')) {
 // Check if our config file is writeable or not
 function IS_INC_WRITEABLE($inc) {
        // Generate FQFN
-       $fqfn = sprintf("%sinc/%s.php", PATH, $inc);
+       $fqfn = sprintf("%sinc/%s.php", constant('PATH'), $inc);
 
        // Abort by simple test
        if ((FILE_READABLE($fqfn)) && (!is_writeable($fqfn))) {
@@ -59,103 +59,63 @@ function IS_INC_WRITEABLE($inc) {
        }
 }
 
-// Open a table (you may want to add some header stuff here)
-// @DEPRECATED
-function OPEN_TABLE ($PERCENT = "", $CLASS = "", $ALIGN="left", $VALIGN="", $td_only=false) {
-       global $table_cnt;
-
-       // Count tables so we can generate CSS classes for every table... :-)
-       if (empty($CLASS)) {
-               // Class is empty so count one up and create a class
-               $table_cnt++; $CLASS = "class".$table_cnt;
-       }
-       $OUT = "<TABLE border=\"0\" cellspacing=\"0\" cellpadding=\"0\"";
-
-       // Shall I add the classes to TABLE and TD or only to TD?
-       if (!$td_only) $OUT .= " class=\"".$CLASS."\"";
-
-       // Width is given
-       if (!empty($PERCENT)) $OUT .= " width=\"".$PERCENT."\"";
-
-       // Horizonal align
-       if (!empty($ALIGN)) $OUT .=" align=\"".$ALIGN."\"";
-
-       // Vertical align is given
-       if (!empty($VALIGN))  $OUT .= " valign=\"".$VALIGN."\"";
-       $OUT .= ">\n<TR>\n<TD";
-       if (!empty($ALIGN)) $OUT .=" align=\"".$ALIGN."\"";
-       $OUT .= " class=\"".$CLASS."\">";
-       OUTPUT_HTML($OUT);
-}
-
-// Close a table (you may want to add some footer stuff here)
-// @DEPRECATED
-function CLOSE_TABLE( $ADD="") {
-       OUTPUT_HTML("  </TD>\n</TR>");
-       if (!empty($ADD)) OUTPUT_HTML($ADD);
-       OUTPUT_HTML("</TABLE>");
-}
-
 // Output HTML code directly or "render" it. You addionally switch the new-line character off
-function OUTPUT_HTML ($HTML, $NEW_LINE = true) {
+function OUTPUT_HTML ($HTML, $newLine = true) {
        // Some global variables
        global $OUTPUT, $footer, $CSS;
 
        // Do we have HTML-Code here?
        if (!empty($HTML)) {
                // Yes, so we handle it as you have configured
-               switch (OUTPUT_MODE)
+               switch (constant('OUTPUT_MODE'))
                {
                case "render":
                        // That's why you don't need any \n at the end of your HTML code... :-)
-                       if (_OB_CACHING == "on") {
+                       if (constant('_OB_CACHING') == "on") {
                                // Output into PHP's internal buffer
                                OUTPUT_RAW($HTML);
 
                                // That's why you don't need any \n at the end of your HTML code... :-)
-                               if ($NEW_LINE) echo "\n";
+                               if ($newLine) echo "\n";
                        } else {
                                // Render mode for old or lame servers...
                                $OUTPUT .= $HTML;
 
                                // That's why you don't need any \n at the end of your HTML code... :-)
-                               if ($NEW_LINE) $OUTPUT .= "\n";
+                               if ($newLine) $OUTPUT .= "\n";
                        }
                        break;
 
                case "direct":
                        // If we are switching from render to direct output rendered code
-                       if ((!empty($OUTPUT)) && (_OB_CACHING != "on")) { OUTPUT_RAW($OUTPUT); $OUTPUT = ""; }
+                       if ((!empty($OUTPUT)) && (constant('_OB_CACHING') != "on")) { OUTPUT_RAW($OUTPUT); $OUTPUT = ""; }
 
                        // The same as above... ^
                        OUTPUT_RAW($HTML);
-                       if ($NEW_LINE) echo "\n";
+                       if ($newLine) echo "\n";
                        break;
 
                default:
                        // Huh, something goes wrong or maybe you have edited config.php ???
-                       DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("Invalid renderer %s detected.", OUTPUT_MODE));
-                       MXCHANGE_DIE("<strong>".FATAL_ERROR.":</strong> ".LANG_NO_RENDER_DIRECT);
+                       DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("Invalid renderer %s detected.", constant('OUTPUT_MODE')));
+                       mxchange_die("<strong>{--FATAL_ERROR--}:</strong> {--LANG_NO_RENDER_DIRECT--}");
                        break;
                }
-       } elseif ((_OB_CACHING == "on") && ($footer == 1)) {
+       } elseif ((constant('_OB_CACHING') == "on") && ($footer == 1)) {
                // Headers already sent?
                if (headers_sent()) {
                        // Log this error
                        DEBUG_LOG(__FUNCTION__, __LINE__, "Headers already sent! We need debug backtrace here.");
 
-                       // Output debug trace
-                       print("<stron>Headers are already sent!</strong><br />\n");
-                       print("Please report this error at <a href=\"http://bugs.mxchange.org\" rel=\"external\" target=\"_blank\">bugs.mxchange.org</a>:<pre>");
-                       debug_print_backtrace();
-                       die("</pre>Thank you for your help finding bugs.");
+                       // Trigger an user error
+                       debug_report_bug("Headers are already sent!");
                } // END - if
 
                // Output cached HTML code
                $OUTPUT = ob_get_contents();
 
                // Clear output buffer for later output
-               ob_end_clean();
+               clearOutputBuffer();
 
                // Send HTTP header
                header("HTTP/1.1 200");
@@ -171,7 +131,7 @@ function OUTPUT_HTML ($HTML, $NEW_LINE = true) {
                header("Connection: Close");
 
                // Extension "rewrite" installed?
-               if ((EXT_IS_ACTIVE("rewrite")) && (function_exists('REWRITE_LINKS')) && ($CSS != "1") && ($CSS != "-1")) {
+               if ((EXT_IS_ACTIVE("rewrite")) && ($CSS != "1") && ($CSS != "-1")) {
                        $OUTPUT = REWRITE_LINKS($OUTPUT);
                } // END - if
 
@@ -185,16 +145,16 @@ function OUTPUT_HTML ($HTML, $NEW_LINE = true) {
                        // Was that eval okay?
                        if (empty($newContent)) {
                                // Something went wrong!
-                               die("Evaluation error:<pre>".htmlentities($eval)."</pre>");
+                               mxchange_die("Evaluation error:<pre>".htmlentities($eval)."</pre>");
                        } // END - if
                        $OUTPUT = $newContent;
                } // END - while
 
                // Output code here, DO NOT REMOVE! ;-)
                OUTPUT_RAW($OUTPUT);
-       } elseif ((OUTPUT_MODE == "render") && (!empty($OUTPUT))) {
+       } elseif ((constant('OUTPUT_MODE') == "render") && (!empty($OUTPUT))) {
                // Rewrite links when rewrite extension is active
-               if ((EXT_IS_ACTIVE("rewrite")) && (function_exists('REWRITE_LINKS')) && ($CSS != "1") && ($CSS != "-1")) {
+               if ((EXT_IS_ACTIVE("rewrite")) && ($CSS != "1") && ($CSS != "-1")) {
                        $OUTPUT = REWRITE_LINKS($OUTPUT);
                } // END - if
 
@@ -214,8 +174,8 @@ function OUTPUT_RAW ($HTML) {
        // Output stripped HTML code to avoid broken JavaScript code, etc.
        echo stripslashes(stripslashes($HTML));
 
-       // Flush the output if only _OB_CACHING is not "on"
-       if (_OB_CACHING != "on") {
+       // Flush the output if only constant('_OB_CACHING') is not "on"
+       if (constant('_OB_CACHING') != "on") {
                // Flush it
                flush();
        } // END - if
@@ -225,21 +185,23 @@ function OUTPUT_RAW ($HTML) {
 function addFatalMessage ($message, $extra="") {
        global $FATAL;
 
-       if (empty($extra)) {
-               // Regular text message to add to $FATAL
-               $FATAL[] = $message;
-       } else {
+       if (is_array($extra)) {
+               // Multiple extras for a message with masks
+               $message = call_user_func_array('sprintf', $extra);
+       } elseif (!empty($extra)) {
                // $message is text with a mask plus extras to insert into the text
                $message = sprintf($message, $extra);
-               $FATAL[] = $message;
        }
 
+       // Add message to $FATAL
+       $FATAL[] = $message;
+
        // Log fatal messages away
        DEBUG_LOG(__FUNCTION__, __LINE__, " message={$message}");
 }
 
 // Getter for total fatal message count
-function getTotalFatalMessages () {
+function getTotalFatalErrors () {
        global $FATAL;
 
        // Init coun
@@ -278,7 +240,7 @@ function LOAD_TEMPLATE ($template, $return=false, $content=array()) {
        // @DEPRECATED Try to rewrite the if() condition
        if ($template == "member_support_form") {
                // Support request of a member
-               $result = SQL_QUERY_ESC("SELECT userid, gender, surname, family, email FROM `"._MYSQL_PREFIX."_user_data` WHERE userid=%s LIMIT 1",
+               $result = SQL_QUERY_ESC("SELECT userid, gender, surname, family, email FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
                        array($GLOBALS['userid']), __FILE__, __LINE__);
 
                // Is content an array?
@@ -305,7 +267,7 @@ function LOAD_TEMPLATE ($template, $return=false, $content=array()) {
        $date_time = MAKE_DATETIME(time(), "1");
 
        // Base directory
-       $BASE = sprintf("%stemplates/%s/html/", PATH, GET_LANGUAGE());
+       $BASE = sprintf("%stemplates/%s/html/", constant('PATH'), GET_LANGUAGE());
        $MODE = "";
 
        // Check for admin/guest/member templates
@@ -432,7 +394,7 @@ function SEND_EMAIL($TO, $SUBJECT, $MSG, $HTML = "N", $FROM = "") {
                        return;
                } else {
                        // Load email address
-                       $result_email = SQL_QUERY_ESC("SELECT email FROM `"._MYSQL_PREFIX."_user_data` WHERE userid=%s LIMIT 1", array(bigintval($TO)), __FILE__, __LINE__);
+                       $result_email = SQL_QUERY_ESC("SELECT email FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1", array(bigintval($TO)), __FILE__, __LINE__);
                        //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>):numRows=".SQL_NUMROWS($result_email)."<br />\n";
 
                        // Does the user exist?
@@ -441,7 +403,7 @@ function SEND_EMAIL($TO, $SUBJECT, $MSG, $HTML = "N", $FROM = "") {
                                list($TO) = SQL_FETCHROW($result_email);
                        } else {
                                // Set webmaster
-                               $TO = WEBMASTER;
+                               $TO = constant('WEBMASTER');
                        }
 
                        // Free result
@@ -449,7 +411,7 @@ function SEND_EMAIL($TO, $SUBJECT, $MSG, $HTML = "N", $FROM = "") {
                }
        } elseif ("$TO" == "0") {
                // Is the webmaster!
-               $TO = WEBMASTER;
+               $TO = constant('WEBMASTER');
        }
        //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>):TO={$TO}<br />\n";
 
@@ -499,7 +461,7 @@ Message : ".$MSG."
                SEND_RAW_EMAIL($TO, $SUBJECT, $MSG, $FROM);
        } elseif ($HTML == "N") {
                // Problem found!
-               SEND_RAW_EMAIL(WEBMASTER, "[PROBLEM:]".$SUBJECT, $MSG, $FROM);
+               SEND_RAW_EMAIL(constant('WEBMASTER'), "[PROBLEM:]".$SUBJECT, $MSG, $FROM);
        }
 }
 
@@ -516,25 +478,25 @@ function SEND_RAW_EMAIL ($to, $subject, $msg, $from) {
        // Shall we use PHPMailer class or legacy mode?
        if (CHECK_PHPMAILER_USAGE()) {
                // Use PHPMailer class with SMTP enabled
-               require_once(PATH."inc/phpmailer/class.phpmailer.php");
-               require_once(PATH."inc/phpmailer/class.smtp.php");
+               LOAD_INC_ONCE("inc/phpmailer/class.phpmailer.php");
+               LOAD_INC_ONCE("inc/phpmailer/class.smtp.php");
 
                // get new instance
                $mail = new PHPMailer();
-               $mail->PluginDir  = sprintf("%sinc/phpmailer/", PATH);
+               $mail->PluginDir  = sprintf("%sinc/phpmailer/", constant('PATH'));
 
                $mail->IsSMTP();
                $mail->SMTPAuth   = true;
-               $mail->Host       = SMTP_HOSTNAME;
+               $mail->Host       = constant('SMTP_HOSTNAME');
                $mail->Port       = 25;
-               $mail->Username   = SMTP_USER;
-               $mail->Password   = SMTP_PASSWORD;
+               $mail->Username   = constant('SMTP_USER');
+               $mail->Password   = constant('SMTP_PASSWORD');
                if (empty($from)) {
-                       $mail->From = WEBMASTER;
+                       $mail->From = constant('WEBMASTER');
                } else {
                        $mail->From = $from;
                }
-               $mail->FromName   = MAIN_TITLE;
+               $mail->FromName   = constant('MAIN_TITLE');
                $mail->Subject    = $subject;
                if ((EXT_IS_ACTIVE("html_mail")) && (strip_tags($msg) != $msg)) {
                        $mail->Body       = $msg;
@@ -545,9 +507,9 @@ function SEND_RAW_EMAIL ($to, $subject, $msg, $from) {
                        $mail->Body       = html_entity_decode($msg);
                }
                $mail->AddAddress($to, "");
-               $mail->AddReplyTo(WEBMASTER,MAIN_TITLE);
-               $mail->AddCustomHeader("Errors-To:".WEBMASTER);
-               $mail->AddCustomHeader("X-Loop:".WEBMASTER);
+               $mail->AddReplyTo(constant('WEBMASTER'), constant('MAIN_TITLE'));
+               $mail->AddCustomHeader("Errors-To:".constant('WEBMASTER'));
+               $mail->AddCustomHeader("X-Loop:".constant('WEBMASTER'));
                $mail->Send();
        } else {
                // Use legacy mail() command
@@ -564,9 +526,6 @@ function GEN_PASS ($LEN = 0) {
        // Initialize array with all allowed chars
        $ABC = explode(",", "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,-,+,_,/");
 
-       // Initialize randomizer
-       mt_srand((double) microtime() * 1000000);
-
        // Start creating password
        $PASS = "";
        for ($i = 0; $i < $LEN; $i++) {
@@ -623,10 +582,8 @@ function MAKE_DATETIME ($time, $mode="0")
 
 // Translates the american decimal dot into a german comma
 function TRANSLATE_COMMA ($dotted, $cut=true, $max=0) {
-       global $_CONFIG;
-
        // Default is 3 you can change this in admin area "Misc -> Misc Options"
-       if (getConfig('max_comma') == null) $_CONFIG['max_comma'] = "3";
+       if (!isConfigEntrySet('max_comma')) setConfigEntry('max_comma', "3");
 
        // Use from config is default
        $maxComma = getConfig('max_comma');
@@ -706,7 +663,7 @@ function SELECTION_COUNT($array) {
 }
 //
 function IMG_CODE ($code, $type, $DATA, $uid) {
-       return "<IMG border=\"0\" alt=\"Code\" src=\"".URL."/mailid_top.php?uid=".$uid."&amp;".$type."=".$DATA."&amp;mode=img&amp;code=".$code."\">";
+       return "<IMG border=\"0\" alt=\"Code\" src=\"{!URL!}/mailid_top.php?uid=".$uid."&amp;".$type."=".$DATA."&amp;mode=img&amp;code=".$code."\">";
 }
 //
 function TRANSLATE_STATUS($status) {
@@ -741,7 +698,7 @@ function GET_LANGUAGE() {
        global $cacheArray;
 
        // Set default return value to default language from config
-       $ret = DEFAULT_LANG;
+       $ret = constant('DEFAULT_LANG');
 
        // Init variable
        $lang = "";
@@ -764,7 +721,7 @@ function GET_LANGUAGE() {
                $ret = get_session('mx_lang');
 
                // Fixes a warning before the session has the mx_lang constant
-               if (empty($ret)) $ret = DEFAULT_LANG;
+               if (empty($ret)) $ret = constant('DEFAULT_LANG');
        }
 
        // Cache entry
@@ -791,15 +748,12 @@ function LOAD_EMAIL_TEMPLATE($template, $content=array(), $UID="0") {
        // Default "nickname" if extension is not installed
        $nick = "---";
 
-       // Keept for backward-compatiblity (please replace these variables against our new {!CONST!} syntax!)
-       // No longer used: $MAIN_TITLE = MAIN_TITLE; $URL = URL; $WEBMASTER = WEBMASTER;
-
        // Prepare IP number and User Agent
        $REMOTE_ADDR     = GET_REMOTE_ADDR();
        $HTTP_USER_AGENT = GET_USER_AGENT();
 
        // Default admin
-       $ADMIN = MAIN_TITLE;
+       $ADMIN = constant('MAIN_TITLE');
 
        // Is the admin logged in?
        if (IS_ADMIN()) {
@@ -811,18 +765,15 @@ function LOAD_EMAIL_TEMPLATE($template, $content=array(), $UID="0") {
        } // END - if
 
        // Neutral email address is default
-       $email = WEBMASTER;
+       $email = constant('WEBMASTER');
 
        // Expiration in a nice output format
        if (getConfig('auto_purge') == 0) {
                // Will never expire!
                $EXPIRATION = MAIL_WILL_NEVER_EXPIRE;
-       } elseif (function_exists('CREATE_FANCY_TIME')) {
+       } else {
                // Create nice date string
                $EXPIRATION = CREATE_FANCY_TIME(getConfig('auto_purge'));
-       } else {
-               // Display days only
-               $EXPIRATION = round(getConfig('auto_purge')/60/60/24)." "._DAYS;
        }
 
        // Is content an array?
@@ -838,12 +789,12 @@ function LOAD_EMAIL_TEMPLATE($template, $content=array(), $UID="0") {
                if (EXT_IS_ACTIVE("nickname")) {
                        //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>):NICKNAME!<br />\n";
                        // Load nickname
-                       $result = SQL_QUERY_ESC("SELECT surname, family, gender, email, nickname FROM `"._MYSQL_PREFIX."_user_data` WHERE userid=%s LIMIT 1",
+                       $result = SQL_QUERY_ESC("SELECT surname, family, gender, email, nickname FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
                                array(bigintval($UID)), __FILE__, __LINE__);
                } else {
                        //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>):NO-NICK!<br />\n";
                        /// Load normal data
-                       $result = SQL_QUERY_ESC("SELECT surname, family, gender, email FROM `"._MYSQL_PREFIX."_user_data` WHERE userid=%s LIMIT 1",
+                       $result = SQL_QUERY_ESC("SELECT surname, family, gender, email FROM `{!_MYSQL_PREFIX!}_user_data` WHERE userid=%s LIMIT 1",
                                array(bigintval($UID)), __FILE__, __LINE__);
                }
 
@@ -866,7 +817,7 @@ function LOAD_EMAIL_TEMPLATE($template, $content=array(), $UID="0") {
        $DATA['email'] = $email;
 
        // Base directory
-       $BASE = sprintf("%stemplates/%s/emails/", PATH, GET_LANGUAGE());
+       $BASE = sprintf("%stemplates/%s/emails/", constant('PATH'), GET_LANGUAGE());
 
        // Check for admin/guest/member templates
        if (strpos($template, "admin_") > -1) {
@@ -904,28 +855,29 @@ function LOAD_EMAIL_TEMPLATE($template, $content=array(), $UID="0") {
                $tmpl_file = addslashes($tmpl_file);
 
                // Run code
-               $tmpl_file = "\$newContent=html_entity_decode(\"".COMPILE_CODE($tmpl_file)."\");";
+               $tmpl_file = "\$newContent = html_entity_decode(\"".COMPILE_CODE($tmpl_file)."\");";
                @eval($tmpl_file);
        } elseif (!empty($template)) {
                // Template file not found!
-               $newContent = TEMPLATE_404.": ".$template."<br />
-".TEMPLATE_CONTENT."
+               $newContent = "{--TEMPLATE_404--}: ".$template."<br />
+{--TEMPLATE_CONTENT--}
 <pre>".print_r($content, true)."</pre>
-".TEMPLATE_DATA."
+{--TEMPLATE_DATA--}
 <pre>".print_r($DATA, true)."</pre>
 <br /><br />";
 
                // Debug mode not active? Then remove the HTML tags
-               if (!DEBUG_MODE) $newContent = strip_tags($newContent);
+               if (!isBooleanConstantAndTrue('DEBUG_MODE')) $newContent = strip_tags($newContent);
        } else {
                // No template name supplied!
-               $newContent = NO_TEMPLATE_SUPPLIED;
+               $newContent = getMessage('NO_TEMPLATE_SUPPLIED');
        }
 
        // Is there some content?
        if (empty($newContent)) {
                // Compiling failed
                $newContent = "Compiler error for template {$template}!\nUncompiled content:\n".$tmpl_file;
+               // Add last error if the required function exists
                if (function_exists('error_get_last')) $newContent .= "\n--------------------------------------\nDebug:\n".print_r(error_get_last(), true)."--------------------------------------\nPlease don't alter these informations!\nThanx.";
        } // END - if
 
@@ -960,16 +912,12 @@ function LOAD_URL($URL, $addUrlData=true) {
        }
 
        // Get output buffer
-       /*
-       print "<pre>";
-       debug_print_backtrace();
-       die("</pre>");
-       */
+       //* DEBUG: */ debug_report_bug();
        $OUTPUT = ob_get_contents();
 
        // Clear it only if there is content
        if (!empty($OUTPUT)) {
-               ob_end_clean();
+               clearOutputBuffer();
        } // END - if
 
        // Add some data to URL if cookies are not accepted
@@ -984,20 +932,32 @@ function LOAD_URL($URL, $addUrlData=true) {
                OUTPUT_HTML("<a href=\"".$URL."\">".$URL."</a>");
        } elseif (!headers_sent()) {
                // Load URL when headers are not sent
-               /*
-               print("<pre>");
-               debug_print_backtrace();
-               die("</pre>URL={$URL}");
-               */
-               @header ("Location: ".str_replace("&amp;", "&", $URL));
+               //* DEBUG: */ debug_report_bug("URL={$URL}");
+               header ("Location: ".str_replace("&amp;", "&", $URL));
        } else {
                // Output error message
-               include(PATH."inc/header.php");
+               LOAD_INC("inc/header.php");
                LOAD_TEMPLATE("redirect_url", false, str_replace("&amp;", "&", $URL));
-               include(PATH."inc/footer.php");
+               LOAD_INC("inc/footer.php");
        }
        exit();
 }
+
+// Wrapper for LOAD_URL but URL comes from a configuration entry
+function LOAD_CONFIGURED_URL ($configEntry) {
+       // Get the URL
+       $URL = getConfig($configEntry);
+
+       // Is this URL set?
+       if (is_null($URL)) {
+               // Then abort here
+               trigger_error(sprintf("Configuration entry %s is not set!", $configEntry));
+       } // END - if
+
+       // Load the URL
+       LOAD_URL($URL);
+}
+
 //
 function COMPILE_CODE($code, $simple = false, $constants = true, $full = true) {
        global $SEC_CHARS, $URL_CHARS;
@@ -1239,9 +1199,9 @@ function ADD_SELECTION($type, $DEFAULT, $prefix="", $id="0") {
        case "yn":
                $OUT .= "<option value=\"Y\"";
                if ($DEFAULT == "Y") $OUT .= " selected=\"selected\"";
-               $OUT .= ">".YES."</option>\n<option value=\"N\"";
+               $OUT .= ">{--YES--}</option>\n<option value=\"N\"";
                if ($DEFAULT == "N") $OUT .= " selected=\"selected\"";
-               $OUT .= ">".NO."</option>\n";
+               $OUT .= ">{--NO--}</option>\n";
                break;
        }
        $OUT .= "    </select>\n";
@@ -1287,17 +1247,17 @@ function GEN_RANDOM_CODE($length, $code, $uid, $DATA="") {
        if (isset($GLOBALS['refid']))                           $data .= ":".$GLOBALS['refid'];
 
        // Calculate number for generating the code
-       $a = $code + _ADD - 1;
+       $a = $code + constant('_ADD') - 1;
 
        if (getConfig('master_hash') != null) {
                // Generate hash with master salt from modula of number with the prime number and other data
-               $saltedHash = generateHash(($a % _PRIME).":".$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a, getConfig('master_salt'));
+               $saltedHash = generateHash(($a % constant('_PRIME')).":".$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a, getConfig('master_salt'));
 
                // Create number from hash
                $rcode = hexdec(substr($saltedHash, strlen(getConfig('master_salt')), 9)) / abs(_MAX - $a + sqrt(_ADD)) / pi();
        } else {
                // Generate hash with "hash of site key" from modula of number with the prime number and other data
-               $saltedHash = generateHash(($a % _PRIME).":".$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a, substr(sha1(SITE_KEY), 0, 8));
+               $saltedHash = generateHash(($a % constant('_PRIME')).":".$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a, substr(sha1(SITE_KEY), 0, 8));
 
                // Create number from hash
                $rcode = hexdec(substr($saltedHash, 8, 9)) / abs(_MAX - $a + sqrt(_ADD)) / pi();
@@ -1323,12 +1283,10 @@ function bigintval($num, $castValue = true) {
        if ($castValue) $ret = (double)$ret;
 
        // Has the whole value changed?
+       // @TODO Remove this if() block if all is working fine
        if ("".$ret."" != "".$num."") {
                // Log the values
-               print("<pre>");
-               debug_print_backtrace();
-               die("</pre>");
-               DEBUG_LOG(__FUNCTION__, __LINE__, " num={$num},ret={$ret}");
+               debug_report_bug();
        } // END - if
 
        // Return result
@@ -1341,11 +1299,11 @@ function GENERATE_IMAGE($img_code, $header=true) {
                return;
        } elseif (!$header) {
                // Return in an HTML code code
-               return "<IMG src=\"".URL."/img.php?code=".$img_code."\">\n";
+               return "<IMG src=\"{!URL!}/img.php?code=".$img_code."\">\n";
        }
 
        // Load image
-       $img = sprintf("%s/theme/%s/images/code_bg.%s", PATH, GET_CURR_THEME(), getConfig('img_type'));
+       $img = sprintf("%s/theme/%s/images/code_bg.%s", constant('PATH'), GET_CURR_THEME(), getConfig('img_type'));
        if (FILE_READABLE($img)) {
                // Switch image type
                switch (getConfig('img_type'))
@@ -1443,133 +1401,133 @@ function CREATE_TIME_SELECTIONS ($timestamp, $prefix="", $display="", $align="ce
        } else {
                // Generate table
                $OUT  = "<div align=\"".$align."\">\n";
-               $OUT .= "<TABLE border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"admin_table dashed\">\n";
-               $OUT .= "<TR>\n";
+               $OUT .= "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"admin_table dashed\">\n";
+               $OUT .= "<tr>\n";
 
                if (ereg('Y', $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._YEARS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_YEARS--}</strong></td>\n";
                }
 
                if (ereg("M", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._MONTHS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_MONTHS--}</strong></td>\n";
                }
 
                if (ereg("W", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._WEEKS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_WEEKS--}</strong></td>\n";
                }
 
                if (ereg("D", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._DAYS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_DAYS--}</strong></td>\n";
                }
 
                if (ereg("h", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._HOURS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_HOURS--}</strong></td>\n";
                }
 
                if (ereg("m", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._MINUTES."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_MINUTES--}</strong></td>\n";
                }
 
                if (ereg("s", $display) || (empty($display))) {
-                       $OUT .= "  <TD align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">"._SECONDS."</strong></TD>\n";
+                       $OUT .= "  <td align=\"center\" class=\"admin_title bottom\"><div class=\"tiny\">{--_SECONDS--}</strong></td>\n";
                }
 
-               $OUT .= "</TR>\n";
-               $OUT .= "<TR>\n";
+               $OUT .= "</tr>\n";
+               $OUT .= "<tr>\n";
 
                if (ereg('Y', $display) || (empty($display))) {
                        // Generate year selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_ye\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_ye\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 10; $idx++) {
                                $OUT .= "    <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $Y) $OUT .= " selected default";
+                               if ($idx == $Y) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_ye\" value=\"0\" />\n";
                }
 
                if (ereg("M", $display) || (empty($display))) {
                        // Generate month selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_mo\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_mo\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 11; $idx++)
                        {
                                        $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $M) $OUT .= " selected default";
+                               if ($idx == $M) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_mo\" value=\"0\" />\n";
                }
 
                if (ereg("W", $display) || (empty($display))) {
                        // Generate week selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_we\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_we\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 4; $idx++) {
                                $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $W) $OUT .= " selected default";
+                               if ($idx == $W) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_we\" value=\"0\" />\n";
                }
 
                if (ereg("D", $display) || (empty($display))) {
                        // Generate day selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_da\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_da\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 31; $idx++) {
                                $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $D) $OUT .= " selected default";
+                               if ($idx == $D) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_da\" value=\"0\">\n";
                }
 
                if (ereg("h", $display) || (empty($display))) {
                        // Generate hour selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_ho\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_ho\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 23; $idx++)      {
                                $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $h) $OUT .= " selected default";
+                               if ($idx == $h) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_ho\" value=\"0\">\n";
                }
 
                if (ereg("m", $display) || (empty($display))) {
                        // Generate minute selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_mi\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_mi\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 59; $idx++) {
                                $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $m) $OUT .= " selected default";
+                               if ($idx == $m) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_mi\" value=\"0\">\n";
                }
 
                if (ereg("s", $display) || (empty($display))) {
                        // Generate second selection
-                       $OUT .= "  <TD align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_se\" size=\"1\">\n";
+                       $OUT .= "  <td align=\"center\"><select class=\"mini_select\" name=\"".$prefix."_se\" size=\"1\">\n";
                        for ($idx = 0; $idx <= 59; $idx++) {
                                $OUT .= "  <option class=\"mini_select\" value=\"".$idx."\"";
-                               if ($idx == $s) $OUT .= " selected default";
+                               if ($idx == $s) $OUT .= " selected=\"selected\"";
                                $OUT .= ">".$idx."</option>\n";
                        }
-                       $OUT .= "  </select></TD>\n";
+                       $OUT .= "  </select></td>\n";
                } else {
                        $OUT .= "<INPUT type=\"hidden\" name=\"".$prefix."_se\" value=\"0\">\n";
                }
-               $OUT .= "</TR>\n";
-               $OUT .= "</TABLE>\n";
+               $OUT .= "</tr>\n";
+               $OUT .= "</table>\n";
                $OUT .= "</div>\n";
                // Return generated HTML code
        }
@@ -1603,9 +1561,10 @@ function CREATE_TIMESTAMP_FROM_SELECTIONS ($prefix, $POST) {
        // Return calculated value
        return $ret;
 }
+
 // Sends out mail to all administrators
 // IMPORTANT: Please use SEND_ADMIN_NOTIFCATION() for now!
-function SEND_ADMIN_EMAILS_PRO($subj, $template, $content, $UID) {
+function SEND_ADMIN_EMAILS_PRO ($subj, $template, $content, $UID) {
        // Trim template name
        $template = trim($template);
 
@@ -1618,41 +1577,52 @@ function SEND_ADMIN_EMAILS_PRO($subj, $template, $content, $UID) {
        } // END - if
 
        // Check which admin shall receive this mail
-       $result = SQL_QUERY_ESC("SELECT DISTINCT admin_id FROM "._MYSQL_PREFIX."_admins_mails WHERE mail_template='%s' ORDER BY admin_id",
+       $result = SQL_QUERY_ESC("SELECT DISTINCT admin_id FROM `{!_MYSQL_PREFIX!}_admins_mails` WHERE mail_template='%s' ORDER BY admin_id",
                array($template), __FILE__, __LINE__);
        if (SQL_NUMROWS($result) == 0) {
                // Create new entry (to all admins)
-               SQL_QUERY_ESC("INSERT INTO "._MYSQL_PREFIX."_admins_mails (admin_id, mail_template) VALUES (0, '%s')",
+               SQL_QUERY_ESC("INSERT INTO `{!_MYSQL_PREFIX!}_admins_mails` (admin_id, mail_template) VALUES (0, '%s')",
                        array($template), __FILE__, __LINE__);
        } else {
                // Load admin IDs...
                $aids = array();
-               while(list($aid) = SQL_FETCHROW($result)) {
+               while (list($aid) = SQL_FETCHROW($result)) {
                        $aids[] = $aid;
-               }
+               } // END - while
 
                // Free memory
                SQL_FREERESULT($result);
 
+               // Init result
+               $result = false;
+
                // "implode" IDs and query string
                $aid = implode(",", $aids);
                if ($aid == "-1") {
-                       // Add line to userlog
-                       USERLOG_ADD_LINE($subj, $msg, $UID);
-                       return;
+                       if (EXT_IS_ACTIVE("events")) {
+                               // Add line to user events
+                               EVENTS_ADD_LINE($subj, $msg, $UID);
+                       } else {
+                               // Log error for debug
+                               DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("Extension 'events' missing: tpl=%s,subj=%s,UID=%s",
+                                       $template,
+                                       $subj,
+                                       $UID
+                               ));
+                       }
                } elseif ($aid == "0") {
                        // Select all email adresses
-                       $result = SQL_QUERY("SELECT email FROM "._MYSQL_PREFIX."_admins ORDER BY id", __FILE__, __LINE__);
+                       $result = SQL_QUERY("SELECT email FROM `{!_MYSQL_PREFIX!}_admins` ORDER BY `id`", __FILE__, __LINE__);
                } else {
                        // If Admin-ID is not "to-all" select
-                       $result = SQL_QUERY_ESC("SELECT email FROM "._MYSQL_PREFIX."_admins WHERE id IN (%s) ORDER BY id", array($aid), __FILE__, __LINE__);
+                       $result = SQL_QUERY_ESC("SELECT email FROM `{!_MYSQL_PREFIX!}_admins` WHERE id IN (%s) ORDER BY `id`", array($aid), __FILE__, __LINE__);
                }
        }
 
        // Load email addresses and send away
        while (list($email) = SQL_FETCHROW($result)) {
                SEND_EMAIL($email, $subj, $msg);
-       }
+       } // END - while
 
        // Free memory
        SQL_FREERESULT($result);
@@ -1688,7 +1658,7 @@ function ADD_EMAIL_NAV($PAGES, $offset, $show_form, $colspan, $return=false) {
        $SEP = ""; $TOP = "";
        if (!$show_form) {
                $TOP = " top2";
-               $SEP = "<TR><TD colspan=\"".$colspan."\" class=\"seperator\">&nbsp;</TD></TR>";
+               $SEP = "<tr><td colspan=\"".$colspan."\" class=\"seperator\">&nbsp;</td></tr>";
        }
 
        $NAV = "";
@@ -1699,7 +1669,7 @@ function ADD_EMAIL_NAV($PAGES, $offset, $show_form, $colspan, $return=false) {
                        $NAV .= "<strong>-";
                } else {
                        // Open anchor tag and add base URL
-                       $NAV .= "<a href=\"".URL."/modules.php?module=admin&amp;what=".$GLOBALS['what']."&amp;page=".$page."&amp;offset=".$offset;
+                       $NAV .= "<a href=\"{!URL!}/modules.php?module=admin&amp;what=".$GLOBALS['what']."&amp;page=".$page."&amp;offset=".$offset;
 
                        // Add userid when we shall show all mails from a single member
                        if ((isset($_GET['u_id'])) && (bigintval($_GET['u_id']) > 0)) $NAV .= "&amp;u_id=".bigintval($_GET['u_id']);
@@ -1981,7 +1951,7 @@ function VALIDATE_URL ($URL, $compile=true) {
        return (((substr($URL, 0, 7) == "http://") || (substr($URL, 0, 8) == "https://")) && (strlen($URL) >= 12));
 }
 //
-function MEMBER_ACTION_LINKS($uid, $status="") {
+function MEMBER_ACTION_LINKS ($uid, $status = "") {
        // Define all main targets
        $TARGETS = array("del_user", "edit_user", "lock_user", "add_points", "sub_points");
 
@@ -1989,7 +1959,7 @@ function MEMBER_ACTION_LINKS($uid, $status="") {
        $eval = "\$OUT = \"[&nbsp;";
 
        foreach ($TARGETS as $tar) {
-               $eval .= "<span class=\\\"admin_user_link\\\"><a href=\\\"".URL."/modules.php?module=admin&amp;what=".$tar."&amp;u_id=".$uid."\\\" title=\\\"\".ADMIN_LINK_";
+               $eval .= "<span class=\\\"admin_user_link\\\"><a href=\\\"{!URL!}/modules.php?module=admin&amp;what=".$tar."&amp;u_id=".$uid."\\\" title=\\\"{--ADMIN_LINK_";
                //* DEBUG: */ echo "*".$tar."/".$status."*<br />\n";
                if (($tar == "lock_user") && ($status == "LOCKED")) {
                        // Locked accounts shall be unlocked
@@ -1998,7 +1968,7 @@ function MEMBER_ACTION_LINKS($uid, $status="") {
                        // All other status is fine
                        $eval .= strtoupper($tar);
                }
-               $eval .= "_TITLE.\"\\\">\".ADMIN_";
+               $eval .= "_TITLE--}\\\">{--ADMIN_";
                if (($tar == "lock_user") && ($status == "LOCKED")) {
                        // Locked accounts shall be unlocked
                        $eval .= "UNLOCK_USER";
@@ -2006,7 +1976,7 @@ function MEMBER_ACTION_LINKS($uid, $status="") {
                        // All other status is fine
                        $eval .= strtoupper($tar);
                }
-               $eval .= ".\"</a></span>&nbsp;|&nbsp;";
+               $eval .= "--}</a></span>&nbsp;|&nbsp;";
        }
 
        // Finish navigation link
@@ -2017,9 +1987,9 @@ function MEMBER_ACTION_LINKS($uid, $status="") {
        return $OUT;
 }
 // Function for backward-compatiblity
-function ADD_CATEGORY_TABLE ($MODE, $return=false) {
+function ADD_CATEGORY_table ($MODE, $return=false) {
        // Load it from the register extension
-       return REGISTER_ADD_CATEGORY_TABLE ($MODE, $return);
+       return REGISTER_ADD_CATEGORY_table ($MODE, $return);
 }
 // Generate an email link
 function CREATE_EMAIL_LINK ($email, $table = "admins") {
@@ -2055,11 +2025,9 @@ function generateHash ($plainText, $salt = "") {
        } // END - if
 
        // Do we miss an arry element here?
-       if (getConfig('file_hash') == null) {
+       if (!isConfigEntrySet('file_hash')) {
                // Stop here
-               print("Missing file_hash in ".__FUNCTION__.". Backtrace:<pre>");
-               debug_print_backtrace();
-               die("</pre>");
+               debug_report_bug("Missing file_hash in ".__FUNCTION__.".");
        } // END - if
 
        // When the salt is empty build a new one, else use the first x configured characters as the salt
@@ -2068,16 +2036,16 @@ function generateHash ($plainText, $salt = "") {
                $server = $_SERVER['PHP_SELF'].":".GET_USER_AGENT().":".getenv('SERVER_SOFTWARE').":".GET_REMOTE_ADDR().":".":".filemtime(PATH."inc/databases.php");
 
                // Build key string
-               $keys   = SITE_KEY.":".DATE_KEY.":".getConfig('secret_key').":".getConfig('file_hash').":".date("d-m-Y (l-F-T)", bigintval(getConfig('patch_ctime'))).":".getConfig('master_salt');
+               $keys   = constant('SITE_KEY').":".constant('DATE_KEY').":".getConfig('secret_key').":".getConfig('file_hash').":".date("d-m-Y (l-F-T)", bigintval(getConfig('patch_ctime'))).":".getConfig('master_salt');
 
                // Additional data
                $data = $plainText.":".uniqid(mt_rand(), true).":".time();
 
                // Calculate number for generating the code
-               $a = time() + _ADD - 1;
+               $a = time() + constant('_ADD') - 1;
 
                // Generate SHA1 sum from modula of number and the prime number
-               $sha1 = sha1(($a % _PRIME).$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a);
+               $sha1 = sha1(($a % constant('_PRIME')).$server.":".$keys.":".$data.":".date("d-m-Y (l-F-T)", time()).":".$a);
                //* DEBUG: */ echo "SHA1=".$sha1." (".strlen($sha1).")<br />";
                $sha1 = scrambleString($sha1);
                //* DEBUG: */ echo "Scrambled=".$sha1." (".strlen($sha1).")<br />";
@@ -2151,9 +2119,8 @@ function descrambleString($str) {
        return $orig;
 }
 //
-function genScrambleString($len) {
-       // Prepare randomizer and array for the numbers
-       mt_srand((double) microtime() * 1000000);
+function genScrambleString ($len) {
+       // Prepare array for the numbers
        $scrambleNumbers = array();
 
        // First we need to setup randomized numbers from 0 to 31
@@ -2174,6 +2141,7 @@ function genScrambleString($len) {
        $scrambleString = implode(":", $scrambleNumbers);
        return $scrambleString;
 }
+
 // Append data like session ID or referal ID to the given URL which would
 // normally be stored in cookies
 function ADD_URL_DATA ($URL) {
@@ -2182,7 +2150,7 @@ function ADD_URL_DATA ($URL) {
 
        // Determine URL binder
        $BIND = "?";
-       if (strpos($URL, "?") !== false) $BIND = "&";
+       if (strpos($URL, "?") !== false) $BIND = "&amp;";
 
        if ((!defined('__COOKIES')) || ((!__COOKIES))) {
                // Cookies are not accepted
@@ -2193,25 +2161,14 @@ function ADD_URL_DATA ($URL) {
                        // Not found! So let's set default here
                        $ADD .= $BIND."refid=".getConfig('def_refid');
                }
-
-               // Is there already added data? Then change the binder
-               if (!empty($ADD)) $BIND = "&";
-
-               // Add session ID
-               if ((!empty($_GET['PHPSESSID'])) && (strpos($URL, "PHPSESSID=") == 0)) {
-                       // Add session from URL
-                       $ADD .= $BIND."PHPSESSID=".SQL_ESCAPE(strip_tags($_GET['PHPSESSID']));
-               } else {
-                       // Add current session
-                       $ADD .= $BIND."PHPSESSID=".session_id();
-               }
        } // END - if
 
        // Add all together and return it
-       return $URL.$ADD;
+       return $URL . $ADD;
 }
+
 // Generate an PGP-like encrypted hash of given hash for e.g. cookies
-function generatePassString($passHash) {
+function generatePassString ($passHash) {
        // Return vanilla password hash
        $ret = $passHash;
 
@@ -2224,9 +2181,9 @@ function generatePassString($passHash) {
                        $part2 = hexdec(substr(getConfig('secret_key'), $start, 4));
                        $mod = dechex($idx);
                        if ($part1 > $part2) {
-                               $mod = dechex(sqrt(($part1 - $part2) * _PRIME / pi()));
+                               $mod = dechex(sqrt(($part1 - $part2) * constant('_PRIME') / pi()));
                        } elseif ($part2 > $part1) {
-                               $mod = dechex(sqrt(($part2 - $part1) * _PRIME / pi()));
+                               $mod = dechex(sqrt(($part2 - $part1) * constant('_PRIME') / pi()));
                        }
                        $mod = substr(round($mod), 0, 4);
                        $mod = str_repeat('0', 4-strlen($mod)).$mod;
@@ -2265,13 +2222,14 @@ function FIX_DELETED_COOKIES ($cookies) {
 
 // Output error messages in a fasioned way and die...
 function mxchange_die ($msg) {
-       global $footer;
+       // Load header
+       LOAD_INC_ONCE("inc/header.php");
 
        // Load the message template
        LOAD_TEMPLATE("admin_settings_saved", false, $msg);
 
        // Load footer
-       include(PATH."inc/footer.php");
+       LOAD_INC_ONCE("inc/footer.php");
 
        // Exit explicitly
        exit;
@@ -2425,13 +2383,16 @@ function merge_array ($array1, $array2) {
                return array_merge($array1, $array2);
        } elseif (is_array($array1)) {
                // Return left array
+               DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("array2 is not an array. array != %s", gettype($array2)));
                return $array1;
+       } elseif (is_array($array2)) {
+               // Return right array
+               DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("array1 is not an array. array != %s", gettype($array1)));
+               return $array2;
        }
 
-       // Something wired happened here...
-       print(__FUNCTION__.":<pre>");
-       debug_print_backtrace();
-       die("</pre>");
+       // Both are not arrays
+       debug_report_bug(__FUNCTION__.":");
 }
 
 // Debug message logger
@@ -2626,22 +2587,22 @@ function HANDLE_LOGIN_FAILTURES ($accessLevel) {
        $OUT = "";
 
        // Is the session data set?
-       if ((isSessionVariableSet('mxchange_'.$accessLevel.'_failtures')) && (isSessionVariableSet('mxchange_'.$accessLevel.'_last_fail'))) {
+       if ((isSessionVariableSet('mxchange_'.$accessLevel.'_failures')) && (isSessionVariableSet('mxchange_'.$accessLevel.'_last_fail'))) {
                // Ignore zero values
-               if (get_session('mxchange_'.$accessLevel.'_failtures') > 0) {
-                       // Non-guest has login failtures found, get both data and prepare it for template
+               if (get_session('mxchange_'.$accessLevel.'_failures') > 0) {
+                       // Non-guest has login failures found, get both data and prepare it for template
                        //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>):accessLevel={$accessLevel}<br />\n";
                        $content = array(
-                               'login_failtures' => get_session('mxchange_'.$accessLevel.'_failtures'),
-                               'last_failture'   => MAKE_DATETIME(get_session('mxchange_'.$accessLevel.'_last_fail'), "2")
+                               'login_failures' => get_session('mxchange_'.$accessLevel.'_failures'),
+                               'last_failure'   => MAKE_DATETIME(get_session('mxchange_'.$accessLevel.'_last_fail'), "2")
                        );
 
                        // Load template
-                       $OUT = LOAD_TEMPLATE("login_failtures", true, $content);
+                       $OUT = LOAD_TEMPLATE("login_failures", true, $content);
                } // END - if
 
                // Reset session data
-               set_session('mxchange_'.$accessLevel.'_failtures', "");
+               set_session('mxchange_'.$accessLevel.'_failures', "");
                set_session('mxchange_'.$accessLevel.'_last_fail', "");
        } // END - if
 
@@ -2664,13 +2625,13 @@ function REBUILD_CACHE ($cache, $inc="") {
                // Include file given?
                if (!empty($inc)) {
                        // Construct FQFN
-                       $fqfn = sprintf("%sinc/loader/load_cache-%s.php", PATH, $inc);
+                       $INC = sprintf("inc/loader/load_cache-%s.php", $inc);
 
                        // Is the include there?
-                       if (FILE_READABLE($fqfn)) {
+                       if (FILE_READABLE($INC)) {
                                // And rebuild it from scratch
                                //* DEBUG: */ print __FUNCTION__."(<font color=\"#0000aa\">".__LINE__."</font>): inc={$inc} - LOADED!<br />\n";
-                               require($fqfn);
+                               LOAD_INC($INC);
                        } else {
                                // Include not found!
                                DEBUG_LOG(__FUNCTION__, __LINE__, "Include {$inc} not found. cache={$cache}");
@@ -2691,19 +2652,19 @@ function CACHE_PURGE_ADMIN_MENU ($id=0, $action="", $what="", $str="") {
                // No cache instance!
                DEBUG_LOG(__FUNCTION__, __LINE__, " No cache instance found.");
                return false;
-       } elseif ((getConfig('cache_admin_menu') == null) || (getConfig('cache_admin_menu') == "N")) {
+       } elseif ((!isConfigEntrySet('cache_admin_menu')) || (getConfig('cache_admin_menu') != "Y")) {
                // Caching disabled (currently experiemental!)
                return false;
        }
 
        // Experiemental feature!
-       trigger_error("<strong>Experimental feature:</strong> You have to delete the admin_*.cache files by yourself at this point.");
+       debug_report_bug("<strong>Experimental feature:</strong> You have to delete the admin_*.cache files by yourself at this point.");
 }
 
 // Translates the "pool type" into human-readable
 function TRANSLATE_POOL_TYPE ($type) {
-       // Default type is unknown
-       $translated = sprintf(POOL_TYPE_UNKNOWN, $type);
+       // Default type is unknown
+       $translated = sprintf(getMessage('POOL_TYPE_UNKNOWN'), $type);
 
        // Generate constant
        $constName = sprintf("POOL_TYPE_%s", $type);
@@ -2800,15 +2761,16 @@ function ADD_NEW_BONUS_MAIL ($data, $mode="", $output=true) {
                );
 
                // Mail inserted into bonus pool
-               if ($output) LOAD_TEMPLATE("admin_settings_saved", false, ADMIN_BONUS_SEND);
+               if ($output) LOAD_TEMPLATE("admin_settings_saved", false, getMessage('ADMIN_BONUS_SEND'));
        } elseif ($output) {
                // More entered than can be reached!
-               LOAD_TEMPLATE("admin_settings_saved", false, ADMIN_MORE_SELECTED);
+               LOAD_TEMPLATE("admin_settings_saved", false, getMessage('ADMIN_MORE_SELECTED'));
        } else {
                // Debug log
                DEBUG_LOG(__FUNCTION__, __LINE__, " cat={$data['cat']},receiver={$data['receiver']},data=".base64_encode(serialize($data))." More selected, than available!");
        }
 }
+
 // Determines referal id and sets it
 function DETERMINE_REFID () {
        global $CLICK, $_SERVER;
@@ -2851,7 +2813,7 @@ function DETERMINE_REFID () {
 }
 
 // Destroys the admin session
-function DESTROY_ADMIN_SESSION ($destroy = true) {
+function destroyAdminSession ($destroy = true) {
        // Kill maybe existing session variables including array elements
        set_session('admin_login', "");
        set_session('admin_md5'  , "");
@@ -2860,7 +2822,7 @@ function DESTROY_ADMIN_SESSION ($destroy = true) {
 
        // Destroy session and return status
        if ($destroy) {
-               return @session_destroy();
+               return session_destroy();
        } // END - if
 
        // All fine if we shall not really destroy the session
@@ -2873,6 +2835,12 @@ function IF_APACHE_MODULE_LOADED ($apacheModule) {
        return (((function_exists('apache_get_modules')) && (in_array($apacheModule, apache_get_modules()))) || (!function_exists('apache_get_modules')));
 }
 
+// Merges $_CONFIG with data in given array
+function mergeConfig ($newConfig) {
+       global $_CONFIG;
+       $_CONFIG = merge_array($_CONFIG, $newConfig);
+}
+
 // Getter for $_CONFIG entries
 function getConfig ($entry) {
        global $_CONFIG;
@@ -2881,7 +2849,7 @@ function getConfig ($entry) {
        $value = null;
 
        // Is the entry there?
-       if (isset($_CONFIG[$entry])) {
+       if (isConfigEntrySet($entry)) {
                // Then use it
                $value = $_CONFIG[$entry];
        } // END - if
@@ -2890,15 +2858,47 @@ function getConfig ($entry) {
        return $value;
 }
 
-// @TODO Rewrite all language constants to the function getLanguage().
+// Setter for $_CONFIG entries
+function setConfigEntry ($entry, $value) {
+       global $_CONFIG;
+
+       // Secure the entry name
+       $entry = SQL_ESCAPE($entry);
+
+       // And set it
+       $_CONFIG[$entry] = $value;
+}
+
+// Checks wether the given config entry is set
+function isConfigEntrySet ($entry) {
+       global $_CONFIG;
+       return (isset($_CONFIG[$entry]));
+}
+
+// Increment or init with given value or 1 as default the given config entry
+function incrementConfigEntry ($configEntry, $value=1) {
+       global $_CONFIG;
+
+       // Increment it if set or init it with 1
+       if (getConfig($configEntry) > 0) {
+               $_CONFIG[$configEntry] += $value;
+       } else {
+               $_CONFIG[$configEntry] = $value;
+       }
+}
+
 // "Getter" for language strings
+// @TODO Rewrite all language constants to this function.
 function getMessage ($messageId) {
        // Default is not found!
        $return = "!".$messageId."!";
 
        // Is the language string found?
-       if (isset($GLOBALS['msg'][$messageId])) {
-               // Language array element found
+       if (isset($GLOBALS['msg'][strtolower($messageId)])) {
+               // Language array element found in small_letters
+               $return = $GLOBALS['msg'][$messageId];
+       } elseif (isset($GLOBALS['msg'][strtoupper($messageId)])) {
+               // @DEPRECATED Language array element found in BIG_LETTERS
                $return = $GLOBALS['msg'][$messageId];
        } elseif (defined($messageId)) {
                // @DEPRECATED Deprecated constant found
@@ -2937,13 +2937,13 @@ function GET_CURR_THEME() {
                } // END - if
        } elseif ((!isBooleanConstantAndTrue('mxchange_installed')) && ((isBooleanConstantAndTrue('mxchange_installing')) || ($CSS == true)) && ((!empty($_GET['theme'])) || (!empty($_POST['theme'])))) {
                // Prepare FQFN for checking
-               $theme = sprintf("%stheme/%s/theme.php", PATH, SQL_ESCAPE($_GET['theme']));
+               $theme = sprintf("%stheme/%s/theme.php", constant('PATH'), SQL_ESCAPE($_GET['theme']));
 
                // Installation mode active
                if ((!empty($_GET['theme'])) && (FILE_READABLE($theme))) {
                        // Set cookie from URL data
                        set_session('mxchange_theme', SQL_ESCAPE($_GET['theme']));
-               } elseif (FILE_READABLE(sprintf("%stheme/%s/theme.php", PATH, SQL_ESCAPE($_POST['theme'])))) {
+               } elseif (FILE_READABLE(sprintf("%stheme/%s/theme.php", constant('PATH'), SQL_ESCAPE($_POST['theme'])))) {
                        // Set cookie from posted data
                        set_session('mxchange_theme', SQL_ESCAPE($_POST['theme']));
                }
@@ -2956,7 +2956,7 @@ function GET_CURR_THEME() {
        }
 
        // Add (maybe) found theme.php file to inclusion list
-       $theme = sprintf("%stheme/%s/theme.php", PATH, SQL_ESCAPE($ret));
+       $theme = sprintf("%stheme/%s/theme.php", constant('PATH'), SQL_ESCAPE($ret));
 
        // Try to load the requested include file
        if (FILE_READABLE($theme)) $INC_POOL[] = $theme;
@@ -2987,7 +2987,7 @@ function THEME_GET_ID ($name) {
                incrementConfigEntry('cache_hits');
        } elseif (GET_EXT_VERSION("cache") != "0.1.8") {
                // Check if current theme is already imported or not
-               $result = SQL_QUERY_ESC("SELECT id FROM `"._MYSQL_PREFIX."_themes` WHERE theme_path='%s' LIMIT 1",
+               $result = SQL_QUERY_ESC("SELECT id FROM `{!_MYSQL_PREFIX!}_themes` WHERE theme_path='%s' LIMIT 1",
                        array($name), __FILE__, __LINE__);
 
                // Entry found?
@@ -3004,18 +3004,6 @@ function THEME_GET_ID ($name) {
        return $id;
 }
 
-// Increment or init with given value or 1 as default the given config entry
-function incrementConfigEntry ($configEntry, $value=1) {
-       global $_CONFIG;
-
-       // Increment it if set or init it with 1
-       if (getConfig($configEntry) > 0) {
-               $_CONFIG[$configEntry] += $value;
-       } else {
-               $_CONFIG[$configEntry] = $value;
-       }
-}
-
 // Read a given file
 function READ_FILE ($FQFN, $sqlPrepare = false) {
        // Load the file
@@ -3038,10 +3026,27 @@ function READ_FILE ($FQFN, $sqlPrepare = false) {
        return $content;
 }
 
+// Writes content to a file
+function WRITE_FILE ($FQFN, $content) {
+       // Is the function there?
+       if (function_exists('file_put_contents')) {
+               // Write it directly
+               file_put_contents($FQFN, $content);
+       } else {
+               // Write it with fopen
+               $fp = fopen($FQFN, 'w') or mxchange_die("Cannot write file ".basename($FQFN)."!");
+               fwrite($fp, $content);
+               fclose($fp);
+
+               // Set CHMOD rights
+               chmod($FQFN, 0644);
+       }
+}
+
 // Generates an error code from given account status
 function GEN_ERROR_CODE_FROM_ACCOUNT_STATUS ($status) {
        // Default error code if unknown account status
-       $ERROR = CODE_UNKNOWN_STATUS;
+       $ERROR = constant('CODE_UNKNOWN_STATUS');
 
        // Generate constant name
        $constantName = sprintf("CODE_ID_%s", $status);
@@ -3059,6 +3064,228 @@ function GEN_ERROR_CODE_FROM_ACCOUNT_STATUS ($status) {
        return $ERROR;
 }
 
+// Clears the output buffer. This function does *NOT* backup sent content.
+function clearOutputBuffer () {
+       // Trigger an error on failure
+       if (!ob_end_clean()) {
+               // Failed!
+               debug_report_bug(__FUNCTION__.": Failed to clean output buffer.");
+       } // END - if
+}
+
+// "Getter" for revision/version data
+function getActualVersion ($type = 0) {
+       // By default nothing is new... ;-)
+       $new = false;
+
+       // FQFN of revision file
+       $FQFN = sprintf("%sinc/cache/.revision", constant('PATH'));
+
+       // Check for revision file
+       if (!FILE_READABLE($FQFN)) {
+               // Not found, so we need to create it
+               $new = true;
+       } else {
+               // Revision file found
+               $ins_vers = explode("\n", READ_FILE($FQFN));
+
+               // Is the content valid?
+               if ((!is_array($ins_vers)) || (count($ins_vers) <= 0) || (!isset($ins_vers[$type])) || ($ins_vers[0]) == "new") {
+                       // File needs update!
+                       $new = true;
+               } else {
+                       // Revision-File has valid Data and isn't 'new' so return the Rev-Number
+                       return trim($ins_vers[$type]);
+               }
+       }
+
+       // Has it been updated?
+       if ($new === true)  {
+               // No Revision-File or has no valid Data so read the Revision from the Server.
+               $version = GET_URL("check-updates3.php");
+
+               // Prepare content
+               $akt_vers[] = trim($version[10]);
+               $akt_vers[] = trim($version[9]);
+               $akt_vers[] = trim($version[8]);
+
+               // Write file
+               WRITE_FILE($FQFN, implode("\n", $akt_vers));
+
+               // Return requested content
+               return trim($akt_vers[$type]);
+       }
+}
+
+// Loads an include file and logs any missing files for debug purposes
+function LOAD_INC ($INC) {
+       // Get constant path
+       $PATH = constant('PATH');
+
+       // Use the include file name directly
+       // @TODO Try to find all locations where an FQFN is given to these two
+       // @TODO functions and avoid it.
+       $FQFN = $INC;
+
+       // Check if PATH is in $INC
+       if (substr($INC, 0, $PATH) != $PATH) {
+               // Add it. This is why we need a trailing slash in config.php
+               $FQFN = $PATH . $INC;
+       } // END - if
+
+       // Is the include file there?
+       if (!FILE_READABLE($FQFN)) {
+               // Not there so log it
+               DEBUG_LOG(__FUNCTION__, __LINE__, sprintf("Include file %s not found.", basename($INC)));
+               return false;
+       } // END - if
+
+       // Try to load it
+       require($FQFN);
+}
+
+// Loads an include file once
+function LOAD_INC_ONCE ($INC) {
+       global $cacheArray;
+
+       // Is it not loaded?
+       if (!isset($cacheArray['load_once'][$INC])) {
+               // Then try to load it
+               LOAD_INC($INC);
+
+               // And mark it as loaded
+               $cacheArray['load_once'][$INC] = true;
+       } // END - if
+}
+
+// Back-ported from the new ship-simu engine. :-)
+function debug_get_printable_backtrace () {
+       // Init variable
+       $backtrace = "<ol>\n";
+
+       // Get and prepare backtrace for output
+       $backtraceArray = debug_backtrace();
+       foreach ($backtraceArray as $key => $trace) {
+               if (!isset($trace['file'])) $trace['file'] = __FILE__;
+               if (!isset($trace['line'])) $trace['line'] = __LINE__;
+               if (!isset($trace['args'])) $trace['args'] = array();
+               $backtrace .= "<li class=\"debug_list\"><span class=\"backtrace_file\">".basename($trace['file'])."</span>:".$trace['line'].", <span class=\"backtrace_function\">".$trace['function']."(".count($trace['args']).")</span></li>\n";
+       } // END - foreach
+
+       // Close it
+       $backtrace .= "</ol>\n";
+
+       // Return the backtrace
+       return $backtrace;
+}
+
+// Output a debug backtrace to the user
+function debug_report_bug ($message = "") {
+       // Init message
+       $debug = "";
+       // Is the optional message set?
+       if (!empty($message)) {
+               // Use and log it
+               $debug = sprintf("Note: %s<br />\n",
+                       $message
+               );
+
+               // @TODO Add a little more infos here
+               DEBUG_LOG(__FUNCTION__, __LINE__, $message);
+       } // END - if
+
+       // Add output
+       $debug .= ("Please report this error at <a href=\"http://bugs.mxchange.org\" rel=\"external\" target=\"_blank\">bugs.mxchange.org</a>:<pre>");
+       $debug .= (debug_get_printable_backtrace());
+       $debug .= ("</pre>Thank you for your help finding bugs.");
+
+       // And abort here
+       die($debug);
+}
+
+// Generates a ***weak*** seed (taken from de.php.net/mt_srand)
+function generateSeed () {
+       list($usec, $sec) = explode(" ", microtime());
+       return ((float)$sec + (float)$usec);
+}
+
+// Converts a message code to a human-readable message
+function convertCodeToMessage ($code) {
+       $msg = "";
+       switch ($code) {
+               case constant('CODE_LOGOUT_DONE')      : $msg = getMessage('LOGOUT_DONE'); break;
+               case constant('CODE_LOGOUT_FAILED')    : $msg = "<span class=\"guest_failed\">{--LOGOUT_FAILED--}</span>"; break;
+               case constant('CODE_DATA_INVALID')     : $msg = getMessage('MAIL_DATA_INVALID'); break;
+               case constant('CODE_POSSIBLE_INVALID') : $msg = getMessage('MAIL_POSSIBLE_INVALID'); break;
+               case constant('CODE_ACCOUNT_LOCKED')   : $msg = getMessage('MEMBER_ACCOUNT_LOCKED_UNC'); break;
+               case constant('CODE_USER_404')         : $msg = getMessage('USER_NOT_FOUND'); break;
+               case constant('CODE_STATS_404')        : $msg = getMessage('MAIL_STATS_404'); break;
+               case constant('CODE_ALREADY_CONFIRMED'): $msg = getMessage('MAIL_ALREADY_CONFIRMED'); break;
+
+               case constant('CODE_ERROR_MAILID'):
+                       if (EXT_IS_ACTIVE($ext, true)) {
+                               $msg = getMessage('ERROR_CONFIRMING_MAIL');
+                       } else {
+                               $msg = sprintf(getMessage('EXTENSION_PROBLEM_NOT_INSTALLED'), "mailid");
+                       }
+                       break;
+
+               case constant('CODE_EXTENSION_PROBLEM'):
+                       if (isset($_GET['ext'])) {
+                               $msg = sprintf(getMessage('EXTENSION_PROBLEM_EXT_INACTIVE'), SQL_ESCAPE($_GET['ext']));
+                       } else {
+                               $msg = getMessage('EXTENSION_PROBLEM_UNSET_EXT');
+                       }
+                       break;
+
+               case constant('CODE_COOKIES_DISABLED') : $msg = getMessage('LOGIN_NO_COOKIES'); break;
+               case constant('CODE_BEG_SAME_AS_OWN')  : $msg = getMessage('BEG_SAME_UID_AS_OWN'); break;
+               case constant('CODE_LOGIN_FAILED')     : $msg = getMessage('LOGIN_FAILED_GENERAL'); break;
+               default                                : $msg = UNKNOWN_MAILID_CODE_1.$code.UNKNOWN_MAILID_CODE_2; break;
+       } // END - switch
+
+       // Return the message
+       return $msg;
+}
+
+// Checks wether the given extension is currently not installed
+// and redirects if so.
+function REDIRCT_ON_UNINSTALLED_EXTENSION ($ext_name) {
+       // Is the extension uninstalled/inactive?
+       if (!EXT_IS_ACTIVE($ext_name)) {
+               // Redirect to index
+               LOAD_URL("modules.php?module=index&amp;msg=".constant('CODE_EXTENSION_PROBLEM')."&amp;ext=".$ext_name);
+       } // END - if
+}
+
+// Generate a "link" for the given admin id (aid)
+function GENERATE_AID_LINK ($aid) {
+       // No assigned admin is default
+       $admin = "<div class=\"admin_note\">{--ADMIN_NO_ADMIN_ASSIGNED--}</div>";
+
+       // Zero? = Not assigned
+       if ($aid == "0") {
+               // Load admin's login
+               $login = GET_ADMIN_LOGIN($aid);
+               if ($login != "***") {
+                       // Is the extension there?
+                       if (EXT_IS_ACTIVE("admins")) {
+                               // Admin found
+                               $admin = "<a href=\"".ADMINS_CREATE_EMAIL_LINK(GET_ADMIN_EMAIL($aid))."\">".$login."</a>";
+                       } else {
+                               // Extension not found
+                               $admin = sprintf(getMessage('EXTENSION_PROBLEM_NOT_INSTALLED'), "admins");
+                       }
+               } else {
+                       // Maybe deleted?
+                       $admin = "<div class=\"admin_note\">".sprintf(getMessage('ADMIN_ID_404'), $aid)."</div>";
+               }
+       } // END - if
+
+       // Return result
+       return $admin;
+}
+
 //////////////////////////////////////////////////
 // AUTOMATICALLY RE-GENERATED MISSING FUNCTIONS //
 //////////////////////////////////////////////////