/[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.4 by dpavlin, Tue Aug 5 21:10:28 2003 UTC revision 1.6 by dpavlin, Sun Nov 2 10:21:45 2003 UTC
# Line 20  $| = 1; Line 20  $| = 1;
20    
21  my ($debug,$verbose) = (0,0);  my ($debug,$verbose) = (0,0);
22  my ($help,$slavehost,$slaveport,$slaveuser,$slavepassword);  my ($help,$slavehost,$slaveport,$slaveuser,$slavepassword);
23  my $snapshot = "__Snapshot";  my $snapshot;
24    
25  my $result = GetOptions(  my $result = GetOptions(
26          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,
# Line 41  Options: Line 41  Options:
41    
42  my $slave = $ARGV[0] || "slave";  my $slave = $ARGV[0] || "slave";
43    
44  my $sinfo = "dbname=$slave";  my $sinfo = MkInfo($slave,$slavehost,$slaveport,$slaveuser,$slavepassword);
 $sinfo = "$sinfo host=$slavehost" if (defined($slavehost));  
 $sinfo = "$sinfo port=$slaveport" if (defined($slaveport));  
 $sinfo = "$sinfo user=$slaveuser" if (defined($slaveuser));  
 $sinfo = "$sinfo password=$slavepassword" if (defined($slavepassword));  
45    
46  my $conn = Pg::connectdb($sinfo);  my $conn = Pg::connectdb($sinfo);
47    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26