use DateUtils;
use Utils;
+our @ISA = qw(Exporter);
our @EXPORT = qw (
Debug
Error
);
our @Types = (
+ 'nulllist',
'returned',
'whitelist',
'blacklist',
'registered',
'mailloop',
- 'nulllist'
);
sub nbr_msgs($) {
for (@Types) {
my $condition = "type=\'$_\' and (timestamp > \'$sod\' and timestamp < \'$eod\')";
- $stats{$_} = MAPS::CountLog(
+ $stats{$_} = MAPS::CountLogDistinct(
userid => $params{userid},
+ column => 'sender',
additional => $condition,
);
} # for
sub Error(%) {
my (%params) = @_;
+ CheckParms(['userid', 'message'], \%params);
+
return Logmsg(
userid => $params{userid},
type => 'error',