version 1.19, 2003/01/12 19:07:28
|
version 1.21, 2003/08/05 15:05:28
|
Line 89 my $test;
|
Line 89 my $test;
|
# note: The filehandle LOG is global. |
# note: The filehandle LOG is global. |
open LOG,">loncapa_install.log" || die "Unable to open log file.\n"; |
open LOG,">loncapa_install.log" || die "Unable to open log file.\n"; |
|
|
|
print LOG '$Id$'."\n"; |
|
|
# Some friendly subroutines |
# Some friendly subroutines |
sub die_if_nonempty { |
sub die_if_nonempty { |
my ($string,$error)=@_; |
my ($string,$error)=@_; |
Line 147 END
|
Line 149 END
|
print <<"END"; |
print <<"END"; |
******************************************************************** |
******************************************************************** |
|
|
Welcome to LON-CAPA 0.6.0 |
Welcome to LON-CAPA |
|
|
This script will install the base software that LON-CAPA needs to |
This script will install the base software that LON-CAPA needs to |
run properly. |
run properly. |