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); |