1 |
# -*- perl -*- |
#!/usr/bin/perl |
2 |
# PrepareSnapshot |
# PrepareSnapshot |
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; |
39 |
my $outf = new IO::File; |
my $outf = new IO::File; |
40 |
$outf = STDOUT; |
$outf = STDOUT; |
41 |
|
|
42 |
|
$RServ::quiet = !$verbose; |
43 |
|
|
44 |
$res = PrepareSnapshot ($conn, $outf, $server); |
$res = PrepareSnapshot ($conn, $outf, $server); |
45 |
|
|
46 |
if ($res == 0) |
if ($res == 0) |