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

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

revision 1.1.1.1 by dpavlin, Thu Dec 21 15:26:04 2000 UTC revision 1.7 by dpavlin, Sun Nov 2 10:21:45 2003 UTC
# Line 1  Line 1 
1  # -*- perl -*-  #!/usr/bin/perl -w
2  # MasterSync  # MasterSync
3  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.
4    
# Line 6  eval '(exit $?0)' && eval 'exec perl -S Line 6  eval '(exit $?0)' && eval 'exec perl -S
6      & eval 'exec perl -S $0 $argv:q'      & eval 'exec perl -S $0 $argv:q'
7      if 0;      if 0;
8    
9  use lib "@LIBDIR@";  BEGIN {
10            my $basedir = $0; $basedir =~ s#/[^/]+$##;
11            unshift(@INC, "$basedir/../share");
12    }
13    
14    use strict;
15  use Getopt::Long;  use Getopt::Long;
16  use RServ;  use RServ;
17    
18  $| = 1;  $| = 1;
19    
20  $result = GetOptions("debug!", "verbose!", "quiet!", "help",  my ($debug,$verbose,$quiet) = (0,0,0);
21                       "host=s", "user=s", "password=s");  my ($help,$masterhost,$masterport,$masteruser,$masterpassword);
22    my $sserver = 1;
23  my $debug = $opt_debug || 0;  
24  my $verbose = $opt_verbose || 0;  my $result = GetOptions(
25  my $quiet = $opt_quiet || 0;          "debug!" => \$debug, "verbose!" => \$verbose,
26            "quiet!" => \$quiet, "help" => \$help,
27  if (defined($opt_help) || (scalar(@ARGV) < 2) || ($ARGV[1] !~ /^\d+$/)) {          "masterhost=s" => \$masterhost, "masterport=i" => \$masterport,
28      print "Usage: $0 --host=name --user=name --password=string masterdb syncid\n";          "masteruser=s" => \$masteruser, "masterpassword=s" => \$masterpassword,
29            "slaveserver=i" => \$sserver,
30            );
31    
32    if (defined($help) || (scalar(@ARGV) < 2) || ($ARGV[1] !~ /^\d+$/)) {
33        print "Usage: $0 [options] masterdb syncid
34    Options:
35            --masterhost=hostname --masterport=port
36            --masteruser=username --masterpassword=string
37            --quiet
38            [--slaveserver=slave_number]
39    ";
40      exit ((scalar(@ARGV) < 2)? 1:0);      exit ((scalar(@ARGV) < 2)? 1:0);
41  }  }
42    
43    $RServ::quiet = !$verbose;
44    if ($debug) {
45            $RServ::quiet = 0;
46            no warnings 'vars';
47            $RServ::debug = $debug;
48    }
49    
50  my $master = $ARGV[0] || "master";  my $master = $ARGV[0] || "master";
 my $server = 0;  
51  my $syncid = $ARGV[1] || die "SyncID not specified";  my $syncid = $ARGV[1] || die "SyncID not specified";
52    
53  my $minfo = "dbname=$master";  my $minfo = MkInfo($master,$masterhost,$masterport,$masteruser,$masterpassword);
 $minfo = "$minfo host=$opt_host" if (defined($opt_host));  
 $minfo = "$minfo user=$opt_user" if (defined($opt_user));  
 $minfo = "$minfo password=$opt_password" if (defined($opt_password));  
54    
55  my $conn = Pg::connectdb($minfo);  my $conn = Pg::connectdb($minfo);
56    if ($conn->status != Pg::PGRES_CONNECTION_OK) {
57        print STDERR "Failed opening $minfo\n";
58        exit 1;
59    }
60    
61  $res = SyncSyncID($conn, $server, $syncid);  my $res = SyncSyncID($conn, $sserver, $syncid);
62    
63  if ($res == 0)  if ($res == 0)
64  {  {
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26