replace_cxgn_db

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use autodie qw/:all/;
   6
   7 =head1 replace_cxgn_db - replace the local cxgn database
   8
   9 Usage:
  10
  11     ./replace_cxgn_db
  12
  13 OR
  14     ./replace_cxgn_db db.backup.gz
  15
  16 =head1 WARNING
  17
  18 This will drop your local cxgn database and repopulate it with a backup file. Don't run
  19 this command if you have things you want in your local db that are not in the backups!
  20 You have been warned.
  21
  22 =head1 AUTHOR
  23
  24 Jonathan "Duke" Leto
  25
  26 =cut
  27
  28 my $db_file = shift || 'db.cxgn.pgsql.gz';
  29
  30 my $drop_db    = "sudo -u postgres dropdb cxgn";
  31 my $replace_db = "zcat $db_file | sudo -u postgres psql cxgn";
  32 my $new_db     = "sudo -u postgres createdb -E SQL_ASCII -T template0 cxgn";
  33
  34 die "Cannot find $db_file" unless -e $db_file;
  35
  36 print "Going to drop the cxgn database...\n";
  37 # We don't care if this fails
  38 eval { system $drop_db };
  39
  40 print "Going to make a new cxgn database...\n";
  41 system $new_db;
  42
  43 print "Going to replace the cxgn database...\n";
  44 system $replace_db;