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); |
} |
} |