Mirrors/travelynx
2
0
Fork 0
mirror of https://github.com/derf/travelynx synced 2024-11-29 16:00:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

integritycheck: list journeys affected by #159

Browse source
This commit is contained in:
Birte Kristina Friesel 2024-08-26 17:47:38 +02:00
parent a67e39d4ce
commit 4b6049cd1a
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
1 changed files with 43 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
lib/Travelynx/Command/integritycheck.pm
View file

@ -103,9 +103,52 @@ sub run {
}
}
}
if ($found) {
say '------------8<----------';
say '';
$found = 0;
}
$res = $db->select(
'journeys_str',
[ 'journey_id', 'sched_arr_ts', 'route', 'arr_name', 'arr_eva' ],
{ backend_id => 0 }
)->expand;
journey: while ( my $j = $res->hash ) {
my $found_in_route;
my $found_arr;
for my $stop ( @{ $j->{route} // [] } ) {
if ( not $stop->[1] ) {
next journey;
}
if ( $stop->[1] == $j->{arr_eva} ) {
$found_in_route = 1;
last;
}
if ( $stop->[2]{sched_arr}
and $j->{sched_arr_ts}
and $stop->[2]{sched_arr} == int( $j->{sched_arr_ts} ) )
{
$found_arr = $stop;
}
}
if ( $found_arr and not $found_in_route ) {
if ( not $found ) {
say q{};
say
'The following journeys have route entries which do not agree with checkout EVA ID.';
say
'checkout station ID (left) vs route entry with matching checkout time (right)';
say '------------8<----------';
$found = 1;
}
printf(
"%7d %d (%s) vs %d (%s)\n",
$j->{journey_id}, $j->{arr_eva}, $j->{arr_name},
$found_arr->[1], $found_arr->[0]
);
}
}
}