version 1.1, 2002/06/19 19:16:54
|
version 1.4, 2002/07/02 13:46:15
|
Line 24
|
Line 24
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
## |
## |
## Obvious flaws of this program: |
## Obvious flaws of this program: |
## Dieing on every error may be a little extreme. On the other hand, |
## Dieing on every error may be a little extreme. On the other hand, |
Line 35
|
Line 36
|
## what nonsense we can put up with. Of course, we will have to |
## what nonsense we can put up with. Of course, we will have to |
## explain that to people at some point... |
## explain that to people at some point... |
## There is probably an overuse of elipses (...) in the comments. |
## There is probably an overuse of elipses (...) in the comments. |
|
## It might be nice to check that all the files we need are here. |
|
## Appletalk is installed but does not work and gives errors on |
|
## boot up. I have not been able to find a clean way to get the |
|
## appletalk support working but the powers that be insist on it. |
## |
## |
|
|
|
# |
|
# Needed files: |
|
# |
|
# The following files are assumed to be present in the current |
|
# directory: |
|
# RPMS: |
|
# ImageMagick-5.4.3.11-1.i386.rpm |
|
# ImageMagick-devel-5.4.3.11-1.i386.rpm |
|
# ImageMagick-perl-5.4.3.11-1.i386.rpm |
|
# gnuplot-3.7.1-5.i386.rpm |
|
# libgd-1.3-4.i386.rpm |
|
# libungif-progs-4.1.0-9.i386.rpm |
|
# ncurses4-5.0-5.i386.rpm |
|
# readline-2.2.1-6.i386.rpm |
|
# readline-4.2a-4.i386.rpm |
|
# perl-DBD-MySQL-1.2216-4.i386.rpm |
|
# perl-DBI-1.21-1.i386.rpm |
|
# mod_perl-1.26-5.i386.rpm |
|
# perl-suidperl-5.6.1-34.99.6.i386.rpm |
|
# LON-CAPA-systemperl-3.4-rh72.i386.rpm |
|
# mysql-3.23.49-3.i386.rpm |
|
# mysqlclient9-3.23.22-6.i386.rpm |
|
# mysql-server-3.23.49-3.i386.rpm |
|
# hwcrypto-1.0-3.i386.rpm |
|
# m2crypto-0.05_snap4-2.i386.rpm |
|
# netatalk-1.5pre6-1rh7.i386.rpm |
|
# Other files: |
|
# httpd.conf |
|
# mod_auth_external-2.1.13.tar.gz |
|
# |
|
# The contingency plan for a 7.2 install tells the user to install these |
|
# from the current directory. |
|
# perl-5.6.1-34.99.6.i386.rpm |
|
# perl-CGI-2.752-34.99.6.i386.rpm |
|
# |
|
|
use strict; |
use strict; |
use File::Copy; |
use File::Copy; |
|
|
Line 120 chomp($instdir);
|
Line 162 chomp($instdir);
|
# This list of rpms needs to be pared down to some extent. |
# This list of rpms needs to be pared down to some extent. |
# |
# |
|
|
|
my @apache_rpms = ( |
|
"$instdir/apache-1.3.23-14.i386.rpm" |
|
); |
|
|
|
my @openssh_rpms = ( |
|
"$instdir/openssh-3.1p1-6.i386.rpm", |
|
"$instdir/openssh-askpass-3.1p1-6.i386.rpm", |
|
"$instdir/openssh-clients-3.1p1-6.i386.rpm", |
|
"$instdir/openssh-server-3.1p1-6.i386.rpm" |
|
); |
|
# Check for gnome-askpass installation. |
|
if (-e "/etc/profile.d/gnome-ssh-askpass.sh") { |
|
push @openssh_rpms,"$instdir/openssh-askpass-gnome-3.1p1-6.i386.rpm"; |
|
} |
|
|
|
my @ImageMagick_rpms = ( |
|
"$instdir/ImageMagick-5.4.3.11-1.i386.rpm", |
|
"$instdir/ImageMagick-devel-5.4.3.11-1.i386.rpm", |
|
"$instdir/ImageMagick-perl-5.4.3.11-1.i386.rpm", |
|
); |
|
|
my @gnuplot_rpms = ( |
my @gnuplot_rpms = ( |
"$instdir/gnuplot-3.7.1-5.i386.rpm", |
"$instdir/gnuplot-3.7.1-5.i386.rpm", |
"$instdir/libgd-1.3-4.i386.rpm", |
"$instdir/libgd-1.3-4.i386.rpm", |
Line 152 my @misc_rpms = (
|
Line 215 my @misc_rpms = (
|
## but it is an exercise in frustration. It would be nice to be kind, but |
## but it is an exercise in frustration. It would be nice to be kind, but |
## frankly I do not want to spend the time to figure this out. |
## frankly I do not want to spend the time to figure this out. |
## |
## |
|
|
|
print_and_log("Installing Apache packages.\n"); |
|
writelog (`rpm -Uvh @apache_rpms`); |
|
print_and_log("Installing openssh packages.\n"); |
|
writelog (`rpm -Uvh @openssh_rpms`); |
|
system("/etc/init.d/sshd start"); |
|
print_and_log("Installing ImageMagick packages.\n"); |
|
writelog (`rpm -ivh --force --nodeps @ImageMagick_rpms`); |
print_and_log("Installing mysql packages.\n"); |
print_and_log("Installing mysql packages.\n"); |
writelog (`rpm -ivh --force --nodeps @mysql_rpms`); |
writelog (`rpm -ivh --force --nodeps @mysql_rpms`); |
print_and_log("Installing gnuplot packages.\n"); |
print_and_log("Installing gnuplot packages.\n"); |
Line 162 print_and_log("Installing Perl packages.
|
Line 233 print_and_log("Installing Perl packages.
|
writelog (`rpm -ivh --force --nodeps @perl_rpms`); |
writelog (`rpm -ivh --force --nodeps @perl_rpms`); |
print_and_log("Installing misc packages.\n"); |
print_and_log("Installing misc packages.\n"); |
writelog (`rpm -ivh --force --nodeps @misc_rpms`); |
writelog (`rpm -ivh --force --nodeps @misc_rpms`); |
system("/etc/init.d/sshd start"); |
|
print_and_log("\n"); |
print_and_log("\n"); |
|
|
## |
## |
Line 265 writelog("mysql links created successful
|
Line 335 writelog("mysql links created successful
|
writelog(`/etc/rc.d/init.d/mysqld start`); |
writelog(`/etc/rc.d/init.d/mysqld start`); |
print_and_log("Waiting for mysql daemon to start.\n"); |
print_and_log("Waiting for mysql daemon to start.\n"); |
sleep 5; |
sleep 5; |
if (`/etc/rc.d/init.d/mysqld status` !~ / is running/) { |
my $status = system("/etc/rc.d/init.d/mysqld status"); |
|
if ($status != 0) { |
die "Unable to start mysql daemon\nHalting\n"; |
die "Unable to start mysql daemon\nHalting\n"; |
|
} else { |
|
print_and_log("Mysql daemon is running.\n"); |
} |
} |
print_and_log("\n"); |
print_and_log("\n"); |
|
|
Line 410 ENDMSG
|
Line 483 ENDMSG
|
} |
} |
|
|
close LOG; |
close LOG; |
|
|