version 1.20, 2003/04/30 20:59:57
|
version 1.22, 2003/08/11 20:47:57
|
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) |