mozilla
/
gecko-dev
зеркало из https://github.com/mozilla/gecko-dev.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Txul and Ts should print links only if TestsPhoneHome.

This commit is contained in:
dbaron%dbaron.org 2004-12-11 08:33:58 +00:00
Родитель f0f7103d21
Коммит 664a6c2908
1 изменённых файлов: 13 добавлений и 7 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

20
tools/tinderbox/build-seamonkey-util.pl
Просмотреть файл

@ -24,7 +24,7 @@ use Config; # for $Config{sig_name} and $Config{sig_num}
use File::Find ();
use File::Copy;
$::UtilsVersion = '$Revision: 1.287 $ ';
$::UtilsVersion = '$Revision: 1.288 $ ';
package TinderUtils;
@ -1915,9 +1915,12 @@ sub run_all_tests {
my $time = POSIX::strftime "%Y:%m:%d:%H:%M:%S", localtime;
print_log "TinderboxPrint:" .
"<a title=\"Best nav open time of 9 runs\" href=\"http://$Settings::results_server/graph/query.cgi?testname=xulwinopen&tbox=" .
::hostname() . "&autoscale=1&days=7&avg=1&showpoint=$time,$open_time\">Txul:$open_time" . "ms</a>\n";
print_log 'TinderboxPrint:';
print_log "<a title=\"Best nav open time of 9 runs\" href=\"http://$Settings::results_server/graph/query.cgi?testname=xulwinopen&tbox=" .
::hostname() . "&autoscale=1&days=7&avg=1&showpoint=$time,$open_time\">" if ($Settings::TestsPhoneHome);
print_log 'Txul:' . $open_time . 'ms';
print_log '</a>' if ($Settings::TestsPhoneHome);
print_log '\n';
# Pull out samples data from log.
my $raw_data = extract_token_from_file($binary_log, "openingTimes", "=");
@ -2486,9 +2489,12 @@ sub StartupPerformanceTest {
}
my $time = POSIX::strftime "%Y:%m:%d:%H:%M:%S", localtime;
my $print_string = "\n\nTinderboxPrint:<a title=\"Best startup time out of 10 startups\"href=\"http://$Settings::results_server/graph/query.cgi?testname=startup&tbox="
. ::hostname() . "&autoscale=1&days=7&avg=1&showpoint=$time,$min_startuptime\">" . $ts_prefix . "Ts:" . $min_startuptime . "ms</a>\n\n";
print_log "$print_string";
print_log '\n\nTinderboxPrint:';
print_log "<a title=\"Best startup time out of 10 startups\"href=\"http://$Settings::results_server/graph/query.cgi?testname=startup&tbox="
. ::hostname() . "&autoscale=1&days=7&avg=1&showpoint=$time,$min_startuptime\">" if ($Settings::TestsPhoneHome);
print_log $ts_prefix . 'Ts:' . $min_startuptime . 'ms';
print_log '</a>' if ($Settings::TestsPhoneHome);
print_log '\n\n';
# Report data back to server
if($Settings::TestsPhoneHome) {