Ignore build must allow spaces in buildnames.

This commit is contained in:
kestes%walrus.com 2002-04-27 04:55:37 +00:00
parent 437a05108c
commit 1a94f267c6
3 changed files with 14 additions and 10 deletions

View File

@ -7,8 +7,8 @@
# columns from being shown on the default pages.
# $Revision: 1.19 $
# $Date: 2002/04/26 22:42:44 $
# $Revision: 1.20 $
# $Date: 2002/04/27 04:55:37 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/admintree.cgi,v $
# $Name: $
@ -198,7 +198,7 @@ sub get_current_ignore_builds {
my (@ignore_builds) = ();
@ignore_builds = split(
/\s+/,
/,/,
TinderHeader::gettree_header('IgnoreBuilds', $TREE)
);
@ -449,7 +449,8 @@ sub change_ignore_builds {
("@NEW_IGNORE_BUILDS" eq "@CURRENT_IGNORE_BUILDS") &&
return ;
TinderHeader::savetree_header('IgnoreBuilds', $TREE, "@NEW_IGNORE_BUILDS");
$ignore_builds = join(',', @NEW_IGNORE_BUILDS);
TinderHeader::savetree_header('IgnoreBuilds', $TREE, $ignore_builds);
push @results, "ignore_builds changed: @NEW_IGNORE_BUILDS \n";

View File

@ -2,8 +2,8 @@
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# $Revision: 1.23 $
# $Date: 2002/04/27 04:24:43 $
# $Revision: 1.24 $
# $Date: 2002/04/27 04:55:37 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/tinder.cgi,v $
# $Name: $
@ -396,6 +396,7 @@ sub HTML_status_page {
$out .= "\n\n";
$out .= "<!-- /Build Page Headers -->\n\n\n";
$out .= "$links\n";
$out .= "<br>\n"
$out .= "<!-- Message of the Day -->\n";
$out .= $motd;
$out .= "<p>\n<!-- /Message of the Day -->\n";
@ -417,9 +418,11 @@ sub HTML_status_page {
$out .= "</table>\n\n";
$out .= "<!-- Page Footer --><p>\n";
$out .= $links;
$out .= "<br>\n"
$out .= $previous_links;
$out .= "<br>\n"
$out .= "<!-- Table Legend -->\n";
$out .= "<FONT SIZE=\"+3\"><B><NOBR>Table Legend</NOBR></B></FONT>"
$out .= "<FONT SIZE=\"+3\"><B><NOBR>Table Legend</NOBR></B></FONT>";
$out .= "<table width=\"100%\" cellpadding=0 cellspacing=0>\n";
$out .= " @legend\n\n";
$out .= "</table>\n\n";

View File

@ -7,8 +7,8 @@
# the build was and display a link to the build log.
# $Revision: 1.35 $
# $Date: 2002/04/26 23:49:06 $
# $Revision: 1.36 $
# $Date: 2002/04/27 04:55:33 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/TinderDB/Build.pm,v $
# $Name: $
@ -379,7 +379,7 @@ sub compute_metadata {
# order is important for these operations.
my ($ignore_builds) = TinderHeader::gettree_header('IgnoreBuilds', $tree);
foreach $buildname (split(/\s+/, $ignore_builds)) {
foreach $buildname (split(/,/, $ignore_builds)) {
$IGNORE_BUILDS{$tree}{$buildname} = 1;
}