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 Pg; |
use Pg; |
15 |
use Getopt::Long; |
use Getopt::Long; |
16 |
use strict; |
use strict; |
17 |
|
use RServ; |
18 |
|
|
19 |
$| = 1; |
$| = 1; |
20 |
|
|
40 |
my $table = $ARGV[1]; |
my $table = $ARGV[1]; |
41 |
#my $keyname = $ARGV[2]; |
#my $keyname = $ARGV[2]; |
42 |
|
|
43 |
my $minfo = "dbname=$dbname"; |
my $minfo = MkInfo($dbname,$masterhost,$masterport,$masteruser,$masterpassword); |
|
$minfo = "$minfo host=$masterhost" if (defined($masterhost)); |
|
|
$minfo = "$minfo port=$masterport" if (defined($masterport)); |
|
|
$minfo = "$minfo user=$masteruser" if (defined($masteruser)); |
|
|
$minfo = "$minfo password=$masterpassword" if (defined($masterpassword)); |
|
44 |
|
|
45 |
my $conn = Pg::connectdb($minfo); |
my $conn = Pg::connectdb($minfo); |
46 |
if ($conn->status != PGRES_CONNECTION_OK) { |
if ($conn->status != PGRES_CONNECTION_OK) { |