Initial Commit
This commit is contained in:
12
database/cgi-bin/printenv.pl
Normal file
12
database/cgi-bin/printenv.pl
Normal file
@@ -0,0 +1,12 @@
|
||||
#!"\xampp\perl\bin\perl.exe"
|
||||
##
|
||||
## printenv -- demo CGI program which just prints its environment
|
||||
##
|
||||
|
||||
print "Content-type: text/plain; charset=iso-8859-1\n\n";
|
||||
foreach $var (sort(keys(%ENV))) {
|
||||
$val = $ENV{$var};
|
||||
$val =~ s|\n|\\n|g;
|
||||
$val =~ s|"|\\"|g;
|
||||
print "${var}=\"${val}\"\n";
|
||||
}
|
||||
Reference in New Issue
Block a user