my $sequence = 0;
- Info("Adding $listfilename to $listtype list");
+ Info(
+ userid => $userid,
+ message => "Adding $listfilename to $listtype list",
+ );
while ($listfile) {
chomp;
data => $msgInfo{data},
);
- Info("Added message from $msgInfo{sender} to email");
+ Info(
+ userid => $userid,
+ message => "Added message from $msgInfo{sender} to email"
+ );
} # while
if ($nbr_msgs == 0) {
- say "No messages found to load";
+ print "No messages found to load";
} elsif ($nbr_msgs == 1) {
- say "Loaded 1 message";
+ print "Loaded 1 message";
} else {
- say "Loaded $nbr_msgs messages";
+ print "Loaded $nbr_msgs messages";
} # if
- say "from $file";
+ say " from $filename";
} # LoadEmail
sub DumpEmail($) {
} # ShowUsers
sub ShowEmail() {
+ my @fields = qw(userid timestamp sender subject);
my ($err, $msg) = $MAPS::db->find(
'email',
"userid='$userid'",
- qw(userid timestamp sender subject),
+ \@fields,
);
my ($timestamp, $sender, $subject);
while (my $rec = $MAPS::db->getnext) {
last unless $rec->{userid};
- $timestamp = $rec->{timestamp};
- $sender = $rec->{sender};
- $subject = $rec->{subject};
+ $timestamp = $rec->{timestamp} || '<undef>';
+ $sender = $rec->{sender} || '<undef>';
+ $subject = $rec->{subject} || '<undef>';
write();
} # while