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