2 #################################################################################
4 # File: $RCSfile: MAPSLog.pm,v $
5 # Revision: $Revision: 1.1 $
6 # Description: MAPS routines for logging.
7 # Author: Andrew@DeFaria.com
8 # Created: Fri Nov 29 14:17:21 2002
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
20 use base qw(Exporter);
48 return FindEmail($sender);
54 CheckParms(['userid'], \%params);
57 $params{date} ||= Today2SQLDatetime;
61 while ($params{days} > 0) {
62 my $ymd = substr $params{date}, 0, 10;
63 my $sod = $ymd . ' 00:00:00';
64 my $eod = $ymd . ' 23:59:59';
69 my $condition = "type=\'$_\' and (timestamp > \'$sod\' and timestamp < \'$eod\')";
71 $stats{$_} = MAPS::CountLogDistinct(
72 userid => $params{userid},
74 additional => $condition,
78 $dates{$ymd} = \%stats;
80 $params{date} = SubtractDays $params{date}, 1;
90 CheckParms(['userid', 'type', 'message'], \%params);
92 # TODO Why do I need to qualify this?
93 return MAPS::AddLog(%params);
100 userid => $params{userid},
102 message => $params{message});
109 userid => $params{userid},
111 message => $params{message});
118 userid => $params{userid},
120 message => $params{message});