################################################################################
#
# File: $RCSfile: modifyentries.cgi,v $
-# Revision: $Revision: 1.1 $
-# Description: Modify list entries
+# Revision: $Revision: 1.1 $
+# Description: Modify list entries
# Author: Andrew@DeFaria.com
# Created: Mon Jan 16 20:25:32 PST 2006
# Modified: $Date: 2013/06/12 14:05:47 $
use FindBin;
$0 = $FindBin::Script;
-use lib $FindBin::Bin;
+use lib "$FindBin::Bin/../lib";
use MAPS;
use MAPSLog;
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};
my @names = param;
my @sequence_nbrs;
- foreach (@names) {
+ for (@names) {
if (/pattern(\d+)/) {
push @sequence_nbrs, $1;
} # if
- } # foreach
+ } # for
return @sequence_nbrs;
} # ReturnSequenceNbrs
# Main
my $i = 0;
-
foreach (ReturnSequenceNbrs) {
- UpdateList
+ UpdateList(
$userid,
$type,
- param ("pattern$_"),
- param ("domain$_"),
- param ("comment$_"),
- $_;
+ param("pattern$_"),
+ param("domain$_"),
+ param("comment$_"),
+ param("hit_count$_"),
+ $_,
+ );
$i++;
-} # foreach
+} # for
if ($i eq 0) {
print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");