--- doc/install/redhat7.3/install.pl	2003/04/30 20:59:57	1.20
+++ doc/install/redhat7.3/install.pl	2003/08/28 17:13:13	1.23
@@ -2,7 +2,7 @@
 # The LearningOnline Network 
 # Red Hat 7.3 installation script
 #
-# $Id: install.pl,v 1.20 2003/04/30 20:59:57 matthew Exp $
+# $Id: install.pl,v 1.23 2003/08/28 17:13:13 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -89,6 +89,8 @@ my $test;
 # note: The filehandle LOG is global.
 open LOG,">loncapa_install.log" || die "Unable to open log file.\n";
 
+print LOG '$Id: install.pl,v 1.23 2003/08/28 17:13:13 matthew Exp $'."\n";
+
 # Some friendly subroutines
 sub die_if_nonempty {
     my ($string,$error)=@_;
@@ -223,7 +225,7 @@ my @misc_rpms = (
              "$instdir/libcap-1.10-8.i386.rpm",
              );
 
-my $systemperl = "$instdir/LON-CAPA-systemperl-3.5-rh7.i386.rpm";
+my $systemperl = "$instdir/LON-CAPA-systemperl-3.7-rh7.i386.rpm";
 
 ##
 ## Some of these rpm commands require being obnoxious (--force --nodeps)
@@ -275,6 +277,11 @@ foreach my $php_rpm (@php_rpms) {
     }
 }
 
+&print_and_log("Removing mod_throttle");
+system("rpm -e `rpm -q -a | grep mod_throttle`");
+&print_and_log("Removing mod_bandwidth");
+system("rpm -e `rpm -q -a | grep mod_bandwidth`");
+
 ##
 ## Fix that stupid little sendmail bug
 ##