Annotation of loncom/UPDATE, revision 1.4

1.1       albertel    1: #!/usr/bin/perl
                      2: my $script=<<CMD;
                      3: touch loncom/build/WARNINGS
1.2       albertel    4: rm -f WARNINGS
1.1       albertel    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
1.4     ! raeburn    11: make removenolongerused
1.1       albertel   12: make postinstall
                     13: make run_searchcat
                     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');

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