scripts for local updates of animals
[buildfarm-server.git] / 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();