Nicht immer alle Session-Werte automatisch laden und parsen

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 239cdcb96de690bdbf75a60fd3ba997248a02f81..7abe58f7a9538d0b74facd411b8e83dff216f383 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -164,6 +164,11 @@ sub handle_request {
   $::form        = Form->new;
   %::called_subs = ();
 
+  my $session_result = $::auth->restore_session;
+  $::auth->create_or_refresh_session;
+
+  $::form->read_cgi_input;
+
   eval { ($routing_type, $script_name, $action) = _route_request($script_name); 1; } or return;
 
   if ($routing_type eq 'old') {
@@ -183,9 +188,6 @@ sub handle_request {
   eval {
     pre_request_checks();
 
-    my $session_result = $::auth->restore_session;
-    $::auth->create_or_refresh_session;
-
     $::form->error($::locale->text('System currently down for maintenance!')) if -e ($::lx_office_conf{paths}->{userspath} . "/nologin") && $script ne 'admin';
 
     if ($script eq 'login' or $script eq 'admin') {
@@ -225,13 +227,14 @@ sub handle_request {
     1;
   } or do {
     if ($EVAL_ERROR ne END_OF_REQUEST) {
+      print STDERR $EVAL_ERROR;
       $::form->{label_error} = $::cgi->pre($EVAL_ERROR);
       eval { show_error('generic/error') };
     }
   };
 
   # cleanup
-  $::auth->expire_session_keys->save_session;
+  $::auth->save_session;
   $::auth->expire_sessions;
   $::auth->reset;