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

    1: #!/usr/bin/perl
    2: my $script=<<CMD;
    3: touch loncom/build/WARNINGS
    4: rm WARNINGS
    5: ln -s loncom/build/WARNINGS WARNINGS
    6: cd loncom/build;make build
    7: make rawinstall
    8: make configinstall
    9: make updatequery
   10: make hosts_and_domain_tab
   11: make postinstall
   12: make run_searchcat
   13: make aboutVERSION
   14: CMD
   15: my @commands=split(/[\n;]/,$script);
   16: foreach $cmd (@commands) {
   17:     if ($cmd =~ /^cd\s+(\S*)/) {
   18: 	chdir($1);
   19:     } elsif (0 != system("$cmd")) {
   20: 	open(WARN,">>WARNINGS");
   21: 	my $error = '**** ERROR **** command "'.$cmd.'" failed'.$/;
   22: 	print WARN ($error);
   23: 	print($error);
   24: 	last;
   25:     }
   26: }
   27: system('make warningnote');