From c99ba0bc2b1a9de2c179fea01a33ec2cac336adb Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 25 Oct 2015 10:27:29 +0000
Subject: [PATCH] 98_logProxy.pm: added logProxy_hms2sec and logProxy_isDay

git-svn-id: https://svn.fhem.de/fhem/trunk@9653 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_logProxy.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/fhem/FHEM/98_logProxy.pm b/fhem/FHEM/98_logProxy.pm
index 5c817181f..b4990b41b 100644
--- a/fhem/FHEM/98_logProxy.pm
+++ b/fhem/FHEM/98_logProxy.pm
@@ -353,6 +353,27 @@ logProxy_WeekProfile2Plot($$$;$)
   return ($ret,$min,$max,$prev_value);
 }
 
+sub logProxy_hms2sec($){
+  my ($h,$m,$s) = split(":", shift);
+  $m = 0 if(!$m);
+  $s = 0 if(!$s);
+  my $t  = $s;
+     $t += $m * 60;
+     $t += $h * 60*60;
+  return ($t)
+}
+sub logProxy_isDay($) {
+  my ($sec) = @_;
+
+  my $sr = logProxy_hms2sec(sunrise_abs_dat($sec));
+  my $ss = logProxy_hms2sec(sunset_abs_dat($sec));
+
+  my ($s,$m,$h) = localtime($sec);
+  my $cur = logProxy_hms2sec( "$h:$m:$s" );
+
+  return $cur > $sr && $cur < $ss;
+}
+
 sub logProxy_hms2dec($){
   my ($h,$m,$s) = split(":", shift);
   $m = 0 if(!$m);