projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Shortened some labels
[clearscm.git]
/
maps
/
bin
/
exportlist.cgi
diff --git
a/maps/bin/exportlist.cgi
b/maps/bin/exportlist.cgi
index
45bcce1
..
d1900e4
100755
(executable)
--- a/
maps/bin/exportlist.cgi
+++ b/
maps/bin/exportlist.cgi
@@
-17,7
+17,7
@@
use strict;
use FindBin;
local $0 = $FindBin::Script;
use FindBin;
local $0 = $FindBin::Script;
-use lib
$FindBin::Bin
;
+use lib
"$FindBin::Bin/../lib"
;
use MAPS;
use MAPSWeb;
use MAPS;
use MAPSWeb;
@@
-25,18
+25,18
@@
use MAPSWeb;
use CGI qw/:standard *table/;
use CGI::Carp "fatalsToBrowser";
use CGI qw/:standard *table/;
use CGI::Carp "fatalsToBrowser";
-my $type
= param ("type"
);
-my $userid
= cookie
("MAPSUser");
+my $type
= param('type'
);
+my $userid
= cookie
("MAPSUser");
$userid //= $ENV{USER};
$userid //= $ENV{USER};
-my $Userid
=
ucfirst $userid;
+my $Userid
=
ucfirst $userid;
-sub PrintList {
- my
$type = shift
;
+sub PrintList
($)
{
+ my
($type) = @_
;
- my $year = substr
((scalar
(localtime)), 20, 4);
+ my $year = substr
((scalar
(localtime)), 20, 4);
my ($pattern, $domain, $comment, $hit_count, $last_hit);
my ($pattern, $domain, $comment, $hit_count, $last_hit);
- my $sth = FindList
$type
;
+ my $sth = FindList
($type)
;
print "\################################################################################\n";
print "\#\n";
print "\################################################################################\n";
print "\#\n";
@@
-48,7
+48,7
@@
sub PrintList {
print "\#\n";
print "\################################################################################\n";
print "\#\n";
print "\################################################################################\n";
- while (($_, $_, $pattern, $domain, $comment, $_, $hit_count, $last_hit) = GetList
$sth
) {
+ while (($_, $_, $pattern, $domain, $comment, $_, $hit_count, $last_hit) = GetList
($sth)
) {
last if !(defined $pattern or defined $domain);
$pattern //= '';
last if !(defined $pattern or defined $domain);
$pattern //= '';
@@
-65,13
+65,13
@@
sub PrintList {
} # PrintList
# Main
} # PrintList
# Main
-SetContext
$userid
;
+SetContext
($userid)
;
-print header
(
+print header(
-type => "application/octet-stream",
-attachment => "$type.list",
);
-type => "application/octet-stream",
-attachment => "$type.list",
);
-PrintList
$type
;
+PrintList
($type)
;
exit;
exit;