Fixed RecordHit to update last_hit

diff --git a/maps/bin/maps b/maps/bin/maps
index 8ff35a7..17047f4 100755 (executable)
--- a/maps/bin/maps
+++ b/maps/bin/maps
@@ -206,9 +206,10 @@ sub ProcessMsgs ($$$) {
     ($onlist, $rec) = OnNulllist $sender;
 
     if ($onlist) {
-      #$log->msg("Nulllisting $sender - Rule: $rule:$sequence/$hit_count");
       $log->msg("Nulllisting $sender - Rule: " . formatRule($rec));
+
       Nulllist $sender, $rec->{sequence}, $rec->{hit_count};
+
       next;
     } # if
 

diff --git a/maps/lib/MAPS.pm b/maps/lib/MAPS.pm
index b66b64e..c61a4da 100644 (file)
--- a/maps/lib/MAPS.pm
+++ b/maps/lib/MAPS.pm
@@ -1066,13 +1066,19 @@ sub ReadMsg($) {
 sub RecordHit(%) {
   my (%rec) = @_;
 
-  CheckParms(['userid', 'type', 'sequence', ], \%rec);
-
-  my $current_date = UnixDatetime2SQLDatetime(scalar(localtime));
+  CheckParms(['userid', 'type', 'sequence'], \%rec);
 
   my $table     = 'list';
   my $condition = "userid='$rec{userid}' and type='$rec{type}' and sequence='$rec{sequence}'";
 
+  # We don't need these fields in %rec as we are not updating them
+  delete $rec{sequence};
+  delete $rec{type};
+  delete $rec{userid};
+
+  # We are, however, updating last_hit
+  $rec{last_hit} = UnixDatetime2SQLDatetime(scalar(localtime));
+
   return $db->modify($table, $condition, %rec);
 } # RecordHit