summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/Travelynx.pm7
-rw-r--r--lib/Travelynx/Command/database.pm54
-rw-r--r--lib/Travelynx/Command/work.pm2
3 files changed, 63 insertions, 0 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 2c15154..8b8623d 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -345,6 +345,7 @@ sub startup {
),
checkin_time =>
DateTime->now( time_zone => 'Europe/Berlin' ),
+ dep_platform => $train->platform,
train_type => $train->type,
train_line => $train->line_no,
train_no => $train->train_no,
@@ -526,6 +527,7 @@ sub startup {
'in_transit',
{
checkout_time => undef,
+ arr_platform => undef,
sched_arrival => undef,
real_arrival => undef,
},
@@ -549,6 +551,7 @@ sub startup {
'in_transit',
{
checkout_time => $now,
+ arr_platform => $train->platform,
sched_arrival => $train->sched_arrival,
real_arrival => $train->arrival,
cancelled => $train->arrival_is_cancelled ? 1 : 0,
@@ -1650,10 +1653,12 @@ sub startup {
real_departure => epoch_to_dt( $in_transit->{real_dep_ts} ),
dep_ds100 => $in_transit->{dep_ds100},
dep_name => $in_transit->{dep_name},
+ dep_platform => $in_transit->{dep_platform},
sched_arrival => epoch_to_dt( $in_transit->{sched_arr_ts} ),
real_arrival => epoch_to_dt( $in_transit->{real_arr_ts} ),
arr_ds100 => $in_transit->{arr_ds100},
arr_name => $in_transit->{arr_name},
+ arr_platform => $in_transit->{arr_platform},
route_after => \@route_after,
messages => $in_transit->{messages}
? [ split( qr{[|]}, $in_transit->{messages} ) ]
@@ -1725,10 +1730,12 @@ sub startup {
real_departure => epoch_to_dt( $latest->{real_dep_ts} ),
dep_ds100 => $latest->{dep_ds100},
dep_name => $latest->{dep_name},
+ dep_platform => $latest->{dep_platform},
sched_arrival => epoch_to_dt( $latest->{sched_arr_ts} ),
real_arrival => epoch_to_dt( $latest->{real_arr_ts} ),
arr_ds100 => $latest->{arr_ds100},
arr_name => $latest->{arr_name},
+ arr_platform => $latest->{arr_platform},
};
}
diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index 11a946e..a15390d 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -481,6 +481,60 @@ my @migrations = (
}
);
},
+
+ # v11 -> v12
+ sub {
+ my ($db) = @_;
+ $db->query(
+ qq{
+ alter table journeys
+ add column dep_platform varchar(16),
+ add column arr_platform varchar(16);
+ alter table in_transit
+ add column dep_platform varchar(16),
+ add column arr_platform varchar(16);
+ create or replace view journeys_str as select
+ journeys.id as journey_id, user_id,
+ train_type, train_line, train_no, train_id,
+ extract(epoch from checkin_time) as checkin_ts,
+ extract(epoch from sched_departure) as sched_dep_ts,
+ extract(epoch from real_departure) as real_dep_ts,
+ dep_stations.ds100 as dep_ds100,
+ dep_stations.name as dep_name,
+ extract(epoch from checkout_time) as checkout_ts,
+ extract(epoch from sched_arrival) as sched_arr_ts,
+ extract(epoch from real_arrival) as real_arr_ts,
+ arr_stations.ds100 as arr_ds100,
+ arr_stations.name as arr_name,
+ cancelled, edited, route, messages,
+ dep_platform, arr_platform
+ from journeys
+ join stations as dep_stations on dep_stations.id = checkin_station_id
+ join stations as arr_stations on arr_stations.id = checkout_station_id
+ ;
+ create or replace view in_transit_str as select
+ user_id,
+ train_type, train_line, train_no, train_id,
+ extract(epoch from checkin_time) as checkin_ts,
+ extract(epoch from sched_departure) as sched_dep_ts,
+ extract(epoch from real_departure) as real_dep_ts,
+ dep_stations.ds100 as dep_ds100,
+ dep_stations.name as dep_name,
+ extract(epoch from checkout_time) as checkout_ts,
+ extract(epoch from sched_arrival) as sched_arr_ts,
+ extract(epoch from real_arrival) as real_arr_ts,
+ arr_stations.ds100 as arr_ds100,
+ arr_stations.name as arr_name,
+ cancelled, route, messages,
+ dep_platform, arr_platform
+ from in_transit
+ join stations as dep_stations on dep_stations.id = checkin_station_id
+ left join stations as arr_stations on arr_stations.id = checkout_station_id
+ ;
+ update schema_version set version = 12;
+ }
+ );
+ },
);
sub setup_db {
diff --git a/lib/Travelynx/Command/work.pm b/lib/Travelynx/Command/work.pm
index 6c84d49..a9969f3 100644
--- a/lib/Travelynx/Command/work.pm
+++ b/lib/Travelynx/Command/work.pm
@@ -45,6 +45,7 @@ sub run {
$db->update(
'in_transit',
{
+ dep_platform => $train->platform,
real_departure => $train->departure,
route => join( '|', $train->route ),
messages => join(
@@ -95,6 +96,7 @@ sub run {
$db->update(
'in_transit',
{
+ arr_platform => $train->platform,
sched_arrival => $train->sched_arrival,
real_arrival => $train->arrival,
route => join( '|', $train->route ),