|
version 1.48, 2006/08/31 19:43:56
|
version 1.54, 2007/04/20 18:14:26
|
|
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 260 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 275 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 348 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 404 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 482 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') { |
| |
$confdir = '/etc/apache2/'; |
| |
} |
| my $filename='loncapa.conf'; |
my $filename='loncapa.conf'; |
| my %perlvar; |
my %perlvar; |
| if (-e "$confdir$filename") { |
if (-e "$confdir$filename") { |
|
Line 524 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 533 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'>/etc/apache2/</target> |
| <perlscript mode='fg'> |
<perlscript mode='fg'> |
| sub securesetting { |
sub securesetting { |
| my (%perlvar)=@_; |
my (%perlvar)=@_; |
|
Line 551 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 704 This is now the current configuration of
|
Line 705 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 903 END
|
Line 906 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 917 unless (-l "<TARGET />") {
|
Line 924 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; |
|
Line 928 END
|
Line 935 END
|
| 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 949 END
|
Line 967 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 965 END
|
Line 983 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 988 END
|
Line 1011 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 1001 END
|
Line 1026 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 1016 END
|
Line 1041 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