X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmodifyentries.cgi;h=6ac50d7a3794d7c6631340af0693e09e79bf1a70;hb=7ddf095f187ca60d9a70fb83b2bc3c2b6d91f088;hp=b2624a1981c9a0ee8db4aa3973282118bbb73447;hpb=e80b69bc05be9f38b1e4b9af37f3232f5004f5e4;p=clearscm.git

diff --git a/maps/bin/modifyentries.cgi b/maps/bin/modifyentries.cgi
index b2624a1..6ac50d7 100755
--- a/maps/bin/modifyentries.cgi
+++ b/maps/bin/modifyentries.cgi
@@ -9,16 +9,17 @@
 # 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;
+use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSLog;
@@ -27,9 +28,9 @@ use MAPSWeb;
 use CGI qw/:standard/;
 use CGI::Carp 'fatalsToBrowser';
 
-my $userid = cookie ('MAPSUser');
-my $type   = param ('type');
-my $next   = param ('next');
+my $userid = cookie('MAPSUser');
+my $type   = param('type');
+my $next   = param('next');
 
 $userid ||= $ENV{USER};
 
@@ -37,11 +38,11 @@ sub ReturnSequenceNbrs {
   my @names = param;
   my @sequence_nbrs;
 
-  foreach (@names) {
+  for (@names) {
     if (/pattern(\d+)/) {
       push @sequence_nbrs, $1;
     } # if
-  } # foreach
+  } # for
 
   return @sequence_nbrs;
 } # ReturnSequenceNbrs
@@ -49,21 +50,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++;
-} # foreach
+} # 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");