8 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
11 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
13 die "no dbname" unless $dbname;
14 die "no dbuser" unless $dbuser;
16 my $dsn="dbi:Pg:dbname=$dbname";
17 $dsn .= ";host=$dbhost" if $dbhost;
18 $dsn .= ";port=$dbport" if $dbport;
20 my $db = DBI->connect($dsn,$dbuser,$dbpass);
22 die $DBI::errstr unless $db;
24 my $sth = $db->prepare(q[
26 FROM buildsystems AS b
31 $user_list_format = "%-20s %s\n";
32 printf $user_list_format, "SysName", "Secret";
33 while (my $row = $sth->fetchrow_hashref)
35 printf $user_list_format, $row->{name}, $row->{secret};