/[rserv]/bin/MasterAddTable
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/MasterAddTable

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Tue Aug 5 09:52:36 2003 UTC revision 1.3 by dpavlin, Tue Aug 5 21:10:28 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl -w
2  # MasterAddTable  # MasterAddTable
3  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.  # Vadim Mikheev, (c) 2000, PostgreSQL Inc.
4    
# Line 6  eval '(exit $?0)' && eval 'exec perl -S Line 6  eval '(exit $?0)' && eval 'exec perl -S
6      & eval 'exec perl -S $0 $argv:q'      & eval 'exec perl -S $0 $argv:q'
7      if 0;      if 0;
8    
9    use strict;
10  use Pg;  use Pg;
11  use Getopt::Long;  use Getopt::Long;
12    
13  $| = 1;  $| = 1;
14    
15  $result = GetOptions("debug!", "verbose!", "help",  my ($debug,$verbose) = (0,0);
16                       "host=s", "user=s", "password=s");  my ($help,$masterhost,$masterport,$masteruser,$masterpassword);
17    
18  my $debug = $opt_debug || 0;  my $result = GetOptions(
19  my $verbose = $opt_verbose || 0;          "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help,
20            "masterhost=s" => \$masterhost, "masterport=i" => \$masterport,
21  if (defined($opt_help) || (scalar(@ARGV) < 3)) {          "masteruser=s" => \$masteruser, "masterpassword=s" => \$masterpassword,
22      print "Usage: $0 --host=name --user=name --password=string masterdb table column\n";          );
23      exit ((scalar(@ARGV) < 3)? 1: 0);  
24    if (defined($help) || (scalar(@ARGV) < 3)) {
25        print "Usage: $0 [options] masterdb table column
26    Options:
27            --masterhost=hostname --masterport=port
28            --masteruser=username --masterpassword=string
29    ";
30        exit ((scalar(@ARGV) < 3)? 1:0);
31  }  }
32    
33  my $dbname = $ARGV[0];  my $dbname = $ARGV[0];
# Line 27  my $table = $ARGV[1]; Line 35  my $table = $ARGV[1];
35  my $keyname = $ARGV[2];  my $keyname = $ARGV[2];
36    
37  my $minfo = "dbname=$dbname";  my $minfo = "dbname=$dbname";
38  $minfo = "$minfo host=$opt_host" if (defined($opt_host));  $minfo = "$minfo host=$masterhost" if (defined($masterhost));
39  $minfo = "$minfo user=$opt_user" if (defined($opt_user));  $minfo = "$minfo port=$masterport" if (defined($masterport));
40  $minfo = "$minfo password=$opt_password" if (defined($opt_password));  $minfo = "$minfo user=$masteruser" if (defined($masteruser));
41    $minfo = "$minfo password=$masterpassword" if (defined($masterpassword));
42    
43  my $conn = Pg::connectdb($minfo);  my $conn = Pg::connectdb($minfo);
44  if ($conn->status != PGRES_CONNECTION_OK) {  if ($conn->status != PGRES_CONNECTION_OK) {
# Line 37  if ($conn->status != PGRES_CONNECTION_OK Line 46  if ($conn->status != PGRES_CONNECTION_OK
46      exit 1;      exit 1;
47  }  }
48    
49  my $result = $conn->exec("BEGIN");  $result = $conn->exec("BEGIN");
50  die $conn->errorMessage if $result->resultStatus ne PGRES_COMMAND_OK;  die $conn->errorMessage if $result->resultStatus ne PGRES_COMMAND_OK;
51    
52  $result = $conn->exec("select pgc.oid, pga.attnum from pg_class pgc" .  $result = $conn->exec("select pgc.oid, pga.attnum from pg_class pgc" .
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26