about summary refs log tree commit diff
path: root/scripts/upgrade_db.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xscripts/upgrade_db.pl55
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";