version 1.65, 2010/07/21 00:32:44
|
version 1.66, 2010/12/31 17:58:57
|
Line 694 my %perlvarstatic;
|
Line 694 my %perlvarstatic;
|
foreach my $file (@hosts_files) { |
foreach my $file (@hosts_files) { |
open(IN,'<'.$file); |
open(IN,'<'.$file); |
while(my $line = <IN>) { |
while(my $line = <IN>) { |
if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:(https?)/) { |
if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:(https?)/) { |
$protocol = $1; |
$protocol = $1; |
|
chomp($protocol); |
last; |
last; |
} |
} |
} |
} |
Line 710 my %perlvarstatic;
|
Line 711 my %perlvarstatic;
|
foreach my $file (@hosts_files) { |
foreach my $file (@hosts_files) { |
open(IN,'<'.$file); |
open(IN,'<'.$file); |
while(my $line = <IN>) { |
while(my $line = <IN>) { |
if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:https?:([^:]+)/) { |
if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:https?\:([^:]+)/) { |
$intdom = $1; |
$intdom = $1; |
|
chomp($intdom); |
last; |
last; |
} |
} |
} |
} |