version 1.13, 2002/12/12 22:17:27
|
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 433 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 { |