56 |
die $conn->errorMessage if $result->resultStatus ne PGRES_TUPLES_OK; |
die $conn->errorMessage if $result->resultStatus ne PGRES_TUPLES_OK; |
57 |
|
|
58 |
my @row = $result->fetchrow; |
my @row = $result->fetchrow; |
59 |
die "Can't find table/key\n" if ! defined $row[0] || ! defined $row[1]; |
die "Can't find key '$keyname' for table '$table' in database '$dbname'\n" if ! defined $row[0] || ! defined $row[1]; |
60 |
|
|
61 |
$result = $conn->exec("insert into _RSERV_SLAVE_TABLES_ (tname, cname, reloid, key)" . |
$result = $conn->exec("insert into _RSERV_SLAVE_TABLES_ (tname, cname, reloid, key)" . |
62 |
" values ('$table', '$keyname', $row[0], $row[1])"); |
" values ('$table', '$keyname', $row[0], $row[1])"); |