version 1.28, 2003/08/29 18:54:52
|
version 1.29, 2003/09/01 01:24:20
|
Line 126 END
|
Line 126 END
|
<perlscript mode='fg'> |
<perlscript mode='fg'> |
$|=1; |
$|=1; |
my $domainDescription; |
my $domainDescription; |
|
my $domainTabExtras; |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print(<<END); |
print(<<END); |
WELCOME TO LON-CAPA! |
WELCOME TO LON-CAPA! |
Line 456 my %perlvarstatic;
|
Line 457 my %perlvarstatic;
|
open(IN,'<../'.$lonCluster.'_domain.tab'); |
open(IN,'<../'.$lonCluster.'_domain.tab'); |
while(<IN>) { |
while(<IN>) { |
if (/^$perlvar{'lonDefDomain'}\:/) { |
if (/^$perlvar{'lonDefDomain'}\:/) { |
(undef,$domainDescription)=split(/:/,$_); |
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
chomp($domainDescription); |
chomp($domainDescription); |
|
chomp($domainTabExtras); |
last; |
last; |
} |
} |
} |
} |
Line 467 my %perlvarstatic;
|
Line 469 my %perlvarstatic;
|
open(IN,'</home/httpd/lonTabs/domain.tab'); |
open(IN,'</home/httpd/lonTabs/domain.tab'); |
while(<IN>) { |
while(<IN>) { |
if (/^$perlvar{'lonDefDomain'}\:/) { |
if (/^$perlvar{'lonDefDomain'}\:/) { |
(undef,$domainDescription)=split(/:/,$_); |
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
chomp($domainDescription); |
chomp($domainDescription); |
|
chomp($domainTabExtras); |
last; |
last; |
} |
} |
} |
} |
Line 638 unless (-l "<TARGET />") {
|
Line 641 unless (-l "<TARGET />") {
|
$line2insert=<<END; |
$line2insert=<<END; |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress |
END |
END |
$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription\n"; |
$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras\n"; |
if ($lonCluster eq 'standalone') { |
if ($lonCluster eq 'standalone') { |
open(OUT,'>../'.$lonCluster.'_hosts.tab') or |
open(OUT,'>../'.$lonCluster.'_hosts.tab') or |
die('file generation error'); |
die('file generation error'); |