Contents of /bin/PrepareSnapshot

#!/usr/bin/perl
# PrepareSnapshot
# Vadim Mikheev, (c) 2000, PostgreSQL Inc.

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
    & eval 'exec perl -S $0 $argv:q'
    if 0;

use lib "/usr/share/postgresql/contrib";

use IO::File;
use Getopt::Long;
use RServ;
use Sys::Hostname;

$| = 1;

$result = GetOptions("debug!", "verbose!", "help", "snapshot=s",
                     "masterhost=s", "masteruser=s", "masterpassword=s", 
                     "slavehost=s", "slaveuser=s", "slavepassword=s");

my $debug = $opt_debug || 0;
my $verbose = $opt_verbose || 0;
my $snapshot = $opt_snapshot || "__Snapshot";

if (defined($opt_help) || (scalar(@ARGV) < 2)) {
    print "Usage: $0 --snapshot=file --masterhost=name --masteruser=name --masterpassword=string --slavehost=name --slaveuser=name --slavepassword=string masterdb slavedb\n";
    exit ((scalar(@ARGV) < 1)? 1:0);
}

my $master = $ARGV[0] || "master";
my $slave = $ARGV[1] || "slave";

my $minfo = "dbname=$master";
$minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost));
$minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser));
$minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword));

my $sinfo = "dbname=$slave";
$sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost));
$sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser));
$sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword));

my $mconn = Pg::connectdb($minfo);
if ($mconn->status != PGRES_CONNECTION_OK) {
    print STDERR "Failed opening $minfo\n";
    exit 1;
}
my $sconn = Pg::connectdb($sinfo);
if ($sconn->status != PGRES_CONNECTION_OK) {
    print STDERR "Failed opening $minfo\n";
    exit 1;
}

my $outf;
if (defined($opt_snapshot)) {
    $outf = new IO::File;    
    $outf->open("> $opt_snapshot");
} else {
    $outf = STDOUT;
}

$hostname = defined($opt_slavehost) ? $opt_slavehost : hostname;
$slaveId  = GetSlaveId($mconn, $slave, $hostname);
die "Unknown SlaveId $slaveId for host $hostname" if ($slaveId < 0);

$res = PrepareSnapshot ($mconn, $sconn, $outf, $slaveId);

if ($res == 0)
{
    printf STDERR "Sync-ed\n";
    exit(0);
}
if ($res > 0)
{
    printf STDERR "Snapshot dumped.\n";
    exit(0);
}

printf STDERR "ERROR\n";
exit(1);
1	#!/usr/bin/perl
2	# PrepareSnapshot
3	# Vadim Mikheev, (c) 2000, PostgreSQL Inc.
4
5	eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
6	& eval 'exec perl -S $0 $argv:q'
7	if 0;
8
9	use lib "/usr/share/postgresql/contrib";
10
11	use IO::File;
12	use Getopt::Long;
13	use RServ;
14	use Sys::Hostname;
15
16	$\| = 1;
17
18	$result = GetOptions("debug!", "verbose!", "help", "snapshot=s",
19	"masterhost=s", "masteruser=s", "masterpassword=s",
20	"slavehost=s", "slaveuser=s", "slavepassword=s");
21
22	my $debug = $opt_debug \|\| 0;
23	my $verbose = $opt_verbose \|\| 0;
24	my $snapshot = $opt_snapshot \|\| "__Snapshot";
25
26	if (defined($opt_help) \|\| (scalar(@ARGV) < 2)) {
27	print "Usage: $0 --snapshot=file --masterhost=name --masteruser=name --masterpassword=string --slavehost=name --slaveuser=name --slavepassword=string masterdb slavedb\n";
28	exit ((scalar(@ARGV) < 1)? 1:0);
29	}
30
31	my $master = $ARGV[0] \|\| "master";
32	my $slave = $ARGV[1] \|\| "slave";
33
34	my $minfo = "dbname=$master";
35	$minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost));
36	$minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser));
37	$minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword));
38
39	my $sinfo = "dbname=$slave";
40	$sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost));
41	$sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser));
42	$sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword));
43
44	my $mconn = Pg::connectdb($minfo);
45	if ($mconn->status != PGRES_CONNECTION_OK) {
46	print STDERR "Failed opening $minfo\n";
47	exit 1;
48	}
49	my $sconn = Pg::connectdb($sinfo);
50	if ($sconn->status != PGRES_CONNECTION_OK) {
51	print STDERR "Failed opening $minfo\n";
52	exit 1;
53	}
54
55	my $outf;
56	if (defined($opt_snapshot)) {
57	$outf = new IO::File;
58	$outf->open("> $opt_snapshot");
59	} else {
60	$outf = STDOUT;
61	}
62
63	$hostname = defined($opt_slavehost) ? $opt_slavehost : hostname;
64	$slaveId = GetSlaveId($mconn, $slave, $hostname);
65	die "Unknown SlaveId $slaveId for host $hostname" if ($slaveId < 0);
66
67	$res = PrepareSnapshot ($mconn, $sconn, $outf, $slaveId);
68
69	if ($res == 0)
70	{
71	printf STDERR "Sync-ed\n";
72	exit(0);
73	}
74	if ($res > 0)
75	{
76	printf STDERR "Snapshot dumped.\n";
77	exit(0);
78	}
79
80	printf STDERR "ERROR\n";
81	exit(1);