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";
22 use lib "$FindBin::Bin/../../lib";
28 use CGI qw/:standard/;
29 use CGI::Carp 'fatalsToBrowser';
31 my $userid = cookie('MAPSUser');
32 my $type = param('type');
33 my $next = param('next');
35 $userid ||= $ENV{USER};
37 sub ReturnSequenceNbrs {
43 push @sequence_nbrs, $1;
47 return @sequence_nbrs;
48 } # ReturnSequenceNbrs
53 for (ReturnSequenceNbrs) {
60 $rec{pattern} = param "pattern$_";
61 $rec{domain} = param "domain$_";
62 $rec{comment} = param "comment$_";
63 $rec{hit_count} = param "hit_count$_";
64 $rec{retention} = param "retention$_";
66 $rec{hit_count} = 0 unless $rec{hit_count};
68 my ($err, $msg) = UpdateList(%rec);
76 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
78 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
80 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");