#!/usr/bin/perl

# prenviron - print the script's Unix running environment; CGI
# Steve Kinzler, kinzler@cs.indiana.edu, Sep 94/Aug 00
# http://www.cs.indiana.edu/~kinzler/home.html#webadm

if (0) {
	$out = "/tmp/prenviron$$";
	open(OUT, "> $out");
	select OUT;
	$seefile = "See $out";
}

print STDOUT "Content-type: text/plain\n\n$seefile";

print $0;
($arg = shift) =~ s/'/'\\''/g, print " '$arg'" while @ARGV;
print "\n";

chop($cwd = `pwd`);
$umask    = sprintf("%03o", umask);
$ruser    = (getpwuid($<))[0] || $<;
$euser    = ($> == $<) ? $ruser : (getpwuid($>))[0] || $>;
$rgroups  = &gids2groups($();
$egroups  = &gids2groups($));

print "\n", <<EOF;
cwd              = $cwd
umask            = $umask
real user        = $ruser
effective user   = $euser
real groups      = $rgroups
effective groups = $egroups
EOF

print "\n";
foreach (sort keys %ENV) {
	print "$_=$ENV{$_}\n";
}

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN, $post, $ENV{'CONTENT_LENGTH'});
	print "\nPOST data on STDIN:\n", $post, "\n";
}

sub gids2groups {
	local(@gids)	       = @_;
	local($group, $groups) = ('', '');

	foreach (split(/\s+/, join(' ', @_))) {
		$group   = $gid{$_} || (getgrgid($_))[0] || $_;
		$gid{$_} = $group;
		$groups .= ($groups eq '') ? $group : " $group";
	}

	return $groups;
}