projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed menu
[clearscm.git]
/
maps
/
lib
/
MAPSLog.pm
diff --git
a/maps/lib/MAPSLog.pm
b/maps/lib/MAPSLog.pm
index
33ac5c8
..
9d88db4
100644
(file)
--- a/
maps/lib/MAPSLog.pm
+++ b/
maps/lib/MAPSLog.pm
@@
-24,6
+24,7
@@
use MAPS;
use DateUtils;
use Utils;
use DateUtils;
use Utils;
+our @ISA = qw(Exporter);
our @EXPORT = qw (
Debug
Error
our @EXPORT = qw (
Debug
Error
@@
-34,12
+35,12
@@
our @EXPORT = qw (
);
our @Types = (
);
our @Types = (
+ 'nulllist',
'returned',
'whitelist',
'blacklist',
'registered',
'mailloop',
'returned',
'whitelist',
'blacklist',
'registered',
'mailloop',
- 'nulllist'
);
sub nbr_msgs($) {
);
sub nbr_msgs($) {
@@
-68,8
+69,9
@@
sub GetStats(%) {
for (@Types) {
my $condition = "type=\'$_\' and (timestamp > \'$sod\' and timestamp < \'$eod\')";
for (@Types) {
my $condition = "type=\'$_\' and (timestamp > \'$sod\' and timestamp < \'$eod\')";
- $stats{$_} = MAPS::CountLog(
+ $stats{$_} = MAPS::CountLog
Distinct
(
userid => $params{userid},
userid => $params{userid},
+ column => 'sender',
additional => $condition,
);
} # for
additional => $condition,
);
} # for
@@
-104,6
+106,8
@@
sub Debug(%) {
sub Error(%) {
my (%params) = @_;
sub Error(%) {
my (%params) = @_;
+CheckParms(['userid', 'message'], \%params);
+
return Logmsg(
userid => $params{userid},
type => 'error',
return Logmsg(
userid => $params{userid},
type => 'error',