Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324#!/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)") . ".";}