diff options
Diffstat (limited to 'lib/Travelynx.pm')
| -rwxr-xr-x | lib/Travelynx.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 4a1f021..423cec3 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -1886,12 +1886,10 @@ sub startup { = $opt{datetime}->clone->set_time_zone('UTC'); $data->{wagonorder_dep} = $status->{raw_json}; $data->{wagonorder_param} = { - time => $dt->rfc3339 =~ s{(?=Z)}{.000}r, - number => $opt{train_no}, - evaNumber => $opt{eva}, - administrationId => 80, - date => $dt->strftime('%Y-%m-%d'), - category => $opt{train_type}, + tt => $opt{train_type}, + tn => $opt{train_no}, + dt => $dt->epoch, + eva => $opt{eva} }; $user_data->{wagongroups} = []; for my $group ( $wr->groups ) { |
