diff options
Diffstat (limited to '')
-rwxr-xr-x | scripts/upgrade_db.pl | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/scripts/upgrade_db.pl b/scripts/upgrade_db.pl deleted file mode 100755 index 629ef25..0000000 --- a/scripts/upgrade_db.pl +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use lib 'lib'; - -use YAML qw/LoadFile/; -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 "done\n"; |