Annotation of loncom/UPDATE, revision 1.1

1.1     ! albertel    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');

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