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, 7 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

    1: #!/usr/bin/perl
    2: my $script=<<CMD;
    3: touch loncom/build/WARNINGS
    4: rm -f 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 removenolongerused
   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>