scripts/delete_host.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use DBI;
   6 use Data::Dumper;
   7
   8 die "Must pass one and only one sysname to delete\n"
   9   unless scalar @ARGV == 1;
  10
  11 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
  12 );
  13
  14 use FindBin qw($RealBin);
  15 require "$RealBin/../BuildFarmWeb.pl";
  16
  17 die "no dbname" unless $dbname;
  18 die "no dbuser" unless $dbuser;
  19
  20 my $dsn="dbi:Pg:dbname=$dbname";
  21 $dsn .= ";host=$dbhost" if $dbhost;
  22 $dsn .= ";port=$dbport" if $dbport;
  23
  24 my $db = DBI->connect($dsn,$dbuser,$dbpass);
  25
  26 die $DBI::errstr unless $db;
  27
  28 my @tables = qw/alerts buildsystems build_status build_status_log
  29                 build_status_recent_500 dashboard_mat latest_snapshot
  30                 nrecent_failures personality/;
  31 my $sth;
  32 for my $loop (0 .. (scalar @tables - 1) ) {
  33   my $field = ($tables[$loop] eq 'personality') ? 'name' :
  34               ($tables[$loop] eq 'buildsystems') ? 'name':
  35               'sysname';
  36   printf "Deleting from %s with field %s\n", $tables[$loop], $field;
  37   $sth = $db->prepare("
  38        DELETE FROM $tables[$loop]
  39        WHERE $field = ?
  40       ");
  41   $sth->execute($ARGV[0]);
  42 }
  43 $db->disconnect();