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

CUL: Speed patches from Martin

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5279 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-03-22 08:22:35 +00:00
parent 398e4fbfa9
commit 0476e5ea61
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/00_CUL.pm
View File

@ -25,7 +25,7 @@ my %gets = ( # Name, Data to send to the CUL, Regexp for the answer
"raw" => ["", '.*'],
"uptime" => ["t", '^[0-9A-F]{8}[\r\n]*$' ],
"fhtbuf" => ["T03", '^[0-9A-F]+[\r\n]*$' ],
"cmds" => ["?", '.*Use one of[ 0-9A-Za-z]+[\r\n]*$' ],
"cmds" => ["?", '.*Use one of[ \*0-9A-Za-z]+[\r\n]*$' ],
"credit10ms" => [ "X", '^.. *\d*[\r\n]*$' ],
);
@ -601,8 +601,6 @@ CUL_WriteTranslate($$$)
{
my ($hash,$fn,$msg) = @_;
my $name = $hash->{NAME};
###################
# Rewrite message from FHZ -> CUL
if(length($fn) <= 1) { # CUL Native
@ -618,8 +616,18 @@ CUL_WriteTranslate($$$)
$fn = "T";
$msg = substr($msg,6,4) . substr($msg,10);
} elsif($fn eq "cmd") { # internal command
$fn = "";
if($msg eq "speed100") {
$msg = "AR";
} elsif($msg eq "speed10") {
$msg = "Ar";
} else { # by default rewrite init
$msg = $hash->{initString};
}
} else {
Log3 $name, 2, "CUL cannot translate $fn $msg";
Log3 $hash, 2, "CUL cannot translate $fn $msg";
return (undef, undef);
}
return ($fn, $msg);