--- doc/install/redhat7.3/install.pl	2003/01/08 02:48:01	1.18
+++ 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.18 2003/01/08 02:48:01 harris41 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)=@_;
@@ -147,7 +149,7 @@ END
 print <<"END";
 ********************************************************************
 
-                    Welcome to LON-CAPA 0.6.0
+                    Welcome to LON-CAPA 
 
 This script will install the base software that LON-CAPA needs to
 run properly. 
@@ -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)
@@ -261,7 +263,8 @@ my @php_rpms = ("php-imap-4.1.2-7",
                 "asp2php-0.76.2-1",
                 "php-ldap-4.1.2-7",
                 "php-devel-4.1.2-7",
-                "php-4.1.2-7");
+                "php-4.1.2-7",
+	        "php-pgsql-4.1.2-7");
 
 &print_and_log("Removing php packages");
 foreach my $php_rpm (@php_rpms) {
@@ -274,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
 ##
@@ -416,8 +424,8 @@ print_and_log("\n");
 ##
 system("/sbin/chkconfig ipchains off");
 system("/etc/init.d/ipchains stop");
-system("/sbin/chkconfig iptables on");
-system("/etc/init.d/iptables start");
+system("/sbin/chkconfig iptables off");
+system("/etc/init.d/iptables stop");
 
 # Someday we will add these to /etc/sysconfig/ipchains.
 #  "-A input -s 0/0 -d 0/0 8080 -p tcp -y -j ACCEPT",