diff --git a/Maintenance/test_handling/create_testresult_page b/Maintenance/test_handling/create_testresult_page index 0aef6da39e3..e2ecac28104 100755 --- a/Maintenance/test_handling/create_testresult_page +++ b/Maintenance/test_handling/create_testresult_page @@ -161,7 +161,12 @@ sub collect_results_of_platform($) if (open(PLATFORM_INFO, "results_${platform}.info")) { my @info = ; chomp(@info); - $display_name = $info[-1] if ($info[-1] ne "-"); + foreach my $line (@info) { + if ($line =~ /Platform_name:\s*(.*)/) { + $display_name = $1; + last; + } + } close(PLATFORM_INFO); } open(TESTRESULT, $test_result) or return $platform_results; diff --git a/Maintenance/test_handling/to_zipped_format b/Maintenance/test_handling/to_zipped_format index b1888c38452..9259e444fe1 100755 --- a/Maintenance/test_handling/to_zipped_format +++ b/Maintenance/test_handling/to_zipped_format @@ -51,7 +51,7 @@ sub reformat_results($) $_ = $line; open (PLATFORM_INFO,">${platform}.info") or return; open (PLATFORM_NEW_RESULTS,">${platform}.new_results") or return; - my ($CGAL_VERSION,$LEDA_VERSION,$COMPILER,$OS,$TESTER_NAME,$TESTER_ADDRESS,$GMP,$MPFR,$ZLIB,$OPENGL,$BOOST,$QT,$CMAKE,$TPL,$PLATFORM_NAME) = ("-","-","-","OS:","-","-","-","-","-","-","-","-","no","TPL:","-"); + my ($CGAL_VERSION,$LEDA_VERSION,$COMPILER,$OS,$TESTER_NAME,$TESTER_ADDRESS,$GMP,$MPFR,$ZLIB,$OPENGL,$BOOST,$QT,$CMAKE,$TPL,$PLATFORM_NAME) = ("-","-","-","OS:","-","-","-","-","-","-","-","-","no","TPL:","Platform_name:"); my ($LDFLAGS,$CXXFLAGS) = ("", ""); while (! /^------/) { if(/^\s*$/) { @@ -139,10 +139,10 @@ sub reformat_results($) $TPL = "$TPL $1,"; } if (/^CGAL_TEST_PLATFORM\s+(.*)$/) { - $PLATFORM_NAME = $1 if ($PLATFORM_NAME eq "-"); + $PLATFORM_NAME = "$PLATFORM_NAME $1" if ($PLATFORM_NAME eq "Platform_name:"); } if (/^CGAL_SUMMARY_NAME\s+(.*)$/) { - $PLATFORM_NAME = $1; + $PLATFORM_NAME = "$PLATFORM_NAME $1"; } NEXT: if(! ($_= )) { # should never happen!!