Commit 4d413d06 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

"database" sub-command: Provide an exit status

parent ee53b8f3

README.md

+1 −1
Original line number Diff line number Diff line
@@ -68,7 +68,7 @@ or not. 
```

git pull

chmod -R a+rX . # only needed if travelynx is running under a different user

if perl index.pl database has-current-schema | grep -Fq yes; then

if perl index.pl database has-current-schema; then

    systemctl reload travelynx

else

    systemctl stop travelynx

lib/Travelynx/Command/database.pm

+5 −0
Original line number Diff line number Diff line
@@ -110,6 +110,7 @@ my @migrations = ( 


sub run {

	my ( $self, $command ) = @_;

	my $exit_status = 0;



	my $dbh = $self->app->dbh;
@@ -120,6 +121,7 @@ sub run { 
		}

		else {

			$dbh->rollback;

			$exit_status = 1;

		}

	}

	elsif ( $command eq 'migrate' ) {
@@ -134,6 +136,7 @@ sub run { 
			if ( not $migrations[$i]($dbh) ) {

				say "Aborting migration; rollback to v${schema_version}";

				$dbh->rollback;

				$exit_status = 1;

				last;

			}

		}
@@ -147,6 +150,7 @@ sub run { 
		}

		else {

			say "no";

			$exit_status = 1;

		}

	}

	else {
@@ -155,6 +159,7 @@ sub run { 


	$dbh->disconnect;



	exit($exit_status);

}



1;