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