diff --git a/webtools/tinderbox3/scripts/adminmachine.pl b/webtools/tinderbox3/scripts/adminmachine.pl
index 3e9d53bbf984..f12b56585805 100755
--- a/webtools/tinderbox3/scripts/adminmachine.pl
+++ b/webtools/tinderbox3/scripts/adminmachine.pl
@@ -27,7 +27,7 @@ my ($machine_name, $os, $os_version, $compiler, $clobber, $commands, $visible);
($tree, $machine_name, $os, $os_version, $compiler, $clobber, $commands, $visible) = @{$machine_info};
my %machine_config;
-my $sth = $dbh->prepare("SELECT name, value FROM tbox_machine_config WHERE machine_id = ?");
+my $sth = $dbh->prepare("SELECT name, value FROM tbox_machine_config WHERE machine_id = ? ORDER BY name");
$sth->execute($machine_id);
while (my $row = $sth->fetchrow_arrayref) {
$machine_config{$row->[0]} = $row->[1];
@@ -63,7 +63,8 @@ print "
Machine Config:
";
print "(Empty a line to use default for tree)
";
print "
Var | Value |
\n";
my $config_num = 1;
-while (my ($var, $value) = each %machine_config) {
+foreach my $var (sort keys %machine_config) {
+ my $value = $machine_config{$var};
if ($var ne "mozconfig") {
print "", $p->textfield(-name=>"machine_config$config_num", -default=>$var, -override=>1), " | ";
print "", $p->textfield(-name=>"machine_config${config_num}_val", -default=>$value, -override=>1), " |
\n";
diff --git a/webtools/tinderbox3/scripts/admintree.pl b/webtools/tinderbox3/scripts/admintree.pl
index 32b198bf7ef9..856308d0601a 100755
--- a/webtools/tinderbox3/scripts/admintree.pl
+++ b/webtools/tinderbox3/scripts/admintree.pl
@@ -81,7 +81,8 @@ print "Initial Machine Config:
";
print "(Empty a line to delete it)
";
print "
Var | Value |
\n";
my $config_num = 1;
-while (my ($var, $value) = each %initial_machine_config) {
+foreach my $var (sort keys %initial_machine_config) {
+ my $value = $initial_machine_config{$var};
if ($var ne "mozconfig") {
print "", $p->textfield(-name=>"initial_machine_config$config_num", -default=>$var, -override=>1), " | ";
print "", $p->textfield(-name=>"initial_machine_config${config_num}_val", -default=>$value, -override=>1), " |
\n";
@@ -109,7 +110,7 @@ EOM
if ($tree) {
# Patch list
print "Patches |
\n";
- my $sth = $dbh->prepare('SELECT patch_id, patch_name, in_use FROM tbox_patch WHERE tree_name = ?');
+ my $sth = $dbh->prepare('SELECT patch_id, patch_name, in_use FROM tbox_patch WHERE tree_name = ? ORDER BY patch_name');
$sth->execute($tree);
while (my $patch_info = $sth->fetchrow_arrayref) {
my ($patch_class, $action, $action_name);
@@ -129,7 +130,7 @@ if ($tree) {
# Machine list
print "Machines |
\n";
- $sth = $dbh->prepare('SELECT machine_id, machine_name FROM tbox_machine WHERE tree_name = ?');
+ $sth = $dbh->prepare('SELECT machine_id, machine_name FROM tbox_machine WHERE tree_name = ? ORDER BY machine_name');
$sth->execute($tree);
while (my $machine_info = $sth->fetchrow_arrayref) {
print "$machine_info->[1] | \n";
@@ -141,7 +142,7 @@ if ($tree) {
# Machine list
print "Bonsai Monitors |
\n";
- $sth = $dbh->prepare('SELECT bonsai_id, display_name FROM tbox_bonsai WHERE tree_name = ?');
+ $sth = $dbh->prepare('SELECT bonsai_id, display_name FROM tbox_bonsai WHERE tree_name = ? ORDER BY display_name');
$sth->execute($tree);
while (my $bonsai_info = $sth->fetchrow_arrayref) {
print "$bonsai_info->[1] (Del) | \n";
diff --git a/webtools/tinderbox3/server/adminmachine.pl b/webtools/tinderbox3/server/adminmachine.pl
index 3e9d53bbf984..f12b56585805 100755
--- a/webtools/tinderbox3/server/adminmachine.pl
+++ b/webtools/tinderbox3/server/adminmachine.pl
@@ -27,7 +27,7 @@ my ($machine_name, $os, $os_version, $compiler, $clobber, $commands, $visible);
($tree, $machine_name, $os, $os_version, $compiler, $clobber, $commands, $visible) = @{$machine_info};
my %machine_config;
-my $sth = $dbh->prepare("SELECT name, value FROM tbox_machine_config WHERE machine_id = ?");
+my $sth = $dbh->prepare("SELECT name, value FROM tbox_machine_config WHERE machine_id = ? ORDER BY name");
$sth->execute($machine_id);
while (my $row = $sth->fetchrow_arrayref) {
$machine_config{$row->[0]} = $row->[1];
@@ -63,7 +63,8 @@ print "Machine Config:
";
print "(Empty a line to use default for tree)
";
print "
Var | Value |
\n";
my $config_num = 1;
-while (my ($var, $value) = each %machine_config) {
+foreach my $var (sort keys %machine_config) {
+ my $value = $machine_config{$var};
if ($var ne "mozconfig") {
print "", $p->textfield(-name=>"machine_config$config_num", -default=>$var, -override=>1), " | ";
print "", $p->textfield(-name=>"machine_config${config_num}_val", -default=>$value, -override=>1), " |
\n";
diff --git a/webtools/tinderbox3/server/admintree.pl b/webtools/tinderbox3/server/admintree.pl
index 32b198bf7ef9..856308d0601a 100755
--- a/webtools/tinderbox3/server/admintree.pl
+++ b/webtools/tinderbox3/server/admintree.pl
@@ -81,7 +81,8 @@ print "Initial Machine Config:
";
print "(Empty a line to delete it)
";
print "
Var | Value |
\n";
my $config_num = 1;
-while (my ($var, $value) = each %initial_machine_config) {
+foreach my $var (sort keys %initial_machine_config) {
+ my $value = $initial_machine_config{$var};
if ($var ne "mozconfig") {
print "", $p->textfield(-name=>"initial_machine_config$config_num", -default=>$var, -override=>1), " | ";
print "", $p->textfield(-name=>"initial_machine_config${config_num}_val", -default=>$value, -override=>1), " |
\n";
@@ -109,7 +110,7 @@ EOM
if ($tree) {
# Patch list
print "Patches |
\n";
- my $sth = $dbh->prepare('SELECT patch_id, patch_name, in_use FROM tbox_patch WHERE tree_name = ?');
+ my $sth = $dbh->prepare('SELECT patch_id, patch_name, in_use FROM tbox_patch WHERE tree_name = ? ORDER BY patch_name');
$sth->execute($tree);
while (my $patch_info = $sth->fetchrow_arrayref) {
my ($patch_class, $action, $action_name);
@@ -129,7 +130,7 @@ if ($tree) {
# Machine list
print "Machines |
\n";
- $sth = $dbh->prepare('SELECT machine_id, machine_name FROM tbox_machine WHERE tree_name = ?');
+ $sth = $dbh->prepare('SELECT machine_id, machine_name FROM tbox_machine WHERE tree_name = ? ORDER BY machine_name');
$sth->execute($tree);
while (my $machine_info = $sth->fetchrow_arrayref) {
print "$machine_info->[1] | \n";
@@ -141,7 +142,7 @@ if ($tree) {
# Machine list
print "Bonsai Monitors |
\n";
- $sth = $dbh->prepare('SELECT bonsai_id, display_name FROM tbox_bonsai WHERE tree_name = ?');
+ $sth = $dbh->prepare('SELECT bonsai_id, display_name FROM tbox_bonsai WHERE tree_name = ? ORDER BY display_name');
$sth->execute($tree);
while (my $bonsai_info = $sth->fetchrow_arrayref) {
print "$bonsai_info->[1] (Del) | \n";