root/platform/firefox/FireMobileSimulator/trunk/test/env.cgi

Revision 19579, 488 bytes (checked in by drry, 6 years ago)
  • fixed regexes.
  • et cetera.
Line 
1#!/usr/bin/perl
2use strict;
3
4print "Content-type: text/html\n\n";
5
6print "<html>\n";
7print "<head><title>CGI Environment</title></head>\n";
8print "<body>\n";
9
10
11print "<h1>CGI 環境変数リスト</h1>\n";
12print "<hr>";
13
14foreach my $env_name (sort(keys(%ENV))) {
15        my $value = $ENV{ $env_name };
16        print "$env_name = $value <br> \n";
17}
18
19my $data;
20read (STDIN, $data, $ENV{'CONTENT_LENGTH'});
21print "POST data = $data <br> \n";
22
23print "</body>\n";
24print "</html>\n";
Note: See TracBrowser for help on using the browser.