git ref in status display
[buildfarm-server.git] / 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 }