From 57945a64828a7048d2b704abf4f926f359c8f7ec Mon Sep 17 00:00:00 2001 From: Erik Huelsmann Date: Mon, 20 Jun 2011 20:55:19 +0000 Subject: [PATCH] Add support for suEXEC setups as reported by mst on #ledgersmb. git-svn-id: svn://svn.code.sf.net/p/ledger-smb/code/trunk@3304 4979c152-3d1c-0410-bac9-87ea11338e46 --- Reconciliation.pl | 5 +++++ account.pl | 5 +++++ am.pl | 5 +++++ ap.pl | 5 +++++ ar.pl | 5 +++++ bp.pl | 5 +++++ ca.pl | 5 +++++ cp.pl | 5 +++++ employee.pl | 5 +++++ gl.pl | 5 +++++ ic.pl | 5 +++++ inventory.pl | 5 +++++ ir.pl | 5 +++++ is.pl | 5 +++++ jc.pl | 5 +++++ job.pl | 5 +++++ journal.pl | 5 +++++ location.pl | 5 +++++ menu.pl | 5 +++++ oe.pl | 5 +++++ payment.pl | 7 ++++++- pe.pl | 5 +++++ ps.pl | 5 +++++ rp.pl | 5 +++++ taxform.pl | 5 +++++ user.pl | 5 +++++ vendor.pl | 5 +++++ 27 files changed, 136 insertions(+), 1 deletion(-) diff --git a/Reconciliation.pl b/Reconciliation.pl index 76f601151c..0ec504beda 100644 --- a/Reconciliation.pl +++ b/Reconciliation.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; diff --git a/account.pl b/account.pl index 684a9f86e0..1a2db4673b 100755 --- a/account.pl +++ b/account.pl @@ -1,5 +1,10 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; #!/usr/bin/perl diff --git a/am.pl b/am.pl index 2e06f6a910..25f49d4343 100755 --- a/am.pl +++ b/am.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/ap.pl b/ap.pl index 2e06f6a910..25f49d4343 100755 --- a/ap.pl +++ b/ap.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/ar.pl b/ar.pl index 2e06f6a910..25f49d4343 100755 --- a/ar.pl +++ b/ar.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/bp.pl b/bp.pl index 2e06f6a910..25f49d4343 100755 --- a/bp.pl +++ b/bp.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/ca.pl b/ca.pl index 2e06f6a910..25f49d4343 100755 --- a/ca.pl +++ b/ca.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/cp.pl b/cp.pl index 2e06f6a910..25f49d4343 100755 --- a/cp.pl +++ b/cp.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/employee.pl b/employee.pl index aaef226d92..56b847b1a1 100755 --- a/employee.pl +++ b/employee.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "lsmb-request.pl"; diff --git a/gl.pl b/gl.pl index 2e06f6a910..25f49d4343 100755 --- a/gl.pl +++ b/gl.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/ic.pl b/ic.pl index 2e06f6a910..25f49d4343 100755 --- a/ic.pl +++ b/ic.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/inventory.pl b/inventory.pl index aaef226d92..56b847b1a1 100755 --- a/inventory.pl +++ b/inventory.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "lsmb-request.pl"; diff --git a/ir.pl b/ir.pl index 2e06f6a910..25f49d4343 100755 --- a/ir.pl +++ b/ir.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/is.pl b/is.pl index 2e06f6a910..25f49d4343 100755 --- a/is.pl +++ b/is.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/jc.pl b/jc.pl index 2e06f6a910..25f49d4343 100755 --- a/jc.pl +++ b/jc.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/job.pl b/job.pl index 76f601151c..0ec504beda 100755 --- a/job.pl +++ b/job.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; diff --git a/journal.pl b/journal.pl index 684a9f86e0..1a2db4673b 100755 --- a/journal.pl +++ b/journal.pl @@ -1,5 +1,10 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; #!/usr/bin/perl diff --git a/location.pl b/location.pl index 2e06f6a910..25f49d4343 100755 --- a/location.pl +++ b/location.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/menu.pl b/menu.pl index 76f601151c..0ec504beda 100755 --- a/menu.pl +++ b/menu.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; diff --git a/oe.pl b/oe.pl index 2e06f6a910..25f49d4343 100755 --- a/oe.pl +++ b/oe.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/payment.pl b/payment.pl index bb07013e20..0ec504beda 100755 --- a/payment.pl +++ b/payment.pl @@ -1,3 +1,8 @@ -#!/usr/bin/perl +#!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "lsmb-request.pl"; diff --git a/pe.pl b/pe.pl index 2e06f6a910..25f49d4343 100755 --- a/pe.pl +++ b/pe.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/ps.pl b/ps.pl index 2e06f6a910..25f49d4343 100755 --- a/ps.pl +++ b/ps.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/rp.pl b/rp.pl index 2e06f6a910..25f49d4343 100755 --- a/rp.pl +++ b/rp.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "old-handler.pl"; diff --git a/taxform.pl b/taxform.pl index 76f601151c..0ec504beda 100755 --- a/taxform.pl +++ b/taxform.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; diff --git a/user.pl b/user.pl index 76f601151c..0ec504beda 100755 --- a/user.pl +++ b/user.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require "lsmb-request.pl"; diff --git a/vendor.pl b/vendor.pl index aaef226d92..56b847b1a1 100755 --- a/vendor.pl +++ b/vendor.pl @@ -1,2 +1,7 @@ #!/usr/bin/perl + +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} require "lsmb-request.pl";