From 5985111921b71a8c4e4a183b42b8cf6db4dd56e7 Mon Sep 17 00:00:00 2001
From: vuffiraa <>
Date: Sun, 3 Feb 2019 15:10:54 +0000
Subject: [PATCH] 70_BOTVAC.pm: made vendor name case insensitive

git-svn-id: https://svn.fhem.de/fhem/trunk@18492 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED           |  1 +
 fhem/FHEM/70_BOTVAC.pm | 10 +++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 074dbd698..2609688db 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  70_BOTVAC: vendor name is no longer case sensitive
   - feature: 49_SSCam: V8.8.0, send snapshots integrated by telegram
   - change:  93_DbRep: running though tableCurrentFillup if database is closed
   - new:     70_BOTVAC: initial release
diff --git a/fhem/FHEM/70_BOTVAC.pm b/fhem/FHEM/70_BOTVAC.pm
index 828bf6524..ce314d4f8 100755
--- a/fhem/FHEM/70_BOTVAC.pm
+++ b/fhem/FHEM/70_BOTVAC.pm
@@ -125,19 +125,19 @@ sub Define($$) {
     my $interval = 85;
 
     if (defined($a[3])) {
-      if ($a[3] =~ /^(neato|vorwerk)$/) {
-        $vendor = $a[3];
+      if (lc($a[3]) =~ /^(neato|vorwerk)$/) {
+        $vendor = $1;
         $interval = $a[4] if (defined($a[4]));
       } elsif ($a[3] =~ /^[0-9]+$/ and not defined($a[4])) {
         $interval = $a[3];
       } else {
         StorePassword($hash, $a[3]);
         if (defined($a[4])) {
-          if ($a[4] =~ /^(neato|vorwerk)$/) {
-            $vendor = $a[4];
+          if (lc($a[4]) =~ /^(neato|vorwerk)$/) {
+            $vendor = $1;
             $interval = $a[5] if (defined($a[5]));
           } else {
-            $interval = $a[5];
+            $interval = $a[4];
           }
         }
       }