/[pgdiff]/pgdiff
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 /pgdiff

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

revision 1.8 by dpavlin, Fri Aug 15 22:51:56 2003 UTC revision 1.11 by dpavlin, Tue Oct 28 18:56:54 2003 UTC
# Line 43  Options: Line 43  Options:
43          --slavehost=hostname --slaveport=port          --slavehost=hostname --slaveport=port
44          --slaveuser=username --slavepassword=string          --slaveuser=username --slavepassword=string
45          --slavefile=filename          --slavefile=filename
46          --tables[s]=table[,table...]          --table[s]=table[,table...]
47  ";  ";
48  #    exit ((scalar(@ARGV) < 2)? 1:0);  #    exit ((scalar(@ARGV) < 2)? 1:0);
49      exit;      exit;
# Line 132  debug "Comparing tables: ".join(", ",@ta Line 132  debug "Comparing tables: ".join(", ",@ta
132  print "begin work;\n";  print "begin work;\n";
133    
134  # disable active triggers on slave database  # disable active triggers on slave database
135  my @triggers = $sscheme->get_triggers();  my @triggers = $sscheme->get_activetriggers();
136    
137  foreach my $tr (@triggers) {  foreach my $tr (@triggers) {
138          print "update pg_trigger set tgenabled = false where tgname='$tr';\n";          print "update pg_trigger set tgenabled = false where tgname='$tr';\n";
# Line 145  foreach my $table (@tables) { Line 145  foreach my $table (@tables) {
145    
146          my $sth;          my $sth;
147    
148    print "-- schema...\n";
149          # diff schema          # diff schema
150            foreach my $row (@{$mscheme->pg_attribute($table)}) {
151    #               print Dumper($row);
152            }
153    
154    print "-- constraints...\n";
155            # diff constraints
156            foreach my $tr (@{$mscheme->triggers($table)}) {
157    #               print Dumper($tr);
158            }
159    print "-- triggers...\n";
160            # diff triggers
161            foreach my $tr (@{$mscheme->triggers($table)}) {
162    #               print Dumper($tr);
163            }
164    
165          # all colums (for insert)          # all colums (for insert)
166          my @cols = @{$mscheme->cols($table)};          my @cols = @{$mscheme->cols($table)};
# Line 166  foreach my $table (@tables) { Line 181  foreach my $table (@tables) {
181          my @cols_test;  # all colums to test (without skipped)          my @cols_test;  # all colums to test (without skipped)
182    
183          foreach my $row (@{$mscheme->pg_attribute($table)}) {          foreach my $row (@{$mscheme->pg_attribute($table)}) {
184                  # attname | format_type | attnotnull | atthasdef | attnum                  # attname format_type attnotnull atthasdef attnum default references
185    
186                  # FIXME: do something with attributes which shouldn't be compared                  # FIXME: do something with attributes which shouldn't be compared
187                  # (date, time, datetime, timestamp)                  # (date, time, datetime, timestamp)
# Line 230  foreach my $table (@tables) { Line 245  foreach my $table (@tables) {
245    
246          debug_sql($msql);          debug_sql($msql);
247    
248          my $msth = $mdbh->prepare($msql) || die;          my $msth = $mdbh->prepare($msql) || die $mdbh->errstr;
249          $msth->execute() || die;          $msth->execute() || die $msth->errstr;
250    
251          my $ssth = $sdbh->prepare($ssql) || die;          my $ssth = $sdbh->prepare($ssql) || die $sdbh->errstr;
252          $ssth->execute() || die;          $ssth->execute() || die $ssth->errstr;
253    
254          my $diff_row = 0;          my $diff_row = 0;
255    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.26