/[rserv]/bin/Replicate
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/Replicate

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

revision 1.3 by dpavlin, Tue Aug 5 09:52:36 2003 UTC revision 1.4 by dpavlin, Tue Aug 5 10:01:42 2003 UTC
# Line 16  use Sys::Hostname; Line 16  use Sys::Hostname;
16  $| = 1;  $| = 1;
17    
18  $result = GetOptions("debug!", "verbose!", "help", "snapshot=s",  $result = GetOptions("debug!", "verbose!", "help", "snapshot=s",
19                       "masterhost=s", "slavehost=s", "host=s",                       "masterhost=s", "slavehost=s",
20                       "masteruser=s", "slaveuser=s", "user=s",                       "masteruser=s", "slaveuser=s",
21                       "masterpassword=s", "slavepassword=s", "password=s");                       "masterpassword=s", "slavepassword=s",
22                         "masterport=i", "slaveport=i"
23                         );
24    
25  my $debug = $opt_debug || 0;  my $debug = $opt_debug || 0;
26  my $verbose = $opt_verbose || 0;  my $verbose = $opt_verbose || 0;
# Line 26  my $snapshot = $opt_snapshot || ".__Snap Line 28  my $snapshot = $opt_snapshot || ".__Snap
28  $snapshot .= '.' . $$;  $snapshot .= '.' . $$;
29    
30  if (defined($opt_help) || (scalar(@ARGV) < 2)) {  if (defined($opt_help) || (scalar(@ARGV) < 2)) {
31      print "Usage: $0 --snapshot=file --host=name --user=name --password=string masterdb slavedb\n";      print "Usage: $0 --snapshot=file masterdb slavedb\n";
32      print "\t--masterhost=name --masteruser=name --masterpassword=string\n";      print "\t--masterhost=name --masterport=port\n";
33      print "\t--slavehost=name --slaveuser=name --slavepassword=string\n";      print "\t--masteruser=name --masterpassword=string\n";
34        print "\t--slavehost=name --slaveport=port\n";
35        print "\t--slaveuser=name --slavepassword=string\n";
36      exit ((scalar(@ARGV) < 2)? 1:0);      exit ((scalar(@ARGV) < 2)? 1:0);
37  }  }
38    
# Line 54  my $minfo = "dbname=$master"; Line 58  my $minfo = "dbname=$master";
58  $minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost));  $minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost));
59  $minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser));  $minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser));
60  $minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword));  $minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword));
61    $minfo = "$minfo port=$opt_masterport" if (defined($opt_masterport));
62  my $sinfo = "dbname=$slave";  my $sinfo = "dbname=$slave";
63  $sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost));  $sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost));
64  $sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser));  $sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser));
65  $sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword));  $sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword));
66    $sinfo = "$sinfo port=$opt_slaveport" if (defined($opt_slaveport));
67    
68  print "Master connection is $minfo\n" if ($debug);  print "Master connection is $minfo\n" if ($debug);
69  print "Slave connection is $sinfo\n" if ($debug);  print "Slave connection is $sinfo\n" if ($debug);
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26