projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Moved this script into clearscm
[clearscm.git]
/
maps
/
bin
/
modifyentries.cgi
diff --git
a/maps/bin/modifyentries.cgi
b/maps/bin/modifyentries.cgi
index
0d92c27
..
4c58984
100755
(executable)
--- a/
maps/bin/modifyentries.cgi
+++ b/
maps/bin/modifyentries.cgi
@@
-2,8
+2,8
@@
################################################################################
#
# File: $RCSfile: modifyentries.cgi,v $
################################################################################
#
# File: $RCSfile: modifyentries.cgi,v $
-# Revision: $Revision: 1.1 $
-# Description: Modify list entries
+# 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 $
# Author: Andrew@DeFaria.com
# Created: Mon Jan 16 20:25:32 PST 2006
# Modified: $Date: 2013/06/12 14:05:47 $
@@
-18,7
+18,7
@@
use warnings;
use FindBin;
$0 = $FindBin::Script;
use FindBin;
$0 = $FindBin::Script;
-use lib
$FindBin::Bin
;
+use lib
"$FindBin::Bin/../lib"
;
use MAPS;
use MAPSLog;
use MAPS;
use MAPSLog;
@@
-27,9
+27,9
@@
use MAPSWeb;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
-my $userid = cookie
('MAPSUser');
-my $type = param
('type');
-my $next = param
('next');
+my $userid = cookie('MAPSUser');
+my $type = param('type');
+my $next = param('next');
$userid ||= $ENV{USER};
$userid ||= $ENV{USER};
@@
-37,11
+37,11
@@
sub ReturnSequenceNbrs {
my @names = param;
my @sequence_nbrs;
my @names = param;
my @sequence_nbrs;
- for
each
(@names) {
+ for (@names) {
if (/pattern(\d+)/) {
push @sequence_nbrs, $1;
} # if
if (/pattern(\d+)/) {
push @sequence_nbrs, $1;
} # if
- } # for
each
+ } # for
return @sequence_nbrs;
} # ReturnSequenceNbrs
return @sequence_nbrs;
} # ReturnSequenceNbrs
@@
-49,17
+49,18
@@
sub ReturnSequenceNbrs {
# Main
my $i = 0;
# Main
my $i = 0;
-
foreach (ReturnSequenceNbrs) {
foreach (ReturnSequenceNbrs) {
- UpdateList
+ UpdateList
(
$userid,
$type,
$userid,
$type,
- param ("pattern$_"),
- param ("domain$_"),
- param ("comment$_"),
- $_;
+ param("pattern$_"),
+ param("domain$_"),
+ param("comment$_"),
+ param("hit_count$_"),
+ $_,
+ );
$i++;
$i++;
-} # for
each
+} # for
if ($i eq 0) {
print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
if ($i eq 0) {
print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");