summaryrefslogtreecommitdiff
path: root/lib/Travelynx
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx')
-rw-r--r--lib/Travelynx/Command/database.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index e501e47..7a714b1 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -106,6 +106,14 @@ sub run {
$dbh->commit;
}
}
+ elsif ( $command eq 'has-current-schema' ) {
+ if ( get_schema_version($dbh) == $#migrations ) {
+ say "yes";
+ }
+ else {
+ say "no";
+ }
+ }
else {
$self->help;
}
@@ -120,7 +128,7 @@ __END__
=head1 SYNOPSIS
- Usage: index.pl database <setup|migrate>
+ Usage: index.pl database <setup|migrate|has-current-schema>
Upgrades the database layout to the latest schema.