cgi-bin/envtest.pl

   1 #!/usr/bin/perl
   2
   3 use FindBin qw($RealBin);
   4 require "$RealBin/../BuildFarmWeb.pl";
   5
   6 print "Content-Type: text/plain\n\n";
   7
   8 print "Conf: $RealBin/../\n";
   9
  10 print `pwd`;
  11
  12 print `id`;
  13
  14 foreach my $key (sort keys %ENV)
  15 {
  16   my $val = $ENV{$key};
  17   print "$key=$val\n";
  18 }