Changes in directory nightlytest-serverside:
NightlyTestAccept.cgi updated: 1.57 -> 1.58 --- Log message: revert to old until security issues are addressed --- Diffs of the changes: (+49 -2) NightlyTestAccept.cgi | 51 ++++++++++++++++++++++++++++++++++++++++++++++++-- 1 files changed, 49 insertions(+), 2 deletions(-) Index: nightlytest-serverside/NightlyTestAccept.cgi diff -u nightlytest-serverside/NightlyTestAccept.cgi:1.57 nightlytest-serverside/NightlyTestAccept.cgi:1.58 --- nightlytest-serverside/NightlyTestAccept.cgi:1.57 Fri Sep 8 19:26:26 2006 +++ nightlytest-serverside/NightlyTestAccept.cgi Sat Sep 9 14:28:15 2006 @@ -792,6 +792,39 @@ $program_hash{$key}=1; } +my ($num_removed, $num_added, $num_new_passing, $num_new_failing)=0; +my ($removed, $added, $passing, $failing) = ""; +my $j = $dbh->prepare("SELECT program, measure, result FROM tests WHERE ". + "night=$prev_night"); +$j->execute; +while(my @row=$j->fetchrow_array){ + my $key = $row[1]." - ".$row[0]; + if($result_hash{$key} and $result_hash{$key} ne $row[2] and + $row[2] eq "PASS"){ + $failing .= "changed: from $row[2] to $result_hash{$key} - $key\n"; + $num_new_failing++; + } + if($result_hash{$key} and $result_hash{$key} ne $row[2] and + $result_hash{$key} eq "PASS" ){ + $passing .= "changed: from $row[2] to $result_hash{$key} - $key\n"; + $num_new_passing++; + } + + if(!$program_hash{$key}){ + $removed .= "REMOVED: $key\n"; + $num_removed++; + } + else{ + $program_hash{$key}++; + } +} +foreach $x(keys(%program_hash)){ + if($program_hash{$x}==1){ + $added .= "ADDED: $x\n"; + $num_added++; + } +} + ################################################################################ # # Sending email to nightly test email archive @@ -804,9 +837,23 @@ $email .= "Nickname: $nickname\n"; $email .= "Buildstatus: $buildstatus\n"; - if($buildstatus eq "OK") { - $email .= `php -q Emailreport.php $machine_id $night_id`; + if ($passing eq "") { + $passing = "None"; + } + $email .= "\nNew Test Passes: $passing\n"; + if ($failing eq "") { + $failing = "None"; + } + $email .= "\nNew Test Failures: $failing\n"; + if ($added eq "") { + $added = "None"; + } + $email .= "\nAdded Tests: $added\n"; + if ($removed eq "") { + $removed= "None"; + } + $email .= "\nRemoved Tests: $removed\n"; $email .= "\nSignificant changes in test results:\n"; foreach my $meas(keys(%output_big_changes)){ _______________________________________________ llvm-commits mailing list llvm-commits@cs.uiuc.edu http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits