[ Please keep it on the list. ]
On Mon, 2003-06-09 at 16:12, Ryan Muldoon wrote:
> > Ryan, can you post a more complete code example?
> >
> > - Perrin
> Here it is:
>
> package Apache::AuthNx509;
>
> use strict;
> use Apache::Constants qw(:common);
> use Text::ParseWords qw(quotewords);
> use Apache::Log ();
>
> sub handler {
> my $r = shift;
> my $c = $r->connection;
> my $log = $r->log;
> return OK unless $r->is_main;
>
> my $certcomponent = $r->dir_config('CertComponent') ||
> 'SSL_CLIENT_S_DN_O';
> my $certcompvalue = $r->dir_config('CertComponentValue') ||
> 'University of Wisconsin';
> my $usercomponent = $r->dir_config('RemoteUserCertComponent') ||
> 'SSL_CLIENT_S_DN_CN';
>
> # my $cn = $r->subprocess_env('MOD_PERL');
> # $log->notice("test: $ENV{'MOD_PERL'}");
> my $apachecertcomp = $r->subprocess_env{$certcomponent};
That should be $r->subprocess_env($certcomponent). It's a method, not a
hash key. Also, put the lookup_uri stuff back in, since it seems that
you need it when trying to get the stuff from mod_ssl.
- Perrin
