22 |
my ($debug,$verbose) = (0,0); |
my ($debug,$verbose) = (0,0); |
23 |
my ($help,$masterhost,$masterport,$masteruser,$masterpassword, |
my ($help,$masterhost,$masterport,$masteruser,$masterpassword, |
24 |
$slavehost,$slaveport,$slaveuser,$slavepassword); |
$slavehost,$slaveport,$slaveuser,$slavepassword); |
25 |
my $snapshot = "__Snapshot"; |
my $snapshot; |
26 |
|
|
27 |
my $result = GetOptions( |
my $result = GetOptions( |
28 |
"debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, |
"debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, |