minor refactoring

eg/apache.conf

@@ -0,0 +1,27 @@
+<VirtualHost *:80>
+    PerlOptions +Parent
+    PerlSwitches -I/data/WebGUI/lib
+    
+    # CGI
+	#AddHandler cgi-script cgi
+	#ScriptAlias / /data/WebGUI/etc/dev.localhost.localdomain.cgi/
+	#<Directory /data/WebGUI/etc>
+    #   Options +ExecCGI
+    #</Directory>
+
+    # Apache2
+    #SetHandler perl-script
+    #PerlHandler Plack::Server::Apache2
+    #PerlSetVar psgi_app /data/WebGUI/etc/dev.localhost.localdomain.psgi
+    
+    # FastCGI
+    FastCgiServer /data/WebGUI/etc/dev.localhost.localdomain.fcgi
+    ScriptAlias / /data/WebGUI/etc/dev.localhost.localdomain.fcgi/
+    
+    # mod_psgi
+    #<Location />
+    #    SetHandler psgi
+    #    PSGIApp /data/WebGUI/etc/dev.localhost.localdomain.psgi
+    #</Location>
+    
+</VirtualHost>

eg/basic.psgi

@@ -1,12 +0,0 @@
-use lib '/data/WebGUI/lib';
-use WebGUI;
-
-# Some ways to achieve the same thing from the command line:
-#  plackup -MWebGUI -e 'WebGUI->new'
-#  plackup -MWebGUI -e 'WebGUI->new("dev.localhost.localdomain.conf")'
-#  plackup -MWebGUI -e 'WebGUI->new(root => "/data/WebGUI", site => "dev.localhost.localdomain.conf")'
-#
-# Or from a .psgi file:
-#  my $app = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' )->psgi_app;
-# Or equivalently (using the defaults):
-WebGUI->new;

eg/dev.localhost.localdomain.cgi

@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use Plack::Server::CGI;
+
+my $app = Plack::Util::load_psgi("/data/WebGUI/etc/dev.localhost.localdomain.psgi");
+Plack::Server::CGI->new->run($app);

eg/dev.localhost.localdomain.fcgi

@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use Plack::Server::FCGI;
+
+my $app = Plack::Util::load_psgi("/data/WebGUI/etc/dev.localhost.localdomain.psgi");
+Plack::Server::FCGI->new->run($app);

eg/dev.localhost.localdomain.perlbal

@@ -0,0 +1,7 @@
+  LOAD PSGI
+  CREATE SERVICE psgi
+    SET role    = web_server
+    SET listen  = 127.0.0.1:80
+    SET plugins = psgi
+    PSGI_APP    = dev.localhost.localdomain.psgi
+  ENABLE psgi