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

version 1.5, 2003/02/01 18:22:34 version 1.7, 2004/07/06 15:39:53
Line 41  with perl. Line 41  with perl.
   
 =head1 AUTHOR  =head1 AUTHOR
   
 Scott Harrison 2002-07-19  
   
 =cut  =cut
   
Line 93  http://mail.lon-capa.org/. Line 92  http://mail.lon-capa.org/.
 END  END
 close(OUT);  close(OUT);
   
   #'
 # Roll the directory together into the unstable tarball.  # Roll the directory together into the unstable tarball.
 `cd /home/loninst/auto; ln -s loncapa loncapa-unstable; tar cvvf loncapa-unstable.tar loncapa-unstable/* ;gzip -9 -f loncapa-unstable.tar`;  `cd /home/loninst/auto; ln -s loncapa loncapa-unstable; tar cvvf loncapa-unstable.tar loncapa-unstable/* ;gzip -9 -f loncapa-unstable.tar`;
   
Line 131  $text =~ s/LATESTDATE/$releasedate/g; Line 131  $text =~ s/LATESTDATE/$releasedate/g;
 open(OUT,">/home/loninst/public_html/docs/downloads/index.html");  open(OUT,">/home/loninst/public_html/docs/downloads/index.html");
 print(OUT $text);  print(OUT $text);
 close(OUT);  close(OUT);
   
   #'
   # ---------------------------------------- Determine the latest testing version
   my $filename=`cd /home/loninst/public_html/versions; find . -type f -name LATEST-TESTING-IS-* -maxdepth 1`;
   chomp($filename);
   $filename =~ /LATEST-TESTING-IS-(.*)/;
   my $version = $1;
   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;
   }

Removed from v.1.5  
changed lines
  Added in v.1.7


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