DH scripts

dh-prepare-upgrade

#!/usr/bin/env perl

use warnings;
use strict;

use Dancer qw/:script/;
use Dancer::Plugin::DBIC;
use DBIx::Class::DeploymentHandler;

my $schema = schema;
my $dh     = DBIx::Class::DeploymentHandler->new(
    {
        schema              => $schema,
        databases           => 'MySQL',
        sql_translator_args => { add_drop_table => 0 }
    }
);
$dh->prepare_deploy;
$dh->prepare_upgrade(
    {
        from_version => $dh->database_version,
        to_version => $dh->schema_version
    }
);

dh-upgrade

#!/usr/bin/env perl

use warnings;
use strict;

use Dancer qw/:script/;
use Dancer::Plugin::DBIC;
use DBIx::Class::DeploymentHandler;
use CalevoMobile::Schema;

# we need to be less strict using DH since the database contains things
# such as zero dates which break upgrades in strict mode
my $connect_info = schema->storage->connect_info;
delete $connect_info->[0]->{on_connect_do};
my $schema = CalevoMobile::Schema->connect(@$connect_info);

my $dh     = DBIx::Class::DeploymentHandler->new(
    {
        schema              => $schema,
        databases           => 'MySQL',
        sql_translator_args => { add_drop_table => 0 }
    }
);
$dh->upgrade(
    {
        from_version => $dh->database_version,
        to_version => $dh->schema_version
    }
);

skid