#!/usr/bin/perl
#
# Upgrades an OfficeServer with various packages to make
# programming under OfficeServer possible. Packages include
# gcc, g++, make, joe, emacs, cvs, etc...

my @files = qw/
autoconf-2.13-5.noarch.rpm
XFree86-devel-3.3.3.1-36nw11.armv4l.rpm
automake-1.4-6.noarch.rpm
binutils-2.10.1-1_nw2.armv4l.rpm
cvs-1.10.7-7_nw1.armv4l.rpm
gcc-2.95.2-1nw9.armv4l.rpm
gcc-c++-2.95.2-1nw9.armv4l.rpm
cpp-2.95.2-1nw9.armv4l.rpm
gdb-5.0-1nw2.armv4l.rpm
gdbm-devel-1.8.0-3.armv4l.rpm
glibc-devel-2.1.3-22_nw3.armv4l.rpm
gmp-devel-2.0.2-13_nw1.armv4l.rpm
kernel-2.4.0.test10-2.20001113.armv4l.rpm
kernel-doc-2.4.0.test10-2.20001113.armv4l.rpm
kernel-headers-2.4.0.test10-2.20001113.armv4l.rpm
kernel-source-2.4.0.test10-2.20001113.armv4l.rpm
kernel-utils-2.4.0.test10-2.20001113.armv4l.rpm
libpng-devel-1.0.5-3.armv4l.rpm
libtool-1.3.4-3.armv4l.rpm
ncurses-devel-5.0-12.armv4l.rpm
m4-1.4-12.armv4l.rpm
make-3.79-1.armv4l.rpm
openssl-devel-0.9.5a-2.6.x_nw1.armv4l.rpm
patch-2.5-10.armv4l.rpm
stat-1.5-12.armv4l.rpm
tetex-1.0.6-11.armv4l.rpm
tetex-fonts-1.0.6-11.armv4l.rpm
texinfo-4.0-5_nw1.armv4l.rpm/;
#egcs-1.1.2-30.armv4l.rpm
#egcs-objc-1.1.2-30.armv4l.rpm
#egcs-c++-1.1.2-30.armv4l.rpm
#egcs-g77-1.1.2-30.armv4l.rpm
#cpp-1.1.2-30.armv4l.rpm

print "\nUpgrading OfficeServer 2.3-7 ARM with basic development tools\n";

foreach (@files) {
  $result = 0;
  my $cmd = "rpm -ivh --force --nodeps ftp://10.8.49.100/osupgrade/RPMS-ARM/$_";
  print "$cmd\n";
  $result = system ("$cmd");
  if ($results) {
    open (ER, "> errors.txt");
    print ER "$cmd\n";
    close ER;
  }
}

print "\nDone\n";