:-)

In all of my cgi scripts I use a little custom die subroutine so none of them just die, they die nicely.

sub dienice {
    print "Content-type: text/html\n\n" unless $header_printed;
    $header_printed = 1;
    my(@msg) = @_;
    print "<h2>Attention:</h2>\n";
    print join("<br>\n",@msg);
    exit;
}
[download]

Well ... what if some module die()s? I think you should have a look at CGI::Carp instead or just enclose the script in one big eval{}

Jenda


Support Denmark! Defend the free world!

I suppose that I should clarify that this isn't for when my scripts die of natural causes, but when I kill them myself, i.e.:


open ... or &dienice("Can't open: $!");
[download]

Or for viewing troubleshooting data:

&dienice(@troubleshooting_data);
[download]

Perhaps I should rename the sub killnice, or maybe KillingMeSoftly?

*Music plays in the background*

Strumming my pain with his routine
Singing my life with his code
Killing me softly with his sub...