From: gregor herrmann <gregor@toastfreeware.priv.at>
Date: Thu, 10 May 2018 19:10:31 +0000 (+0200)
Subject: guard (debug) output with if 0/1
X-Git-Url: https://git.toastfreeware.priv.at/chrisu/seepark.git/commitdiff_plain/255bfba6d39838d2ae234cac2c6ee01035a01cee

guard (debug) output with if 0/1
---

diff --git a/wetter.at.pl b/wetter.at.pl
index ed28fe0..7dd85ac 100755
--- a/wetter.at.pl
+++ b/wetter.at.pl
@@ -46,20 +46,22 @@ my ( $rain, $wind )
     = $res->{boxNow}->{rain} =~ m|Niederschlag: (.+)Wind: (.+)|;
 $weather = decode( "utf8", $weather );
 
+# debug
+if (0) {
+    say 'Wetter in Obsteig (von wetter.at)';
+    say '---------------------------------';
+    say "Datum:\t$date";
+    say "Zeit:\t$time";
+    say "Sonne↑:\t$sunup";
+    say "Sonne↓:\t$sundown";
+    say "Temp:\t$temp°C";
+    say "Nied.:\t$rain";
+    say "Wind:\t$wind";
+    say "Wetter:\t$weather";
+    say "Bewölk:\t$clouds%";
+    say '';
+}
 
-say 'Wetter in Obsteig (von wetter.at)';
-say '---------------------------------';
-say "Datum:\t$date";
-say "Zeit:\t$time";
-say "Sonne↑:\t$sunup";
-say "Sonne↓:\t$sundown";
-say "Temp:\t$temp°C";
-say "Nied.:\t$rain";
-say "Wind:\t$wind";
-say "Wetter:\t$weather";
-say "Bewölk:\t$clouds%";
-
-say '';
 say "$date;$time;$sunup;$sundown;$temp;$rain;$wind;$weather;$clouds";
 
 __END__