git://git.exim.org
/
buildfarm-server.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
git ref in status display
[buildfarm-server.git]
/
scripts
/
list_buildsystems.pl
diff --git
a/scripts/list_buildsystems.pl
b/scripts/list_buildsystems.pl
index 4fa64d1bd3f493e363b3a75418e3286b76a6b083..69df1fb8e9906e5798de3baef66a6a9e7be2de40 100755
(executable)
--- 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
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;
die "no dbname" unless $dbname;
die "no dbuser" unless $dbuser;
@@
-27,11
+30,11
@@
my $sth = $db->prepare(q[
]);
$sth->execute();
]);
$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)
{
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};
}
$row->{owner_email}, $row->{operating_system},
$row->{os_version};
}