#!/usr/bin/perl
#
# $Id: env.pl,v 1.2 2004/01/13 19:22:04 jeffo Exp $
#
# Source File: env.pl
print "Content-Type: text/html\n\n";
print "\n";
print "\n";
for (keys %ENV) {
push @envvars, "$_ = $ENV{$_}";
}
@sortedvars = sort @envvars;
@envvars = ();
for (0 .. $#sortedvars) {
print "$sortedvars[$_]
\n";
}
open(TMPFILE,"<\etc\rc.config");
@lines=;
close TMPFILE;
foreach $line (@lines) {
print "$line
";
}
print "\n";
print "\n";