version 1.450, 2010/07/26 21:52:10
|
version 1.452, 2010/08/18 19:25:09
|
Line 1789 sub authenticate_handler {
|
Line 1789 sub authenticate_handler {
|
unless ($clientcancheckhost) { |
unless ($clientcancheckhost) { |
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); |
my @intdoms = &Apache::lonnet::get_internet_names($clientname); |
my @intdoms; |
|
my $internet_names = &Apache::lonnet::get_internet_names($clientname); |
|
if (ref($internet_names) eq 'ARRAY') { |
|
@intdoms = @{$internet_names}; |
|
} |
unless ($uint_dom ne '' && grep(/^\Q$uint_dom\E$/,@intdoms)) { |
unless ($uint_dom ne '' && grep(/^\Q$uint_dom\E$/,@intdoms)) { |
my ($remote,$hosted); |
my ($remote,$hosted); |
my $remotesession = &get_usersession_config($udom,'remotesession'); |
my $remotesession = &get_usersession_config($udom,'remotesession'); |
Line 3183 sub dump_with_regexp {
|
Line 3187 sub dump_with_regexp {
|
$loncaparev = $Apache::lonnet::loncaparevs{$clientname}; |
$loncaparev = $Apache::lonnet::loncaparevs{$clientname}; |
} |
} |
my ($major,$minor); |
my ($major,$minor); |
if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\d.\-]+\'?/) { |
if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?/) { |
$major = $1; |
$major = $1; |
$minor = $2; |
$minor = $2; |
} |
} |