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

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

revision 1.3 by dpavlin, Tue Aug 5 09:52:36 2003 UTC revision 1.4 by dpavlin, Tue Aug 5 21:10:28 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl -w
2  # ApplySnapshot  # ApplySnapshot
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 "/usr/share/postgresql/contrib";  BEGIN {
10            my $basedir = $0; $basedir =~ s#/[^/]+$##;
11            unshift(@INC, "$basedir/../share");
12    }
13    
14    use strict;
15  use IO::File;  use IO::File;
16  use RServ;  use RServ;
17  use Getopt::Long;  use Getopt::Long;
18    
19  $| = 1;  $| = 1;
20    
21  $result = GetOptions("debug!", "verbose!", "help",  my ($debug,$verbose) = (0,0);
22                       "host=s", "user=s", "password=s", "snapshot=s");  my ($help,$slavehost,$slaveport,$slaveuser,$slavepassword);
23    my $snapshot = "__Snapshot";
24  my $debug = $opt_debug || 0;  
25  my $verbose = $opt_verbose || 0;  my $result = GetOptions(
26  my $snapshot = $opt_snapshot || "__Snapshot";          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,
27            "slavehost=s" => \$slavehost, "slaveport=i" => \$slaveport,
28  if (defined($opt_help) || (scalar(@ARGV) < 1)) {          "slaveuser=s" => \$slaveuser, "slavepassword=s" => \$slavepassword,
29      print "Usage: $0 --host=name --user=name --password=string --snapshot=file slavedb\n";          "snapshot=s" => \$snapshot,
30            );
31    
32    if (defined($help) || (scalar(@ARGV) < 1)) {
33        print "Usage: $0 [options] slavedb
34    Options:
35            --slavehost=hostname --slaveport=port
36            --slaveuser=username --slavepassword=string
37            --snapshot=snapshot
38    ";
39      exit ((scalar(@ARGV) < 1)? 1:0);      exit ((scalar(@ARGV) < 1)? 1:0);
40  }  }
41    
42  my $slave = $ARGV[0] || "slave";  my $slave = $ARGV[0] || "slave";
43    
44  my $sinfo = "dbname=$slave";  my $sinfo = "dbname=$slave";
45  $sinfo = "$sinfo host=$opt_host" if (defined($opt_host));  $sinfo = "$sinfo host=$slavehost" if (defined($slavehost));
46  $sinfo = "$sinfo user=$opt_user" if (defined($opt_user));  $sinfo = "$sinfo port=$slaveport" if (defined($slaveport));
47  $sinfo = "$sinfo password=$opt_password" if (defined($opt_password));  $sinfo = "$sinfo user=$slaveuser" if (defined($slaveuser));
48    $sinfo = "$sinfo password=$slavepassword" if (defined($slavepassword));
49    
50  my $conn = Pg::connectdb($sinfo);  my $conn = Pg::connectdb($sinfo);
51    
52  my $inpf;  my $inpf;
53  if (defined($opt_snapshot)) {  if (defined($snapshot)) {
54      $inpf = new IO::File;      $inpf = new IO::File;
55      $inpf->open("< $opt_snapshot");      $inpf->open("< $snapshot");
56  } else {  } else {
57      $inpf = STDIN;      $inpf = *STDIN;
58  }  }
59    
60  $res = ApplySnapshot ($conn, $inpf);  my $res = ApplySnapshot ($conn, $inpf);
61    
62  if ($res > 0)  if ($res > 0)
63  {  {
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26