1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use YAML::Syck;
use DBIx::Class::DeploymentHandler;
use SQL::Translator;
my $config = shift;
die "need configuration file" unless $config;
my $schema = 'jitterbug::Schema';
my $version = eval "use $schema; $schema->VERSION" or die $@;
print "processing version $version of $schema...\n";
my $jitterbug_conf = LoadFile($config);
my $dbix_conf = $jitterbug_conf->{plugins}->{DBIC}->{schema};
my $s = $schema->connect( @{ $dbix_conf->{connect_info} } );
my $dh = DBIx::Class::DeploymentHandler->new(
{
schema => $s,
databases => [qw/ SQLite PostgreSQL MySQL /],
sql_translator_args => { add_drop_table => 0, },
}
);
print "generating deployment script\n";
$dh->prepare_install;
if ( $version > 1 ) {
print "generating upgrade script\n";
$dh->prepare_upgrade(
{
from_version => $version - 1,
to_version => $version,
version_set => [ $version - 1, $version ],
}
);
print "generating downgrade script\n";
$dh->prepare_downgrade(
{
from_version => $version,
to_version => $version - 1,
version_set => [ $version, $version - 1 ],
}
);
}
# print "generating graph\n";
# my $trans = SQL::Translator->new(
# parser => 'SQL::Translator::Parser::DBIx::Class',
# parser_args => { package => $schema },
# producer_args => {
# show_constraints => 1,
# show_datatypes => 1,
# show_sizes => 1,
# show_fk_only => 0,
# }
# );
# $trans->translate;
print "done\n";
|