Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627#!/usr/bin/env perl
# Dev-only startup gate: refuses to start the app server if the database# schema doesn't match what the code expects, instead of silently running# against a stale database (or auto-migrating one that might be shared).# See bin/startdev.sh and Lacuna::DB::Migrate. Exits non-zero if a migration# is pending.
use 5.010;use strict;use lib '/home/lacuna/server/lib';use Lacuna::DB::Migrate;
if (Lacuna::DB::Migrate::pending()) { my $schema_version = Lacuna::DB::Migrate::schema_version(); my $db_version = Lacuna::DB::Migrate::database_version();
say STDERR '=' x 70; say STDERR 'Database schema is out of date -- refusing to start.'; say STDERR " code expects version: $schema_version"; say STDERR ' database is at version: ' . (defined $db_version ? $db_version : '(not installed)'); say STDERR ''; say STDERR 'Run bin/migrate_db.pl to bring the database up to date.'; say STDERR '=' x 70; exit 1;}