#!/usr/bin/env perl
#!/usr/local/bin/perl -w
#
# Print contents of an fea .db file.
# Albert Danial Sept 8 2003
#
use lib "$ENV{TOPS_HOME}/apps/fea/util"; # for module TopsFEA
use TopsFEA ( dump_db );
use Getopt::Std;
use vars qw ( $opt_v $opt_s $opt_h $opt_t $opt_i );
use strict;
getopts('vsht:i:');

die "$0 [-vcst_] <db file>

              Prints the contents of the .db file.

             -v            Verbose output.
             -s            Show creation statements (ie, the schema).
             -h            Scan - print headers only.
             -t <table>    Dump contents of <table>.
             -i <id>       Print only row for entity <id>.

" unless @ARGV;

dump_db(shift @ARGV, $opt_s, $opt_h, $opt_t, $opt_i, );
