Traewelling checkin: Handle invalid / revoked bearer tokens

This commit is contained in:
Daniel Friesel 2020-10-04 12:47:09 +02:00
parent 562dd7ccae
commit e13b5afe4f

View file

@ -323,6 +323,19 @@ sub checkin {
);
return;
}
# Work around https://github.com/Traewelling/traewelling/issues/128
if ( $tx->res->code == 302 ) {
my $err_msg = "Der Login-Token wurde nicht akzeptiert";
$self->{log}->debug("... error: $err_msg");
$self->{model}->log(
uid => $opt{uid},
message =>
"Fehler bei $opt{train_type} $opt{train_no}: $err_msg",
is_error => 1
);
return;
}
$self->{log}->debug( "... success! " . $tx->res->body );
# As of 2020-10-04, traewelling.de checkins do not yet return