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 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
  12
  13 die "no dbname" unless $dbname;
  14 die "no dbuser" unless $dbuser;
  15
  16 my $dsn="dbi:Pg:dbname=$dbname";
  17 $dsn .= ";host=$dbhost" if $dbhost;
  18 $dsn .= ";port=$dbport" if $dbport;
  19
  20 my $db = DBI->connect($dsn,$dbuser,$dbpass);
  21
  22 die $DBI::errstr unless $db;
  23
  24 my $sth = $db->prepare(q[
  25        SELECT name, status, operating_system, os_version, sys_owner, owner_email
  26        FROM buildsystems AS b
  27        ORDER BY name ASC
  28       ]);
  29 $sth->execute();
  30
  31 printf $user_list_format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
  32 while (my $row = $sth->fetchrow_hashref)
  33 {
  34   printf $user_list_format,
  35                   $row->{name}, $row->{status}, $row->{sys_owner},
  36                   $row->{owner_email}, $row->{operating_system},
  37                   $row->{os_version};
  38 }
  39 $db->disconnect();