[Cpan-forum-commit] rev 270 - in trunk: . lib/CPAN/Forum

[svn at pti.co.il]

Author: gabor
Date: 2007-07-20 17:44:48 +0300 (Fri, 20 Jul 2007)
New Revision: 270

Added:
   trunk/lib/CPAN/Forum/Handler.pm
Modified:
   trunk/
   trunk/MANIFEST
Log:
dd Handler.pm module to allow mod_perl execution



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4238
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4255
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/MANIFEST
===================================================================
--- trunk/MANIFEST	2007-07-19 14:08:01 UTC (rev 269)
+++ trunk/MANIFEST	2007-07-20 14:44:48 UTC (rev 270)
@@ -15,6 +15,7 @@
 lib/CPAN/Forum/Markup.pm
 lib/CPAN/Forum/Build.pm
 lib/CPAN/Forum/DBI.pm
+lib/CPAN/Forum/Handler.pm
 lib/CPAN/Forum/INC.pm
 
 lib/CPAN/Forum/DB/Authors.pm

Added: trunk/lib/CPAN/Forum/Handler.pm
===================================================================
--- trunk/lib/CPAN/Forum/Handler.pm	                        (rev 0)
+++ trunk/lib/CPAN/Forum/Handler.pm	2007-07-20 14:44:48 UTC (rev 270)
@@ -0,0 +1,33 @@
+package CPAN::Forum::Handler;
+use strict;
+use warnings;
+
+use Apache2::Const -compile => qw(OK);
+use Apache2::RequestRec ();
+
+my $seen;
+
+sub handler {
+    my $r = shift;
+    $r->content_type('text/html');
+
+    my $root = "$ENV{DOCUMENT_ROOT}/..";
+    local @INC = ("$root/lib", "/home/gabor/perl5lib/lib", "/home/gabor/perl5lib/lib/i486-linux-gnu-thread-multi", @INC);
+    require CPAN::Forum;
+#use Data::Dumper;
+#warn Dumper \%ENV;
+
+    my $app = CPAN::Forum->new(
+	    TMPL_PATH => "$ENV{CPANFORUM_ROOT}/templates",
+	    PARAMS => {
+		    ROOT       => $ENV{CPANFORUM_ROOT},
+            DB_CONNECT => "dbi:SQLite:$ENV{CPANFORUM_ROOT}/db/forum.db",
+            REQUEST    => ($ENV{SCRIPT_NAME} || '') . ($ENV{PATH_INFO} || ''),
+	    },
+    );
+    $app->run();
+    return Apache2::Const::OK;
+}
+
+1;
+