mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-10-31 11:22:27 +00:00
dca96ad66e
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7298 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
115 lines
2.5 KiB
Perl
115 lines
2.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\n");
|
|
exit 1;
|
|
}
|
|
foreach my $table (@output)
|
|
{
|
|
$cmd = "tabdump $table > $::PATH/$table.csv";
|
|
my @errout = xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # error
|
|
xCAT::MsgUtils->message("E", "Error running $cmd, @errout\n");
|
|
} else {
|
|
if ($::DUMPVERBOSE) {
|
|
xCAT::MsgUtils->message("I", "Dumping $table\n");
|
|
}
|
|
}
|
|
|
|
}
|
|
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 [-V] <-p> [path to dump directory]\n";
|
|
Getopt::Long::Configure("posix_default");
|
|
Getopt::Long::Configure("no_gnu_compat");
|
|
Getopt::Long::Configure("bundling");
|
|
if (
|
|
!GetOptions(
|
|
'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.\n";
|
|
xCAT::MsgUtils->message("E", $msg);
|
|
exit 1;
|
|
}
|
|
if (!( -e $::PATH)) {
|
|
my $msg = " Input path must exist \n";
|
|
xCAT::MsgUtils->message("E", $msg);
|
|
exit 1;
|
|
}
|
|
|
|
}
|
|
|