You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
477 B
27 lines
477 B
4 months ago
|
#!/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 "<HTML>\n";
|
||
|
|
print "<BODY>\n";
|
||
|
|
for (keys %ENV) {
|
||
|
|
push @envvars, "$_ = $ENV{$_}";
|
||
|
|
}
|
||
|
|
@sortedvars = sort @envvars;
|
||
|
|
@envvars = ();
|
||
|
|
for (0 .. $#sortedvars) {
|
||
|
|
print "$sortedvars[$_]<BR>\n";
|
||
|
|
}
|
||
|
|
open(TMPFILE,"<\etc\rc.config");
|
||
|
|
@lines=<TMPFILE>;
|
||
|
|
close TMPFILE;
|
||
|
|
foreach $line (@lines) {
|
||
|
|
print "$line<br>";
|
||
|
|
}
|
||
|
|
print "</BODY>\n";
|
||
|
|
print "</HTML>\n";
|