From 61f8adb24919b19e48b4d74717e6b4a8fbd5f7b5 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 19 Apr 2015 09:51:22 +0200
Subject: IRIS: Add more debug output (indicate which URLs were requested)

---
 lib/Travel/Status/DE/IRIS.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/Travel/Status')

diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 34f7fc4..eb4ae10 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -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;
-- 
cgit v1.2.3