summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Helper
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx/Helper')
-rw-r--r--lib/Travelynx/Helper/Traewelling.pm14
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/Travelynx/Helper/Traewelling.pm b/lib/Travelynx/Helper/Traewelling.pm
index 1b94aa0..6d7c367 100644
--- a/lib/Travelynx/Helper/Traewelling.pm
+++ b/lib/Travelynx/Helper/Traewelling.pm
@@ -4,6 +4,8 @@ use strict;
use warnings;
use 5.020;
+use DateTime;
+use DateTime::Format::Strptime;
use Mojo::Promise;
sub new {
@@ -182,10 +184,16 @@ sub login_p {
}
else {
$token = $tx->result->json->{token};
+
+ # As of 2020-10-04, Traewelling tokens expire one year after they
+ # are generated
+ my $expiry_dt = DateTime->now( time_zone => 'Europe/Berlin' )
+ ->add( years => 1 );
$self->{model}->link(
- uid => $uid,
- email => $email,
- token => $token
+ uid => $uid,
+ email => $email,
+ token => $token,
+ expires => $expiry_dt
);
return $self->get_user_p( $uid, $token );
}