--- pgdiff 2003/10/26 19:22:36 1.10 +++ pgdiff 2003/10/28 18:56:54 1.11 @@ -132,7 +132,7 @@ print "begin work;\n"; # disable active triggers on slave database -my @triggers = $sscheme->get_triggers(); +my @triggers = $sscheme->get_activetriggers(); foreach my $tr (@triggers) { print "update pg_trigger set tgenabled = false where tgname='$tr';\n"; @@ -145,7 +145,22 @@ my $sth; +print "-- schema...\n"; # diff schema + foreach my $row (@{$mscheme->pg_attribute($table)}) { +# print Dumper($row); + } + +print "-- constraints...\n"; + # diff constraints + foreach my $tr (@{$mscheme->triggers($table)}) { +# print Dumper($tr); + } +print "-- triggers...\n"; + # diff triggers + foreach my $tr (@{$mscheme->triggers($table)}) { +# print Dumper($tr); + } # all colums (for insert) my @cols = @{$mscheme->cols($table)}; @@ -166,7 +181,7 @@ my @cols_test; # all colums to test (without skipped) foreach my $row (@{$mscheme->pg_attribute($table)}) { - # attname | format_type | attnotnull | atthasdef | attnum + # attname format_type attnotnull atthasdef attnum default references # FIXME: do something with attributes which shouldn't be compared # (date, time, datetime, timestamp)