loncom/build/postinstall.pl - diff

Return to postinstall.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.6, 2000/11/21 15:08:19	version 1.7, 2000/11/21 15:22:29
Line 23 system('sh','./remove_extra.sh');	Line 23 system('sh','./remove_extra.sh');

# download FinalRPMS and install	# download FinalRPMS and install
system('wget','-r','http://install.lon-capa.org/3.1/FinalRPMS');	system('wget','-r','http://install.lon-capa.org/3.1/FinalRPMS');
system('rpm','-Uvh','--force','install.lon-capa.org/3.1/FinalRPMS/*.rpm');	system('rpm -Uvh --force install.lon-capa.org/3.1/FinalRPMS/*.rpm');

	my $okay=0;
	DEV: while ($okay==0) {
	print "\n\nWill this machine be used to develop future LON-CAPA software? (y/n)\n";
	my $input=<>;
	if ($input=~/^y/i) {
	$okay=1;
	}
	elsif ($input=~/^n/i) {
	last DEV;
	}
	}
	if (!$okay) {
	system('wget','http://install.lon-capa.org/3.1/scripts/remove_extra_dev.sh');
	system('sh','./remove_extra_dev.sh');
	}

# allow entry of new access.conf parameters	# allow entry of new access.conf parameters
my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");	my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
Line 65 instructors, or any other class of user.	Line 81 instructors, or any other class of user.
END	END
);	);
my $template=`/bin/cat /etc/httpd/conf/access.conf`;	my $template=`/bin/cat /etc/httpd/conf/access.conf`;
my $okay=0;	$okay=0;
while ($okay==0) {	while ($okay==0) {
foreach my $psv (@perlsetvars) {	foreach my $psv (@perlsetvars) {
print "\n";	print "\n";