SF.net SVN: ledger-smb:[5110] trunk/tools/ledgersmb.psgi

[..hidden..]

Revision: 5110
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5110&view=rev
Author:   einhverfr
Date:     2012-08-16 11:58:00 +0000 (Thu, 16 Aug 2012)
Log Message:
-----------
Adding ledgersmb.psgi which has been verified on Starlet.  This allows LedgerSMB to be run with the main dependencies cached in memory.

Added Paths:
-----------
    trunk/tools/ledgersmb.psgi

Added: trunk/tools/ledgersmb.psgi
===================================================================
--- trunk/tools/ledgersmb.psgi	                        (rev 0)
+++ trunk/tools/ledgersmb.psgi	2012-08-16 11:58:00 UTC (rev 5110)
@@ -0,0 +1,32 @@
+#!/usr/bin/plackup
+
+  my $path = "/usr/local/ledgersmb_trunk";
+
+  use Plack::App::CGIBin;
+  use Plack::Builder;
+  use LedgerSMB;
+  use LedgerSMB::Form;
+  use Moose;
+  use CGI::Simple;
+  $CGI::Simple::DISABLE_UPLOADS = 0;
+  use LedgerSMB::PGNumber;
+  use LedgerSMB::PGDate;
+  use Data::Dumper;
+  use LedgerSMB::Auth;
+  use LedgerSMB::Session;
+  use LedgerSMB::Template;
+  use LedgerSMB::Locale;
+  use LedgerSMB::User;
+  use LedgerSMB::Locale;
+  use Try::Tiny;
+  use Devel::Trace;
+  use Plack::Middleware::Static;
+  use Log::Log4perl;
+
+  my $app = Plack::App::CGIBin->new(root => "$path")->to_app;
+  builder {
+       enable "Plack::Middleware::Static",
+        path => qr!ledgersmb_trunk/(css|images|favicon|UI)/!,
+        root => "../";
+      mount '/ledgersmb_trunk' => $app;
+  }

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