/[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.7 by dpavlin, Wed Oct 29 18:00:18 2003 UTC revision 1.8 by dpavlin, Thu Oct 30 19:59:48 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    
# Line 85  if (defined($snapshot)) { Line 84  if (defined($snapshot)) {
84      $outf = *STDOUT;      $outf = *STDOUT;
85  }  }
86    
87  my $hostname = defined($slavehost) ? $slavehost : hostname;  my $slavehost = 'localhost' if (! $slavehost);
88  my $slaveId  = GetSlaveId($mconn, $slave, $hostname);  my $slaveId  = GetSlaveId($mconn, $slave, $slavehost);
89  if (! $slaveId) {  if (! $slaveId) {
90          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 $hostname. Is this database slave?\n";
91          exit 1;          exit 1;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.26