security/nss/cmd/signver/examples/1/form.pl@4ab42b5ab56c (annotated)
security/nss/cmd/signver/examples/1/form.pl
Wed, 31 Dec 2014 07:53:36 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Wed, 31 Dec 2014 07:53:36 +0100
- branch
- TOR_BUG_3246
- changeset 5
- 4ab42b5ab56c
- permissions
- -rwxr-xr-x
Correct small whitespace inconsistency, lost while renaming variables.
| michael@0 | 1 | #! /usr/bin/perl |
| michael@0 | 2 | # This Source Code Form is subject to the terms of the Mozilla Public |
| michael@0 | 3 | # License, v. 2.0. If a copy of the MPL was not distributed with this |
| michael@0 | 4 | # file, You can obtain one at http://mozilla.org/MPL/2.0/. |
| michael@0 | 5 | |
| michael@0 | 6 | |
| michael@0 | 7 | print "Content-type: text/html\n\n"; |
| michael@0 | 8 | print "<B>Server Name:</B> ", $ENV{'SERVER_NAME'}, "<BR>", "\n"; |
| michael@0 | 9 | print "<B>Server Port:</B> ", $ENV{'SERVER_PORT'}, "<BR>", "\n"; |
| michael@0 | 10 | print "<B>Server Software:</B> ", $ENV{'SERVER_SOFTWARE'}, "<BR>", "\n"; |
| michael@0 | 11 | print "<B>Server Protocol:</B> ", $ENV{'SERVER_PROTOCOL'}, "<BR>", "\n"; |
| michael@0 | 12 | print "<B>CGI Revision:</B> ", $ENV{'GATEWAY_INTERFACE'}, "<BR>", "\n"; |
| michael@0 | 13 | print "<B>Browser:</B> ", $ENV{'HTTP_USER_AGENT'}, "<BR>", "\n"; |
| michael@0 | 14 | print "<B>Remote Address:</B> ", $ENV{'REMOTE_ADDR'}, "<BR>", "\n"; |
| michael@0 | 15 | print "<B>Remote Host:</B> ", $ENV{'REMOTE_HOST'}, "<BR>", "\n"; |
| michael@0 | 16 | print "<B>Remote User:</B> ", $ENV{'REMOTE_USER'}, "<BR>", "\n"; |
| michael@0 | 17 | print "You typed:\n"; |
| michael@0 | 18 | |
| michael@0 | 19 | while( $_ = <STDIN>) { |
| michael@0 | 20 | print "$_"; |
| michael@0 | 21 | } |
| michael@0 | 22 |
