summaryrefslogtreecommitdiffstats
path: root/rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv
diff options
context:
space:
mode:
authorhongbotian <hongbo.tianhongbo@huawei.com>2015-11-30 01:45:08 -0500
committerhongbotian <hongbo.tianhongbo@huawei.com>2015-11-30 01:45:08 -0500
commite8ec7aa8e38a93f5b034ac74cebce5de23710317 (patch)
treeaa031937bf856c1f8d6ad7877b8d2cb0224da5ef /rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv
parentcc40af334e619bb549038238507407866f774f8f (diff)
upload http
JIRA: BOTTLENECK-10 Change-Id: I7598427ff904df438ce77c2819ee48ac75ffa8da Signed-off-by: hongbotian <hongbo.tianhongbo@huawei.com>
Diffstat (limited to 'rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv')
-rw-r--r--rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv13
1 files changed, 13 insertions, 0 deletions
diff --git a/rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv b/rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv
new file mode 100644
index 00000000..e4c2140b
--- /dev/null
+++ b/rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv
@@ -0,0 +1,13 @@
+#!/usr/local/bin/perl
+##
+## 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";
+}
+