From 5eab0c14f4feb5b369d9e1605f0d1f8ba413bb6e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 11 Jul 2022 22:09:26 +0200
Subject: optionally link to external departure boards where sensible (WiP)

---
 lib/Travelynx/Controller/Account.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'lib/Travelynx/Controller/Account.pm')

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) = @_;
 
-- 
cgit v1.2.3