SF.net SVN: ledger-smb:[3304] trunk

[..hidden..]

Revision: 3304
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3304&view=rev
Author:   ehuelsmann
Date:     2011-06-20 20:55:19 +0000 (Mon, 20 Jun 2011)

Log Message:
-----------
Add support for suEXEC setups as reported by mst on #ledgersmb.

Modified Paths:
--------------
    trunk/Reconciliation.pl
    trunk/account.pl
    trunk/am.pl
    trunk/ap.pl
    trunk/ar.pl
    trunk/bp.pl
    trunk/ca.pl
    trunk/cp.pl
    trunk/employee.pl
    trunk/gl.pl
    trunk/ic.pl
    trunk/inventory.pl
    trunk/ir.pl
    trunk/is.pl
    trunk/jc.pl
    trunk/job.pl
    trunk/journal.pl
    trunk/location.pl
    trunk/menu.pl
    trunk/oe.pl
    trunk/payment.pl
    trunk/pe.pl
    trunk/ps.pl
    trunk/rp.pl
    trunk/taxform.pl
    trunk/user.pl
    trunk/vendor.pl

Modified: trunk/Reconciliation.pl
===================================================================
--- trunk/Reconciliation.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/Reconciliation.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";

Modified: trunk/account.pl
===================================================================
--- trunk/account.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/account.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -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
 

Modified: trunk/am.pl
===================================================================
--- trunk/am.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/am.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/ap.pl
===================================================================
--- trunk/ap.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ap.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/ar.pl
===================================================================
--- trunk/ar.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ar.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/bp.pl
===================================================================
--- trunk/bp.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/bp.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/ca.pl
===================================================================
--- trunk/ca.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ca.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/cp.pl
===================================================================
--- trunk/cp.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/cp.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/employee.pl
===================================================================
--- trunk/employee.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/employee.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";

Modified: trunk/gl.pl
===================================================================
--- trunk/gl.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/gl.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/ic.pl
===================================================================
--- trunk/ic.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ic.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/inventory.pl
===================================================================
--- trunk/inventory.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/inventory.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";

Modified: trunk/ir.pl
===================================================================
--- trunk/ir.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ir.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/is.pl
===================================================================
--- trunk/is.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/is.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/jc.pl
===================================================================
--- trunk/jc.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/jc.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/job.pl
===================================================================
--- trunk/job.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/job.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";

Modified: trunk/journal.pl
===================================================================
--- trunk/journal.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/journal.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -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
 

Modified: trunk/location.pl
===================================================================
--- trunk/location.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/location.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/menu.pl
===================================================================
--- trunk/menu.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/menu.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";

Modified: trunk/oe.pl
===================================================================
--- trunk/oe.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/oe.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/payment.pl
===================================================================
--- trunk/payment.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/payment.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -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";

Modified: trunk/pe.pl
===================================================================
--- trunk/pe.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/pe.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/ps.pl
===================================================================
--- trunk/ps.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/ps.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/rp.pl
===================================================================
--- trunk/rp.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/rp.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";

Modified: trunk/taxform.pl
===================================================================
--- trunk/taxform.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/taxform.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";

Modified: trunk/user.pl
===================================================================
--- trunk/user.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/user.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";

Modified: trunk/vendor.pl
===================================================================
--- trunk/vendor.pl	2011-06-20 14:19:19 UTC (rev 3303)
+++ trunk/vendor.pl	2011-06-20 20:55:19 UTC (rev 3304)
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.