FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 11:16:36 +00:00
Code Issues Releases Wiki Activity

CUL: speed changes by Martin

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5286 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-03-22 11:36:32 +00:00
parent 9dc8f5c104
commit 9cf6f49d36
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/00_CUL.pm
View File

@ -10,7 +10,7 @@ sub CUL_Attr(@);
sub CUL_Clear($); sub CUL_Clear($);
sub CUL_HandleCurRequest($$); sub CUL_HandleCurRequest($$);
sub CUL_HandleWriteQueue($); sub CUL_HandleWriteQueue($);
sub CUL_Parse($$$$;$); sub CUL_Parse($$$$@);
sub CUL_Read($); sub CUL_Read($);
sub CUL_ReadAnswer($$$$); sub CUL_ReadAnswer($$$$);
sub CUL_Ready($); sub CUL_Ready($);
@ -617,13 +617,12 @@ CUL_WriteTranslate($$$)
$msg = substr($msg,6,4) . substr($msg,10); $msg = substr($msg,6,4) . substr($msg,10);
} elsif($fn eq "cmd") { # internal command } elsif($fn eq "cmd") { # internal command
$fn = "";
if($msg eq "speed100") { if($msg eq "speed100") {
$msg = "AR"; $fn = "AR";
} elsif($msg eq "speed10") { } elsif($msg eq "speed10") {
$msg = "Ar"; $fn = "Ar";
} else { # by default rewrite init } else { # by default rewrite init
$msg = $hash->{initString}; $fn = $hash->{initString};
} }
} else { } else {
@ -763,7 +762,7 @@ CUL_Read($)
} }
sub sub
CUL_Parse($$$$;$) CUL_Parse($$$$@)
{ {
my ($hash, $iohash, $name, $rmsg, $initstr) = @_; my ($hash, $iohash, $name, $rmsg, $initstr) = @_;