Annotation of loncom/build/loncapaautoupgrade, revision 1.4
1.1 harris41 1: #!/usr/bin/perl
2:
3: # loncapaautoupgrade
4:
5: # This tool does "all the things" to auto update a system.
6: # Use with extreme caution so that you do not lose your
7: # work.
8:
9: # Scott Harrison, 10/25/2000
10:
11: use strict;
12:
13: # Download most recent LON-CAPA RPM
14:
1.4 ! harris41 15: print `/usr/bin/lynx -term xterm -source http://install.lon-capa.org/3.1/loncapafiles/LON-CAPA-base-3.1-1.i386.rpm > /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
1.1 harris41 16:
17: # Stop LON-CAPA
18:
1.3 harris41 19: print "Stopping LON-CAPA and Apache\n";
20: system("/etc/rc.d/init.d/loncontrol stop");
1.4 ! harris41 21: system("/etc/rc.d/init.d/httpd stop");
1.1 harris41 22:
23: # Update downloaded RPM
24:
1.2 harris41 25: print `/bin/rpm -Uvh --force /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
1.1 harris41 26:
27: # Restore configuration values
28:
1.2 harris41 29: print `/usr/sbin/loncaparestoreconfigurations`;
1.1 harris41 30:
31: # Start LON-CAPA
32:
1.3 harris41 33: print "Starting LON-CAPA and Apache (be patient please)\n";
34: system("/etc/rc.d/init.d/loncontrol start");
1.4 ! harris41 35: system("/etc/rc.d/init.d/httpd start");
1.1 harris41 36:
37: # Verify base files and packages
38:
1.2 harris41 39: print `/usr/sbin/loncapaverify`;
1.1 harris41 40:
41: # Remove downloaded RPM
42:
1.2 harris41 43: print `/bin/rm -f /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
1.1 harris41 44:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>