From 048e5a172c4941735d11e002474775652a25da5d Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 31 Aug 2013 12:56:19 +0000
Subject: [PATCH] fhem.pl $hms added for perl evals

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3827 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fhem.pl b/fhem.pl
index 0f4843faf..2f8564fe8 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -735,6 +735,7 @@ AnalyzePerlCommand($$)
     $value{$d} = $defs{$d}{STATE}
   }
   my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;
+  my $hms = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
   my $we = (($wday==0 || $wday==6) ? 1 : 0);
   if(!$we) {
     my $h2we = $attr{global}{holiday2we};