--- doc/install/redhat7.3/install.pl	2003/01/08 02:48:01	1.18
+++ doc/install/redhat7.3/install.pl	2003/09/02 19:10:52	1.24
@@ -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.24 2003/09/02 19:10:52 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.24 2003/09/02 19:10:52 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,32 +225,34 @@ 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)
 ## this is not a nice thing to do and we should be careful about it.
 ##
 
+
+
 &print_and_log("Installing Apache packages.\n");
-&writelog (`rpm -Uvh @apache_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @apache_rpms`);
 &print_and_log("Installing openssh packages.\n");
-&writelog (`rpm -Uvh @openssh_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @openssh_rpms`);
 &writelog(`/etc/init.d/sshd start`);
 &print_and_log("Installing ImageMagick packages.\n");
-&writelog (`rpm -Uvh @ImageMagick_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @ImageMagick_rpms`);
 &print_and_log("Installing mysql packages.\n");
-&writelog (`rpm -Uvh @mysql_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @mysql_rpms`);
 &print_and_log("Installing Perl packages.\n");
-&writelog (`rpm -Uvh @perl_rpms`);
+&writelog (`rpm -Uvh --replacepkgs@perl_rpms`);
 &print_and_log("Installing legacy readline package (required for gnuplot).");
 &writelog(`rpm -i --oldpackage @old_readline_rpms`);
 &print_and_log("Installing gnuplot packages.\n");
 &writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`);
 &print_and_log("Installing LON-CAPA Perl packages.\n");
-&writelog (`rpm -Uvh @loncapa_perl_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @loncapa_perl_rpms`);
 &print_and_log("Installing misc packages.\n");
-&writelog (`rpm -Uvh @misc_rpms`);
+&writelog (`rpm -Uvh --replacepkgs @misc_rpms`);
 &print_and_log("Installing LON-CAPA systemperl rpm");
 &writelog(`rpm -ivh --force --nodeps $systemperl`);
 &print_and_log("\n");
@@ -261,7 +265,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 +279,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 +426,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",