Hi all,
I need help with mod_perl:
My ENV is redhat ES4 + apache2.0.59 + mod_perl2.
I wrote a small script:
####################
package myconf;
use strict;
use warnings;
use DB_File;
use Fcntl;
use Apache2::Const -compile => qw(:common);
use Apache2::Request ();
use Apache2::Connection ();
use Apache2::URI ();
my $db = "/www/data/myconf.db";
tie my %dbh,'DB_File',$db || die "can not open database\n";
my @title = keys(%dbh);
warn "data count:$#title\n"; ### but in error_log it is -1
sub handler{
my $r = shift;
$r->content_type('text/plain');
my $req = Apache2::Request->new($r);
my $file = $req->param('file') || "";
if (defined $file and exists $dbh{$file}) {
print $dbh{$file};
return Apache2::Const::OK;
}else{
for (0..$#title){
print "$title[$_]<br>\n";
}
}
}
1;
__END__
If I run it under command line I will got the data number of db is 41, but
if in apache ,it is -1, and open not failed.
Why?
Thanks!
Sil3nt.
