X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmodifyentries.cgi;h=cdf3f140fc1d32145d70137d5125e55fc6e875cb;hb=ae9e57b169de143d2b8a7c761c3bf7394385e0d0;hp=4c58984c5d17aa0dae36cdea744b709d31b13696;hpb=338c4f27d2fd517aa63544459399aef9b28438be;p=clearscm.git

diff --git a/maps/bin/modifyentries.cgi b/maps/bin/modifyentries.cgi
index 4c58984..cdf3f14 100755
--- a/maps/bin/modifyentries.cgi
+++ b/maps/bin/modifyentries.cgi
@@ -9,14 +9,14 @@
 # Modified:     $Date: 2013/06/12 14:05:47 $
 # Language:     perl
 #
-# (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
+# (c) Copyright 2000-2021, Andrew@DeFaria.com, all rights reserved.
 #
 ################################################################################
 use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
 
@@ -49,22 +49,31 @@ sub ReturnSequenceNbrs {
 # Main
 my $i = 0;
 
-foreach (ReturnSequenceNbrs) {
-  UpdateList(
-    $userid,
-    $type,
-    param("pattern$_"),
-    param("domain$_"),
-    param("comment$_"),
-    param("hit_count$_"),
-    $_,
+for (ReturnSequenceNbrs) {
+  my %rec = (
+    userid    => $userid,
+    type      => $type,
+    sequence  => $_,
   );
+
+  $rec{pattern}   = param "pattern$_";
+  $rec{domain}    = param "domain$_";
+  $rec{comment}   = param "comment$_";
+  $rec{hit_count} = param "hit_count$_";
+  $rec{retention} = param "retention$_";
+
+  $rec{hit_count} = 0 unless $rec{hit_count};
+
+  my ($err, $msg) = UpdateList(%rec);
+
+  croak $msg if $err;
+
   $i++;
 } # for
 
-if ($i eq 0) {
+if ($i == 0) {
   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
-} elsif ($i eq 1) {
+} elsif ($i == 1) {
   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
 } else {
   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");