#!/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/
binutils-2.9.1.0.25-1nw2.armv4l.rpm
cpp-2.95.1-1nw5.armv4l.rpm
gcc-2.95.1-1nw5.armv4l.rpm
gcc-c++-2.95.1-1nw5.armv4l.rpm
make-3.77-6.armv4l.rpm
glibc-devel-2.1.2-4nw1.armv4l.rpm
patch-2.5-9.armv4l.rpm
automake-1.4-5.noarch.rpm
m4-1.4-12.armv4l.rpm
autoconf-2.13-5.noarch.rpm
libtool-1.3.3-1.noarch.rpm
XFree86-devel-3.3.3.1-36nw10.armv4l.rpm
texinfo-3.12h-2.armv4l.rpm
tetex-1.0.6-7.armv4l.rpm
tetex-fonts-1.0.6-7.armv4l.rpm
libpng-1.0.3-4.armv4l.rpm
gdbm-devel-1.8.0-2.armv4l.rpm
cvs-1.10.6-2.armv4l.rpm/;

print "\nUpgrading OfficeServer 2.0 with basic development tools\n";

foreach (@files) {
  my $cmd = "rpm -ivh --force --nodeps ftp://ftp.netwinder.org/pub/netwinder/RPMS/dm/3.1-15/$_";
  print "$cmd\n";
  system ("$cmd");
}

print "\nDone\n";