|
version 1.43, 2005/12/09 00:53:54
|
version 1.59, 2007/12/07 06:01:06
|
|
Line 47 $|=1;
|
Line 47 $|=1;
|
| ********************************************* |
********************************************* |
| |
|
| END |
END |
| sleep(3); |
#sleep(3); |
| </perlscript> |
</perlscript> |
| </file> |
</file> |
| <file> |
<file> |
|
Line 97 while (!$flag) {
|
Line 97 while (!$flag) {
|
| } |
} |
| elsif ($choice==4) { |
elsif ($choice==4) { |
| $lonCluster='existing'; $flag=1; |
$lonCluster='existing'; $flag=1; |
| if (-e '/home/httpd/lonTabs/hosts.tab') { |
foreach my $file ('hosts.tab','dns_hosts.tab', |
| `cp /home/httpd/lonTabs/hosts.tab ../existing_hosts.tab`; |
'domain.tab','dns_domain.tab') { |
| } |
if (-e '/home/httpd/lonTabs/'.$file) { |
| else { |
`cp /home/httpd/lonTabs/$file ../existing_$file`; |
| print <<END; |
} |
| There is no existing /home/httpd/lonTabs/hosts.tab |
else { |
| END |
print <<END; |
| die(''); |
There is no existing /home/httpd/lonTabs/$file |
| } |
|
| if (-e '/home/httpd/lonTabs/domain.tab') { |
|
| `cp /home/httpd/lonTabs/domain.tab ../existing_domain.tab`; |
|
| } |
|
| else { |
|
| print <<END; |
|
| There is no existing /home/httpd/lonTabs/domain.tab |
|
| END |
END |
| die(''); |
die(''); |
| |
} |
| } |
} |
| } |
} |
| elsif ($choice==26) { |
elsif ($choice==26) { |
|
Line 143 The following 4 values are needed to con
|
Line 137 The following 4 values are needed to con
|
| * Machine Role |
* Machine Role |
| * LON-CAPA Domain Name |
* LON-CAPA Domain Name |
| * LON-CAPA Machine ID Name, and |
* LON-CAPA Machine ID Name, and |
| * System Administration E-mail Address. |
* Server Administration E-mail Address. |
| =============================================================================== |
=============================================================================== |
| |
|
| In addition, a Support E-mail Address can also be included. If |
In addition, a Support E-mail Address can also be included. If |
|
Line 207 if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
|
Line 201 if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
|
| print(<<END); |
print(<<END); |
| |
|
| **** Domain **** |
**** Domain **** |
| [this does NOT need to correspond to internet address domains, |
[This does NOT need to correspond to internet address domains. |
| good examples might be "msu" or "bionet" or "vermontcc", |
Please make this name short AND descriptive of your organization. |
| bad examples are "physics" (too general) |
Domain names are close to impossible to change later!!! |
| |
Good examples might be "msu" or "bionet" or "vermontcc". |
| |
Bad examples are "physics" (too general) |
| or "michiganstateuniversity" (too long) |
or "michiganstateuniversity" (too long) |
| or "msuedu" (internet domain, just make it "msu") |
or "msuedu" (internet domain, just make it "msu") |
| or "msuphysics" (only if there is a good reason to limit) |
or "msuphysics" (only if there is a good reason to limit to department |
| |
- we don't know of one) |
| or "mydomain" (what is that?) |
or "mydomain" (what is that?) |
| Please make this name short AND descriptive of your organization. |
Avoid multiple domains at the same institution, even if it means that you |
| Note that the domain is very hard to change later. |
have to actually work together with your colleagues. You can still run |
| Double-check with the LON-CAPA group at MSU if this domain is |
multiple library servers within the same domain. |
| going to be part of the main production cluster, since it needs |
If this domain is eventually going to be part of the main production |
| to be unique.] |
cluster, you MUST contact the LON-CAPA group at MSU (loncapa@loncapa.org) |
| |
to have a domain name assigned, and then use it exactly as given. This is |
| |
also true for test installs that might eventually turn into production setups. |
| |
Stop now if you didn't do so.] |
| END |
END |
| |
|
| # get domain name |
# get domain name |
|
Line 254 END
|
Line 254 END
|
| close(OUT); |
close(OUT); |
| $lonDefDomain=$choice; |
$lonDefDomain=$choice; |
| $flag=1; |
$flag=1; |
| } elsif (length($choice)>12) { |
} elsif (length($choice)>35) { |
| print "Name too long\n"; |
print "Name too long\n"; |
| } elsif (length($choice)<2) { |
} elsif (length($choice)<2) { |
| print "Name too short\n"; |
print "Name too short\n"; |
| } elsif ($bad_domain_flag) { |
} elsif ($bad_domain_flag) { |
| print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n"; |
print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n"; |
| print "Please try something different than '$choice'\n"; |
print "Please try something different than '$choice'\n"; |
| } elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
} elsif ($choice!~/\_/ and $choice=~/^[\w\-.]+$/) { |
| open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
| print(OUT 'lonDefDomain'."\t".$choice."\n"); |
print(OUT 'lonDefDomain'."\t".$choice."\n"); |
| close(OUT); |
close(OUT); |
|
Line 269 END
|
Line 269 END
|
| $r='l'; |
$r='l'; |
| $flag=1; |
$flag=1; |
| } else { |
} else { |
| print "Invalid input (only alphanumeric characters supported).\n"; |
print "Invalid input (only alphanumeric characters, '-', and '.' supported).\n"; |
| } |
} |
| } |
} |
| |
|
|
Line 310 if ($lonDefDomain) {
|
Line 310 if ($lonDefDomain) {
|
| print(<<END); |
print(<<END); |
| |
|
| **** Machine ID Name **** |
**** Machine ID Name **** |
| [this does NOT need to correspond to internet address names; |
[This does NOT need to correspond to internet address names; |
| this name MUST be unique to the whole LON-CAPA network; |
this name MUST be unique to the whole LON-CAPA network; |
| we recommend that you use a name based off of your institution; |
we recommend that you use a name based off of your institution. |
| good examples: "msul1" or "bioneta2"; |
Good examples: "msul1" or "bioneta2". |
| bad examples: "loncapabox" or "studentsinside". |
Bad examples: "loncapabox" or "studentsinside". |
| Note that machine names are very hard to change later.] |
Note that machine names are very hard to change later.] |
| END |
END |
| # get machine name |
# get machine name |
|
Line 342 END
|
Line 342 END
|
| close(OUT); |
close(OUT); |
| $lonHostID=$choice; |
$lonHostID=$choice; |
| $flag=1; |
$flag=1; |
| } elsif (length($choice)>15) { |
} elsif (length($choice)>45) { |
| print "Name too long\n"; |
print "Name too long\n"; |
| } elsif (length($choice)<4) { |
} elsif (length($choice)<4) { |
| print "Name too short\n"; |
print "Name too short\n"; |
| } elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
} elsif ($choice!~/\_/ and $choice=~/^[\w\-.]+$/) { |
| open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
| print(OUT 'lonHostID'."\t".$choice."\n"); |
print(OUT 'lonHostID'."\t".$choice."\n"); |
| close(OUT); |
close(OUT); |
| $lonHostID=$choice; |
$lonHostID=$choice; |
| $flag=1; |
$flag=1; |
| } else { |
} else { |
| print "Invalid input (only alphanumeric characters supported).\n"; |
print "Invalid input (only alphanumeric characters, '-', and '.' supported).\n"; |
| } |
} |
| } |
} |
| |
|
|
Line 398 END
|
Line 398 END
|
| print(OUT 'primaryLibServer'."\t".$choice."\n"); |
print(OUT 'primaryLibServer'."\t".$choice."\n"); |
| close(OUT); |
close(OUT); |
| $flag=1; |
$flag=1; |
| } elsif (length($choice)>15) { |
} elsif (length($choice)>35) { |
| print "Name too long\n"; |
print "Name too long\n"; |
| } elsif (length($choice)<4) { |
} elsif (length($choice)<4) { |
| print "Name too short\n"; |
print "Name too short\n"; |
| } elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
} elsif ($choice!~/\_/ and $choice=~/^[\w\-.]+$/) { |
| open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
| print(OUT 'primaryLibServer'."\t".$choice."\n"); |
print(OUT 'primaryLibServer'."\t".$choice."\n"); |
| close(OUT); |
close(OUT); |
| $primaryLibServer=$choice; |
$primaryLibServer=$choice; |
| $flag=1; |
$flag=1; |
| } else { |
} else { |
| print "Invalid input (only alphanumeric characters supported).\n"; |
print "Invalid input (only alphanumeric characters, '-', and '.' supported).\n"; |
| } |
} |
| } |
} |
| |
|
|
Line 421 my $lonAdmEMail;
|
Line 421 my $lonAdmEMail;
|
| while (!$flag) { |
while (!$flag) { |
| print(<<END); |
print(<<END); |
| |
|
| **** System Administrator's E-mail **** |
**** Server Administrators E-mail **** |
| E-mail address of the person who will manage this machine |
E-mail address of the person who will manage this machine |
| [should be in the form somebody\@somewhere] |
[should be in the form somebody\@somewhere] |
| ENTER ADMIN E-MAIL ADDRESS: |
ENTER ADMIN E-MAIL ADDRESS: |
|
Line 476 END
|
Line 476 END
|
| |
|
| |
|
| # update loncapa.conf |
# update loncapa.conf |
| my $confdir='/etc/httpd/conf/'; |
my $confdir = '/etc/httpd/conf/'; |
| #my $confdir=''; |
if ('<DIST />' eq 'sles10' || '<DIST />' eq 'suse10.1' || '<DIST />' eq 'suse10.2' || '<DIST />' eq 'suse10.3') { |
| |
$confdir = '/etc/apache2/'; |
| |
} |
| my $filename='loncapa.conf'; |
my $filename='loncapa.conf'; |
| my %perlvar; |
my %perlvar; |
| if (-e "$confdir$filename") { |
if (-e "$confdir$filename") { |
|
Line 518 my %perlvar;
|
Line 520 my %perlvar;
|
| die("Cannot output to $confdir$filename\n"); |
die("Cannot output to $confdir$filename\n"); |
| foreach my $key (keys %perlvar) { |
foreach my $key (keys %perlvar) { |
| my $value=$perlvar{$key}; |
my $value=$perlvar{$key}; |
| |
my $line = "PerlSetVar $key $value"; |
| |
if ($value eq '') { |
| |
$line = '#'.$line; |
| |
} |
| print(OUT <<END); |
print(OUT <<END); |
| PerlSetVar $key $value |
$line |
| END |
END |
| } |
} |
| close(OUT); |
close(OUT); |
|
Line 527 END
|
Line 533 END
|
| </perlscript> |
</perlscript> |
| </file> |
</file> |
| <file> |
<file> |
| <target dist='default'>/</target> |
<target dist='default'>/etc/httpd/conf/</target> |
| |
<target dist='sles10 suse10.1 suse10.2 suse10.3'>/etc/apache2/</target> |
| <perlscript mode='fg'> |
<perlscript mode='fg'> |
| sub securesetting { |
sub securesetting { |
| my (%perlvar)=@_; |
my (%perlvar)=@_; |
|
Line 545 sub securesetting {
|
Line 552 sub securesetting {
|
| return ($securestatus,$securenum); |
return ($securestatus,$securenum); |
| } |
} |
| # read values from loncapa.conf |
# read values from loncapa.conf |
| my $confdir='/etc/httpd/conf/'; |
my $confdir = "<TARGET />"; |
| my $filename='loncapa.conf'; |
my $filename='loncapa.conf'; |
| my %perlvar; |
my %perlvar; |
| my ($securestatus,$securenum); |
my ($securestatus,$securenum); |
|
Line 599 my %perlvarstatic;
|
Line 606 my %perlvarstatic;
|
| } |
} |
| close(CONFIG); |
close(CONFIG); |
| } |
} |
| if (!$domainDescription && $lonCluster ne 'existing') { |
|
| open(IN,'<../'.$lonCluster.'_domain.tab'); |
my (@hosts_files, @domain_files); |
| while(<IN>) { |
if ( $lonCluster ne 'existing') { |
| if (/^$perlvar{'lonDefDomain'}\:/) { |
push(@domain_files,'../'.$lonCluster.'_domain.tab', |
| (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
'../'.$lonCluster.'_dns_domain.tab'); |
| chomp($domainDescription); |
push(@hosts_files,'../'.$lonCluster.'_hosts.tab', |
| chomp($domainTabExtras); |
'../'.$lonCluster.'_dns_hosts.tab'); |
| last; |
} |
| } |
push(@domain_files,'/home/httpd/lonTabs/domain.tab', |
| } |
'/home/httpd/lonTabs/dns_domain.tab'); |
| close(IN); |
push(@hosts_files,'/home/httpd/lonTabs/hosts.tab', |
| } |
'/home/httpd/lonTabs/dns_hosts.tab'); |
| |
|
| if (!$domainDescription) { |
if (!$domainDescription) { |
| open(IN,'</home/httpd/lonTabs/domain.tab'); |
foreach my $file (@domain_files) { |
| while(<IN>) { |
open(IN,'<'.$file); |
| if (/^$perlvar{'lonDefDomain'}\:/) { |
while(my $line = <IN>) { |
| (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3); |
if ($line =~ /^\Q$perlvar{'lonDefDomain'}\E\:/) { |
| chomp($domainDescription); |
(undef,$domainDescription,$domainTabExtras)=split(/:/,$line,3); |
| chomp($domainTabExtras); |
chomp($domainDescription); |
| last; |
chomp($domainTabExtras); |
| } |
# the remianing field (primary lib server) is handled later |
| } |
$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]); |
| close(IN); |
last; |
| |
} |
| |
} |
| |
close(IN); |
| |
last if ($domainDescription); |
| |
} |
| } |
} |
| if (!$primaryLibServer and $lonCluster ne 'existing') { |
|
| open(IN,'<../'.$lonCluster.'_domain.tab'); |
while(!$primaryLibServ && (@hosts_file || @domain_files)) { |
| while(<IN>) { |
my $file = shift(@domain_files); |
| if (/^$perlvar{'lonDefDomain'}\:/) { |
open(IN,'<'.$file); |
| (undef,undef,undef,undef,undef,undef,undef,undef, |
while(my $line = <IN>) { |
| $primaryLibServer)=split(/:/,$_); |
if ($line =~ /^\Q$perlvar{'lonDefDomain'}\E\:/) { |
| |
$primaryLibServer=(split(/:/,$line))[8]; |
| chomp($primaryLibServer); |
chomp($primaryLibServer); |
| } |
} |
| } |
} |
| close(IN); |
close(IN); |
| if (!$primaryLibServer) { |
last if ($primaryLibServer); |
| open(IN,'<../'.$lonCluster.'_hosts.tab'); |
$file = shift(@hosts_files); |
| while(<IN>) { |
open(IN,'<'.$file); |
| if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) { |
while(my $line = <IN>) { |
| push(@libservers,$1); |
if ($line =~ /^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) { |
| } |
push(@libservers,$1); |
| } |
} |
| close(IN); |
} |
| if (@libservers == 1) { |
# make list unique |
| $primaryLibServer = $libservers[0]; |
@libservers = keys(%{{ map { $_ => 1 } (@libservers) }}); |
| } |
close(IN); |
| } |
if (@libservers == 1) { |
| } |
$primaryLibServer = $libservers[0]; |
| if (!$primaryLibServer) { |
} |
| open(IN,'</home/httpd/lonTabs/domain.tab'); |
|
| while(<IN>) { |
|
| if (/^$perlvar{'lonDefDomain'}\:/) { |
|
| (undef,undef,undef,undef,undef,undef,undef,undef, |
|
| $primaryLibServer)=split(/:/,$_); |
|
| chomp($primaryLibServer); |
|
| } |
|
| close(IN); |
|
| } |
|
| if (!$primaryLibServer) { |
|
| open(IN,'</home/httpd/lonTabs/hosts.tab'); |
|
| while(<IN>) { |
|
| if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) { |
|
| push(@libservers,$1); |
|
| } |
|
| } |
|
| close(IN); |
|
| if (@libservers == 1) { |
|
| $primaryLibServer = $libservers[0]; |
|
| } |
|
| } |
|
| } |
} |
| $primaryLibServer = ''; |
|
| |
|
| # implement editing logic below, interactively |
# implement editing logic below, interactively |
| # update loncapa.conf until 8 is entered |
# update loncapa.conf until 12 is entered |
| |
|
| $flag=0; |
$flag=0; |
| |
|
|
Line 685 This is now the current configuration of
|
Line 677 This is now the current configuration of
|
| 2) Domain Description: $domainDescription |
2) Domain Description: $domainDescription |
| 3) Machine Name: $perlvar{'lonHostID'} |
3) Machine Name: $perlvar{'lonHostID'} |
| 4) ID of primary library server for domain: $primaryLibServer |
4) ID of primary library server for domain: $primaryLibServer |
| 5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'} |
5) Server Administrator's E-mail Address: $perlvar{'lonAdmEMail'} |
| 6) Support E-mail Address: $perlvar{'lonSupportEMail'} |
6) Support E-mail Address: $perlvar{'lonSupportEMail'} |
| 7) Role: $perlvar{'lonRole'} |
7) Role: $perlvar{'lonRole'} |
| 8) Cache Expiration Time: $perlvar{'lonExpire'} |
8) Cache Expiration Time: $perlvar{'lonExpire'} |
|
Line 695 This is now the current configuration of
|
Line 687 This is now the current configuration of
|
| 12) Everything is correct up above |
12) Everything is correct up above |
| END |
END |
| |
|
| my $error=''; |
my @error; |
| foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) { |
foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) { |
| if (length($v)>16) { $error.="\nName $v too long"; } |
if (length($v)>35) { $error.="\nName $v too long"; } |
| if (length($v)<2) { $error.="\nName $v too short"; } |
if (length($v)<2) { $error.="\nName $v too short"; } |
| if ($v=~/capa/i) { |
if ($v=~/capa/i) { |
| if ($v!~/^oucapa\d+$/ && |
if ($v!~/^oucapa\d+$/ && |
| ($v!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) { |
($v!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) { |
| $error.="\nName $v contains 'capa'"; |
push(@error,"Name $v contains 'capa'"); |
| } |
} |
| } |
} |
| foreach my $bad ('res','raw','userfiles','priv','adm','uploaded', |
foreach my $bad ('res','raw','userfiles','priv','adm','uploaded', |
| 'editupload') { |
'editupload') { |
| $error.="\nName $v reserved." if $v eq $bad; |
push(@error,"\nName $v reserved.") if $v eq $bad; |
| } |
} |
| if ($v=~/\W/) { $error.="\nName $v contains special characters"; } |
if ($v=~/[^\w\-.]/) { push(@error,"Name $v contains special characters"); } |
| } |
} |
| if ($domainDescription!~/^[\(\)\-\w\s,]+$/) { |
if ($domainDescription =~ /^\s*$/) { |
| $error.="\nDomain Description contains special characters"; |
push(@error,"Domain Description is blank."); |
| |
} elsif ($domainDescription!~/^[\(\)\-\w\s,]+$/) { |
| |
push(@error,"Domain Description contains special characters."); |
| } |
} |
| foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) { |
foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) { |
| unless ($v=~/^[\d+\.]+$/) { $error.="\nNumber expected instead of $v"; } |
unless ($v=~/^[\d+\.]+$/) { push(@error,"Number expected instead of $v"); } |
| } |
} |
| unless (($perlvar{'lonRole'} eq 'library') || ($perlvar{'lonRole'} eq 'access')) { |
unless (($perlvar{'lonRole'} eq 'library') || ($perlvar{'lonRole'} eq 'access')) { |
| $error.="\nInvalid Role"; |
push(@error,"Invalid Role"); |
| } |
} |
| |
|
| if (!defined($primaryLibServer)) { |
if (!defined($primaryLibServer)) { |
| if (@libservers > 0) { |
if (@libservers > 0) { |
| $error .= "No primary library server ID designated. Choose from: ".join(',',sort(@libservers)); |
push(@error,"No primary library server ID designated. Choose from: ".join(',',sort(@libservers))); |
| } else { |
} else { |
| $error .= "No library servers in this domain (including current server)"; |
push(@error,"No library servers in this domain (including current server)"); |
| } |
} |
| } else { |
} else { |
| if (length($primaryLibServer)>16) { $error.="\nPrimary Library Server ID: $primaryLibServer too long"; } |
if (length($primaryLibServer)>35) { push(@error,"Primary Library Server ID: $primaryLibServer too long"); } |
| if (length($primaryLibServer)<2) { $error.="\nPrimary Library Server ID: $primaryLibServer too short"; } |
if (length($primaryLibServer)<2) { push(@error,"Primary Library Server ID: $primaryLibServer too short"); } |
| if ($primaryLibServer =~/capa/i) { |
if ($primaryLibServer =~/capa/i) { |
| if ($primaryLibServer!~/^oucapa\d+$/ && |
if ($primaryLibServer!~/^oucapa\d+$/ && |
| ($primaryLibServer!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) { |
($primaryLibServer!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) { |
| $error.="\nPrimary library server ID $primaryLibServer contains 'capa'"; |
push(@error,"Primary library server ID $primaryLibServer contains 'capa'") |
| } |
} |
| } |
} |
| foreach my $bad ('res','raw','userfiles','priv','adm','uploaded', |
foreach my $bad ('res','raw','userfiles','priv','adm','uploaded', |
| 'editupload') { |
'editupload') { |
| $error.="\nPrimary library server ID $primaryLibServer reserved." if $primaryLibServer eq $bad; |
push(@error,"Primary library server ID $primaryLibServer reserved.") if $primaryLibServer eq $bad; |
| } |
} |
| if ($primaryLibServer=~/\W/) { $error.="\nPrimary library server ID $primaryLibServer contains special characters"; } |
if ($primaryLibServer=~/[^\w\-.]/) { push(@error,"Primary library server ID $primaryLibServer contains special characters"); } |
| } |
} |
| |
|
| |
|
| if ($error) { print "\n*** ERRORS: $error\n"; } |
if (@error) { print "\n*** ERRORS: \n\t".join("\n\t",@error)."\n"; } |
| print(<<END); |
print(<<END); |
| ENTER A CHOICE OF 1-11 TO CHANGE, otherwise ENTER 12: |
ENTER A CHOICE OF 1-11 TO CHANGE, otherwise ENTER 12: |
| END |
END |
|
Line 800 END
|
Line 794 END
|
| } |
} |
| elsif ($choice==5) { |
elsif ($choice==5) { |
| print(<<END); |
print(<<END); |
| 5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'} |
5) Server Administrator's E-mail Address: $perlvar{'lonAdmEMail'} |
| ENTER NEW VALUE: |
ENTER NEW VALUE: |
| END |
END |
| my $choice2=<>; |
my $choice2=<>; |
|
Line 894 END
|
Line 888 END
|
| die("Cannot output to $confdir$filename\n"); |
die("Cannot output to $confdir$filename\n"); |
| foreach my $key (keys %perlvar) { |
foreach my $key (keys %perlvar) { |
| my $value=$perlvar{$key}; |
my $value=$perlvar{$key}; |
| |
my $line = "PerlSetVar $key $value"; |
| |
if ($value eq '') { |
| |
$line = '#'.$line; |
| |
} |
| print(OUT <<END) unless $perlvarstatic{$key}; |
print(OUT <<END) unless $perlvarstatic{$key}; |
| PerlSetVar $key $value |
$line |
| END |
END |
| } |
} |
| close(OUT); |
close(OUT); |
|
Line 908 unless (-l "<TARGET />") {
|
Line 906 unless (-l "<TARGET />") {
|
| my $hostname=`hostname -f`;chomp($hostname); |
my $hostname=`hostname -f`;chomp($hostname); |
| $date=`date -I`; chomp($date); |
$date=`date -I`; chomp($date); |
| $lonHostID=$perlvar{'lonHostID'}; |
$lonHostID=$perlvar{'lonHostID'}; |
| $lonHostID=~s/\W//g; |
$lonHostID=~s/[^\w\-.]//g; |
| $lineexistflag=0; |
$lineexistflag=0; |
| $hostidexistflag=0; |
$hostidexistflag=0; |
| $line2insert=<<END; |
$line2insert=<<END; |
| $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname |
| END |
END |
| |
if (!$domainTabExtras) { |
| |
$domainTabExtras=':::::'; |
| |
} |
| $domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras:$primaryLibServer\n"; |
$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras:$primaryLibServer\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'); |
| print(OUT $line2insert); |
print(OUT $line2insert); |
| |
print OUT ("^$hostname\n"); |
| |
close(OUT); |
| |
open(OUT,'>../'.$lonCluster.'_dns_hosts.tab') or |
| |
die('file generation error'); |
| |
print(OUT $line2insert); |
| close(OUT); |
close(OUT); |
| open(OUT,'>../'.$lonCluster.'_domain.tab') or |
open(OUT,'>../'.$lonCluster.'_domain.tab') or |
| die('file generation error'); |
die('file generation error'); |
| print(OUT $domaininsert); |
print(OUT $domaininsert); |
| close(OUT); |
close(OUT); |
| |
open(OUT,'>../'.$lonCluster.'_dns_domain.tab') or |
| |
die('file generation error'); |
| |
print(OUT $domaininsert); |
| |
close(OUT); |
| } |
} |
| if ($flag==1) { |
if ($flag==1) { |
| `rm -f ../hosts.tab`; |
`rm -f ../hosts.tab`; |
| open(IN,'<../'.$lonCluster.'_hosts.tab'); |
`rm -f ../dns_hosts.tab`; |
| while(<IN>) { |
`ln -s ${lonCluster}_dns_hosts.tab ../dns_hosts.tab`; |
| if (/^$line2insert$/) { |
open(IN,'<../'.$lonCluster.'_dns_hosts.tab'); |
| |
while(my $line = <IN>) { |
| |
if ($line =~ /^\Q$line2insert\E$/) { |
| $lineexistflag=1; |
$lineexistflag=1; |
| } |
} |
| if (/^$lonHostID\:/) { |
if ($line =~ /^\Q$lonHostID\E\:/) { |
| $hostidexistflag=1; |
$hostidexistflag=1; |
| } |
} |
| } |
} |
|
Line 940 END
|
Line 952 END
|
| if ($hostidexistflag and !$lineexistflag) { |
if ($hostidexistflag and !$lineexistflag) { |
| print <<END; |
print <<END; |
| WARNING: $lonHostID already exists inside |
WARNING: $lonHostID already exists inside |
| loncapa/loncom/${lonCluster}_hosts.tab. The entry inside |
loncapa/loncom/${lonCluster}_dns_hosts.tab. The entry inside |
| ${lonCluster}_hosts.tab does not match your settings. |
${lonCluster}_dns_hosts.tab does not match your settings. |
| The entry inside ${lonCluster}_hosts.tab is being replaced |
An entry inside ${lonCluster}_hosts.tab will be made |
| with your new values. |
with your new values. |
| END |
END |
| `grep -v "$lonHostID:" ../${lonCluster}_hosts.tab > ../new_${lonCluster}_hosts.tab`; |
`grep -v "$lonHostID:" ../${lonCluster}_hosts.tab > ../new_${lonCluster}_hosts.tab`; |
|
Line 956 END
|
Line 968 END
|
| } |
} |
| elsif ($hostidexistflag and $lineexistflag) { |
elsif ($hostidexistflag and $lineexistflag) { |
| print <<END; |
print <<END; |
| Entry exists in ${lonCluster}_hosts.tab. |
Entry exists in ${lonCluster}_dns_hosts.tab. Making duplicate entry in ${lonCluster}_hosts.tab |
| END |
END |
| `ln -s ${lonCluster}_hosts.tab ../hosts.tab`; |
`grep -v "$lonHostID:" ../${lonCluster}_hosts.tab > ../new_${lonCluster}_hosts.tab`; |
| |
open(OUT,'>>../new_'.$lonCluster.'_hosts.tab') or |
| |
die("cannot open loncom/${lonCluster}_hosts.tab for output\n"); |
| |
print(OUT $line2insert); |
| |
close(OUT); |
| |
`ln -s new_${lonCluster}_hosts.tab ../hosts.tab`; |
| # email appropriate message |
# email appropriate message |
| `echo "STABLEUPDATE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "STABLEUPDATE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
`echo "STABLEUPDATE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "STABLEUPDATE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
| } |
} |
|
Line 979 END
|
Line 996 END
|
| $lineexistflag=0; |
$lineexistflag=0; |
| if ($flag==1) { |
if ($flag==1) { |
| `rm -f ../domain.tab`; |
`rm -f ../domain.tab`; |
| open(IN,'<../'.$lonCluster.'_domain.tab'); |
`rm -f ../dns_domain.tab`; |
| while(<IN>) { |
`ln -s ${lonCluster}_dns_domain.tab ../dns_domain.tab`; |
| if (/^$domaininsert$/) { |
open(IN,'<../'.$lonCluster.'_dns_domain.tab'); |
| |
while(my $line = <IN>) { |
| |
if ($line =~/^\Q$domaininsert\E$/) { |
| $lineexistflag=1; |
$lineexistflag=1; |
| } |
} |
| if (/^$perlvar{'lonDefDomain'}\:/) { |
if ($line =~/^\Q$perlvar{'lonDefDomain'}\E\:/) { |
| $domainexistflag=1; |
$domainexistflag=1; |
| } |
} |
| } |
} |
|
Line 992 END
|
Line 1011 END
|
| if ($domainexistflag and !$lineexistflag) { |
if ($domainexistflag and !$lineexistflag) { |
| print <<END; |
print <<END; |
| WARNING: $perlvar{'lonDefDomain'} already exists inside |
WARNING: $perlvar{'lonDefDomain'} already exists inside |
| loncapa/loncom/${lonCluster}_domain.tab. The entry inside |
loncapa/loncom/${lonCluster}_dns_domain.tab. The entry inside |
| ${lonCluster}_domain.tab does not match your settings. |
${lonCluster}_dns_domain.tab does not match your settings. |
| The entry inside ${lonCluster}_domain.tab is being replaced |
An entry will be made in inside ${lonCluster}_domain.tab |
| with your new values. |
with your new values. |
| END |
END |
| `grep -v "$perlvar{'lonDefDomain'}:" ../${lonCluster}_domain.tab > ../new_${lonCluster}_domain.tab`; |
`grep -v "$perlvar{'lonDefDomain'}:" ../${lonCluster}_domain.tab > ../new_${lonCluster}_domain.tab`; |
|
Line 1007 END
|
Line 1026 END
|
| `echo "REPLACEdom:$lonCluster:$lonHostID:$date:$domaninsert" | mail -s "REPLACEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
`echo "REPLACEdom:$lonCluster:$lonHostID:$date:$domaninsert" | mail -s "REPLACEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
| } |
} |
| elsif ($domainexistflag and $lineexistflag) { |
elsif ($domainexistflag and $lineexistflag) { |
| |
`grep -v "$perlvar{'lonDefDomain'}:" ../${lonCluster}_domain.tab > ../new_${lonCluster}_domain.tab`; |
| |
open(OUT,'>>../new_'.$lonCluster.'_domain.tab') or |
| |
die("cannot open loncom/${lonCluster}_domain.tab for output\n"); |
| |
print(OUT $domaininsert); |
| |
close(OUT); |
| print <<END; |
print <<END; |
| Entry exists in ${lonCluster}_domain.tab. |
Entry exists in ${lonCluster}_dns_domain.tab. Making duplicate entry in ${lonCluster}_domain.tab |
| END |
END |
| `ln -s ${lonCluster}_domain.tab ../domain.tab`; |
`ln -s new_${lonCluster}_domain.tab ../domain.tab`; |
| # email appropriate message |
# email appropriate message |
| `echo "STABLEUPDATEdom:$lonCluster:$lonHostID:$date:$domaininsert" | mail -s "STABLEUPDATEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
`echo "STABLEUPDATEdom:$lonCluster:$lonHostID:$date:$domaininsert" | mail -s "STABLEUPDATEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to updatequery.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles