X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/f61c1a048bf7bb92332993d965df036e26006792..28b11dc13f36ebe4e6835e5593dfb3e448142d5e:/scripts/list_buildsystems.pl?ds=inline

diff --git a/scripts/list_buildsystems.pl b/scripts/list_buildsystems.pl
index 4fa64d1..69df1fb 100755
--- a/scripts/list_buildsystems.pl
+++ b/scripts/list_buildsystems.pl
@@ -6,8 +6,11 @@ use DBI;
 use Data::Dumper;
 
 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;
@@ -27,11 +30,11 @@ my $sth = $db->prepare(q[
       ]);
 $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};
 }