4 # -------------------------------------------------------------------
5 # $Id: sqlt-diff,v 1.13 2006-05-20 09:02:47 schiffbruechige 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=parser file_name2=parser
44 -d|--debug Show debugging info
45 -t|--trace Turn on tracing for Parse::RecDescent
46 -c|--case-insensitive Compare tables/columns case-insenstiviely
50 sqlt-diff is a utility for creating a file of SQL commands necessary to
51 transform the first schema provided to the second. While not yet
52 exhaustive in its ability to mutate the entire schema, it will report the
59 Using the Producer class of the target (second) schema, any tables missing
60 in the first schema will be generated in their entirety (fields, constraints,
63 =item * Missing/altered fields
65 Any fields missing or altered between the two schemas will be reported
68 ALTER TABLE <table_name>
70 [CHANGE <field_name> <datatype> (<size>)] ;
72 =item * Missing/altered indices
74 Any indices missing or of a different type or on different fields will be
75 indicated. Indices that should be dropped will be reported as such:
77 DROP INDEX <index_name> ON <table_name> ;
79 An index of a different type or on different fields will be reported as a
82 CREATE [<index_type>] INDEX [<index_name>] ON <table_name>
83 ( <field_name>[,<field_name>] ) ;
87 "ALTER/DROP TABLE" and "CREATE INDEX" statements B<are not> generated by
88 the Producer, unfortunately, and may require massaging before being passed to
93 # -------------------------------------------------------------------
99 use SQL::Translator::Diff;
100 use SQL::Translator::Schema::Constants;
102 use vars qw( $VERSION );
103 $VERSION = sprintf "%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/;
105 my ( @input, $list, $help, $debug, $trace, $caseopt );
106 for my $arg ( @ARGV ) {
107 if ( $arg =~ m/^-?-l(ist)?$/ ) {
110 elsif ( $arg =~ m/^-?-h(elp)?$/ ) {
113 elsif ( $arg =~ m/^-?-d(ebug)?$/ ) {
116 elsif ( $arg =~ m/^-?-t(race)?$/ ) {
119 elsif ( $arg =~ m/^-?-c(ase-insenstive)?$/ ) {
122 elsif ( $arg =~ m/^([^=]+)=(.+)$/ ) {
123 push @input, { file => $1, parser => $2 };
126 pod2usage( msg => "Unknown argument '$arg'" );
130 pod2usage(1) if $help || !@ARGV;
131 pod2usage('Please specify only two schemas to diff') if scalar @input > 2;
133 my $tr = SQL::Translator->new;
134 my @parsers = $tr->list_parsers;
135 my %valid_parsers = map { $_, 1 } @parsers;
138 print "\nParsers:\n", map { "\t$_\n" } sort @parsers;
143 pod2usage( msg => 'Too many file args' ) if @input > 2;
145 my ( $source_schema, $source_db, $target_schema, $target_db ) = map {
146 my $file = $_->{'file'};
147 my $parser = $_->{'parser'};
149 die "Unable to read file '$file'\n" unless -r $file;
150 die "'$parser' is an invalid parser\n" unless $valid_parsers{ $parser };
152 my $t = SQL::Translator->new;
155 $t->parser( $parser ) or die $tr->error;
156 my $out = $t->translate( $file ) or die $tr->error;
157 my $schema = $t->schema;
158 unless ( $schema->name ) {
159 $schema->name( $file );
165 my $result = SQL::Translator::Diff::schema_diff($source_schema, $source_db,
166 $target_schema, $target_db,
167 { caseopt => $caseopt,
176 print "No differences found.";
179 # -------------------------------------------------------------------
180 # Bring out number weight & measure in a year of dearth.
182 # -------------------------------------------------------------------
188 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
192 SQL::Translator, L<http://sqlfairy.sourceforge.net>.