CGI-Out
1 match

 view release on metacpan or  search on metacpan

lib/CGI/BigDeath.pm  view on Meta::CPAN 

{
	my ($perlerr, $syserr, $bomb, $out, 
		$envr, $query, $pwd, $zero, 
		$argvr, $debug, $mailto) = @_;

	local $SIG{__DIE__} = undef;
	my $cout = $out;
	$cout =~ s/\</&lt;/g;
	$cout =~ s/\>/&gt;/g;

	$mailto = getpwuid($<)
		unless $mailto;

	print <<"";
Content-type: text/html
\n
		<html>
		<head>
		<title>Error!</title>
		</head>
		<body>



( run in 0.438 second using v1.01-cache-2.11-cpan-8d75d55dd25 )