doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/updatequery.piml between versions 1.45 and 1.52

version 1.45, 2006/01/07 14:29:16	version 1.52, 2007/04/03 22:13:40
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 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 427 my $lonAdmEMail;	Line 421 my $lonAdmEMail;
while (!$flag) {	while (!$flag) {
print(<<END);	print(<<END);

** System Administrator's E-mail **	** Server Administrator's 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 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 612 my %perlvarstatic;	Line 613 my %perlvarstatic;
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);	(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
chomp($domainDescription);	chomp($domainDescription);
chomp($domainTabExtras);	chomp($domainTabExtras);
	# the remianing field (primary lib server) is handled later
	$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);
last;	last;
}	}
}	}
Line 624 my %perlvarstatic;	Line 627 my %perlvarstatic;
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);	(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
chomp($domainDescription);	chomp($domainDescription);
chomp($domainTabExtras);	chomp($domainTabExtras);
	# the remianing field (primary lib server) is handled later
	$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);
last;	last;
}	}
}	}
Line 677 my %perlvarstatic;	Line 682 my %perlvarstatic;
}	}

# 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 690 This is now the current configuration of	Line 695 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 702 END	Line 707 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+$/ &&
Line 714 foreach my $v ($perlvar{'lonDefDomain'},	Line 719 foreach my $v ($perlvar{'lonDefDomain'},
'editupload') {	'editupload') {
$error.="\nName $v reserved." if $v eq $bad;	$error.="\nName $v reserved." if $v eq $bad;
}	}
if ($v=~/\W/) { $error.="\nName $v contains special characters"; }	if ($v=~/[^\w\-.]/) { $error.="\nName $v contains special characters"; }
}	}
if ($domainDescription!~/^[\-\w\s,]+$/) {	if ($domainDescription!~/^[\-\w\s,]+$/) {
$error.="\nDomain Description contains special characters";	$error.="\nDomain Description contains special characters";
Line 733 if (!defined($primaryLibServer)) {	Line 738 if (!defined($primaryLibServer)) {
$error .= "No library servers in this domain (including current server)";	$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) { $error.="\nPrimary Library Server ID: $primaryLibServer too long"; }
if (length($primaryLibServer)<2) { $error.="\nPrimary Library Server ID: $primaryLibServer too short"; }	if (length($primaryLibServer)<2) { $error.="\nPrimary Library Server ID: $primaryLibServer too short"; }
if ($primaryLibServer =~/capa/i) {	if ($primaryLibServer =~/capa/i) {
if ($primaryLibServer!~/^oucapa\d+$/ &&	if ($primaryLibServer!~/^oucapa\d+$/ &&
Line 745 if (!defined($primaryLibServer)) {	Line 750 if (!defined($primaryLibServer)) {
'editupload') {	'editupload') {
$error.="\nPrimary library server ID $primaryLibServer reserved." if $primaryLibServer eq $bad;	$error.="\nPrimary library server ID $primaryLibServer reserved." if $primaryLibServer eq $bad;
}	}
if ($primaryLibServer=~/\W/) { $error.="\nPrimary library server ID $primaryLibServer contains special characters"; }	if ($primaryLibServer=~/[^\w\-.]/) { $error.="\nPrimary library server ID $primaryLibServer contains special characters"; }
}	}


Line 805 END	Line 810 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 899 END	Line 904 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 913 unless (-l "<TARGET />") {	Line 922 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 924 END	Line 933 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 945 END	Line 965 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 961 END	Line 981 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 984 END	Line 1009 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 997 END	Line 1024 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 1012 END	Line 1039 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`;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.45
changed lines
	Added in v.1.52