From: Roy T. Fielding <fielding@apache.org>
Date: Fri, 31 Mar 2000 06:32:10 +0000 (+0000)
Subject: Merge forward changes in Apache 1.3 printenv
X-Git-Tag: APACHE_2_0_ALPHA_2~11
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f93ba81e47fc0aeb7ac4d63a2d923a837d26ae43;p=thirdparty%2Fapache%2Fhttpd.git

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
---

diff --git a/docs/cgi-examples/printenv b/docs/cgi-examples/printenv
index 7d389e0ac56..207074361a7 100644
--- a/docs/cgi-examples/printenv
+++ b/docs/cgi-examples/printenv
@@ -1,7 +1,13 @@
 #!/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";
 }