bin/drop_test_databases.pl

   1
   2 =head1 NAME
   3
   4 drop_test_databases.pl - a script to remove test databases from the postgres instance
   5
   6 =head1 DESCRIPTION
   7
   8 When using t/test_fixture.pl with the --nocleanup option, a lot of test databases (named test_db_* ) can accumulate in the postgres instance.
   9
  10 drop_dest_databases.pl will remove all databases whose names start with test_db_.
  11
  12 It will ask for a postgres username (default postgres) and a password and then proceed to deletion immediately.
  13
  14 =head1 AUTHOR
  15
  16 Lukas Mueller <lam87@cornell.edu>
  17
  18 April 14, 2020
  19
  20 =cut
  21
  22
  23 use strict;
  24 use Getopt::Std;
  25
  26 use CXGN::DB::InsertDBH;
  27
  28 our($opt_h);
  29
  30 getopts('h:');
  31
  32 print STDERR "Deleting test databases (test_db_%) from $opt_h...\n";
  33 my $dbh = CXGN::DB::InsertDBH->new( { dbhost => $opt_h, dbname => 'postgres', dbargs => { AutoCommit => 1 } } );
  34
  35
  36 my $q = "SELECT datname FROM pg_database WHERE datname ilike 'test_db_%'";
  37
  38 my $h = $dbh->prepare($q);
  39
  40 $h->execute();
  41
  42 my @dbs;
  43 while (my ($dbname) = $h->fetchrow_array()) {
  44     push @dbs, $dbname;
  45 }
  46
  47 foreach my $dbname (@dbs) {
  48    print STDERR "Dropping database $dbname...\n";
  49     my $d = "DROP DATABASE $dbname";
  50     my $h = $dbh->prepare($d);
  51     $h->execute();
  52 }
  53
  54 print STDERR "Done.\n";
  55
  56