![[BACK]](/icons/back.gif){kind=icon}
Return to install.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / install / redhat7.3|
Return to install.pl CVS log | Up to [LON-CAPA] / doc / install / redhat7.3 |
| version 1.14, 2002/12/18 16:11:09 | version 1.15, 2002/12/18 16:34:09 |
|---|---|
| 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 { |