3 # -------------------------------------------------------------------
4 # $Id: sqlt-diagram,v 1.6 2005-06-30 01:04:24 kycl4rk Exp $
5 # -------------------------------------------------------------------
6 # Copyright (C) 2002-4 SQLFairy Authors
8 # This program is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License as
10 # published by the Free Software Foundation; version 2.
12 # This program is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 # -------------------------------------------------------------------
25 sqlt-diagram - Automatically create a diagram from a database schema
29 ./sqlt-diagram -d|-f|--from|--db=db_parser [options] schema.sql
33 -o|--output Output file name (default STDOUT)
34 -i|--image Output image type ("png" or "jpeg," default "png")
35 -t|--title Title to give schema
36 -c|--cols Number of columns
37 -n|--no-lines Don't draw lines
38 --font-size Font size ("small," "medium," "large," or "huge,"
40 --gutter Gutter size between tables
42 --show-fk-only Only show fields that act as primary
45 --natural-join Perform natural joins
46 --natural-join-pk Perform natural joins from primary keys only
47 -s|--skip Fields to skip in natural joins
48 --debug Print debugging information
52 This script will create a picture of your schema. Only the database
53 driver argument (for SQL::Translator) is required. If no output file
54 name is given, then image will be printed to STDOUT, so you should
55 redirect the output into a file.
57 The default action is to assume the presence of foreign key
58 relationships defined via "REFERENCES" or "FOREIGN KEY" constraints on
59 the tables. If you are parsing the schema of a file that does not
60 have these, you will find the natural join options helpful. With
61 natural joins, like-named fields will be considered foreign keys.
62 This can prove too permissive, however, as you probably don't want a
63 field called "name" to be considered a foreign key, so you could
64 include it in the "skip" option, and all fields called "name" will be
65 excluded from natural joins. A more efficient method, however, might
66 be to simply deduce the foriegn keys from primary keys to other fields
67 named the same in other tables. Use the "natural-join-pk" option
79 $VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
85 $out_file, $image_type, $db_driver, $title, $no_columns,
86 $no_lines, $font_size, $add_color, $debug, $show_fk_only,
87 $gutter, $natural_join, $join_pk_only, $skip_fields, $help
91 'd|db|f|from=s' => \$db_driver,
92 'o|output:s' => \$out_file,
93 'i|image:s' => \$image_type,
94 't|title:s' => \$title,
95 'c|columns:i' => \$no_columns,
96 'n|no-lines' => \$no_lines,
97 'font-size:s' => \$font_size,
98 'gutter:i' => \$gutter,
99 'color' => \$add_color,
100 'show-fk-only' => \$show_fk_only,
101 'natural-join' => \$natural_join,
102 'natural-join-pk' => \$join_pk_only,
103 's|skip:s' => \$skip_fields,
107 my @files = @ARGV; # the create script(s) for the original db
109 pod2usage(1) if $help;
110 pod2usage( -message => "No db driver specified" ) unless $db_driver;
111 pod2usage( -message => 'No input file' ) unless @files;
113 my $translator = SQL::Translator->new(
116 debug => $debug || 0,
118 out_file => $out_file,
119 image_type => $image_type,
120 gutter => $gutter || 0,
122 no_columns => $no_columns,
123 no_lines => $no_lines,
124 font_size => $font_size,
125 add_color => $add_color,
126 show_fk_only => $show_fk_only,
127 natural_join => $natural_join,
128 join_pk_only => $join_pk_only,
129 skip_fields => $skip_fields,
131 ) or die SQL::Translator->error;
133 for my $file (@files) {
134 my $output = $translator->translate( $file ) or die
135 "Error: " . $translator->error;
137 print "Image written to '$out_file'. Done.\n";
144 # -------------------------------------------------------------------
150 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.