* Committing Lulurun's Cgi/Perl implementation of the UGAI servers.

* I love you long time.

2 files changed, 59 insertions, 0 deletions

diff --git a/share/perl/conf/httpd-vhosts.conf b/share/perl/conf/httpd-vhosts.conf
new file mode 100644
index 0000000..447150f
--- /dev/null
+++ b/share/perl/conf/httpd-vhosts.conf
@@ -0,0 +1,25 @@
+LoadModule perl_module modules/mod_perl.so
+PerlRequire "conf/mod_perl-startup.pl"
+
+NameVirtualHost *:80
+<VirtualHost *:80>
+        ServerName opensim.lulu
+        ServerAdmin webmaster@opensim.lulu
+        DocumentRoot /home/lulu/temp/opensim
+        ErrorLog logs/opensim-error_log
+        CustomLog logs/opensim-access_log common
+
+        <Directory "/home/lulu/temp/opensim">
+            Options MultiViews All
+            AllowOverride None
+            Order allow,deny
+            Allow from all
+        </Directory>
+
+        <Files ~ "\.cgi$">
+                SetHandler perl-script
+                PerlResponseHandler ModPerl::Registry
+                PerlOptions +ParseHeaders
+        </Files>
+</VirtualHost>
+
diff --git a/share/perl/conf/mod_perl-startup.pl b/share/perl/conf/mod_perl-startup.pl
new file mode 100644
index 0000000..e8bdb2c
--- /dev/null
+++ b/share/perl/conf/mod_perl-startup.pl
@@ -0,0 +1,34 @@
+# Taken from http://perl.apache.org/docs/2.0/user/handlers/server.html#Startup_File
+
+if ( ! $ENV{MOD_PERL}) { die "GATEWAY_INTERFACE not Perl!"; }
+
+# !!! set this to your opensim's lib
+use lib qw(/home/lulu/temp/opensim/lib);
+
+# enable if the mod_perl 1.0 compatibility is needed
+# use Apache2::compat ();
+
+# preload all mp2 modules
+# use ModPerl::MethodLookup;
+# ModPerl::MethodLookup::preload_all_modules();
+
+use ModPerl::Util (); #for CORE::GLOBAL::exit
+
+use Apache2::RequestRec ();
+use Apache2::RequestIO ();
+use Apache2::RequestUtil ();
+
+use Apache2::ServerRec ();
+use Apache2::ServerUtil ();
+use Apache2::Connection ();
+use Apache2::Log ();
+
+use APR::Table ();
+
+use ModPerl::Registry ();
+
+use Apache2::Const -compile => ':common';
+use APR::Const -compile => ':common';
+
+
+1;