version 1.3, 2002/06/27 20:45:36
|
version 1.6, 2002/07/22 12:05:00
|
Line 162 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 = ( |
my @ImageMagick_rpms = ( |
"$instdir/ImageMagick-5.4.3.11-1.i386.rpm", |
"$instdir/ImageMagick-5.4.3.11-1.i386.rpm", |
"$instdir/ImageMagick-devel-5.4.3.11-1.i386.rpm", |
"$instdir/ImageMagick-devel-5.4.3.11-1.i386.rpm", |
Line 200 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"); |
print_and_log("Installing ImageMagick packages.\n"); |
writelog (`rpm -ivh --force --nodeps @ImageMagick_rpms`); |
writelog (`rpm -ivh --force --nodeps @ImageMagick_rpms`); |
print_and_log("Installing mysql packages.\n"); |
print_and_log("Installing mysql packages.\n"); |
Line 212 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 315 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 402 print_and_log("\n");
|
Line 425 print_and_log("\n");
|
## |
## |
## Retrieve loncapa.tar.gz |
## Retrieve loncapa.tar.gz |
## |
## |
if (! -e "$instdir/loncapa.tar.gz") { |
if (! -e "$instdir/loncapa-current.tar.gz") { |
print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n"); |
print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n"); |
system("wget http://install.loncapa.org/versions/current/loncapa.tar.gz 2>/dev/null 1>/dev/null"); |
system("wget http://install.loncapa.org/versions/loncapa-current.tar.gz 2>/dev/null 1>/dev/null"); |
if (! -e "./loncapa.tar.gz") { |
if (! -e "./loncapa-current.tar.gz") { |
die("Unable to retrieve LON-CAPA source files from\n". |
die("Unable to retrieve LON-CAPA source files from\n". |
"http://install.loncapa.org/versions/current/loncapa.tar.gz\n"); |
"http://install.loncapa.org/versions/loncapa-current.tar.gz\n"); |
} |
} |
print_and_log("\n"); |
print_and_log("\n"); |
} else { |
} else { |
print_and_log(<<"END"); |
print_and_log(<<"END"); |
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
|
|
You seem to have a version of loncapa.tar.gz in $instdir. |
You seem to have a version of loncapa-current.tar.gz in $instdir. |
This copy will be used and a new version will NOT be downloaded. |
This copy will be used and a new version will NOT be downloaded. |
If you wish, you may download a new version by executing: |
If you wish, you may download a new version by executing: |
|
|
wget http://install.loncapa.org/versions/current/loncapa.tar.gz |
wget http://install.loncapa.org/versions/loncapa-current.tar.gz |
|
|
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
END |
END |
Line 428 END
|
Line 451 END
|
## untar loncapa.tar.gz |
## untar loncapa.tar.gz |
## |
## |
print_and_log("Extracting LON-CAPA source files\n"); |
print_and_log("Extracting LON-CAPA source files\n"); |
writelog(`cd ~root; tar zxf $instdir/loncapa.tar.gz`); |
writelog(`cd ~root; tar zxf $instdir/loncapa-current.tar.gz`); |
print_and_log("\n"); |
print_and_log("\n"); |
|
|
my $version = `cat /etc/redhat-release`; |
my $version = `cat /etc/redhat-release`; |
Line 451 END
|
Line 474 END
|
All of the extra files seem to have been installed correctly. It remains for |
All of the extra files seem to have been installed correctly. It remains for |
you to execute the following commands: |
you to execute the following commands: |
|
|
cd /root/loncapa; |
cd /root/loncapa |
./UPDATE |
./UPDATE |
|
|
If you have any trouble, please see http://install.loncapa.org and |
If you have any trouble, please see http://install.loncapa.org/ and |
http://help.loncapa.org. |
http://help.loncapa.org/. |
ENDMSG |
ENDMSG |
} |
} |
|
|
close LOG; |
close LOG; |
|
|