httpd-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Wilfredo Sanchez <wsanc...@apple.com>
Subject CGI Tweak Take III
Date Fri, 02 Oct 1998 01:21:59 GMT
  Here's my beefed-up cgi-bin/printenv again.

  As per a suggestion from Charles Randall, I escape '&', '<', and '>'
characters in the environment names and values.

  Put Apache copyright at the top, since I'm submitting it for
inclusion in Apache, if you think it's useful. Got rid of "Apple
Computer, Inc." which got me accused of plugging Apple, but that's
just a habit of mine, really. :-)

  This prints a nice table, instead of wrapping <pre></pre> around
`env`.

	-Fred



#!/usr/bin/perl -T

## Copyright (c) 1998 The Apache Group.  All rights reserved.
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
##
## 1. Redistributions of source code must retain the above copyright
##    notice, this list of conditions and the following disclaimer.
##
## 2. Redistributions in binary form must reproduce the above copyright
##    notice, this list of conditions and the following disclaimer in
##    the documentation and/or other materials provided with the
##    distribution.
##
## 3. All advertising materials mentioning features or use of this
##    software must display the following acknowledgment:
##    "This product includes software developed by the Apache Group
##    for use in the Apache HTTP server project (http://www.apache.org/)."
##
## 4. The names "Apache Server" and "Apache Group" must not be used to
##    endorse or promote products derived from this software without
##    prior written permission. For written permission, please contact
##    apache@apache.org.
##
## 5. Products derived from this software may not be called "Apache"
##    nor may "Apache" appear in their names without prior written
##    permission of the Apache Group.
##
## 6. Redistributions of any form whatsoever must retain the following
##    acknowledgment:
##    "This product includes software developed by the Apache Group
##    for use in the Apache HTTP server project (http://www.apache.org/)."
##
## THIS SOFTWARE IS PROVIDED BY THE APACHE GROUP ``AS IS'' AND ANY
## EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
## PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE APACHE GROUP OR
## ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
## NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
## STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
## ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
## OF THE POSSIBILITY OF SUCH DAMAGE.
## ====================================================================
##
## This software consists of voluntary contributions made by many
## individuals on behalf of the Apache Group and was originally based
## on public domain software written at the National Center for
## Supercomputing Applications, University of Illinois, Urbana-Champaign.
## For more information on the Apache Group and the Apache HTTP server
## project, please see <http://www.apache.org/>.
##

##
# Show CGI Process Environment
# Written by Wilfredo Sanchez | wsanchez@apple.com
##
# This perl program shows you how to access the process environment
#  for CGI programs on your web server.
# It is also a useful debugging tool, as it shows you all of the
#  available environment variables.
##

# CGI programs must print their own HTTP response headers
print "Content-type: text/html\n";
print "\n";

# Declare the SGML application as HTML
print "<!doctype html public \"-//W3C/DTD HTML 4.0/EN\">\n";

# Begin HTML
print "<html>\n";

# A minimal document must include a header region with a title
print "<head>\n";
print "<link rev=\"made\" href=\"mailto:wsanchez\@apple.com\">"; # Author
print "<title>CGI Test</title>\n";
print "</head>\n";
print "\n";

# Start document body
print "<body>\n";
print "\n";

# Put values in a table to readability
print "<table border>\n";
print "\n";

# Caption the able
print " <caption>CGI Environment</caption>\n";
print "\n";

# Include table headers
print " <tr>\n";
print "  <th align=\"right\">\n";
print "   Variable\n";
print "  </th>\n";
print "  <th>\n";
print "   Value\n";
print "  </th>\n";
print " </tr>\n";

# Print each key/value pair as two column in a row
foreach $key (keys %ENV)
 {
  $var = $key;
  $val = $ENV{$key};

  $var =~ s/&/&amp;/g; $var =~ s/</&lt;/g; $var =~ s/>/&gt;/g;
  $val =~ s/&/&amp;/g; $var =~ s/</&lt;/g; $val =~ s/>/&gt;/g;

  print "\n";
  print " <tr>\n";
  print "  <td align=\"right\">\n";
  print "   $var\n";
  print "  </td>\n";
  print "  <td>\n";
  print "   $val\n";
  print "  </td>\n";
  print " </tr>\n";
 }
print "\n";

# End table
print "</table>\n";
print "\n";

# End document body
print "</body>\n";

# End HTML
print "</html>\n";

Mime
View raw message