1 |
# -*- perl -*- |
#!/usr/bin/perl |
2 |
# GetSyncID |
# GetSyncID |
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 Pg; |
use Pg; |
12 |
use Getopt::Long; |
use Getopt::Long; |
37 |
print("Connecting to '$sinfo'\n") if ($debug || $verbose); |
print("Connecting to '$sinfo'\n") if ($debug || $verbose); |
38 |
my $conn = Pg::connectdb($sinfo); |
my $conn = Pg::connectdb($sinfo); |
39 |
|
|
40 |
|
$RServ::quiet = !$verbose; |
41 |
|
|
42 |
$res = GetSyncID($conn); |
$res = GetSyncID($conn); |
43 |
|
|
44 |
die "ERROR\n" if $res < 0; |
die "ERROR\n" if $res < 0; |