#!/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/
XFree86-devel-3.3.6-20.i386.rpm
automake-1.4-6.noarch.rpm
autoconf-2.13-5.noarch.rpm
binutils-2.10.1-1_nw2.i386.rpm
cvs-1.10.7-7_nw1.i386.rpm
cpp-1.1.2-30.i386.rpm
egcs-1.1.2-30.i386.rpm
egcs-objc-1.1.2-30.i386.rpm
egcs-c++-1.1.2-30.i386.rpm
egcs-g77-1.1.2-30.i386.rpm
gdb-5.0-1nw2.i386.rpm
gdbm-devel-1.8.0-3.i386.rpm
glibc-devel-2.1.3-22_nw4.i386.rpm
gmp-devel-2.0.2-13_nw1.i386.rpm
#kernel-doc-2.4.0.test11-5.i586.rpm
#kernel-headers-2.4.0.test11-5.i586.rpm
#kernel-source-2.4.0.test11-5.i586.rpm
libpng-1.0.5-3.i386.rpm
libpng-devel-1.0.5-3.i386.rpm
libtool-1.3.4-3.i386.rpm
ncurses-devel-5.0-12.i386.rpm
m4-1.4-12.i386.rpm
make-3.79-1.i386.rpm
openldap-devel-1.2.9-6_nw1.i386.rpm
openssl-0.9.5a-2.6.x.i386.rpm
openssl-devel-0.9.5a-2.6.x.i386.rpm
openssl-perl-0.9.5a-2.6.x.i386.rpm
openssl-python-0.9.5a-2.6.x.i386.rpm
python-devel-1.5.2-27.6.x.i386.rpm
patch-2.5-10.i386.rpm
stat-1.5-12.i386.rpm
tetex-1.0.6-11.i386.rpm
tetex-fonts-1.0.6-11.i386.rpm
tetex-latex-1.0.6-11.i386.rpm
texinfo-4.0-5_nw1.i386.rpm/;
#gcc-2.95.2-1nw9.i386.rpm
#gcc-c++-2.95.2-1nw9.i386.rpm
#cpp-2.95.2-1nw9.i386.rpm

print "\nUpgrading OfficeServer 2.4-1/Gold with basic development tools\n";

foreach (@files) {
  $result = 0;
  if ( -f $_ ) {
    unlink("$_");
  }
  next if ($_ =~ /#/);

  $tempname = $_;
  $tempname =~ s/\.i.86\.rpm//;
  $tempname =~ s/\.noarch\.rpm//;
  $result = system("rpm -q $tempname &> /dev/null");
  next if ($result == 0);

  my $cmd = "ncftpget ftp://10.8.49.100/osupgrade/RPMS-x86/$_";
  print "$cmd\n";
  $result = system ("$cmd");
  if ($result != 0) {
    print STDOUT "EXITING: error.\n";
    exit 1;
  }
  my $cmd = "rpm -ivh --force --nodeps $_";
  print "$cmd\n";
  $result = system ("$cmd");
  unlink("$_");
}

print "\nDone\n";