Return to loncapaautoupgrade CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/loncapaautoupgrade, revision 1.5

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.5     ! harris41   22: system("/etc/rc.d/init.d/atalkd stop");
        !            23: system("/etc/rc.d/init.d/smb stop");
        !            24: system("/etc/rc.d/init.d/xntpd stop");
1.1       harris41   25: 
                     26: # Update downloaded RPM
                     27: 
1.2       harris41   28: print `/bin/rpm -Uvh --force /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
1.1       harris41   29: 
                     30: # Restore configuration values
                     31: 
1.2       harris41   32: print `/usr/sbin/loncaparestoreconfigurations`;
1.1       harris41   33: 
                     34: # Start LON-CAPA
                     35: 
1.3       harris41   36: print "Starting LON-CAPA and Apache (be patient please)\n";
                     37: system("/etc/rc.d/init.d/loncontrol start");
1.4       harris41   38: system("/etc/rc.d/init.d/httpd start");
1.5     ! harris41   39: system("/etc/rc.d/init.d/atalkd start");
        !            40: system("/etc/rc.d/init.d/smb start");
        !            41: system("/etc/rc.d/init.d/xntpd start");
1.1       harris41   42: 
                     43: # Verify base files and packages
                     44: 
1.2       harris41   45: print `/usr/sbin/loncapaverify`;
1.1       harris41   46: 
                     47: # Remove downloaded RPM
                     48: 
1.2       harris41   49: print `/bin/rm -f /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
1.1       harris41   50: