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
pongraczi · Jun 20, 2011 · 57945a6 · 57945a6
1 parent f60434e
commit 57945a6
Show file tree

Hide file tree

Showing 27 changed files with 136 additions and 1 deletion.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";