doc/install/redhat7.3/install.pl - diff

Return to install.pl CVS log

Up to [LON-CAPA] / doc / install / redhat7.3

version 1.20, 2003/04/30 20:59:57	version 1.23, 2003/08/28 17:13:13
Line 89 my $test;	Line 89 my $test;
# note: The filehandle LOG is global.	# note: The filehandle LOG is global.
open LOG,">loncapa_install.log" \|\| die "Unable to open log file.\n";	open LOG,">loncapa_install.log" \|\| die "Unable to open log file.\n";

	print LOG '$Id$'."\n";

# Some friendly subroutines	# Some friendly subroutines
sub die_if_nonempty {	sub die_if_nonempty {
my ($string,$error)=@_;	my ($string,$error)=@_;
Line 223 my @misc_rpms = (	Line 225 my @misc_rpms = (
"$instdir/libcap-1.10-8.i386.rpm",	"$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)	## Some of these rpm commands require being obnoxious (--force --nodeps)
Line 275 foreach my $php_rpm (@php_rpms) {	Line 277 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	## Fix that stupid little sendmail bug
##	##