Minor fixes

diff --git a/maps/bin/maps b/maps/bin/maps
index 4a9b64e..c5d3a8c 100755 (executable)
--- a/maps/bin/maps
+++ b/maps/bin/maps
@@ -169,7 +169,7 @@ sub ProcessMsgs ($$$) {
     # Discard messges coming from andrew@clearscm.com because I don't send from
     # that email address
     if (lc $msgInfo{to} eq 'andrew@clearscm.com') {
-      $log->msg("Nullisting message from Andrew\@ClearSCM.com since I don't send from that email address");
+      $log->msg("Nulllisting message from Andrew\@ClearSCM.com since I don't send from that email address");
 
       next;
     } # if

diff --git a/maps/bin/mapsutil.pl b/maps/bin/mapsutil.pl
index be9da97..15488fd 100755 (executable)
--- a/maps/bin/mapsutil.pl
+++ b/maps/bin/mapsutil.pl
@@ -203,7 +203,10 @@ sub LoadListFile($) {
 
   my $sequence = 0;
 
-  Info("Adding $listfilename to $listtype list");
+  Info(
+    userid  => $userid,
+    message => "Adding $listfilename to $listtype list",
+  );
 
   while ($listfile) {
     chomp;
@@ -253,18 +256,21 @@ sub LoadEmail($) {
       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($) {