mod_perl

Andy Wardley abw at wardley.org
Mon Sep 24 14:14:26 BST 2007


>         # get the client-supplied credentials
>         my $username = $r->user;
>         my ($status, $password) = $r->get_basic_auth_pw;

Hi George,

Try it the other way around.  If memory serves, $r->user() isn't set until 
*after* you've called $r->get_basic_auth_pw().

HTH
A



More information about the london.pm mailing list