[LON-CAPA-cvs] cvs: loncom /build install_web_site_cronjob

[albertel]

albertel		Tue Jul  6 11:44:08 2004 EDT

  Modified files:              
    /loncom/build	install_web_site_cronjob 
  Log:
  - might actually work
  
  
Index: loncom/build/install_web_site_cronjob
diff -u loncom/build/install_web_site_cronjob:1.7 loncom/build/install_web_site_cronjob:1.8
--- loncom/build/install_web_site_cronjob:1.7	Tue Jul  6 11:39:53 2004
+++ loncom/build/install_web_site_cronjob	Tue Jul  6 11:44:07 2004
@@ -138,24 +138,22 @@
 chomp($filename);
 $filename =~ /LATEST-TESTING-IS-(.*)/;
 my $version = $1;
+open(IN,"</home/loninst/public_html/versions/$filename");
+my $releasedate = <IN>;
+close(IN);
+# -------------- Updating the download page with the date of the last build
+open(IN,"</home/loninst/public_html/docs/downloads/index.html");
+my @lines = <IN>;
+close(IN);
+my $text = join('',@lines);
 if ($version) {
-    open(IN,"</home/loninst/public_html/versions/$filename");
-    my $releasedate = <IN>;
-    close(IN);
-    # -------------- Updating the download page with the date of the last build
-    open(IN,"</home/loninst/public_html/docs/downloads/index.html");
-    my @lines = <IN>;
-    close(IN);
-    my $date = `date -I`; chomp($date);
-    my $text = join('',@lines);
-    $text =~ s/loncapa-unstable\.tar\.gz\<\/a\>.*?\./loncapa-unstable\.tar\.gz\<\/a\> (generated $date)\./;
     $text =~ s/LATESTTESTINGVERSION/$version/g;
     $text =~ s/LATESTTESTINGDATE/$releasedate/g;
     $text =~ s/TESTINGRELEASE_START//g;
     $text =~ s/TESTINGRELEASE_END//g;
-    open(OUT,">/home/loninst/public_html/docs/downloads/index.html");
-    print(OUT $text);
-    close(OUT);
 } else {
     $text =~ s/TESTINGRELEASE_START.*TESTINGRELEASE_END//g;
 }
+open(OUT,">/home/loninst/public_html/docs/downloads/index.html");
+print(OUT $text);
+close(OUT);