Small EM changes

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@70 2b470e98-0d58-463d-a4d8-8e2adae1ed80

FHEM/60_EM.pm

@@ -237,7 +237,7 @@ EmGetData($$)
   $serport->stopbits(1);
   $serport->handshake('none');
 
-  Log 5, "EM: Sending " . unpack('H*', $d) . "\n";
+  Log 4, "EM: Sending " . unpack('H*', $d) . "\n";
 
   my $rm = "EM timeout reading the answer";
   for(my $rep = 0; $rep < 3; $rep++) {

FHEM/61_EMWZ.pm

@@ -89,6 +89,7 @@ EMWZ_GetStatus($)
   }
 
   $hash->{STATE} = "$cur_power kWh";
+  Log GetLogLevel($name,4), "EMWZ $name: $cur_power kWh / $vals{energy}";
 
   return $hash->{STATE};
 }

FHEM/62_EMEM.pm

@@ -65,6 +65,7 @@ EMEM_GetStatus($)
   $vals{"alarm_PA"} = w($d,45) . " Watt";
   $vals{"price_CF"} = sprintf("%.3f", w($d,47)/10000);
 
+
   my $tn = TimeNow();
   my $idx = 0;
   foreach my $k (keys %vals) {
@@ -79,6 +80,7 @@ EMEM_GetStatus($)
   }
 
   $hash->{STATE} = "$cur_power kWh";
+  Log GetLogLevel($name,4), "EMEM $name: $cur_power kWh / $vals{energy} kWh/h";
 
   return $hash->{STATE};
 }

HISTORY

@@ -107,3 +107,6 @@
 
 - Pest, Mon May 29 00:07:00 MEST 2007
   - check-in changes of 60_EM.pm to make EMEM work.
+
+- Mon Jun  4 08:23:43 MEST 2007
+  - Small changes for EM logging