optionally link to external departure boards where sensible (WiP)

1 files changed, 23 insertions, 0 deletions

diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm
index 97ea8ad..f4f05d9 100644
--- a/lib/Travelynx/Controller/Account.pm
+++ b/lib/Travelynx/Controller/Account.pm
@@ -375,6 +375,29 @@ sub insight {
 
 }
 
+sub services {
+	my ($self) = @_;
+	my $user = $self->current_user;
+
+	if ( $self->param('action') and $self->param('action') eq 'save' ) {
+		my $sb    = $self->param('stationboard');
+		my $value = 0;
+		if ( $sb =~ m{ ^ \d+ $ }x and $sb >= 0 and $sb <= 3 ) {
+			$value = int($sb);
+		}
+		$self->users->use_external_services(
+			uid => $user->{id},
+			set => $value
+		);
+		$self->flash( success => 'external' );
+		$self->redirect_to('account');
+	}
+
+	$self->param( stationboard =>
+		  $self->users->use_external_services( uid => $user->{id} ) );
+	$self->render('use_external_links');
+}
+
 sub webhook {
 	my ($self) = @_;