summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm28
1 files changed, 16 insertions, 12 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index ef4f87a..984c209 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -46,28 +46,31 @@ sub new {
my $res_st = $ua->get( $self->{iris_base} . '/station/' . $opt{station} );
if ( $res_st->is_error ) {
- $self->{errstr} = 'Failed to fetch station data: '
- . $res_st->status_line;
+ $self->{errstr}
+ = 'Failed to fetch station data: ' . $res_st->status_line;
return $self;
}
my $xml_st = XML::LibXML->load_xml( string => $res_st->decoded_content );
- $self->{nodes}{station} = ( $xml_st->findnodes('//station') )[0];
+ my $station_node = ( $xml_st->findnodes('//station') )[0];
+
# TODO parse 'meta' and maybe 'p' flags
# They're optional pointers to related platforms. For instance
# Berlin Hbf/BL -> Berlin HBf (tief), Berlin Hbf (S), ...
- if ( not $self->{nodes}{station} ) {
+ if ( not $station_node ) {
$self->{errstr}
= "The station '$opt{station}' has no associated timetable";
return $self;
}
+ $self->{station} = $opt{station};
+ $self->{station_code} = $station_node->getAttribute('eva');
+
my $dt_req = $self->{datetime}->clone;
for ( 1 .. 3 ) {
- $self->get_timetable( $self->{nodes}{station}->getAttribute('eva'),
- $dt_req );
+ $self->get_timetable( $self->{station_code}, $dt_req );
$dt_req->add( hours => 1 );
}
@@ -188,8 +191,8 @@ sub get_timetable {
}
if ( $res->is_error ) {
- $self->{warnstr} = 'Failed to fetch a schedule part: '
- . $res->status_line;
+ $self->{warnstr}
+ = 'Failed to fetch a schedule part: ' . $res->status_line;
return $self;
}
@@ -208,7 +211,7 @@ sub get_timetable {
sub get_realtime {
my ($self) = @_;
- my $eva = $self->{nodes}{station}->getAttribute('eva');
+ my $eva = $self->{station_code};
my $res = $self->{user_agent}->get( $self->{iris_base} . "/fchg/${eva}" );
if ( $self->{developer_mode} ) {
@@ -216,8 +219,8 @@ sub get_realtime {
}
if ( $res->is_error ) {
- $self->{warnstr} = 'Failed to fetch realtime data: '
- . $res->status_line;
+ $self->{warnstr}
+ = 'Failed to fetch realtime data: ' . $res->status_line;
return $self;
}
@@ -278,7 +281,7 @@ sub get_realtime {
type => $e_ref->getAttribute('c'), # S/ICE/ERB/...
line_no => $e_ref->getAttribute('l'), # 1 -> S1, ...
unknown_o => $e_ref->getAttribute('o'), # owner: 03/80/R2/...
- # TODO ps='a' -> rerouted and normally unscheduled train?
+ # TODO ps='a' -> rerouted and normally unscheduled train?
);
}
if ($e_ar) {
@@ -290,6 +293,7 @@ sub get_realtime {
sched_route_pre => $e_ar->getAttribute('ppth'),
status => $e_ar->getAttribute('cs'),
status_since => $e_ar->getAttribute('clt'),
+
# TODO ps='a' -> rerouted and normally unscheduled train?
);
}