From 80db94fff6a9620fb469ee911347ed973e3f7735 Mon Sep 17 00:00:00 2001
From: Stefan Fritsch <sf@sfritsch.de>
Date: Tue, 27 Dec 2011 19:42:03 +0100
Subject: Upstream tarball 2.2.3

---
 docs/cgi-examples/printenv | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 docs/cgi-examples/printenv

(limited to 'docs/cgi-examples/printenv')

diff --git a/docs/cgi-examples/printenv b/docs/cgi-examples/printenv
new file mode 100644
index 00000000..e4c2140b
--- /dev/null
+++ b/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";
+}
+
-- 
cgit v1.2.3