/[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.5 by dpavlin, Tue Aug 5 21:43:24 2003 UTC revision 1.10 by dpavlin, Thu Oct 30 23:01:07 2003 UTC
# Line 15  use strict; Line 15  use strict;
15  use IO::File;  use IO::File;
16  use Getopt::Long;  use Getopt::Long;
17  use RServ;  use RServ;
 use Sys::Hostname;  
18    
19  $| = 1;  $| = 1;
20    
21  my ($debug,$verbose) = (0,0);  my ($debug,$verbose) = (0,0);
22  my ($help,$masterhost,$masterport,$masteruser,$masterpassword,  my ($help,$masterhost,$masterport,$masteruser,$masterpassword,
23          $slavehost,$slaveport,$slaveuser,$slavepassword);          $slavehost,$slaveport,$slaveuser,$slavepassword);
24  my $snapshot = "__Snapshot";  my $snapshot;
25    
26  my $result = GetOptions(  my $result = GetOptions(
27          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,
# Line 82  if (defined($snapshot)) { Line 81  if (defined($snapshot)) {
81      $outf = *STDOUT;      $outf = *STDOUT;
82  }  }
83    
84  my $hostname = defined($slavehost) ? $slavehost : hostname;  $slavehost = 'localhost' if (! $slavehost);
85  my $slaveId  = GetSlaveId($mconn, $slave, $hostname);  my $slaveId  = GetServerId($mconn, $slave, $slavehost);
86  if (! $slaveId) {  if (! defined($slaveId)) {
87          print STDERR "Can't find SlaveId for db '$slave' on host $hostname. Is this database slave?\n";          print STDERR "Can't find SlaveId for db '$slave' on host $slavehost. Is this database slave?\n";
88          exit 1;          exit 1;
89  }  }
90  die "Unknown SlaveId $slaveId for host $hostname" if ($slaveId < 0);  die "Unknown SlaveId $slaveId for host $slavehost" if ($slaveId < 0);
91    
92  my $res = PrepareSnapshot ($mconn, $sconn, $outf, $slaveId);  $masterhost = 'localhost' if (! $masterhost);
93    my $masterId  = GetServerId($mconn, $master, $masterhost);
94    if (! defined($masterId)) {
95            print STDERR "Can't find masterId for db '$master' on host $masterhost. Is this database master?\n";
96            exit 1;
97    }
98    die "Unknown masterId $masterId for host $masterhost" if ($masterId < 0);
99    my $res = PrepareSnapshot ($mconn, $sconn, $outf, $masterId, $slaveId);
100    
101  if ($res == 0)  if ($res == 0)
102  {  {
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.26