On Mon, 2003-06-09 at 15:24, Perrin Harkins wrote:
> [ Please keep it on the list. ]
>
Sorry about that!
> 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
I must have been stupid. Making those two corrections, everything works
(Almost)! Right now it is failing on my attempts to set the user
variable (I want to be able to set REMOTE_USER to an arbitrary cert
field). I'll have to dig a bit to figure out how to do that. Thank you
everyone on the list for helping me out so much today - I really
appreciate it. Many days of hair-pulling are at an end. ;-)
--Ryan
