#!/usr/bin/perl

# this ''script'' has a simple sub to return the list
# of tables to be backed up.  it's separate to allow
# for others to add to it without messing with the
# actual script.

use strict;
use warnings;


sub excludeTablesList {

# add your tables to be excluded to @tables
my @tables=qw(
);

return \@tables;

} # end sub excludeTablesList


sub backupTablesList {

return undef;

# add your tables to @tables
my @tables=();

# this was the old list
my @oldtables=qw(
ChipInfo
DeletedOrfs
ExpInfo
JobRequest
ORF
ObjectDescr
OldTax
Operon
Orf2Operon
Orth
Ortholog
Phage
Position
Scaffold
SubExpAttrs
SubExpInfo
Synonym
TaxDivision
TaxName
TaxNode
Taxonomy
Transposase
);

return \@tables;

} # end sub backupTablesList


1;

