Return to lonacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.159, 2014/10/18 21:40:06 | version 1.159.2.1, 2015/03/11 17:27:15 |
---|---|
Line 290 sub sso_login { | Line 290 sub sso_login { |
return undef; | return undef; |
} | } |
my ($user) = ($r->user =~ m/([a-zA-Z0-9_\-@.]*)/); | my ($user) = ($r->user =~ m/^($match_username)$/); |
if ($user eq '') { | |
return undef; | |
} | |
my $query = $r->args; | my $query = $r->args; |
my %form; | my %form; |