Commit d2e756ab authored by Roy T. Fielding's avatar Roy T. Fielding
Browse files

Merge forward changes in Apache 1.3 printenv 

Submitted by:	Ralf S. Engelshall


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@84873 13f79535-47bb-0310-9956-ffa450edef68
parent f77f9219

docs/cgi-examples/printenv

+9 −3
Changes for docs/cgi-examples/printenv: 9 added lines, 3 removed lines.
Original line number Diff line number Diff line 
#!/usr/local/bin/perl

##

##  printenv -- demo CGI program which just prints its environment

##



print "Content-type: text/html\n\n";

while (($key, $val) = each %ENV) {

	print "$key = $val<BR>\n";

print "Content-type: text/plain\n\n";

foreach $var (sort(keys(%ENV))) {

    $val = $ENV{$var};

    $val =~ s|\n|\\n|g;

    $val =~ s|"|\\"|g;

    print "${var}=\"${val}\"\n";

}