#!/usr/bin/perl
################################################################################
#
# File:         $RCSfile: modifyentries.cgi,v $
# 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 $
# Language:     perl
#
# (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
#
################################################################################
use strict;
use warnings;

use FindBin;
$0 = $FindBin::Script;

use lib "$FindBin::Bin/../lib";

use MAPS;
use MAPSLog;
use MAPSWeb;

use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';

my $userid = cookie('MAPSUser');
my $type   = param('type');
my $next   = param('next');

$userid ||= $ENV{USER};

sub ReturnSequenceNbrs {
  my @names = param;
  my @sequence_nbrs;

  for (@names) {
    if (/pattern(\d+)/) {
      push @sequence_nbrs, $1;
    } # if
  } # for

  return @sequence_nbrs;
} # ReturnSequenceNbrs

# Main
my $i = 0;

foreach (ReturnSequenceNbrs) {
  UpdateList(
    $userid,
    $type,
    param("pattern$_"),
    param("domain$_"),
    param("comment$_"),
    param("hit_count$_"),
    $_,
  );
  $i++;
} # for

if ($i eq 0) {
  print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
} elsif ($i eq 1) {
  print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
} else {
  print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");
} # if

exit;