Return to UPDATE CVS log

Up to [LON-CAPA] / loncom

- wrapping UPDATE script in perl
- UPDATE checks return codes on each make statement for checking that it worked

#!/usr/bin/perl
my $script=<<CMD;
touch loncom/build/WARNINGS
rm WARNINGS
ln -s loncom/build/WARNINGS WARNINGS
cd loncom/build;make build
make rawinstall
make configinstall
make updatequery
make hosts_and_domain_tab
make postinstall
make run_searchcat
make aboutVERSION
CMD
my @commands=split(/[\n;]/,$script);
foreach $cmd (@commands) {
    if ($cmd =~ /^cd\s+(\S*)/) {
	chdir($1);
    } elsif (0 != system("$cmd")) {
	open(WARN,">>WARNINGS");
	my $error = '**** ERROR **** command "'.$cmd.'" failed'.$/;
	print WARN ($error);
	print($error);
	last;
    }
}
system('make warningnote');