diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-11 20:22:52 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-11 20:22:52 +0000 |
| commit | f8c67e67f0272c3f5d06108ade34a1fa1885d8da (patch) | |
| tree | 4df7d4e23c3fc0c81acb55a0a98b6515ece73405 /lsmb-request.pl | |
| parent | f74c8fa213cd5409084ede2de7ea4ed626895955 (diff) | |
Cleaning up lsmb-request slightly
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1569 4979c152-3d1c-0410-bac9-87ea11338e46
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" ); |