RE: How to check the return status?

[Stathy Touloumis]

Perhaps something along the lines of :

$r->push_handlers(
PerlHandler => sub {
my $r = shift;
my $return = $handle->handler( $r );
if ( $return == Apache::Constants::OK ) {
??
}
}
);

> -Original Message-
> From: Alexei V. Alexandrov [mailto:[EMAIL PROTECTED]]
> Sent: Monday, December 17, 2001 9:45 AM
> To: [EMAIL PROTECTED]
> Subject: How to check the return status?
> 
> 
> Hello everyone,
> 
>   I have a question that i can not resolve. The module dynamicaly
>   loads other modules to handle specific urls like this:
> 
>   [snip]
> my $handle = 'My::Module';
> 
> eval {
> (my $h = $handle) =~ s!::!/!ig;
> require $h . ".pm";
> };
> 
> if (!$@) {
>if ($handle->can( "handler" )) {
> $r->handler( "perl-script" );
> $r->push_handlers( PerlHandler => 
> \&{"${handle}::handler"} );
> ??
>}
> }
>   [snip]
> 
>   In this way the control is passed to another module. The module can
>   return OK, SERVER_ERROR, etc... How can i check the return status so
>   i can handle it (cache the output for example if the module returned
>   OK)
> 
>   Thanks for any advice.
>   
> --- 
>  Best regards,
>  Alexei V. Alexandrov
> 

How to check the return status?

[Alexei V. Alexandrov]

Hello everyone,

  I have a question that i can not resolve. The module dynamicaly
  loads other modules to handle specific urls like this:

  [snip]
my $handle = 'My::Module';

eval {
(my $h = $handle) =~ s!::!/!ig;
require $h . ".pm";
};

if (!$@) {
   if ($handle->can( "handler" )) {
$r->handler( "perl-script" );
$r->push_handlers( PerlHandler => \&{"${handle}::handler"} );
??
   }
}
  [snip]

  In this way the control is passed to another module. The module can
  return OK, SERVER_ERROR, etc... How can i check the return status so
  i can handle it (cache the output for example if the module returned
  OK)

  Thanks for any advice.
  
--- 
 Best regards,
 Alexei V. Alexandrov