version 1.12, 2002/12/12 20:55:23
|
version 1.15, 2002/12/18 16:34:09
|
Line 87 my $result;
|
Line 87 my $result;
|
my $test; |
my $test; |
|
|
# note: The filehandle LOG is global. |
# note: The filehandle LOG is global. |
open LOG,">/tmp/loncapa_install.log" || die "Unable to open log file.\n"; |
open LOG,">loncapa_install.log" || die "Unable to open log file.\n"; |
|
|
# Some friendly subroutines |
# Some friendly subroutines |
sub die_if_nonempty { |
sub die_if_nonempty { |
Line 204 my @loncapa_perl_rpms = (
|
Line 204 my @loncapa_perl_rpms = (
|
"$instdir/netpbm-9.24-3.i386.rpm", |
"$instdir/netpbm-9.24-3.i386.rpm", |
"$instdir/netpbm-progs-9.24-3.i386.rpm", |
"$instdir/netpbm-progs-9.24-3.i386.rpm", |
"$instdir/krb5-libs-1.2.4-3.i386.rpm", |
"$instdir/krb5-libs-1.2.4-3.i386.rpm", |
|
"$instdir/krb5-devel-1.2.4-3.i386.rpm", |
"$instdir/LON-CAPA-krb4-3.1-1.i386.rpm", |
"$instdir/LON-CAPA-krb4-3.1-1.i386.rpm", |
); |
); |
my @mysql_rpms = ( |
my @mysql_rpms = ( |
Line 432 print_and_log("\n");
|
Line 433 print_and_log("\n");
|
## |
## |
## Retrieve loncapa.tar.gz |
## Retrieve loncapa.tar.gz |
## |
## |
if (! -e "$instdir/loncapa-current.tar.gz") { |
my $lctarball = 'loncapa-current.tar.gz'; |
print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n"); |
if (! -e "$instdir/$lctarball") { |
system("wget http://install.loncapa.org/versions/loncapa-current.tar.gz 2>/dev/null 1>/dev/null"); |
print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n") |
if (! -e "./loncapa-current.tar.gz") { |
; |
|
system("wget http://install.loncapa.org/versions/$lctarball 2>/dev/null 1>/d |
|
ev/null"); |
|
if (! -e "./$lctarball") { |
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/loncapa-current.tar.gz\n"); |
"http://install.loncapa.org/versions/$lctarball\n"); |
} |
} |
print_and_log("\n"); |
print_and_log("\n"); |
} else { |
} else { |