The Tor Browser / file comparison
comparison: security/nss/cmd/signver/examples/1/form.pl
security/nss/cmd/signver/examples/1/form.pl
- branch
- TOR_BUG_3246
- changeset 5
- 4ab42b5ab56c
equal
deleted
inserted
replaced
| -1:000000000000 | 0:9d082dccb543 |
|---|---|
| 1 #! /usr/bin/perl | |
| 2 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 3 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 4 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 5 | |
| 6 | |
| 7 print "Content-type: text/html\n\n"; | |
| 8 print "<B>Server Name:</B> ", $ENV{'SERVER_NAME'}, "<BR>", "\n"; | |
| 9 print "<B>Server Port:</B> ", $ENV{'SERVER_PORT'}, "<BR>", "\n"; | |
| 10 print "<B>Server Software:</B> ", $ENV{'SERVER_SOFTWARE'}, "<BR>", "\n"; | |
| 11 print "<B>Server Protocol:</B> ", $ENV{'SERVER_PROTOCOL'}, "<BR>", "\n"; | |
| 12 print "<B>CGI Revision:</B> ", $ENV{'GATEWAY_INTERFACE'}, "<BR>", "\n"; | |
| 13 print "<B>Browser:</B> ", $ENV{'HTTP_USER_AGENT'}, "<BR>", "\n"; | |
| 14 print "<B>Remote Address:</B> ", $ENV{'REMOTE_ADDR'}, "<BR>", "\n"; | |
| 15 print "<B>Remote Host:</B> ", $ENV{'REMOTE_HOST'}, "<BR>", "\n"; | |
| 16 print "<B>Remote User:</B> ", $ENV{'REMOTE_USER'}, "<BR>", "\n"; | |
| 17 print "You typed:\n"; | |
| 18 | |
| 19 while( $_ = <STDIN>) { | |
| 20 print "$_"; | |
| 21 } | |
| 22 |
