scripts/approve_system.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use DBI;
   6 use Data::Dumper;
   7
   8 die "Must pass current sysname and new sysname\n" unless scalar @ARGV == 2;
   9
  10 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
  11 );
  12 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
  13
  14 die "no dbname" unless $dbname;
  15 die "no dbuser" unless $dbuser;
  16
  17 my $dsn="dbi:Pg:dbname=$dbname";
  18 $dsn .= ";host=$dbhost" if $dbhost;
  19 $dsn .= ";port=$dbport" if $dbport;
  20
  21 my $db = DBI->connect($dsn,$dbuser,$dbpass);
  22
  23 die $DBI::errstr unless $db;
  24
  25 #my $sth_up = $db->prepare(q[
  26 #       SELECT approve(?, ?)
  27 #      ]);
  28 #$sth_up->execute(@ARGV);
  29 $db->do('SELECT approve(?, ?)', undef, @ARGV);
  30
  31 my $sth = $db->prepare(q[
  32        SELECT name, status, operating_system, os_version, sys_owner, owner_email
  33        FROM buildsystems AS b
  34        ORDER BY name ASC
  35       ]);
  36 $sth->execute();
  37
  38 my $format = "%-10s %-10s %-18s %-20s %-18s %-s\n";
  39 printf $format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
  40 while (my $row = $sth->fetchrow_hashref)
  41 {
  42   printf $format, $row->{name}, $row->{status}, $row->{sys_owner},
  43                   $row->{owner_email}, $row->{operating_system},
  44                   $row->{os_version};
  45 }
  46 $db->disconnect();