fix script
[buildfarm-server.git] / scripts / list_buildsystems.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use DBI;
6 use Data::Dumper;
7
8 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
9             $user_list_format
10 );
11
12 use FindBin qw($RealBin);
13 require "$RealBin/../BuildFarmWeb.pl";
14
15 die "no dbname" unless $dbname;
16 die "no dbuser" unless $dbuser;
17
18 my $dsn="dbi:Pg:dbname=$dbname";
19 $dsn .= ";host=$dbhost" if $dbhost;
20 $dsn .= ";port=$dbport" if $dbport;
21
22 my $db = DBI->connect($dsn,$dbuser,$dbpass);
23
24 die $DBI::errstr unless $db;
25
26 my $sth = $db->prepare(q[ 
27        SELECT name, status, operating_system, os_version, sys_owner, owner_email
28        FROM buildsystems AS b
29        ORDER BY name ASC
30       ]);
31 $sth->execute();
32
33 printf $user_list_format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
34 while (my $row = $sth->fetchrow_hashref)
35 {
36   printf $user_list_format,
37                   $row->{name}, $row->{status}, $row->{sys_owner},
38                   $row->{owner_email}, $row->{operating_system},
39                   $row->{os_version};
40 }
41 $db->disconnect();