diff options
author | Daniel Friesel <derf@finalrewind.org> | 2016-02-28 19:38:41 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2016-02-28 19:38:41 +0100 |
commit | 56d095e4975b3d0b4010738ebd05597b6503f4af (patch) | |
tree | 0aa8abf2c8c9229940e1ffe59ac21e941e469ab7 /lib/Travel/Status/DE/IRIS/Result.pm | |
parent | 6e5b350cb7514eb94bb79d922844e9743b94e2e5 (diff) |
preparations for optional emma message support
Diffstat (limited to 'lib/Travel/Status/DE/IRIS/Result.pm')
-rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 63e0c40..153db87 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -305,6 +305,14 @@ sub set_messages { return $self; } +sub set_track_messages { + my ( $self, %track_messages ) = @_; + + $self->{track_messages} = \%track_messages; + + return $self; +} + sub set_realtime { my ( $self, $xmlobj ) = @_; @@ -469,6 +477,28 @@ sub delay_messages { return @ret; } +sub track_messages { + my ($self) = @_; + + my @keys = reverse sort keys %{ $self->{track_messages} }; + my @msgs = map { $self->{track_messages}{$_} } @keys; + my @ret; + + for my $msg (@msgs) { + push( + @ret, + [ + $self->parse_ts( $msg->[0] ), + $self->parse_ts( $msg->[1] ), + $self->parse_ts( $msg->[2] ), + $msg->[4] + ] + ); + } + + return @ret; +} + sub arrival_wings { my ($self) = @_; |