#!/usr/bin/env perl

# Applies any pending database schema migrations. Safe to run on every prod
# boot: installs from scratch against a brand new database, applies whatever
# upgrade steps are outstanding against an existing one, and does nothing if
# the database is already current. See bin/start_lacuna.sh and
# Lacuna::DB::Migrate.

use 5.010;
use strict;
use lib '/home/lacuna/server/lib';
use Lacuna::DB::Migrate;

my $before = Lacuna::DB::Migrate::database_version();
my $after  = Lacuna::DB::Migrate::upgrade();

if (defined $before && $before eq $after) {
    say "Database schema already at version $after.";
}
else {
    say "Database schema migrated to version $after"
        . (defined $before ? " (from $before)" : " (fresh install)") . ".";
}