- // Set default 'what' value
- //* DEBUG: */ OUTPUT_HTML("-".$GLOBALS['module']."/".$GLOBALS['what']."-<br />");
- if ((empty($GLOBALS['what'])) && (empty($GLOBALS['action'])) && ($GLOBALS['output_mode'] != 1) && ($GLOBALS['output_mode'] != -1)) {
- if ($GLOBALS['module'] == "admin") {
- // Set 'action' value to 'login' in admin menu
- $GLOBALS['action'] = GET_ACTION($GLOBALS['module'], $GLOBALS['what']);
- } elseif (($GLOBALS['module'] == "index") || ($GLOBALS['module'] == "login")) {
- // Set 'what' value to 'welcome' in guest and member menu
- $GLOBALS['what'] = "welcome";
- if (getConfig('index_home') != "") $GLOBALS['what'] = getConfig('index_home');
- } else {
- // Anything else like begging link
- $GLOBALS['what'] = "";
- }
- } // END - if
-
- // Update sending pool
- if (($GLOBALS['output_mode'] != "1") && ($GLOBALS['output_mode'] != "-1")) LOAD_INC_ONCE("inc/pool-update.php"); // Sends out mails in configureable steps
-
- // Load all active extension including language files when not upgrading.
- // Check module for testing and count one click
- if (checkModulePermissions($GLOBALS['module']) == "done") countModuleHit($GLOBALS['module']);
-
- // Shall we activate the exchange?
- if (getConfig('activate_xchange') > 0) activateExchange();
-
- // Is the extension sql_patches installed and at least 0.3.6?
- if (GET_EXT_VERSION("sql_patches") >= "0.3.6") {
- // Generate random number
- define('RAND_NUMBER', generateRandomCodde(10, mt_rand(10000,32766), getUserId(), ""));
- } else {
- // Generate weak (!!!) code
- define('RAND_NUMBER', mt_rand(1000000, 9999999));
+ // Check module for permissions
+ $checkModule = checkModulePermissions();
+
+ // Admin module should be accessable by guests to login
+ if ((getModule() == 'admin') && ($checkModule == 'admin_only')) {
+ // This is fine and can be ignored
+ } elseif ($checkModule != 'done') {
+ // Not fine!
+ logDebugMessage(__FILE__, __LINE__, sprintf("Check of module %s results in unexpected value: %s",
+ getModule(),
+ $checkModule
+ ));