diff options
Diffstat (limited to 'lsmb-request.pl')
-rw-r--r-- | lsmb-request.pl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lsmb-request.pl b/lsmb-request.pl index afc3f2a8..47eec723 100644 --- a/lsmb-request.pl +++ b/lsmb-request.pl @@ -36,14 +36,10 @@ use Data::Dumper; eval { require "custom.pl"; }; $request = new LedgerSMB; +$request->{action} = '__default' if (!$request->{action}); -$0 =~ m/([^\/\\]*.pl)$/; -if (!$1){ - $0 =~ m/([^\/\\]*.pl)[? ]/; -} - +$0 =~ m/([^\/\\]*.pl)\?*.*$/; $script = $1; - $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} ) or $request->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" ); |