some updates to URL and content handlers to make them a bit more flexible

lib/WebGUI/Content/Referral.pm

@@ -0,0 +1,55 @@
+package WebGUI::Content::Referral;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2008 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use WebGUI::Affiliate;
+
+
+=head1 NAME
+
+Package WebGUI::Content::Referral
+
+=head1 DESCRIPTION
+
+Processes referrals from other sites.
+
+=head1 SYNOPSIS
+
+ use WebGUI::Content::Referral;
+ my $output = WebGUI::Content::Referral::handler($session);
+
+=head1 SUBROUTINES
+
+These subroutines are available from this package:
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 handler ( session ) 
+
+The content handler for this package.
+
+=cut
+
+sub handler {
+    my ($session) = @_;
+    WebGUI::Affiliate::grabReferral($session);	# process affiliate tracking request
+    return undef;
+}
+
+1;
+

lib/WebGUI/URL/Content.pm

@@ -80,12 +80,11 @@ sub handler {
                 } 
             }
         }
-        WebGUI::Affiliate::grabReferral($session);	# process affiliate tracking request
         $session->close;
         return Apache2::Const::OK;
     });
     $request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 1;

lib/WebGUI/URL/Credits.pm

@@ -58,7 +58,7 @@ sub handler {
         return Apache2::Const::OK;
     } );
 	$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 

lib/WebGUI/URL/PassThru.pm

@@ -52,7 +52,7 @@ sub handler {
 	    $request->handler(Apache2::Const::DIR_MAGIC_TYPE);  # Hand off to mod_dir
 	    return Apache2::Const::OK;
 	}
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 1;

lib/WebGUI/URL/Snoop.pm

@@ -53,7 +53,7 @@ sub handler {
         return Apache2::Const::OK;
     } );
 	$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 

lib/WebGUI/URL/Uploads.pm

@@ -77,7 +77,7 @@ sub handler {
 		    return Apache2::Const::NOT_FOUND;
 	    }
     } );
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 

lib/WebGUI/URL/_url.skeleton

@@ -15,7 +15,7 @@ package WebGUI::URL::MyHandler;
 =cut
 
 use strict;
-use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND DIR_MAGIC_TYPE);
+use Apache2::Const -compile => qw(OK DECLINED NOT_FOUND);
 
 
 =head1 NAME
@@ -48,7 +48,7 @@ The Apache request handler for this package.
 sub handler {
     my ($request, $server, $config) = @_;
     # ...
-    return Apache2::Const::DECLINED;
+    return Apache2::Const::OK;
 }
 
 1;