On Thu, 11 Jan 2001, Doug MacEachern wrote:

> On Thu, 4 Jan 2001, Jie Gao wrote:
>  
> > Another problem with PerlRun is that it seems to interfere with mod_perl
> > handlers.
> > 
> > I have an authentication/authorisation handler, which reads in from a
> > file for someinformation. After a script under PerlRun is run, the handler
> > fails to read anything from that file anymore.
> 
> i can't see what's happening from this, too much missing.  can you provide
> a small, but complete drop-in test case?

Sorry for this late reply, Doug. Here are some details.

This is from my authentication handler, which gets the location of a
file from a PerlSetVar directive, and then opens the file and reads
username and password into the variables to be used for database
connection:

---------------------------------------------------------------------------
    my ($dsf, $db_f_name, $db_user_name, $db_user_pwd, $ds_name, $AuthenQueryValue);
    # Get the db data source file.
    $dsf = $r->dir_config( 'DSF' );
    if (!defined $dsf || $dsf eq '') {
        $r->log_error("DSF not defined.") if ($debug > 3);
        return SERVER_ERROR;
    }

    # Get the db server login info.
    if (defined $dsf) {
        open(DBCONF, "$dsf") || $r->log_error("Can't open DSF file $dsf:$!");
        while(<DBCONF>){
            next if /^#/;
            next unless /^$ds_name:/;
            chomp;
            ($ds_name, $db_f_name, $db_user_name, $db_user_pwd) = split(':', $_);
            $r->log_error("In loop: ds_name=\"$ds_name\", db_f_name=\"$db_f_name\", 
db_user_name=\"$db_user_name\
", db_user_pwd=\"$db_user_pwd\"\n") if ($debug > 3);
            last;
        }
        close DBCONF;
    } else {
        $r->log_reason("DB source file not defined.") if ($debug > 3);
        return SERVER_ERROR;
    }

    unless (defined $db_f_name && defined $db_user_name && defined $db_user_pwd) {
        $r->log_reason("DB source file error: definition incomplete: 
db_f_name=\"$db_f_name\"; db_user_name=\"$db
_user_name\"; db_user_pwd=\"$db_user_pwd\".") if ($debug > 3);
        return SERVER_ERROR;
    }
---------------------------------------------------------------------------

Now from time to time these variables become undefined, as shown in the error_log:

[Sat Feb 10 12:30:13 2001] [error] access to / failed for 129.xx.xx.xx, reason: DB 
source file error: definition
incomplete: db_f_name=""; db_user_name=""; db_user_pwd="".

This happens with 1.25 as well.

Hardcoding the variables prevents this from happening.

Regards,



Jie

Reply via email to