use vars qw($dbhost $dbname $dbuser $dbpass $dbport
$user_list_format
);
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
die "no dbname" unless $dbname;
die "no dbuser" unless $dbuser;
]);
$sth->execute();
-my $user_list_format = "%-10s %-10s %-18s %-20s %-18s %-s\n";
printf $user_list_format,
"SysName", "Status", "Owner", "Email", "Distro", "Version";
while (my $row = $sth->fetchrow_hashref)