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);
27 our @ISA = qw(Exporter);
49 return FindEmail($sender);
55 CheckParms(['userid'], \%params);
58 $params{date} ||= Today2SQLDatetime;
62 while ($params{days} > 0) {
63 my $ymd = substr $params{date}, 0, 10;
64 my $sod = $ymd . ' 00:00:00';
65 my $eod = $ymd . ' 23:59:59';
70 my $condition = "type=\'$_\' and (timestamp > \'$sod\' and timestamp < \'$eod\')";
72 $stats{$_} = MAPS::CountLogDistinct(
73 userid => $params{userid},
75 additional => $condition,
79 $dates{$ymd} = \%stats;
81 $params{date} = SubtractDays $params{date}, 1;
91 CheckParms(['userid', 'type', 'message'], \%params);
93 # TODO Why do I need to qualify this?
94 return MAPS::AddLog(%params);
101 userid => $params{userid},
103 message => $params{message});
109 CheckParms(['userid', 'message'], \%params);
112 userid => $params{userid},
114 message => $params{message});
121 userid => $params{userid},
123 message => $params{message});