From 637391294301846bc9079bc96bd742292659afdf Mon Sep 17 00:00:00 2001
From: klaus-schauer <>
Date: Mon, 22 Jul 2013 13:58:27 +0000
Subject: [PATCH] # sub TCM_Define revised

git-svn-id: https://svn.fhem.de/fhem/trunk@3474 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index fa7680db5..8287199ea 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -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}/ ) {