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

# sub TCM_Define revised

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3474 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus-schauer 2013-07-22 13:58:27 +00:00
parent fd5c585ef5
commit 6373912943
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/00_TCM.pm
View File

@ -67,21 +67,21 @@ TCM_Define($$)
my $model = $a[2];
my $baseID;
return "wrong syntax. Correct is: define <name> TCM [120|310] ".
"{devicename[\@baudrate]|ip:port}"
return "TCM: wrong syntax, correct is: define <name> TCM [120|310] ".
"{devicename[\@baudrate]|ip:port|none}"
if(@a != 4 || $model !~ m/^(120|310)$/);
DevIo_CloseDev($hash);
my $dev = $a[3];
$hash->{DeviceName} = $dev;
$hash->{MODEL} = $model;
if($dev eq "none") {
Log 1, "$name device is none, commands will be echoed only";
Log 1, "TCM: $name device is none, commands will be echoed only";
$attr{$name}{dummy} = 1;
return undef;
}
$hash->{DeviceName} = $dev;
$hash->{MODEL} = $model;
my $ret = DevIo_OpenDev($hash, 0, undef);
my @getBaseID = ("get", "baseID");
if (TCM_Get($hash, @getBaseID) =~ /[Ff]{2}[\dA-Fa-f]{6}/ ) {