blob: 6f0208c7ba785e5883a3c7bcddc5205f236d391f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 },
});
$dh->prepare_version_storage_install;
$dh->install_version_storage;
$dh->add_database_version({ version => 1 });
|
