6 |
& eval 'exec perl -S $0 $argv:q' |
& eval 'exec perl -S $0 $argv:q' |
7 |
if 0; |
if 0; |
8 |
|
|
9 |
|
BEGIN { |
10 |
|
my $basedir = $0; $basedir =~ s#/[^/]+$##; |
11 |
|
unshift(@INC, "$basedir/../share"); |
12 |
|
} |
13 |
|
|
14 |
use strict; |
use strict; |
15 |
use Pg; |
use Pg; |
16 |
use Getopt::Long; |
use Getopt::Long; |
17 |
use Sys::Hostname; |
use RServ; |
18 |
|
|
19 |
$| = 1; |
$| = 1; |
20 |
|
|
91 |
} |
} |
92 |
|
|
93 |
|
|
94 |
my $host = defined($slavehost) ? $slavehost : hostname; |
my $host = 'localhost' if (! slavehost); |
95 |
|
|
96 |
$result = $conn->exec("DELETE FROM _RSERV_SERVERS_ WHERE host='$host' AND dbase='$slave'"); |
$result = $conn->exec("DELETE FROM _RSERV_SERVERS_ WHERE host='$host' AND dbase='$slave'"); |
97 |
if ($result->resultStatus ne PGRES_COMMAND_OK) { |
if ($result->resultStatus ne PGRES_COMMAND_OK) { |