[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 (10 years, 10 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, 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>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.