ModPerl::RegistryPrefork 应该能让我的旧 cgi 工作，但是

Question

我在 CGI.pm 下开发了一个网络应用程序。我想切换到 mod_perl2。 我的 web 应用程序在 CGI 下工作，但是当我尝试更改 mod 时，它不再工作，而我没有更改 web 应用程序中的任何内容，除了在 mod_perl 下运行的 apache conf 文件。

我已经安装了 mod-perl2 并像这样配置我的 VirualHost：

Alias /project1/  /var/www/v6/cgi-bin/

PerlModule Apache::DBI
PerlModule ModPerl::RegistryPrefork

  <Directory /var/www/v6/cgi-bin/ >

        PerlOptions -SetupEnv
    SetHandler perl-script
    PerlResponseHandler ModPerl::RegistryPrefork
    PerlOptions +ParseHeaders
    Options +ExecCGI
    Order allow,deny
    Allow from all

  </Directory>

我的脚本看起来像 .他使用 /v6/cgi-bin/lib/

#!/usr/bin/perl 

    use lib qw(lib);
    use strict;
    use DBI;
    use CGI;
    use Template;
    use CGI::Carp qw(fatalsToBrowser);
    use Data::Dumper;

    use Connexion;
    use Search;

    my $cgi     = new CGI;

    our $fastdb = Connexion::database('1','1');
    my $get_description__id_sth  = Search->get_description_id_sth();

Apache2 中的一些模块在日志中写入错误：

[2011 年 2 月 3 日星期四 17:35:13] -e：DBI 连接（'：'，''，...）失败：访问 用户“www-data”@“localhost”被拒绝 （使用密码：NO）位于 lib/Connexion.pm 第 134 行

在浏览器中我有：

无法调用“准备”方法 lib/Search.pm 行中的未定义值 51.

所以我明白脚本无法连接到数据库。但是为什么呢？ 它正在 mod_cgi 上运行。 如果有人有想法:'( 谢谢。

Answer 1

Connexion 是什么？它在 DBI 连接调用中做什么？

您很可能不需要禁用SetupEnv。

Answer 2

Connexion 是我为连接数据库而制作的模块。它位于 /cgi-bin/lib 中，而我之前的脚本从 /cgi-bin/ 目录调用他。

封装连接；

use strict;
use DBI;
sub database{

    my ($var,$var) = @_;
    my ($host1 ,$user1,$dbname1 ,$pass1)= '';

    if (($var== 1) and ($var ==1)){

        $host1              = 'localhost';
        $user1              = 'root';
        $dbname1            = 'BASE';
        $pass1              = '**';
     }

return my $fastdb = DBI -> connect ('DBI:mysql:' . $dbname1 . ':' . $host1, $user1, $pass1);
}
1;