Bestimmte globale Variablen pro Request initialisieren.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 5 Feb 2010 15:38:05 +0000 (16:38 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 20 Jul 2010 09:03:05 +0000 (11:03 +0200)
SL/Dispatcher.pm

index fb88af5..dc7f68f 100644 (file)
@@ -67,15 +67,14 @@ sub pre_startup_setup {
   # dummy globals
   {
     no warnings 'once';
-    $::userspath   = "users";
-    $::templates   = "templates";
-    $::memberfile  = "users/members";
-    $::menufile    = "menu.ini";
-    $::sendmail    = "| /usr/sbin/sendmail -t";
-    $::lxdebug     = LXDebug->new;
-    $::auth        = SL::Auth->new;
-    %::myconfig    = ();
-    %::called_subs = ();
+    $::userspath  = "users";
+    $::templates  = "templates";
+    $::memberfile = "users/members";
+    $::menufile   = "menu.ini";
+    $::sendmail   = "| /usr/sbin/sendmail -t";
+    $::lxdebug    = LXDebug->new;
+    $::auth       = SL::Auth->new;
+    %::myconfig   = ();
   }
 }
 
@@ -127,9 +126,10 @@ sub handle_request {
     $script_name = $0;
   }
 
-  $::cgi    = CGI->new('');
-  $::locale = Locale->new($::language);
-  $::form   = Form->new;
+  $::cgi         = CGI->new('');
+  $::locale      = Locale->new($::language);
+  $::form        = Form->new;
+  %::called_subs = ();
 
   eval { ($script_name, $action) = _route_request($script_name); 1; } or return;