/[rserv]/bin/PrepareSnapshot
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/PrepareSnapshot

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by dpavlin, Tue Aug 5 21:10:28 2003 UTC revision 1.6 by dpavlin, Fri Aug 15 23:00:27 2003 UTC
# Line 22  $| = 1; Line 22  $| = 1;
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,
# Line 41  Options: Line 41  Options:
41      exit ((scalar(@ARGV) < 2)? 1:0);      exit ((scalar(@ARGV) < 2)? 1:0);
42  }  }
43    
44    $RServ::quiet = !$verbose;
45    if ($debug) {
46            $RServ::quiet = 0;
47            no warnings 'vars';
48            $RServ::debug = $debug;
49    }
50    
51  my $master = $ARGV[0] || "master";  my $master = $ARGV[0] || "master";
52  my $slave = $ARGV[1] || "slave";  my $slave = $ARGV[1] || "slave";
53    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26