FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +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_HandleCurRequest($$);
sub CUL_HandleWriteQueue($);
sub CUL_Parse($$$$;$);
sub CUL_Parse($$$$@);
sub CUL_Read($);
sub CUL_ReadAnswer($$$$);
sub CUL_Ready($);
@ -617,13 +617,12 @@ CUL_WriteTranslate($$$)
$msg = substr($msg,6,4) . substr($msg,10);
} elsif($fn eq "cmd") { # internal command
$fn = "";
if($msg eq "speed100") {
$msg = "AR";
$fn = "AR";
} elsif($msg eq "speed10") {
$msg = "Ar";
$fn = "Ar";
} else { # by default rewrite init
$msg = $hash->{initString};
$fn = $hash->{initString};
}
} else {
@ -763,7 +762,7 @@ CUL_Read($)
}
sub
CUL_Parse($$$$;$)
CUL_Parse($$$$@)
{
my ($hash, $iohash, $name, $rmsg, $initstr) = @_;