How to check the return status?

2001-12-17 Thread 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

RE: How to check the return status?

2001-12-17 Thread 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