home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / cgi-bin / env.pl < prev    next >
Encoding:
Perl Script  |  2004-06-29  |  653 b   |  22 lines
  1. #!perl/bin/perl
  2. #
  3. print <<EOT;
  4. Content-type: text/html
  5.  
  6. <HTML>
  7. <BODY TEXT="#000000" LINK="#FF0000" BGCOLOR="#F0FFFF">
  8. <TITLE>Server-provided Environment variables</TITLE>
  9. <TABLE>
  10. <TR><TH COLSPAN=2><H2>Server-provided Environment Variables</H2></TH></TR>
  11. EOT
  12.  
  13. foreach $key (sort(keys %ENV)) {
  14.   print "<TR BGCOLOR=lightgrey><TD>$key</TD><TD>$ENV{$key}</TD></TR>\n";
  15. }
  16. print "<TR BGCOLOR=lightgrey><TD>Perl-Version</TD><TD>$]</TD></TR>\n";
  17. print "<TR BGCOLOR=lightgrey><TD>OS-Version</TD><TD>$^O</TD></TR>\n";
  18. #use GD;
  19. #print "<TR BGCOLOR=lightgrey><TD>GD-Version</TD><TD>$GD::VERSION</TD></TR>\n";
  20. print "</TABLE></BODY></HTML>\n";
  21.  
  22.