# Blosxom Plugin: seeerror -*- perl -*- # Author: Todd Larason (jtl@molehill.org) # Version: 0+1i # Blosxom Home/Docs/Licensing: http://blosxom.sourceforge.net/ # Categories plugin Home/Docs/Licensing: # http://molelog.molehill.org/blox/Computers/Internet/Web/Blosxom/SeeError/ package seeerror; # ------------------------- Configuration Variables -------------------------- # Directory to create the temporary files in. # Criteria: # * It MUST exist # * It MUST be writable # * It SHOULD be readable outside Blosxom $tmp_dir ||= "/tmp"; # Attempt to deal with fatal errors? Should only be enabled if you need it. $handle_die = 0 unless defined $handle_die; # ---------------------------------------------------------------------------- use FileHandle; use CGI; my $tmp_file = sprintf "$tmp_dir/bloserr-$$-$^T-%s.txt", CGI::remote_host(); open STDERR,"> $tmp_file"; if ($handle_die) { $SIG{__DIE__} = sub { print "content-type: text/html\n\n
$errors"; } unlink($tmp_file); return 1; } 1;