Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove debugging

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@892 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-04-22 08:16:02 +00:00
parent 60f78839f9
commit 07e5e09944
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
FHEM/00_KM271.pm
View File

@ -302,7 +302,7 @@ KM271_Read($)
return; return;
} }
if($buf eq "10") { if($buf eq "10") {
if($hash->{DATASENT}) { if($hash->{DATASENT}) {
delete($hash->{DATASENT}); delete($hash->{DATASENT});
KM271_SimpleWrite($hash, "02") if(@{$hash->{SENDBUFFER}}); KM271_SimpleWrite($hash, "02") if(@{$hash->{SENDBUFFER}});

3
FHEM/10_CUL_HM.pm
View File

@ -244,7 +244,6 @@ CUL_HM_Parse($$)
if($cmd eq "8002") { # Ack if($cmd eq "8002") { # Ack
if($shash->{cmdStack}) { # Send next msg from the stack if($shash->{cmdStack}) { # Send next msg from the stack
Log 1, "PopCmd:" . $shash->{cmdStack}->[0];
CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1); CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1);
delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}}); delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}});
$shash->{lastStackAck} = 1; $shash->{lastStackAck} = 1;
@ -846,7 +845,7 @@ CUL_HM_PushCmdStack($$)
my ($hash, $cmd) = @_; my ($hash, $cmd) = @_;
my @arr = (); my @arr = ();
$hash->{cmdStack} = \@arr if(!$hash->{cmdStack}); $hash->{cmdStack} = \@arr if(!$hash->{cmdStack});
Log 1, "PushStack: $cmd"; #Log 1, "PushStack: $cmd";
push(@{$hash->{cmdStack}}, $cmd); push(@{$hash->{cmdStack}}, $cmd);
} }

2
FHEM/92_FileLog.pm
View File

@ -250,7 +250,6 @@ FileLog_Get($@)
my $col = $h->{col}; my $col = $h->{col};
my $t = $h->{type}; my $t = $h->{type};
my $val = undef; my $val = undef;
my $dte = $fld[0]; my $dte = $fld[0];
@ -290,6 +289,7 @@ FileLog_Get($@)
$val = $1 if($fld[$col] =~ m/^(\d+).*/o); $val = $1 if($fld[$col] =~ m/^(\d+).*/o);
} else { # evaluate } else { # evaluate
$val = eval($h->{fn}); $val = eval($h->{fn});
} }