From cc40af334e619bb549038238507407866f774f8f Mon Sep 17 00:00:00 2001 From: hongbotian Date: Mon, 30 Nov 2015 01:35:09 -0500 Subject: upload apache JIRA: BOTTLENECK-10 Change-Id: I67eae31de6dc824097dfa56ab454ba36fdd23a2c Signed-off-by: hongbotian --- rubbos/app/apache2/cgi-bin/printenv | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 rubbos/app/apache2/cgi-bin/printenv (limited to 'rubbos/app/apache2/cgi-bin/printenv') diff --git a/rubbos/app/apache2/cgi-bin/printenv b/rubbos/app/apache2/cgi-bin/printenv new file mode 100644 index 00000000..e4c2140b --- /dev/null +++ b/rubbos/app/apache2/cgi-bin/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"; +} + -- cgit 1.2.3-korg