You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@harmony.apache.org by sm...@apache.org on 2008/01/31 09:32:58 UTC
svn commit: r617065 -
/harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl
Author: smishura
Date: Thu Jan 31 00:32:56 2008
New Revision: 617065
URL: http://svn.apache.org/viewvc?rev=617065&view=rev
Log:
Add percent number for API completeness report
Modified:
harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl
Modified: harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl
URL: http://svn.apache.org/viewvc/harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl?rev=617065&r1=617064&r2=617065&view=diff
==============================================================================
--- harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl (original)
+++ harmony/enhanced/buildtest/branches/2.0/tools/snapshot/snapshots-table/snapshots.pl Thu Jan 31 00:32:56 2008
@@ -288,6 +288,10 @@
if ($response->is_success) {
$api_report = "$test_results_links{$test_results_links_list[$i]}/$api_report_path";
$api_report =~ s/\{SNAPSHOT\}/$rev/g;
+
+ $response->content =~ m/="Total good">([^%]+)%<\/td>/sm;
+ $api_percent = $1;
+
$data_updated = 1;
return;
}
@@ -383,8 +387,9 @@
$snapshots{$snapshot} = $1;
}
#Find API completeness report
- if (($snapshot_cache_data =~ /API_REPORT\:\s*(.*?)\;/g) && $1) {
+ if (($snapshot_cache_data =~ /API_REPORT\:\s*([^:]*)\:\(.*\)\;/g) && $1) {
$api_report = $1;
+ $api_percent = $2;
}
#Parse cachefile data if cache is older than $cache_lag
if ($cache_timestamp && (($cur_timestamp - $cache_timestamp) > $cache_lag)) {
@@ -466,8 +471,8 @@
}
}
if (defined($api_report)) {
- $testsuites_table =~ s/\{API_REPORT\}/<i><small><a href=\"$api_report\">API completeness report<a> (without endorsed packages)<small><i>/g;
- $snapshot_cache_data .= "API_REPORT:$api_report;\n";
+ $testsuites_table =~ s/\{API_REPORT\}/<br><i><small><a href=\"$api_report\">API completeness report<a> (without endorsed packages): $api_percent%<small><i>/g;
+ $snapshot_cache_data .= "API_REPORT:$api_report:$api_percent;\n";
} else {
$testsuites_table =~ s/\{API_REPORT\}//g;
}