[BACK]Return to UPDATE CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom
File:  [LON-CAPA] / loncom / UPDATE
Revision 1.4: download - view: text, annotated - select for diffs
Fri Aug 9 06:24:27 2013 UTC (11 years, 4 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_5_msu, version_2_11_5, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, version_2_11_0_RC3, version_2_11_0_RC2, version_2_11_0_RC1, version_2_11_0, HEAD
- Checking for files installed by earlier versions of LON-CAPA, now no longer used.
  - Fix regexps and comparisons.
  - Output from parsing removenolongerused.piml sent to file in /tmp, then run
    interactively (user input required).
  - "make removenolongerused" moved out of postinstall and into separate call in ./UPDATE

#!/usr/bin/perl
my $script=<<CMD;
touch loncom/build/WARNINGS
rm -f WARNINGS
ln -s loncom/build/WARNINGS WARNINGS
cd loncom/build;make build
make rawinstall
make configinstall
make updatequery
make hosts_and_domain_tab
make removenolongerused
make postinstall
make run_searchcat
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');
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>