From de9f3deabe35fcc0a09dd4c62b6c626ba4282447 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <ilbelkyr@shalture.org>
Date: Sun, 30 Oct 2016 10:11:11 +0000
Subject: Use DBIx::Class::DeploymentHandler

Fixes T5. Yay! We still need some documentation on this, though.
---
 bin/db_upgrade | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 bin/db_upgrade

(limited to 'bin/db_upgrade')

diff --git a/bin/db_upgrade b/bin/db_upgrade
new file mode 100755
index 0000000..fc424ae
--- /dev/null
+++ b/bin/db_upgrade
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use v5.20;
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use ASM::Config;
+use ASM::DB;
+use Getopt::Long;
+use DBIx::Class::DeploymentHandler;
+
+GetOptions(
+    'config|c=s' => \$::cset,
+);
+if ($::cset eq '') { $::cset = 'config-default'; }
+else { $::cset = "config-$::cset"; }
+ASM::Config->readConfig();
+
+my $schema = ASM::DB->connect($::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass});
+
+my $dh = DBIx::Class::DeploymentHandler->new({
+        schema => $schema,
+        schema_version => '' . $schema->schema_version,
+        sql_translator_args => { add_drop_table => 0, quote_identifiers => 1 },
+        databases => [],
+        ignore_ddl => 1,
+    });
+
+$dh->upgrade;
-- 
cgit v1.2.3