Commit 61f8adb2 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

IRIS: Add more debug output (indicate which URLs were requested)

parent 683a1fb7

lib/Travel/Status/DE/IRIS.pm

+4 −0
Original line number Diff line number Diff line
@@ -173,6 +173,8 @@ sub get_timetable { 
	my $res = $ua->get(

		$dt->strftime( $self->{iris_base} . "/plan/${eva}/%y%m%d/%H" ) );



	#say 'GET ' . $dt->strftime( $self->{iris_base} . "/plan/${eva}/%y%m%d/%H" );



	if ( $res->is_error ) {

		$self->{warnstr} = 'Failed to fetch a schedule part: Server returned '

		  . $res->status_line;
@@ -199,6 +201,8 @@ sub get_realtime { 
	my $eva = $self->{nodes}{station}->getAttribute('eva');

	my $res = $self->{user_agent}->get( $self->{iris_base} . "/fchg/${eva}" );



	#say 'GET ' . $self->{iris_base} . "/fchg/${eva}";



	if ( $res->is_error ) {

		$self->{warnstr} = 'Failed to fetch realtime data: Server returned '

		  . $res->status_line;