2 ################################################################################
4 # File: $RCSfile: modifyentries.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Modify list entries
7 # Author: Andrew@DeFaria.com
8 # Created: Mon Jan 16 20:25:32 PST 2006
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2021, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
19 local $0 = $FindBin::Script;
21 use lib "$FindBin::Bin/../lib";
27 use CGI qw/:standard/;
28 use CGI::Carp 'fatalsToBrowser';
30 my $userid = cookie('MAPSUser');
31 my $type = param('type');
32 my $next = param('next');
34 $userid ||= $ENV{USER};
36 sub ReturnSequenceNbrs {
42 push @sequence_nbrs, $1;
46 return @sequence_nbrs;
47 } # ReturnSequenceNbrs
52 for (ReturnSequenceNbrs) {
59 $rec{pattern} = param "pattern$_";
60 $rec{domain} = param "domain$_";
61 $rec{comment} = param "comment$_";
62 $rec{hit_count} = param "hit_count$_";
63 $rec{retention} = param "retention$_";
65 $rec{hit_count} = 0 unless $rec{hit_count};
67 my ($err, $msg) = UpdateList(%rec);
75 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
77 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
79 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");