[interchange-cvs] interchange - jon modified 2 files

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2008-04-22 05:28:54 GMT
Modified:  lib/Vend Config.pm Dispatch.pm
Log:
Add new AutoloadEarliest catalog directive.

This is just like Autoload but runs at the earliest possible stage of
page processing, which allows tweaking the session, path, robot status,
cookie handling, authorization, cookie handling, etc.

Revision  Changes    Path
2.236                interchange/lib/Vend/Config.pm


rev 2.236, prev_rev 2.235
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.235
retrieving revision 2.236
diff -u -u -r2.235 -r2.236
--- Config.pm	22 Apr 2008 05:09:44 -0000	2.235
+++ Config.pm	22 Apr 2008 05:28:54 -0000	2.236
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.235 2008-04-22 05:09:44 jon Exp $
+# $Id: Config.pm,v 2.236 2008-04-22 05:28:54 jon Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -54,7 +54,7 @@
 use Vend::Data;
 use Vend::Cron;
 
-$VERSION = substr(q$Revision: 2.235 $, 10);
+$VERSION = substr(q$Revision: 2.236 $, 10);
 
 my %CDname;
 my %CPname;
@@ -128,6 +128,7 @@
 qw/
 		AutoEnd
         Autoload
+        AutoloadEarliest
 		CategoryField
         CommonAdjust
 		DescriptionField
@@ -583,6 +584,7 @@
 	['DatabaseAuto',	 'dbauto',	     	 ''],
 	['DatabaseAutoIgnore',	 'regex',	     	 ''],
 	['Database',  		 'database',     	 ''],
+	['AutoloadEarliest', 'routine_array',	 ''],
 	['Autoload',		 'routine_array',	 ''],
 	['AutoEnd',			 'routine_array',	 ''],
 	['Replace',			 'replace',     	 ''],



1.98                 interchange/lib/Vend/Dispatch.pm


rev 1.98, prev_rev 1.97
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -u -r1.97 -r1.98
--- Dispatch.pm	22 Apr 2008 05:18:56 -0000	1.97
+++ Dispatch.pm	22 Apr 2008 05:28:54 -0000	1.98
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.97 2008-04-22 05:18:56 jon Exp $
+# $Id: Dispatch.pm,v 1.98 2008-04-22 05:28:54 jon Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.97 $, 10);
+$VERSION = substr(q$Revision: 1.98 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -1228,6 +1228,8 @@
 
 	Vend::Server::set_process_name("$Vend::Cat $CGI::host");
 
+	run_macro($Vend::Cfg->{AutoloadEarliest});
+
 	$CGI::user = Vend::Util::check_authorization($CGI::authorization)
 		if defined $CGI::authorization;