toward renaming mig to emig and tweaking the directory layout

[migration-tools.git] / mig-bin / mig-dump

diff --git a/mig-bin/mig-dump b/mig-bin/mig-dump
deleted file mode 100755 (executable)
index 57edeab..0000000
--- a/mig-bin/mig-dump
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-###############################################################################
-=pod
-
-=head1 NAME
-
-mig-dump 
-
-A wrapper around the pg_dump command that saves a table in the mig schema with a time stamp in the working directory.
-
-=head1 SYNOPSIS
-
-B<mig-dump> [arguments...]
-
-=cut
-
-###############################################################################
-
-use strict;
-use warnings;
-
-use Env qw(
-    HOME PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA
-    MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
-);
-use Pod::Usage;
-use Switch;
-use Cwd 'abs_path';
-use Cwd qw(getcwd);
-use FindBin;
-my $mig_bin = "$FindBin::Bin/";
-use lib "$FindBin::Bin/";
-use Mig;
-use open ':encoding(utf8)';
-
-pod2usage(-verbose => 2) if defined $ARGV[0] && $ARGV[0] eq '--help';
-pod2usage(-verbose => 1) if ! $ARGV[1];
-
-my $fh;
-my $outfile;
-
-my $table;
-my $next_arg_is_table;
-
-foreach my $arg (@ARGV) {
-    if ($arg eq '--table') {
-        $next_arg_is_table = 1;
-        next;
-    }
-    if ($next_arg_is_table) {
-        $table = $arg;
-        $next_arg_is_table = 0;
-        next;
-    }
-}
-
-my $outfilewpath = create_dumpfile_name($table);
-
-my $syscmd = 'pg_dump --format plain --data-only --file ' . $outfilewpath . ' --table ' . $MIGSCHEMA . '.' . $table . ' ' . $PGUSER;
-
-print "pgdump command: \n";
-print "$syscmd\n";
-
-system($syscmd);
-
-####### beyond here be functions 
-
-sub create_dumpfile_name {
-    my $table_name = shift;
-       $table_name =~ s/\./_/;
-    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-    $year += 1900;
-    my $date = $year . '-' . $mon . '-' . $mday;
-    my $dump_file = $table_name . ' ' . $date . '.pg'; 
-    $dump_file =~ s/ /_/g;
-       $dump_file = $MIGGITDIR . $dump_file;
-       print "$dump_file \n";
-    return $dump_file;
-}
-
-sub abort {
-    my $msg = shift;
-    print STDERR "$0: $msg", "\n";
-    exit 1;
-}
-
-