1 package SQL::Translator::Producer::HTML;
3 # -------------------------------------------------------------------
4 # $Id: HTML.pm,v 1.15 2005-02-07 22:09:32 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 use vars qw($VERSION $NOWRAP $NOLINKTABLE $NAME);
27 $VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;
28 $NAME = join ', ', __PACKAGE__, $VERSION;
29 $NOWRAP = 0 unless defined $NOWRAP;
30 $NOLINKTABLE = 0 unless defined $NOLINKTABLE;
32 # Emit XHTML by default
33 $CGI::XHTML = $CGI::XHTML = 42;
35 use SQL::Translator::Schema::Constants;
37 # -------------------------------------------------------------------
38 # Main entry point. Returns a string containing HTML.
39 # -------------------------------------------------------------------
42 my $args = $t->producer_args;
43 my $schema = $t->schema;
44 my $schema_name = $schema->name || 'Schema';
45 my $title = $args->{'title'} || "Description of $schema_name";
46 my $wrap = ! (defined $args->{'nowrap'}
49 my $linktable = ! (defined $args->{'nolinktable'}
50 ? $args->{'nolinktable'}
52 my %stylesheet = defined $args->{'stylesheet'}
53 ? ( -style => { src => $args->{'stylesheet'} } )
56 my $q = defined $args->{'pretty'}
57 ? do { require CGI::Pretty;
63 my ($table, @table_names);
70 -meta => { generator => $NAME },
72 $q->h1({ -class => 'SchemaDescription' }, $title),
76 @table_names = grep { length $_->name } $schema->get_tables;
79 # Generate top menu, with links to full table information
80 my $count = scalar(@table_names);
81 $count = sprintf "%d table%s", $count, $count == 1 ? '' : 's';
83 # Leading table of links
85 $q->comment("Table listing ($count)"),
86 $q->a({ -name => 'top' }),
87 $q->start_table({ -width => '100%', -class => 'LinkTable'}),
89 # XXX This needs to be colspan="$#{$table->fields}" class="LinkTableHeader"
91 $q->td({ -class => 'LinkTableCell' },
92 $q->h2({ -class => 'LinkTableTitle' },
98 for my $table (@table_names) {
99 my $table_name = $table->name;
101 $q->comment("Start link to table '$table_name'"),
102 $q->Tr({ -class => 'LinkTableRow' },
103 $q->td({ -class => 'LinkTableCell' },
104 qq[<a id="${table_name}-link" href="#$table_name">$table_name</a>]
107 $q->comment("End link to table '$table_name'");
109 push @html, $q->end_table;
112 for my $table ($schema->get_tables) {
113 my $table_name = $table->name or next;
114 my @fields = $table->get_fields or next;
116 $q->comment("Starting table '$table_name'"),
117 $q->a({ -name => $table_name }),
118 $q->table({ -class => 'TableHeader', -width => '100%' },
119 $q->Tr({ -class => 'TableHeaderRow' },
120 $q->td({ -class => 'TableHeaderCell' }, $q->h3($table_name)),
121 qq[<a name="$table_name">],
122 $q->td({ -class => 'TableHeaderCell', -align => 'right' },
123 qq[<a href="#top">Top</a>]
128 if ( my @comments = map { $_ ? $_ : () } $table->comments ) {
132 $q->em(map { $q->br, $_ } @comments);
139 $q->start_table({ -border => 1 }),
141 $q->th({ -class => 'FieldHeader' },
154 for my $field ( @fields ) {
155 my $name = $field->name || '';
156 $name = qq[<a name="$table_name-$name">$name</a>];
157 my $data_type = $field->data_type || '';
158 my $size = defined $field->size ? $field->size : '';
159 my $default = defined $field->default_value
160 ? $field->default_value : '';
161 my $comment = $field->comments || '';
164 if ($field->is_foreign_key) {
165 my $c = $field->foreign_key_reference;
166 my $ref_table = $c->reference_table || '';
167 my $ref_field = ($c->reference_fields)[0] || '';
169 qq[<a href="#$ref_table-$ref_field">$ref_table.$ref_field</a>];
173 push @other, 'PRIMARY KEY' if $field->is_primary_key;
174 push @other, 'UNIQUE' if $field->is_unique;
175 push @other, 'NOT NULL' unless $field->is_nullable;
176 push @other, $comment if $comment;
177 my $class = $i++ % 2 ? 'even' : 'odd';
180 { -class => "tr-$class" },
181 $q->td({ -class => "FieldCellName" }, $name),
182 $q->td({ -class => "FieldCellType" }, $data_type),
183 $q->td({ -class => "FieldCellSize" }, $size),
184 $q->td({ -class => "FieldCellDefault" }, $default),
185 $q->td({ -class => "FieldCellOther" }, join(', ', @other)),
186 $q->td({ -class => "FieldCellFK" }, $fk),
189 push @html, $q->end_table;
194 if ( my @indices = $table->get_indices ) {
197 $q->start_table({ -border => 1 }),
198 $q->Tr({ -class => 'IndexRow' },
199 $q->th([ 'Name', 'Fields' ])
202 for my $index ( @indices ) {
203 my $name = $index->name || '';
204 my $fields = join( ', ', $index->fields ) || '';
207 $q->Tr({ -class => 'IndexCell' },
208 $q->td( [ $name, $fields ] )
212 push @html, $q->end_table;
219 grep { $_->type ne PRIMARY_KEY } $table->get_constraints;
220 if ( @constraints ) {
222 $q->h3('Constraints'),
223 $q->start_table({ -border => 1 }),
224 $q->Tr({ -class => 'IndexRow' },
225 $q->th([ 'Type', 'Fields' ])
228 for my $c ( @constraints ) {
229 my $type = $c->type || '';
230 my $fields = join( ', ', $c->fields ) || '';
233 $q->Tr({ -class => 'IndexCell' },
234 $q->td( [ $type, $fields ] )
238 push @html, $q->end_table;
244 my $sqlt_version = $t->version;
247 qq[Created by <a href="http://sqlfairy.sourceforge.net">],
248 qq[SQL::Translator $sqlt_version</a>],
253 return join "\n", @html;
258 # -------------------------------------------------------------------
259 # Always be ready to speak your mind,
260 # and a base man will avoid you.
262 # -------------------------------------------------------------------
266 SQL::Translator::Producer::HTML - HTML producer for SQL::Translator
270 use SQL::Translator::Producer::HTML;
274 Creates an HTML document describing the tables.
276 The HTML produced is composed of a number of tables:
282 A link table sits at the top of the output, and contains anchored
283 links to elements in the rest of the document.
285 If the I<nolinktable> producer arg is present, then this table is not
290 Each table in the schema has its own HTML table. The top row is a row
291 of E<lt>thE<gt> elements, with a class of B<FieldHeader>; these
292 elements are I<Field Name>, I<Data Type>, I<Size>, I<Default Value>,
293 I<Other> and I<Foreign Key>. Each successive row describes one field
294 in the table, and has a class of B<FieldCell$item>, where $item id
295 corresponds to the label of the column. For example:
298 <td class="FieldCellName"><a name="random-id">id</a></td>
299 <td class="FieldCellType">int</td>
300 <td class="FieldCellSize">11</td>
301 <td class="FieldCellDefault"></td>
302 <td class="FieldCellOther">PRIMARY KEY, NOT NULL</td>
303 <td class="FieldCellFK"></td>
307 <td class="FieldCellName"><a name="random-foo">foo</a></td>
308 <td class="FieldCellType">varchar</td>
309 <td class="FieldCellSize">255</td>
310 <td class="FieldCellDefault"></td>
311 <td class="FieldCellOther">NOT NULL</td>
312 <td class="FieldCellFK"></td>
316 <td class="FieldCellName"><a name="random-updated">updated</a></td>
317 <td class="FieldCellType">timestamp</td>
318 <td class="FieldCellSize">0</td>
319 <td class="FieldCellDefault"></td>
320 <td class="FieldCellOther"></td>
321 <td class="FieldCellFK"></td>
326 Unless the I<nowrap> producer arg is present, the HTML will be
327 enclosed in a basic HTML header and footer.
329 If the I<pretty> producer arg is present, the generated HTML will be
330 nicely spaced and human-readable. Otherwise, it will have very little
331 insignificant whitespace and be generally smaller.
336 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>,
337 Darren Chamberlain E<lt>darren@cpan.orgE<gt>.