4 # -------------------------------------------------------------------
5 # $Id: sqlt-diff,v 1.15 2007-03-06 23:49:42 duality72 Exp $
6 # -------------------------------------------------------------------
7 # Copyright (C) 2002-4 The SQLFairy Authors
9 # This program is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU General Public License as
11 # published by the Free Software Foundation; version 2.
13 # This program is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
22 # -------------------------------------------------------------------
26 sqlt-diff - find the differences b/w two schemas
34 For a list of all valid parsers:
40 sqlt-diff [options] file_name1=parser1 file_name2=parser2
44 -d|--debug Show debugging info
45 -t|--trace Turn on tracing for Parse::RecDescent
46 -c|--case-insensitive Compare tables/columns case-insenstiviely
47 --ignore-index-names Ignore index name differences
48 --ignore-constraint-names Ignore constraint name differences
49 --output-db This Producer will be used instead of one corresponding to
50 parser1 to format output for new tables
54 sqlt-diff is a utility for creating a file of SQL commands necessary to
55 transform the first schema provided to the second. While not yet
56 exhaustive in its ability to mutate the entire schema, it will report the
63 Using the Producer class of the target (second) schema, any tables missing
64 in the first schema will be generated in their entirety (fields, constraints,
67 =item * Missing/altered fields
69 Any fields missing or altered between the two schemas will be reported
72 ALTER TABLE <table_name>
74 [CHANGE <field_name> <datatype> (<size>)] ;
76 =item * Missing/altered indices
78 Any indices missing or of a different type or on different fields will be
79 indicated. Indices that should be dropped will be reported as such:
81 DROP INDEX <index_name> ON <table_name> ;
83 An index of a different type or on different fields will be reported as a
86 CREATE [<index_type>] INDEX [<index_name>] ON <table_name>
87 ( <field_name>[,<field_name>] ) ;
91 "ALTER/DROP TABLE" and "CREATE INDEX" statements B<are not> generated by
92 the Producer, unfortunately, and may require massaging before being passed to
97 # -------------------------------------------------------------------
103 use SQL::Translator::Diff;
104 use SQL::Translator::Schema::Constants;
106 use vars qw( $VERSION );
107 $VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;
109 my ( @input, $list, $help, $debug, $trace, $caseopt , $ignore_index_names, $ignore_constraint_names, $output_db );
110 for my $arg ( @ARGV ) {
111 if ( $arg =~ m/^-?-l(ist)?$/ ) {
114 elsif ( $arg =~ m/^-?-h(elp)?$/ ) {
117 elsif ( $arg =~ m/^-?-d(ebug)?$/ ) {
120 elsif ( $arg =~ m/^-?-t(race)?$/ ) {
123 elsif ( $arg =~ m/^-?-c(ase-insensitive)?$/ ) {
126 elsif ( $arg =~ m/^--ignore-index-names$/ ) {
127 $ignore_index_names = 1;
129 elsif ( $arg =~ m/^--ignore-constraint-names$/ ) {
130 $ignore_constraint_names = 1;
132 elsif ( $arg =~ m/^--output-db=(.+)$/ ) {
135 elsif ( $arg =~ m/^([^=]+)=(.+)$/ ) {
136 push @input, { file => $1, parser => $2 };
139 pod2usage( msg => "Unknown argument '$arg'" );
143 pod2usage(1) if $help || !@ARGV;
144 pod2usage('Please specify only two schemas to diff') if scalar @input > 2;
146 my $tr = SQL::Translator->new;
147 my @parsers = $tr->list_parsers;
148 my %valid_parsers = map { $_, 1 } @parsers;
151 print "\nParsers:\n", map { "\t$_\n" } sort @parsers;
156 pod2usage( msg => 'Too many file args' ) if @input > 2;
158 my ( $source_schema, $source_db, $target_schema, $target_db ) = map {
159 my $file = $_->{'file'};
160 my $parser = $_->{'parser'};
162 die "Unable to read file '$file'\n" unless -r $file;
163 die "'$parser' is an invalid parser\n" unless $valid_parsers{ $parser };
165 my $t = SQL::Translator->new;
168 $t->parser( $parser ) or die $tr->error;
169 my $out = $t->translate( $file ) or die $tr->error;
170 my $schema = $t->schema;
171 unless ( $schema->name ) {
172 $schema->name( $file );
178 my $result = SQL::Translator::Diff::schema_diff($source_schema, $source_db,
179 $target_schema, $target_db,
180 { caseopt => $caseopt,
181 ignore_index_names => $ignore_index_names,
182 ignore_constraint_names => $ignore_constraint_names,
191 print "No differences found.";
194 # -------------------------------------------------------------------
195 # Bring out number weight & measure in a year of dearth.
197 # -------------------------------------------------------------------
203 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
207 SQL::Translator, L<http://sqlfairy.sourceforge.net>.