use Data::Dumper;
use vars qw($dbhost $dbname $dbuser $dbpass $dbport
+ $user_list_format
);
require "$ENV{BFConfDir}/BuildFarmWeb.pl";
]);
$sth->execute();
-my $format = "%-10s %-10s %-18s %-20s %-18s %-s\n";
-printf $format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
+printf $user_list_format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
while (my $row = $sth->fetchrow_hashref)
{
- printf $format, $row->{name}, $row->{status}, $row->{sys_owner},
+ printf $user_list_format,
+ $row->{name}, $row->{status}, $row->{sys_owner},
$row->{owner_email}, $row->{operating_system},
$row->{os_version};
}