You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by fi...@locus.apache.org on 2000/03/31 08:32:10 UTC
cvs commit: apache-2.0/cgi-bin printenv
fielding 00/03/30 22:32:10
Modified: cgi-bin printenv
Log:
Merge forward changes in Apache 1.3 printenv
Submitted by: Ralf S. Engelshall
Revision Changes Path
1.2 +9 -3 apache-2.0/cgi-bin/printenv
Index: printenv
===================================================================
RCS file: /home/cvs/apache-2.0/cgi-bin/printenv,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- printenv 1999/08/24 05:33:44 1.1
+++ printenv 2000/03/31 06:32:10 1.2
@@ -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";
}