loncom/auth/lonshibacc.pm - diff

Return to lonshibacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1, 2012/03/05 20:51:29	version 1.2, 2015/01/23 15:57:27
Line 72 sub handler {	Line 72 sub handler {
if ($udom ne '') {	if ($udom ne '') {
my $uprimary_id = &Apache::lonnet::domain($udom,'primary');	my $uprimary_id = &Apache::lonnet::domain($udom,'primary');
my $uint_dom = &Apache::lonnet::internet_dom($uprimary_id);	my $uint_dom = &Apache::lonnet::internet_dom($uprimary_id);
if ($user =~ /^(\w+)\@\Q$uint_dom\E$/i) {	if ($user =~ /^(\w[a-zA-Z0-9_\-.]+)\@\Q$uint_dom\E$/i) {
my $username = $1;	my $username = $1;
$user = $r->user($username);	$user = $r->user($username);
}	}