135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

-change handling of schema versioning to avoid deployment of FK constraints

Browse Source
This commit is contained in:
Oliver Gorwits
2012-12-02 20:38:11 +00:00
parent a70a712c7a
commit c89f4952ff
8 changed files with 1353 additions and 488 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Netdisco/bin/upgrade_netdisco_schema_version
View File

@@ -10,23 +10,22 @@ use Netdisco::DB;
use Try::Tiny;
use feature 'say';
try {
my $count = schema->resultset('Device')->count();
}
catch {
# fresh install? deploy the Netdisco::DB schema
say 'Deploying Netdisco::DB schema...';
schema->txn_do(sub { schema->deploy() });
exec $0;
};
if (not schema->get_db_version()) {
# installs the dbix_class_schema_versions table with version "0"
# installs the dbix_class_schema_versions table with version "1"
# which corresponds to an empty schema
say 'Installing DBIx::Class versioning to Netdisco::DB schema...';
schema->txn_do(sub { schema->install("1") });
exec $0;
}
try {
# if schema exists, assume it's current public Netdisco version
if (schema->get_db_version() == 1
and my $count = schema->resultset('Device')->count()) {
schema->txn_do(sub { schema->_set_db_version("2") });
}
};
# upgrades from whatever dbix_class_schema_versions says, to $VERSION
say 'Upgrading Netdisco::DB schema...';
schema->txn_do(sub { schema->upgrade() });