[LON-CAPA-cvs] cvs: doc /install/redhat7.3 install.pl

[matthew]

matthew		Wed Dec 18 11:34:09 2002 EDT

  Modified files:              
    /doc/install/redhat7.3	install.pl 
  Log:
  Change to make it easier to grab a custom version of LON-CAPA to install.
  
  
Index: doc/install/redhat7.3/install.pl
diff -u doc/install/redhat7.3/install.pl:1.14 doc/install/redhat7.3/install.pl:1.15
--- doc/install/redhat7.3/install.pl:1.14	Wed Dec 18 11:11:09 2002
+++ doc/install/redhat7.3/install.pl	Wed Dec 18 11:34:09 2002
@@ -2,7 +2,7 @@
 # The LearningOnline Network 
 # Red Hat 7.3 installation script
 #
-# $Id: install.pl,v 1.14 2002/12/18 16:11:09 matthew Exp $
+# $Id: install.pl,v 1.15 2002/12/18 16:34:09 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -433,12 +433,15 @@
 ##
 ## Retrieve loncapa.tar.gz
 ##
-if (! -e "$instdir/loncapa-current.tar.gz") {
-    print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n");
-    system("wget http://install.loncapa.org/versions/loncapa-current.tar.gz 2>/dev/null 1>/dev/null");
-    if (! -e "./loncapa-current.tar.gz") {
+my $lctarball = 'loncapa-current.tar.gz';
+if (! -e "$instdir/$lctarball") {
+    print_and_log("Retrieving LON-CAPA source files from install.loncapa.org\n")
+;
+    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".
-            "http://install.loncapa.org/versions/loncapa-current.tar.gz\n");
+            "http://install.loncapa.org/versions/$lctarball\n");
     }
     print_and_log("\n");
 } else {