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-2006, Andrew@DeFaria.com, all rights reserved.
  13 #
  14 ################################################################################
  15 use strict;
  16 use warnings;
  17
  18 use FindBin;
  19 $0 = $FindBin::Script;
  20
  21 use lib "$FindBin::Bin/../lib";
  22
  23 use MAPS;
  24 use MAPSLog;
  25 use MAPSWeb;
  26
  27 use CGI qw/:standard/;
  28 use CGI::Carp 'fatalsToBrowser';
  29
  30 my $userid = cookie('MAPSUser');
  31 my $type   = param('type');
  32 my $next   = param('next');
  33
  34 $userid ||= $ENV{USER};
  35
  36 sub ReturnSequenceNbrs {
  37   my @names = param;
  38   my @sequence_nbrs;
  39
  40   for (@names) {
  41     if (/pattern(\d+)/) {
  42       push @sequence_nbrs, $1;
  43     } # if
  44   } # for
  45
  46   return @sequence_nbrs;
  47 } # ReturnSequenceNbrs
  48
  49 # Main
  50 my $i = 0;
  51
  52 foreach (ReturnSequenceNbrs) {
  53   UpdateList(
  54     $userid,
  55     $type,
  56     param("pattern$_"),
  57     param("domain$_"),
  58     param("comment$_"),
  59     param("hit_count$_"),
  60     $_,
  61   );
  62   $i++;
  63 } # for
  64
  65 if ($i eq 0) {
  66   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
  67 } elsif ($i eq 1) {
  68   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
  69 } else {
  70   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");
  71 } # if
  72
  73 exit;