version 1.17, 2003/01/07 20:48:53
|
version 1.24, 2003/09/02 19:10:52
|
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) |
## this is not a nice thing to do and we should be careful about it. |
## this is not a nice thing to do and we should be careful about it. |
## |
## |
|
|
|
|
|
|
&print_and_log("Installing Apache packages.\n"); |
&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"); |
&print_and_log("Installing openssh packages.\n"); |
&writelog (`rpm -Uvh @openssh_rpms`); |
&writelog (`rpm -Uvh --replacepkgs @openssh_rpms`); |
&writelog(`/etc/init.d/sshd start`); |
&writelog(`/etc/init.d/sshd start`); |
&print_and_log("Installing ImageMagick packages.\n"); |
&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"); |
&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"); |
&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)."); |
&print_and_log("Installing legacy readline package (required for gnuplot)."); |
&writelog(`rpm -i --oldpackage @old_readline_rpms`); |
&writelog(`rpm -i --oldpackage @old_readline_rpms`); |
&print_and_log("Installing gnuplot packages.\n"); |
&print_and_log("Installing gnuplot packages.\n"); |
&writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`); |
&writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`); |
&print_and_log("Installing LON-CAPA Perl packages.\n"); |
&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"); |
&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"); |
&print_and_log("Installing LON-CAPA systemperl rpm"); |
&writelog(`rpm -ivh --force --nodeps $systemperl`); |
&writelog(`rpm -ivh --force --nodeps $systemperl`); |
&print_and_log("\n"); |
&print_and_log("\n"); |
Line 261 my @php_rpms = ("php-imap-4.1.2-7",
|
Line 265 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 274 foreach my $php_rpm (@php_rpms) {
|
Line 279 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 |
## |
## |
Line 361 print_and_log("\n");
|
Line 371 print_and_log("\n");
|
## Set up mysql |
## Set up mysql |
## |
## |
print_and_log("Setting mysqld to start on boot up.\n"); |
print_and_log("Setting mysqld to start on boot up.\n"); |
system("chkconfig --add mysqld"); |
system("/sbin/chkconfig --add mysqld"); |
system("chkconfig mysqld on"); |
system("/sbin/chkconfig mysqld on"); |
&writelog(`chkconfig --list mysqld`); |
&writelog(`/sbin/chkconfig --list mysqld`); |
|
|
writelog("mysql links created successfully\n"); |
writelog("mysql links created successfully\n"); |
writelog(`/etc/rc.d/init.d/mysqld start`); |
writelog(`/etc/rc.d/init.d/mysqld start`); |
Line 414 print_and_log("\n");
|
Line 424 print_and_log("\n");
|
## |
## |
## Remove the firewall. |
## Remove the firewall. |
## |
## |
system("chkconfig ipchains off"); |
system("/sbin/chkconfig ipchains off"); |
system("/etc/init.d/ipchains stop"); |
system("/etc/init.d/ipchains stop"); |
system("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", |
Line 428 system("/etc/init.d/iptables start");
|
Line 438 system("/etc/init.d/iptables start");
|
## Set up httpd |
## Set up httpd |
## |
## |
print_and_log("Setting httpd to start on boot up.\n"); |
print_and_log("Setting httpd to start on boot up.\n"); |
system("chkconfig httpd on"); |
system("/sbin/chkconfig httpd on"); |
|
|
## |
## |
## Copy our (probably lousy) httpd.conf to its rightful place |
## Copy our (probably lousy) httpd.conf to its rightful place |