summaryrefslogtreecommitdiff
path: root/scripts/upgrade_db.pl
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2011-02-14 21:28:08 +0100
committerfranck cuny <franck@lumberjaph.net>2011-02-14 21:28:08 +0100
commita1f9ccf014f999255f0b5bcbd6cc6be1fcbb7e25 (patch)
treee3fcb5c999b4b3dc1a972730d3767d5e2d5dd0ed /scripts/upgrade_db.pl
parentscript to deploy and migrate DB schema (diff)
downloadjitterbug-a1f9ccf014f999255f0b5bcbd6cc6be1fcbb7e25.tar.gz
remove useless scripts
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";