summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2021-12-12 17:13:51 +0100
committerDaniel Friesel <derf@finalrewind.org>2021-12-12 17:13:51 +0100
commite8054faf766cc845de38e12e01d283d8935f7c2a (patch)
tree666f19a30ed5935cfd1dda5835eec35bc26f1e12 /lib
parent2e5a1b0a79e3a54e159cf598b2a0d398109a7bf4 (diff)
checkout: throw an error when called with empty $station
Diffstat (limited to 'lib')
-rwxr-xr-xlib/Travelynx.pm33
1 files changed, 19 insertions, 14 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index d7f9128..8138a35 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -457,7 +457,7 @@ sub startup {
my $station = $opt{station};
my $train_id = $opt{train_id};
my $uid = $opt{uid} // $self->current_user->{id};
- my $db = $opt{db} // $self->pg->db;
+ my $db = $opt{db} // $self->pg->db;
my $status = $self->iris->get_departures(
station => $station,
@@ -606,6 +606,11 @@ sub startup {
my $user = $self->get_user_status( $uid, $db );
my $train_id = $user->{train_id};
+ if ( not $station ) {
+ $self->app->log->error("Checkout($uid): station is empty");
+ return ( 1, 'BUG: Checkout station is empty.' );
+ }
+
if ( not $user->{checked_in} and not $user->{cancelled} ) {
return ( 0, 'You are not checked into any train' );
}
@@ -1285,7 +1290,7 @@ sub startup {
push(
@wagons,
{
- id => $wagon->{fahrzeugnummer},
+ id => $wagon->{fahrzeugnummer},
number =>
$wagon->{wagenordnungsnummer},
type => $wagon->{fahrzeugtyp},
@@ -1408,7 +1413,7 @@ sub startup {
'get_connection_targets' => sub {
my ( $self, %opt ) = @_;
- my $uid = $opt{uid} //= $self->current_user->{id};
+ my $uid = $opt{uid} //= $self->current_user->{id};
my $threshold = $opt{threshold}
// DateTime->now( time_zone => 'Europe/Berlin' )
->subtract( months => 4 );
@@ -1787,7 +1792,7 @@ sub startup {
train_no => $in_transit->{train_no},
train_id => $in_transit->{train_id},
boarding_countdown => -1,
- sched_departure =>
+ sched_departure =>
epoch_to_dt( $in_transit->{sched_dep_ts} ),
real_departure => epoch_to_dt( $in_transit->{real_dep_ts} ),
dep_ds100 => $in_transit->{dep_ds100},
@@ -2175,7 +2180,7 @@ sub startup {
$self->log->debug(
"... status is not a train, but $traewelling->{category}");
$self->traewelling->log(
- uid => $uid,
+ uid => $uid,
message =>
"$traewelling->{line} nach $traewelling->{arr_name} ist keine Zugfahrt (HAFAS-Kategorie '$traewelling->{category}')",
status_id => $traewelling->{status_id},
@@ -2194,7 +2199,7 @@ sub startup {
);
if ( $dep->{errstr} ) {
$self->traewelling->log(
- uid => $uid,
+ uid => $uid,
message =>
"Fehler bei $traewelling->{line} nach $traewelling->{arr_name}: $dep->{errstr}",
status_id => $traewelling->{status_id},
@@ -2250,15 +2255,15 @@ sub startup {
$self->log->debug("... success!");
if ( $traewelling->{message} ) {
$self->in_transit->update_user_data(
- uid => $uid,
- db => $db,
+ uid => $uid,
+ db => $db,
user_data =>
{ comment => $traewelling->{message} }
);
}
$self->traewelling->log(
- uid => $uid,
- db => $db,
+ uid => $uid,
+ db => $db,
message =>
"Eingecheckt in $traewelling->{line} nach $traewelling->{arr_name}",
status_id => $traewelling->{status_id},
@@ -2275,7 +2280,7 @@ sub startup {
if ($err) {
$self->log->debug("... error: $err");
$self->traewelling->log(
- uid => $uid,
+ uid => $uid,
message =>
"Fehler bei $traewelling->{line} nach $traewelling->{arr_name}: $err",
status_id => $traewelling->{status_id},
@@ -2285,7 +2290,7 @@ sub startup {
}
else {
$self->traewelling->log(
- uid => $uid,
+ uid => $uid,
message =>
"$traewelling->{line} nach $traewelling->{arr_name} nicht gefunden",
status_id => $traewelling->{status_id},
@@ -2484,8 +2489,8 @@ sub startup {
};
if (@station_coordinates) {
- my @lats = map { $_->[0][0] } @station_coordinates;
- my @lons = map { $_->[0][1] } @station_coordinates;
+ my @lats = map { $_->[0][0] } @station_coordinates;
+ my @lons = map { $_->[0][1] } @station_coordinates;
my $min_lat = List::Util::min @lats;
my $max_lat = List::Util::max @lats;
my $min_lon = List::Util::min @lons;