Stas,
>> package Apache::AuthAnon;
>> # file: Apache/AuthAnon.pm
>>
>> use strict;
>> use Apache::Constants qw(:common);
>>
>> my $email_pat='[EMAIL PROTECTED]';
>> my $anon_id="anonymous";
>>
>> sub handler {
>> my $r=shift;
>>
>> my($res,$sent_pwd)=$r->get_basic_auth_pw;
>> return $res if $res!=OK;
>>
>> my $user=lc $r->connection->user;
>> my $reason="";
>>
>> my $check_id=$r->dir_config("Anonymous") || $anon_id;
>>
>> $reason="user did not enter a valid anonymous username: "
>>
>Because you didn't load the right modules. Try again with:
>
>perl -wc -MApache2 -MApache::compat AuthAny.pm
>
>in general it's not possible to test code relying on mod_perl run time from
>the command line.
I got this:
[EMAIL PROTECTED] Apache]$perl -wc -MApache2 -MApache::compat AuthAny.pm
Bareword "Apache::server_root" not allowed while "strict subs" in use at
/usr/lib/perl5/site_perl/5.8.4/i686-linux-thread-multi/Apache2/Apache/compat
.pm line 255.
Compilation failed in require.
BEGIN failed--compilation aborted.
Is this right?
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
