X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/79fe937f954d0a9cf034d6b46ca1be1abb2f1d7d..aabb3a63106b2c86bfc7c79089bbcf5fd52e72a1:/SL/Dispatcher.pm diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm index fb88af58e..dc7f68f2d 100644 --- a/SL/Dispatcher.pm +++ b/SL/Dispatcher.pm @@ -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;