e58ef0faa4
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9692 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
147 lines
3.5 KiB
Perl
147 lines
3.5 KiB
Perl
#!/usr/bin/perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#(C)IBM Corp
|
|
|
|
#
|
|
|
|
BEGIN
|
|
{
|
|
$::XCATROOT =
|
|
$ENV{'XCATROOT'} ? $ENV{'XCATROOT'}
|
|
: -d '/opt/xcat' ? '/opt/xcat'
|
|
: '/usr';
|
|
}
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use Getopt::Long;
|
|
use xCAT::MsgUtils;
|
|
use xCAT::Utils;
|
|
use strict;
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head1 dumpxCATdb
|
|
|
|
|
|
|
|
dumpxCATdb -p <directory to place database dump>
|
|
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
# Main
|
|
my $rc = 0;
|
|
my $cmd;
|
|
&parse_args;
|
|
my @output = xCAT::Utils->runcmd("tabdump", 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # error
|
|
xCAT::MsgUtils->message("E",
|
|
"Error running tabdump to get list of tables");
|
|
exit 1;
|
|
}
|
|
# read tables to skip during dump from site.skiptables attribute
|
|
my @skiptbls=xCAT::Utils->get_site_attribute('skiptables');
|
|
|
|
foreach my $table (@output)
|
|
{
|
|
# if not -a request , skip eventlog and auditlog
|
|
if ( (!$::ALL) && (($table =~ /^eventlog/) || ($table =~ /^auditlog/))) {
|
|
if ($::DUMPVERBOSE) {
|
|
xCAT::MsgUtils->message("I", "Skipping $table\n");
|
|
}
|
|
next;
|
|
}
|
|
# skip teal tables
|
|
if ( $table =~ /^x_teal/ ) {
|
|
if ($::DUMPVERBOSE) {
|
|
xCAT::MsgUtils->message("I", "Skipping $table\n");
|
|
}
|
|
next;
|
|
}
|
|
# skip and table in the site.skiptables attribute
|
|
if (grep(/^$table$/, @skiptbls)) {
|
|
if ($::DUMPVERBOSE) {
|
|
xCAT::MsgUtils->message("I", "Skipping $table\n");
|
|
}
|
|
next;
|
|
}
|
|
|
|
$cmd = "tabdump -f $::PATH/$table.csv $table";
|
|
my @errout = xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # error
|
|
xCAT::MsgUtils->message("E", "Error running $cmd, @errout");
|
|
} else {
|
|
if ($::DUMPVERBOSE) {
|
|
xCAT::MsgUtils->message("I", "Dumping $table");
|
|
}
|
|
}
|
|
|
|
}
|
|
xCAT::MsgUtils->message("I", "Backup Complete.");
|
|
exit $rc;
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 parse_args
|
|
|
|
Parses for input
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
sub parse_args
|
|
{
|
|
my $msg;
|
|
my $usagemsg =
|
|
" dumpxCATdb -h \n dumpxCATdb -v \n dumpxCATdb [-a] [-V] <-p> [path to dump directory]";
|
|
Getopt::Long::Configure("posix_default");
|
|
Getopt::Long::Configure("no_gnu_compat");
|
|
Getopt::Long::Configure("bundling");
|
|
if (
|
|
!GetOptions(
|
|
'a|all' => \$::ALL,
|
|
'p|path=s' => \$::PATH,
|
|
'h|help' => \$::HELP,
|
|
'V|verbose' => \$::DUMPVERBOSE,
|
|
'v|version' => \$::VERSION
|
|
|
|
)
|
|
)
|
|
{
|
|
xCAT::MsgUtils->message("E", $usagemsg);
|
|
exit 1;
|
|
}
|
|
if ($::HELP)
|
|
{
|
|
xCAT::MsgUtils->message("I", $usagemsg);
|
|
exit 0;
|
|
}
|
|
if ($::VERSION)
|
|
{
|
|
my $version = xCAT::Utils->Version();
|
|
xCAT::MsgUtils->message("N", $version);
|
|
exit 0;
|
|
}
|
|
if (!($::PATH))
|
|
{
|
|
my $msg = " Requires -p with path to directory to hold db files.";
|
|
xCAT::MsgUtils->message("E", $msg);
|
|
exit 1;
|
|
}
|
|
if (!( -e $::PATH)) {
|
|
my $msg = " Creating $::PATH for database dump";
|
|
xCAT::MsgUtils->message("I", $msg);
|
|
my @output = xCAT::Utils->runcmd("mkdir -p $::PATH", 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # error
|
|
xCAT::MsgUtils->message("E",
|
|
"Error running mkdir -p $::PATH");
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
}
|
|
|