mod_perl Tricks

• Cache database session handle via subroutine that checks if it exists already

sub LoginToOracle

{

my( $SID, $UID, $PWD, $err ) = @_;

if ( $login ) {

my $csr = ora_open( $login, 'select 1 from dual’' ) ||

goto LOGIN;

ora_close( $csr );

return;

}

LOGIN:

$login = &ora_login( $SID, $UID, $PWD ) ||

die $err;

}

Previous slide

Next slide

Back to first slide

View graphic version