diff options
Diffstat (limited to 'cgi/printenv.pl')
-rwxr-xr-x | cgi/printenv.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/cgi/printenv.pl b/cgi/printenv.pl new file mode 100755 index 0000000..9686c88 --- /dev/null +++ b/cgi/printenv.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +print "Status: 403\r\n"; +print "Content-Type: text/plain\r\n\r\n"; + +# foreach my $var (sort(keys(%ENV))) { +# my $val = $ENV{$var}; +# $val =~ s|\n|\\n|g; +# $val =~ s|"|\\"|g; +# print "${var}=\"${val}\"\n"; +# } |