Angebote/Aufträge drucken: in order_details übergebene form verwenden …

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 854b863a3f4e8fcc9b1a319ef5afe02040d9eeaf..77074ccd02449be8c7ad3821d4987fb428087ee0 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -25,7 +25,6 @@ use English qw(-no_match_vars);
 use File::Basename;
 use List::MoreUtils qw(all);
 use List::Util qw(first);
 use File::Basename;
 use List::MoreUtils qw(all);
 use List::Util qw(first);

-use POSIX;

 use SL::ArchiveZipFixes;
 use SL::Auth;
 use SL::Dispatcher::AuthHandler;
 use SL::ArchiveZipFixes;
 use SL::Auth;
 use SL::Dispatcher::AuthHandler;


@@ -38,6 +37,7 @@ use SL::Form;
 use SL::Helper::DateTime;
 use SL::InstanceConfiguration;
 use SL::Template::Plugin::HTMLFixes;
 use SL::Helper::DateTime;
 use SL::InstanceConfiguration;
 use SL::Template::Plugin::HTMLFixes;

+use SL::User;

 
 # Trailing new line is added so that Perl will not add the line
 # number 'die' was called in.
 
 # Trailing new line is added so that Perl will not add the line
 # number 'die' was called in.


@@ -105,8 +105,6 @@ sub pre_request_initialization {
       die "cannot find locale for user " . $params{login} unless $::locale   = Locale->new($::myconfig{countrycode});
 
       $::form->{login} = $params{login}; # normaly implicit at login
       die "cannot find locale for user " . $params{login} unless $::locale   = Locale->new($::myconfig{countrycode});
 
       $::form->{login} = $params{login}; # normaly implicit at login

-
-      $::instance_conf->init;

     }
   }
 
     }
   }
 


