fhem.pl $hms added for perl evals

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3827 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/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};