--- a/fetch_weather.pl	Mon Jan 19 17:51:05 2015 +0200
+++ b/fetch_weather.pl	Mon Jan 19 17:51:18 2015 +0200
@@ -276,6 +276,24 @@
   return $tmp;
 }
 
+my %th_cloud_states =
+(
+  0 => "selkeää",
+  7 => "melkein pilvistä",
+  8 => "pilvistä",
+);
+
+sub translate_clouds($)
+{
+  my $tmp = $_[0];
+  return "" if ($tmp eq "NaN" || $tmp eq "");
+  foreach my $n (sort { $a <=> $b } keys %th_cloud_states)
+  {
+    return $th_cloud_states{$n} if ($tmp == $n);
+  }
+  return $tmp;
+}
+
 
 sub plonk_data($)
 {
@@ -536,7 +554,7 @@
 
                 plonk_data($flol->{"humidity"}),
                 plonk_data($flol->{"windspeedms"}),
-                plonk_data($flol->{"totalcloudcover"}),
+                translate_clouds(plonk_data($flol->{"totalcloudcover"})),
               ];
             }
           }