doc/install/redhat7.3/install.pl - diff

Return to install.pl CVS log

Up to [LON-CAPA] / doc / install / redhat7.3

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 {