debconf14/figures/draw_schema.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use SQL::Translator;
   7 use Debbugs::DB;
   8
   9 my $s = Debbugs::DB->connect('dbi:Pg:service=debbugs');
  10
  11 my $trans = SQL::Translator->new(
  12     parser        => 'SQL::Translator::Parser::DBIx::Class',
  13     parser_args   => { dbic_schema => $s },
  14     producer      => 'Diagram',
  15     producer_args => {
  16         out_file         => $ARGV[0],
  17         show_constraints => 1,
  18         show_datatypes   => 1,
  19         show_sizes       => 1,
  20         show_fk_only     => 0,
  21     } );
  22 $trans->translate();