[interchange-cvs] interchange - ramoore modified lib/Vend/UserDB.pm

[interchange-cvs at icdevgroup.org]

User:      ramoore
Date:      2003-07-15 22:45:51 GMT
Modified:  lib/Vend UserDB.pm
Log:
Add support for iso_time & null_time options for updating UserdB time_field
New options to catalog.cfg are:
	UserDB  default  null_time    1
	UserDB  default  iso_time     1

Revision  Changes    Path
2.21      +12 -5     interchange/lib/Vend/UserDB.pm


rev 2.21, prev_rev 2.20
Index: UserDB.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserDB.pm,v
retrieving revision 2.20
retrieving revision 2.21
diff -u -r2.20 -r2.21
--- UserDB.pm	7 Jul 2003 00:31:18 -0000	2.20
+++ UserDB.pm	15 Jul 2003 22:45:51 -0000	2.21
@@ -1,6 +1,6 @@
 # Vend::UserDB - Interchange user database functions
 #
-# $Id: UserDB.pm,v 2.20 2003/07/07 00:31:18 mheins Exp $
+# $Id: UserDB.pm,v 2.21 2003/07/15 22:45:51 ramoore Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -17,7 +17,7 @@
 
 package Vend::UserDB;
 
-$VERSION = substr(q$Revision: 2.20 $, 10);
+$VERSION = substr(q$Revision: 2.21 $, 10);
 
 use vars qw!
 	$VERSION
@@ -1175,11 +1175,18 @@
 			if $Vend::Cfg->{CookieLogin};
 
 		if ($self->{LOCATION}{LAST} ne 'none') {
+			my $now = time();
+			my $login_time;
+			unless($self->{OPTIONS}{null_time}) {
+				$login_time = $self->{OPTIONS}{iso_time}
+						? POSIX::strftime("%Y-%m-%d %H:%M:%S", localtime($now))
+						: $now;
+			}
 			eval {
 				$udb->set_field( $self->{USERNAME},
-										$self->{LOCATION}{LAST},
-										time()
-									  );
+									$self->{LOCATION}{LAST},
+									$login_time
+									);
 			};
 			if ($@) {
 				my $msg = ::errmsg("Failed to record timestamp in UserDB: %s", $@);