1 |
# -*- perl -*- |
#!/usr/bin/perl |
2 |
# Replicate |
# Replicate |
3 |
# Vadim Mikheev, (c) 2000, PostgreSQL Inc. |
# Vadim Mikheev, (c) 2000, PostgreSQL Inc. |
4 |
|
|
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@"; |
use lib "/usr/share/postgresql/contrib"; |
10 |
|
|
11 |
use IO::File; |
use IO::File; |
12 |
use Getopt::Long; |
use Getopt::Long; |
49 |
my $mconn = Pg::connectdb($minfo); |
my $mconn = Pg::connectdb($minfo); |
50 |
my $sconn = Pg::connectdb($sinfo); |
my $sconn = Pg::connectdb($sinfo); |
51 |
|
|
52 |
|
$RServ::quiet = !$verbose; |
53 |
|
|
54 |
SyncSync($mconn, $sconn); |
SyncSync($mconn, $sconn); |
55 |
|
|
56 |
my $outf = new IO::File; |
my $outf = new IO::File; |