@@ -131,6 +129,7 @@ sub show_error {
   $::locale                = Locale->new($::myconfig{countrycode});
   $::form->{error}         = $::locale->text('The session is invalid or has expired.') if ($error_type eq 'session');
   $::form->{error}         = $::locale->text('Incorrect password!')                    if ($error_type eq 'password');
   $::locale                = Locale->new($::myconfig{countrycode});
   $::form->{error}         = $::locale->text('The session is invalid or has expired.') if ($error_type eq 'session');
   $::form->{error}         = $::locale->text('Incorrect password!')                    if ($error_type eq 'password');

+  $::form->{error}         = $::locale->text('The action is missing or invalid.')      if ($error_type eq 'action');

 
   return render_error_ajax($::form->{error}) if $::request->is_ajax;
 
 
   return render_error_ajax($::form->{error}) if $::request->is_ajax;
 


@@ -158,8 +157,8 @@ sub pre_startup_setup {
     $::lxdebug     = LXDebug->new;
     $::auth        = SL::Auth->new;
     $::form        = undef;
     $::lxdebug     = LXDebug->new;
     $::auth        = SL::Auth->new;
     $::form        = undef;

-    %::myconfig    = ();

     $::request     = undef;
     $::request     = undef;

+    %::myconfig    = User->get_default_myconfig;

   }
 
   $SIG{__WARN__} = sub {
   }
 
   $SIG{__WARN__} = sub {


@@ -236,7 +235,7 @@ sub handle_request {
   $::form->read_cgi_input;
 
   my %routing;
   $::form->read_cgi_input;
 
   my %routing;

-  eval { %routing = _route_request($ENV{SCRIPT_NAME}); 1; } or return;
+  eval { %routing = $self->_route_request($ENV{SCRIPT_NAME}); 1; } or return;

   ($routing_type, $script_name, $action) = @routing{qw(type controller action)};
   $::lxdebug->log_request($routing_type, $script_name, $action);
 
   ($routing_type, $script_name, $action) = @routing{qw(type controller action)};
   $::lxdebug->log_request($routing_type, $script_name, $action);
 


@@ -275,7 +274,7 @@ sub handle_request {
     if (   (($script eq 'login') && !$action)
         || ($script eq 'admin')
         || (SL::Auth::SESSION_EXPIRED() == $session_result)) {
     if (   (($script eq 'login') && !$action)
         || ($script eq 'admin')
         || (SL::Auth::SESSION_EXPIRED() == $session_result)) {

-      $self->redirect_to_login($script);
+      $self->redirect_to_login(script => $script, error => 'session');

 
     }
 
 
     }
 


@@ -319,6 +318,14 @@ sub handle_request {
 
   $::form->footer;
 
 
   $::form->footer;
 

+  if ($self->_interface_is_fcgi) {
+    # fcgi? send send reponse on its way before cleanup.
+    $self->{request}->Flush;
+    $self->{request}->Finish;
+  }
+
+  $::lxdebug->end_request;
+

   # cleanup
   $::auth->save_session;
   $::auth->expire_sessions;
   # cleanup
   $::auth->save_session;
   $::auth->expire_sessions;


@@ -328,9 +335,9 @@ sub handle_request {
   $::form     = undef;
   $::myconfig = ();
   $::request  = undef;
   $::form     = undef;
   $::myconfig = ();
   $::request  = undef;

-  Form::disconnect_standard_dbh;

 
 

-  $::lxdebug->end_request;
+  SL::DBConnect::Cache->reset_all;
+  Form::disconnect_standard_dbh;

 
   $self->_watch_for_changed_files;
 
 
   $self->_watch_for_changed_files;
 


@@ -338,8 +345,10 @@ sub handle_request {
 }
 
 sub redirect_to_login {
 }
 
 sub redirect_to_login {

-  my ($self, $script) = @_;
-  my $action          = $script =~ m/^admin/i ? 'Admin/login' : 'LoginScreen/user_login&error=session';
+  my ($self, %params) = @_;
+  my $action          = ($params{script} // '') =~ m/^admin/i ? 'Admin/login' : 'LoginScreen/user_login';
+  $action            .= '&error=' . $params{error} if $params{error};
+

   print $::request->cgi->redirect("controller.pl?action=${action}");
   ::end_of_request();
 }
   print $::request->cgi->redirect("controller.pl?action=${action}");
   ::end_of_request();
 }


@@ -362,14 +371,15 @@ sub _interface_is_fcgi {
 }
 
 sub _route_request {
 }
 
 sub _route_request {

-  my $script_name = shift;
+  my ($self, $script_name) = @_;

 
 

-  return $script_name =~ m/dispatcher\.pl$/ ? (type => 'old',        _route_dispatcher_request())
-       : $script_name =~ m/controller\.pl/  ? (type => 'controller', _route_controller_request())
+  return $script_name =~ m/dispatcher\.pl$/ ? (type => 'old',        $self->_route_dispatcher_request)
+       : $script_name =~ m/controller\.pl/  ? (type => 'controller', $self->_route_controller_request)

        :                                      (type => 'old',        controller => $script_name, action => $::form->{action});
 }
 
 sub _route_dispatcher_request {
        :                                      (type => 'old',        controller => $script_name, action => $::form->{action});
 }
 
 sub _route_dispatcher_request {

+  my ($self)  = @_;

   my $name_re = qr{[a-z]\w*};
   my ($script_name, $action);
 
   my $name_re = qr{[a-z]\w*};
   my ($script_name, $action);
 


@@ -400,9 +410,16 @@ sub _route_dispatcher_request {
 }
 
 sub _route_controller_request {
 }
 
 sub _route_controller_request {

+  my ($self) = @_;

   my ($controller, $action, $request_type);
 
   eval {
   my ($controller, $action, $request_type);
 
   eval {

+    # Redirect simple requests to controller.pl without any GET/POST
+    # param to the login page.
+    $self->redirect_to_login(error => 'action') if !$::form->{action};
+
+    # Show an error if the »action« parameter doesn't match the
+    # pattern »Controller/action«.

     $::form->{action}      =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- invalid controller/action.\n";
     ($controller, $action) =  ($1, $2);
     delete $::form->{action};
     $::form->{action}      =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- invalid controller/action.\n";
     ($controller, $action) =  ($1, $2);
     delete $::form->{action};