#!/usr/bin/perl

# loncapaautoupgrade

# This tool does "all the things" to auto update a system.
# Use with extreme caution so that you do not lose your
# work.

# Scott Harrison, 10/25/2000

use strict;

# Download most recent LON-CAPA RPM

`/usr/bin/lynx -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`;

# Stop LON-CAPA

`/etc/rc.d/init.d/loncontrol stop`

# Update downloaded RPM

`/bin/rpm -Uvh --force /tmp/LON-CAPA-base-3.1-1.i386.rpm`;

# Restore configuration values

`/usr/sbin/loncaparestoreconfigurations`;

# Start LON-CAPA

`/etc/rc.d/init.d/loncontrol start`;

# Verify base files and packages

`/usr/sbin/loncapaverify`;

# Remove downloaded RPM

`/bin/rm -f /tmp/LON-CAPA-base-3.1-1.i386.rpm`;