view release on metacpan or  search on metacpan

noid  view on Meta::CPAN

sub who_are_you { my( $web )=@_;

	my $user;
	if ($web) {
		$user = $ENV{'REMOTE_USER'} || '';
		my $host = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || '';
		$user .= '@' . $host;
	}

	# Look up by REAL_USER_ID first.
	my ($name, undef, undef, $gid) = getpwuid($<);
	my $ugid = getlogin() || $name;
	! $ugid and
		return "";
	$ugid .= "/" . ((getgrgid($gid))[0] || "");

	# If EFFECTIVE_USER_ID differs from REAL_USER_ID, get its info too.
	if ($> ne $<) {
		($name, undef, undef, $gid) = getpwuid($>);
		! $name and
			return "";
		$ugid .= " ($name/" . ((getgrgid($gid))[0] || "") . ")";
	}
	$user = ($user ? "$user $ugid" : $ugid);
	return $user;
}

exit 0;