database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-26 12:21:12 +03:00
Code Activity

Back out rserv changes that would allow limit of replicated tables ---

Browse Source 
not ready yet.
This commit is contained in:
Bruce Momjian
2003-06-25 21:37:53 +00:00
parent 111d8e522b
commit ec67d2a3fe
2 changed files with 5 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
contrib/rserv/RServ.pm
View File

@ -19,7 +19,7 @@ my %Stables = ();
sub PrepareSnapshot
{
my ($conn, $outf, $server, $onlytables) = @_; # (@_[0], @_[1], @_[2]);
my ($conn, $outf, $server) = @_; # (@_[0], @_[1], @_[2]);
my $result = $conn->exec("BEGIN");
if ($result->resultStatus ne PGRES_COMMAND_OK)
@ -52,10 +52,6 @@ sub PrepareSnapshot
while (@row = $result->fetchrow)
{
# printf "$row[0], $row[1], $row[2]\n";
if (ref($onlytables) eq 'HASH') {
next unless (exists $onlytables->{$row[1]});
$onlytables->{$row[1]} = $row[0] unless ($onlytables->{$row[1]});
}
push @{$Mtables{$row[0]}}, $row[1], $row[2];
}
@ -236,7 +232,7 @@ sub GetSYNCID
sub CleanLog
{
my ($conn, $howold, $onlytables) = @_; # (@_[0], @_[1]);
my ($conn, $howold) = @_; # (@_[0], @_[1]);
my $result = $conn->exec("BEGIN");
if ($result->resultStatus ne PGRES_COMMAND_OK)
@ -278,11 +274,6 @@ sub CleanLog
my $alist = join(',', keys %active);
my $sinfo = "logid < $maxid";
$sinfo .= " and logid not in ($alist)" if $alist ne '';
#if (ref($onlytables) eq 'HASH') {
# foreach my $onlytable (keys %{$onlytables}) {
# $sinfo
# }
#}
$sql = "delete from _RSERV_LOG_ where " .
"logtime < now() - '$howold second'::interval and $sinfo";
@ -311,7 +302,7 @@ sub CleanLog
sub ApplySnapshot
{
my ($conn, $inpf, $onlytables) = @_; # (@_[0], @_[1]);
my ($conn, $inpf) = @_; # (@_[0], @_[1]);
my $result = $conn->exec("BEGIN");
if ($result->resultStatus ne PGRES_COMMAND_OK)
@ -345,10 +336,6 @@ sub ApplySnapshot
while (@row = $result->fetchrow)
{
# printf " %s %s\n", $row[1], $row[0];
if (ref($onlytables) eq 'HASH') {
next unless (exists $onlytables->{$row[1]});
$onlytables->{$row[1]} = $row[0] unless ($onlytables->{$row[1]});
}
push @{$Stables{$row[1]}}, $row[0], $row[2], $row[3];
}