maps/bin/modifyentries.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   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 $
  10 # Language:     perl
  11 #
  12 # (c) Copyright 2000-2021, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 local $0 = $FindBin::Script;
  20
  21 use lib "$FindBin::Bin/../lib";
  22 use lib "$FindBin::Bin/../../lib";
  23
  24 use MAPS;
  25 use MAPSLog;
  26 use MAPSWeb;
  27
  28 use CGI qw/:standard/;
  29 use CGI::Carp 'fatalsToBrowser';
  30
  31 my $userid = cookie('MAPSUser');
  32 my $type   = param('type');
  33 my $next   = param('next');
  34
  35 $userid ||= $ENV{USER};
  36
  37 sub ReturnSequenceNbrs {
  38   my @names = param;
  39   my @sequence_nbrs;
  40
  41   for (@names) {
  42     if (/pattern(\d+)/) {
  43       push @sequence_nbrs, $1;
  44     } # if
  45   } # for
  46
  47   return @sequence_nbrs;
  48 } # ReturnSequenceNbrs
  49
  50 # Main
  51 my $i = 0;
  52
  53 for (ReturnSequenceNbrs) {
  54   my %rec = (
  55     userid    => $userid,
  56     type      => $type,
  57     sequence  => $_,
  58   );
  59
  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$_";
  65
  66   $rec{hit_count} = 0 unless $rec{hit_count};
  67
  68   my ($err, $msg) = UpdateList(%rec);
  69
  70   croak $msg if $err;
  71
  72   $i++;
  73 } # for
  74
  75 if ($i == 0) {
  76   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
  77 } elsif ($i == 1) {
  78   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
  79 } else {
  80   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");
  81 } # if
  82
  83 exit;