Annotation of loncom/UPDATE, revision 1.3

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
                     11: make postinstall
                     12: make run_searchcat
                     13: CMD
                     14: my @commands=split(/[\n;]/,$script);
                     15: foreach $cmd (@commands) {
                     16:     if ($cmd =~ /^cd\s+(\S*)/) {
                     17: 	chdir($1);
                     18:     } elsif (0 != system("$cmd")) {
                     19: 	open(WARN,">>WARNINGS");
                     20: 	my $error = '**** ERROR **** command "'.$cmd.'" failed'.$/;
                     21: 	print WARN ($error);
                     22: 	print($error);
                     23: 	last;
                     24:     }
                     25: }
                     26: system('make warningnote');

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