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

upgrade db incrementally

Browse Source
This commit is contained in:
Oliver Gorwits
2012-12-20 13:29:54 +00:00
parent 935bba9070
commit 26e6263613
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Netdisco/bin/netdisco-db-deploy
View File

@@ -63,12 +63,23 @@ try {
$dbh->selectrow_arrayref("SELECT * FROM device WHERE 0 = 1");
});
$schema->_set_db_version(2)
$schema->_set_db_version({version => 2})
if $schema->get_db_version == 1;
$schema->storage->disconnect;
};
# upgrade from whatever dbix_class_schema_versions says, to $VERSION
$schema->txn_do(sub { $schema->upgrade });
my $db_version = $schema->get_db_version;
my $target_version = $schema->schema_version;
# one step at a time, in case user has applied local changes already
for (my $i = $db_version; $i < $target_version; $i++) {
try {
$schema->upgrade_single_step($i, $i + 1);
}
catch {
$schema->_set_db_version({version => $i + 1});
}
}
exit 0;