From 88fb1bcdc47a98b8c22b06d4b9d887503abdcb79 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 10 Mar 2011 19:02:49 +0000
Subject: [PATCH] Change naming schema for unknown devices

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 11f855a17..366035e5d 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -195,11 +195,19 @@ CUL_HM_Parse($$)
   if(!$shash) {
     my $sname = "CUL_HM_$src";
     if($lcm =~ m/1A8.00/) {
+
+      # Prefer subType over model to make autocreate easier.
+      # besides the model names are quite cryptic
       my $model = substr($p, 2, 4);
-      if($culHmModel{$model}) {
-        $sname = $culHmModel{$model} . "_" . $src;
+      my $stc = substr($p, 26, 2);        # subTypeCode
+      if($culHmDevProps{$stc}) {
+        $sname = "CUL_HM_".$culHmDevProps{$stc}{st} . "_" . $src;
+
+      } elsif($culHmModel{$model}) {
+        $sname = "CUL_HM_".$culHmModel{$model} . "_" . $src;
         $sname =~ s/-/_/g;
       }
+
     }
     Log 3, "CUL_HM Unknown device $sname, please define it";
     return "UNDEFINED $sname CUL_HM $src $msg";