ceph/src/civetweb/test/env.cgi

   1 #!/usr/bin/env perl
   2
   3 use Cwd;
   4 use CGI;
   5
   6 use vars '%in';
   7 CGI::ReadParse();
   8
   9 print "Content-Type: text/html\r\n\r\n";
  10
  11 print "<pre>\n";
  12 foreach my $key (sort keys %ENV) {
  13         print "$key=$ENV{$key}\n";
  14 }
  15
  16 print "\n";
  17
  18 foreach my $key (sort keys %in) {
  19         print "$key=$in{$key}\n";
  20 }
  21
  22 print "\n";
  23
  24 print 'CURRENT_DIR=' . getcwd() . "\n";
  25 print "</pre>\n";
  26
  27 my $stuff = <<EOP ;
  28 <script language="javascript">
  29         function set_val() {
  30         }
  31 </script>
  32 <form method=get>
  33         <input type=hidden name=a>
  34         <input type=text name=_a onChange="javascript: this.form.a.value=this.value;">
  35         <input type=submit value=get>
  36 </form>
  37
  38 <form method=post>
  39         <input type=text name=b>
  40         <input type=submit value=post>
  41 </form>
  42 EOP
  43
  44 #system('some shit');
  45
  46 print $stuff;