#!/usr/bin/perl
#
#
# 04-Dec-99 amo Install Redhat Secure Server
#
#
my ( $rpm ) = "rpm -Uvh";
my ( $doit ) = "";	# " --test";
my ( $cd ) = "/mnt/cdrom";
#
#
` mount /mnt/cdrom `;
` cd /mnt/cdrom `;
#
#
my ( @rpm_lst ) = (
	"noarch/horde-1.0.10-3.noarch.rpm",
	"noarch/imp-2.0.11-2.noarch.rpm",
	"i386/mod_dav-0.9.8-1.i386.rpm ",
	"i386/mod_roaming-1.0.1-2.i386.rpm",
	"i386/perl-MLDBM-2.00-3.i386.rpm",
	"i386/perl-MD5-1.7-7.i386.rpm",
	"i386/perl-HTML-Parser-2.22-3.i386.rpm",
	"i386/perl-Devel-Symdump-2.00-3.i386.rpm",
	"i386/perl-MIME-Base64-2.11-3.i386.rpm",
	"i386/perl-URI-1.02-3.i386.rpm",
	"i386/perl-libnet-1.0606-3.i386.rpm",
	"i386/perl-libwww-5.43-3.i386.rpm",
	"i386/secureweb-3.1-1.i386.rpm",
	"i386/secureweb-devel-3.1-1.i386.rpm",
	"i386/webalizer-1.30_04-1.i386.rpm",
	"i386/perl-Apache-ASP-0.16-4.i386.rpm"
);
#
#
my ( $id ) = 0;
#
while ( $id <= $#rpm_lst ) {
  #
  printf "$rpm $doit $rpm_lst[$id]\n";
# `$rpm $doit $cd/$rpm_lst[$id]`;
  #
  $id += 1;
  #
} # end of list
#
#
# Save old Web Config
#
printf "\n";
printf "cd /etc/httpd/conf\n";
#
printf "mv httpd.conf.rpmsave httpd.conf.Alvin\n";
printf "mv  access.conf.rpmsave  access.conf.alvin\n";
#
# end of file