Code Review
/
bottlenecks.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
review
|
tree
history
|
raw
|
HEAD
bottleneck testcase based on rubbos
[bottlenecks.git]
/
rubbos
/
app
/
apache2
/
cgi-bin
/
printenv
1
#!/usr/local/bin/perl
2
##
3
## printenv -- demo CGI program which just prints its environment
4
##
5
6
print "Content-type: text/plain; charset=iso-8859-1\n\n";
7
foreach $var (sort(keys(%ENV))) {
8
$val = $ENV{$var};
9
$val =~ s|\n|\\n|g;
10
$val =~ s|"|\\"|g;
11
print "${var}=\"${val}\"\n";
12
}
13