summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm13
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm14
2 files changed, 19 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index f2d831f..1780557 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -44,7 +44,7 @@ sub new {
developer_mode => $opt{developer_mode},
iris_base => $opt{iris_base}
// 'http://iris.noncd.db.de/iris-tts/timetable',
- lookahead => $opt{lookahead} // ( 2 * 60 ),
+ lookahead => $opt{lookahead} // ( 2 * 60 ),
lookbehind => $opt{lookbehind} // ( 0 * 60 ),
main_cache => $opt{main_cache},
rt_cache => $opt{realtime_cache},
@@ -144,7 +144,7 @@ sub new {
}
@{ $self->{results} } = grep {
- my $d = $_->departure // $_->arrival;
+ my $d = $_->departure // $_->arrival;
my $s = $_->sched_arrival // $_->sched_departure // $_->arrival // $d;
$d = $d->subtract_datetime( $self->{datetime} );
$s = $s->subtract_datetime( $self->{datetime} );
@@ -292,7 +292,7 @@ sub get_station {
}
sub add_result {
- my ( $self, $station, $s ) = @_;
+ my ( $self, $station_name, $station_uic, $s ) = @_;
my $id = $s->getAttribute('id');
my $e_tl = ( $s->findnodes( $self->{xp_tl} ) )[0];
@@ -308,7 +308,8 @@ sub add_result {
classes => $e_tl->getAttribute('f'), # D N S F
train_no => $e_tl->getAttribute('n'), # dep number
type => $e_tl->getAttribute('c'), # S/ICE/ERB/...
- station => $station,
+ station => $station_name,
+ station_uic => $station_uic + 0, # UIC IDs are numbers
strptime_obj => $self->{strptime_obj},
#unknown_o => $e_tl->getAttribute('o'), # owner: 03/80/R2/...
@@ -383,7 +384,7 @@ sub get_timetable {
for my $s ( $xml->findnodes('/timetable/s') ) {
- $self->add_result( $station, $s );
+ $self->add_result( $station, $eva, $s );
}
return $self;
@@ -426,7 +427,7 @@ sub get_realtime {
# add_result will return nothing if no ./tl node is present. The ./tl
# check here is for optimization purposes.
if ( not $result and ( $s->findnodes( $self->{xp_tl} ) )[0] ) {
- $result = $self->add_result( $station, $s );
+ $result = $self->add_result( $station, $eva, $s );
if ($result) {
$result->set_unscheduled(1);
}
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 31c37c4..2b3b993 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -111,11 +111,13 @@ Travel::Status::DE::IRIS::Result->mk_ro_accessors(
qw(arrival arrival_delay arrival_is_additional arrival_is_cancelled
date datetime delay
departure departure_delay departure_is_additional departure_is_cancelled
- is_transfer is_unscheduled is_wing
+ ds100 is_transfer is_unscheduled is_wing
line_no old_train_id old_train_no platform raw_id
realtime_xml route_start route_end
sched_arrival sched_departure sched_platform sched_route_start
- sched_route_end start stop_no time train_id train_no transfer type
+ sched_route_end start
+ station station_uic
+ stop_no time train_id train_no transfer type
unknown_t unknown_o wing_id)
);
@@ -1129,6 +1131,14 @@ Name of the first station served by this train according to its schedule.
DateTime(3pm) object for the scheduled start of the train on its route
(i.e. the departure time at its first station).
+=item $result->station
+
+Name of the station this train result belongs to.
+
+=item $result->station_uic
+
+UIC number of the station this train result belongs to.
+
=item $result->stop_no
Number of this stop on the train's route. 1 if it's the start station, 2