--- bin/MasterAddTable 2003/10/28 18:43:12 1.5 +++ bin/MasterAddTable 2003/10/29 18:00:18 1.6 @@ -15,13 +15,13 @@ my ($debug,$verbose) = (0,0); my ($help,$masterhost,$masterport,$masteruser,$masterpassword); -my $server=0; +my $mserver=0; my $result = GetOptions( "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, "masterhost=s" => \$masterhost, "masterport=i" => \$masterport, "masteruser=s" => \$masteruser, "masterpassword=s" => \$masterpassword, - "server=i" => \$server, + "masterserver=i" => \$mserver, ); if (defined($help) || (scalar(@ARGV) < 3)) { @@ -29,7 +29,7 @@ Options: --masterhost=hostname --masterport=port --masteruser=username --masterpassword=string - [--server=slave_number] + [--masterserver=master_number] "; exit ((scalar(@ARGV) < 3)? 1:0); } @@ -44,6 +44,8 @@ $minfo = "$minfo user=$masteruser" if (defined($masteruser)); $minfo = "$minfo password=$masterpassword" if (defined($masterpassword)); +print STDERR "master server nr: $mserver\n" if ($debug); + my $conn = Pg::connectdb($minfo); if ($conn->status != PGRES_CONNECTION_OK) { print STDERR "Failed opening $minfo\n"; @@ -65,7 +67,7 @@ $result = $conn->exec("create trigger _RSERV_TRIGGER_T_ after" . " insert or update or delete on \"$table\"" . " for each row execute procedure" . - " _rserv_log_('$row[1]',$server)"); + " _rserv_log_('$row[1]',$mserver)"); die $conn->errorMessage if $result->resultStatus ne PGRES_COMMAND_OK; $result = $conn->exec("insert into _RSERV_TABLES_ (tname, cname, reloid, key)" .