问一个问题

sandy_ye_1981

在http.conf里这样的．
<VirtualHost 68.109.139.5>
        ServerName modil.cititone.net
        ServerAlias modil.cititone.net
        CustomLog /var/log/apache/modil.cititone.net.log combined
        ErrorLog /var/log/apache/modil.cititone.net.err
        DocumentRoot /home/modil/html
        <Location /Modil>
                SetHandler perl-script
                PerlHandler Modil::Main
        </Location>
</VirtualHost>

而我的Modil::Main下是
sub handler {
        my $r = shift;

        my $clientid;
        my %q;

#       $r->no_cache(1);

        if ($r->header_only) {
                $r->cotent_type("text/html");
                $r->send_http_header;
                return OK;
        }
．．．．．．．．．．．．．．．．．．．．

当在ＩＥ输入http://modil.cititone.net/Modil时
发现是进入了handler方法．
但是．发现$r却没有值．也不知道mod_perl传什么参数过来．

哪位大侠指导一下．．．$r到底是什么值．从哪传过来的．谢谢

helbreathszw2

哦，为什么不debug一下呢

sandy_ye_1981

原帖由 helbreathszw2 于 2007-2-28 14:55 发表
哦，为什么不debug一下呢

err.log没有错误．．

而且调试过．．证明进去了handler方法．
但是同时也发现$r没有值．．

也就是说mod_perl没有给handler传参数．这个不知道为什么．

兰花仙子

原帖由 sandy_ye_1981 于 2007-2-28 14:33 发表
在http.conf里这样的．
<VirtualHost 68.109.139.5>
        ServerName modil.cititone.net
        ServerAlias modil.cititone.net
        CustomLog /var/log/apache/modil.cititone.net.log comb ...

$r是个request objective,它本身能有什么值?
你可以自己传几个参数进去看看能不能print就知道了.
改一下:

    my $r = shift;
    my $q = Apache::Request->new($r);

然后:

    my $name = $q->param('name');
    $r->send_http_header('text/plain');
    $r->print($name);
    return OK;

然后这样访问:
http://xx.xx.xx.xx/Modil/?name=test

看看能否print出结果.

sandy_ye_1981

原帖由 兰花仙子 于 2007-2-28 15:47 发表


$r是个request objective,它本身能有什么值?
你可以自己传几个参数进去看看能不能print就知道了.
改一下:

    my $r = shift;
    my $q = Apache::Request->new($r);

然后:

    my $name = $ ...

首先感谢仙子．．
但是．．
我加了
my $r = shift;
print "Content-type: text/html\n\n";
print "11111111111111111111";
return OK;
是可以显示出来的．

而加
my $r = shift;
$r->send_http_header('text/plain');
$r->print("11111111111111111");
return OK;
是显示不出来的．．证明$r不存在．是不是

而我现在不知道的是．
mod_perl在什么地方给handle传参数．要不要设置什么

helbreathszw2

我大概知道你的问题了
不过要等我大号解封，我用大号告诉你
奶奶的，小号真郁闷

sandy_ye_1981

原帖由 helbreathszw2 于 2007-2-28 16:38 发表
我大概知道你的问题了
不过要等我大号解封，我用大号告诉你
奶奶的，小号真郁闷

太感谢你了．．现在告诉我吧
我已经把我能想到的办法都想了．．

现在还在debug...痛苦．．

helbreathszw2

我的helbreathszw大号都快被封了2个星期，我也很痛苦
。。。。。

sandy_ye_1981

原帖由 helbreathszw2 于 2007-2-28 16:46 发表
我的helbreathszw大号都快被封了2个星期，我也很痛苦
。。。。。

我就等你大侠救命．．
我的能力就到刚才我说的那地方了．．
再往下找．．就没能力找了．

helbreathszw

perl -MModil::Main
瞧瞧有反应不