List --
I am planning on running my C:A applications under PerlEX and perhaps
someday, if I'm lucky, mod_perl. I've been trying (and failing) to get
CGI::Carp qw( fatalsToBrowser ) to work under PerlEX (did try 1.23 and it
didn't seem to help, perhaps under mod_perl.)
I need a way to attach an exception handler to a C:A that will work under
PerlEX, mod_perl and standard CGI environment. Does this (currently ugly)
method seem reasonable? Since my instance scripts are generated on the fly
based on configuration details, I am not bothered by having an exception
handler in each instance script, assuming it doesn't slow me down too much
or cause any other types of trouble.
I would love to hear anyone's thoughts, or even just start a general
discussion of error/exception handling within C:A applications! My sample
code is below ...
-- Cory
>> SNIP CODE >>
#!perl.exe
#
# Application : D:\\Inetpub\\etc\\notes_tests\\application.xml
# Component : D:\\Inetpub\\etc\\notes_tests\\WebService\\Login.xml
#
# generated Mon May 13 17:05:36 2002
# by version 2.51 of translateConfigToCGI.pl
use strict;
use WebService::Login 1.03;
eval {
my $webApp = WebService::Login->new( PARAMS => { 'config_file' =>
'D:\\Inetpub\\etc\\notes_tests\\WebService\\WebService_Login.xml'} );
$webApp->run( );
};
if( $@ ) {
print "Content-Type: text/html \n\n";
print '<HTML><BODY>Sorry failure!</BODY></HTML>';
} else {
}
# End
<< SNIP CODE <<
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
