[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2007-02-06 12:17:50 GMT
Modified:  lib/Vend Config.pm Track.pm
Log:
new TrackDateFormat configuration directive

Revision  Changes    Path
2.212     +4 -3      interchange/lib/Vend/Config.pm


rev 2.212, prev_rev 2.211
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.211
retrieving revision 2.212
diff -u -r2.211 -r2.212
--- Config.pm	29 Jan 2007 19:29:45 -0000	2.211
+++ Config.pm	6 Feb 2007 12:17:49 -0000	2.212
@@ -1,8 +1,8 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.211 2007/01/29 19:29:45 jon Exp $
+# $Id: Config.pm,v 2.212 2007/02/06 12:17:49 racke Exp $
 #
-# Copyright (C) 2002-2006 Interchange Development Group
+# Copyright (C) 2002-2007 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -54,7 +54,7 @@
 use Vend::Data;
 use Vend::Cron;
 
-$VERSION = substr(q$Revision: 2.211 $, 10);
+$VERSION = substr(q$Revision: 2.212 $, 10);
 
 my %CDname;
 my %CPname;
@@ -655,6 +655,7 @@
 	['AsciiTrack',	 	 undef,     	     ''],
 	['TrackFile',	 	 undef,              ''],
 	['TrackPageParam',	 'hash',     	     ''],
+	['TrackDateFormat',	 undef,     	     ''],
 	['SalesTax',		 undef,     	     ''],
 	['SalesTaxFunction', undef,     	     ''],
 	['StaticDir',		 undef,     	     ''],



2.3       +7 -4      interchange/lib/Vend/Track.pm


rev 2.3, prev_rev 2.2
Index: Track.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Track.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -r2.2 -r2.3
--- Track.pm	17 Jun 2002 22:24:08 -0000	2.2
+++ Track.pm	6 Feb 2007 12:17:49 -0000	2.3
@@ -1,8 +1,8 @@
 # Vend::Track - Interchange User Tracking
 #
-# $Id: Track.pm,v 2.2 2002/06/17 22:24:08 jon Exp $
+# $Id: Track.pm,v 2.3 2007/02/06 12:17:49 racke Exp $
 #
-# Copyright (C) 2000-2002 by Stefan Hornburg <racke at linuxia.de>
+# Copyright (C) 2000-2007 by Stefan Hornburg <racke at linuxia.de>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -35,7 +35,7 @@
 require Exporter;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -155,7 +155,10 @@
 sub std_log {
 	my(@parm) = @_;
 	my $now = time();
-	my $date = POSIX::strftime('%Y%m%d', localtime($now));
+	my ($fmt, $date);
+
+	$fmt = $Vend::Cfg->{TrackDateFormat} || '%Y%m%d';
+	$date = POSIX::strftime($fmt, localtime($now));
 
 	::logData(
 		$Vend::Cfg->{TrackFile},