songsenand
/
cgal
mirror of https://github.com/CGAL/cgal
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
Geert-Jan Giezeman 2002-02-05 10:52:26 +00:00
parent f22291390b
commit 958d8d8e67
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Packages/Maintenance/test_handling/create_testresult_page
View File

@ -1,4 +1,4 @@
#!/sw/bin/perl5 -w
#!/sw/bin/perl -w
#
# version: 3.0
# author: Geert-Jan Giezeman
@ -170,8 +170,7 @@ EOF
if (! defined($resulttext)) {
$resulttext = ' ';
}
print OUTPUT '<TD ALIGN=CENTER> <A HREF="',
"$release_name/$test_directory/TestReport_$platform.gz\"";
print OUTPUT '<TD ALIGN=CENTER';
if ($resulttext eq 'y') {
print OUTPUT ' class=ok';
} elsif ($resulttext eq 'w') {
@ -179,6 +178,8 @@ EOF
} elsif ($resulttext eq 'n') {
print OUTPUT ' class=error';
}
print OUTPUT '> <A HREF="',
"$release_name/$test_directory/TestReport_$platform.gz\"";
print OUTPUT '>', "$resulttext</A></TD>\n";
++$platform_num;
@ -290,6 +291,7 @@ sub print_platform_descriptions()
<TH>LEDA</TH>
<TH>GMP</TH>
<TH>CLN</TH>
<TH>QT</TH>
<TH class=ok>y</TH>
<TH class=warning>w</TH>
<TH class=error>n</TH>
@ -309,7 +311,7 @@ EOF
chomp;
$_ = email_address_in_html_format($_);
print OUTPUT "<TD NOWRAP>$_</TD>\n";
my $index = 3;
my $index = 4;
while ($index) {
$index--;
$_ = <PLATFORM_INFO>;
@ -384,7 +386,7 @@ sub print_header() {
print OUTPUT<<"EOF";
<HTML>
<HEAD><TITLE>CGAL Test Result Page</TITLE>
<LINK REL=stylesheet HREF="testresult.css">
<LINK REL=stylesheet HREF="testresult.sty">
<!-- This file is generated by a program. Don't edit manually!! -->
</HEAD>
<BODY>
@ -522,6 +524,12 @@ sub email_address_in_html_format($)
} elsif ($responsible eq 'spion') {
return '<A HREF="mailto:Sylvain.Pion@sophia.inria.fr">'.
"Sylvain Pion</A>$qualification";
} elsif ($responsible eq 'andreas') {
return '<A HREF="mailto:Andreas.Fabri@sophia.inria.fr">'.
"Andreas Fabri</A>$qualification";
} elsif ($responsible eq 'rursu') {
return '<A HREF="mailto:Radu.Ursu@sophia.inria.fr">'.
"Radu Ursu</A>$qualification";
} elsif ($responsible eq 'frebufat') {
return
'<A HREF="mailto:Francois.Rebufat@sophia.inria.fr">'.

6
Packages/Maintenance/test_handling/to_zipped_format
View File

@ -33,7 +33,7 @@ sub reformat_results($)
}
open (PLATFORM_INFO,">$platform.info") or return;
open (PLATFORM_NEW_RESULTS,">${platform}.new_results") or return;
my ($CGAL_VERSION,$LEDA_VERSION,$TESTER,$GMP,$CLN) = ("-","-","-","-","-");
my ($CGAL_VERSION,$LEDA_VERSION,$TESTER,$GMP,$CLN,$QT) = ("-","-","-","-","-","-");
while (! /^------/) {
if (/^CGAL_VERSION\s+([\w\.-]+)/) {
$CGAL_VERSION = $1;
@ -50,6 +50,9 @@ sub reformat_results($)
if (/CLN_SUPPORT\s*=\s*\'_CLN\'/) {
$CLN="+";
}
if (/QT_SUPPORT\s*=\s*\'_QT\'/) {
$QT="+";
}
if (/LEDA_SUPPORT\s*=\s*\'_LEDA\'/ && $LEDA_VERSION eq "-") {
$LEDA_VERSION="+";
}
@ -65,6 +68,7 @@ $TESTER
$LEDA_VERSION
$GMP
$CLN
$QT
EOF
close(PLATFORM_INFO);
close(PLATFORM_RESULTS);