[BACK]Return to install_web_site_cronjob CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/install_web_site_cronjob between versions 1.7 and 1.8

version 1.7, 2004/07/06 15:39:53 version 1.8, 2004/07/06 15:44:07
Line 138  my $filename=`cd /home/loninst/public_ht Line 138  my $filename=`cd /home/loninst/public_ht
 chomp($filename);  chomp($filename);
 $filename =~ /LATEST-TESTING-IS-(.*)/;  $filename =~ /LATEST-TESTING-IS-(.*)/;
 my $version = $1;  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) {  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/LATESTTESTINGVERSION/$version/g;
     $text =~ s/LATESTTESTINGDATE/$releasedate/g;      $text =~ s/LATESTTESTINGDATE/$releasedate/g;
     $text =~ s/TESTINGRELEASE_START//g;      $text =~ s/TESTINGRELEASE_START//g;
     $text =~ s/TESTINGRELEASE_END//g;      $text =~ s/TESTINGRELEASE_END//g;
     open(OUT,">/home/loninst/public_html/docs/downloads/index.html");  
     print(OUT $text);  
     close(OUT);  
 } else {  } else {
     $text =~ s/TESTINGRELEASE_START.*TESTINGRELEASE_END//g;      $text =~ s/TESTINGRELEASE_START.*TESTINGRELEASE_END//g;
 }  }
   open(OUT,">/home/loninst/public_html/docs/downloads/index.html");
   print(OUT $text);
   close(OUT);
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>