version 1.22, 2002/12/09 21:10:44
|
version 1.23, 2002/12/09 21:27:36
|
Line 86 while (!$flag) {
|
Line 86 while (!$flag) {
|
$lonCluster='production'; $flag=1; |
$lonCluster='production'; $flag=1; |
} |
} |
elsif ($choice==2) { |
elsif ($choice==2) { |
die("FIXME Broken!!!"); |
|
$lonCluster='standalone'; $flag=1; |
$lonCluster='standalone'; $flag=1; |
open(OUT,'>../'.$lonCluster.'_hosts.tab') or |
|
die('file generation error'); |
|
print(OUT $line2insert); |
|
close(OUT); |
|
} |
} |
elsif ($choice==3) { |
elsif ($choice==3) { |
$lonCluster='development'; $flag=1; |
$lonCluster='development'; $flag=1; |
Line 440 my %perlvarstatic;
|
Line 435 my %perlvarstatic;
|
} |
} |
close(CONFIG); |
close(CONFIG); |
} |
} |
unless ($domainDescription) { |
if (!$domainDescription && $lonCluster ne 'existing') { |
open(IN,'<../'.$lonCluster.'_hosts.tab'); |
open(IN,'<../'.$lonCluster.'_hosts.tab'); |
while(<IN>) { |
while(<IN>) { |
if (/^$perlvar{'lonHostID'}\:/) { |
if (/^$perlvar{'lonHostID'}\:/) { |
Line 449 my %perlvarstatic;
|
Line 444 my %perlvarstatic;
|
last; |
last; |
} |
} |
} |
} |
close(IN); |
close(IN); |
} |
} |
|
if (!$domainDescription) { |
|
open(IN,'</home/httpd/lonTabs/hosts.tab'); |
|
while(<IN>) { |
|
if (/^$perlvar{'lonHostID'}\:/) { |
|
(undef,undef,undef,undef,undef,$domainDescription)=split(/:/,$_); |
|
chomp($domainDescription); |
|
last; |
|
} |
|
} |
|
close(IN); |
|
} |
|
|
# implement editing logic below, interactively |
# implement editing logic below, interactively |
# update loncapa.conf until 8 is entered |
# update loncapa.conf until 8 is entered |
|
|
Line 603 unless (-l "<TARGET />") {
|
Line 610 unless (-l "<TARGET />") {
|
$line2insert=<<END; |
$line2insert=<<END; |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription |
END |
END |
|
if ($lonCluster eq 'standalone') { |
|
open(OUT,'>../'.$lonCluster.'_hosts.tab') or |
|
die('file generation error'); |
|
print(OUT $line2insert); |
|
close(OUT); |
|
} |
if ($flag==1) { |
if ($flag==1) { |
`rm -f ../hosts.tab`; |
`rm -f ../hosts.tab`; |
open(IN,'<../'.$lonCluster.'_hosts.tab'); |
open(IN,'<../'.$lonCluster.'_hosts.tab'); |