handle missing 'base_url' in travelynx.conf

1 files changed, 9 insertions, 1 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 40ca0a5..7cbfebd 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -276,10 +276,18 @@ sub startup {
 		}
 	);
 
+	if ( not $self->app->config->{base_url} ) {
+		$self->app->log->error(
+"travelynx.conf: 'base_url' is missing. Links in maintenance/work/worker-generated E-Mails will be incorrect. This variable was introduced in travelynx 1.22; see examples/travelynx.conf for documentation."
+		);
+	}
+
 	$self->helper(
 		base_url_for => sub {
 			my ( $self, $path ) = @_;
-			if ( ( my $url = $self->url_for($path) )->base ne q{} ) {
+			if ( ( my $url = $self->url_for($path) )->base ne q{}
+				or not $self->app->config->{base_url_for} )
+			{
 				return $url;
 			}
 			return $self->url_for($path)