From f777e12ef62dd595e6d556ec9e9c1083aaf349c2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 9 Aug 2019 20:22:43 +0000
Subject: [PATCH] zwave_configconvert.pl: patch from krikan (Forum #100280)

git-svn-id: https://svn.fhem.de/fhem/trunk@19973 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/zwave_configconvert.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/fhem/contrib/zwave_configconvert.pl b/fhem/contrib/zwave_configconvert.pl
index 99cd3c4db..110720a31 100644
--- a/fhem/contrib/zwave_configconvert.pl
+++ b/fhem/contrib/zwave_configconvert.pl
@@ -43,7 +43,8 @@ foreach my $file (`find $ARGV[0] -name \*.xml`) {
   while(my $l = <FH>) {
     next if($l =~ m/^<\?xml/);
     chomp($l);
-    $l =~ s/^<Product.*xmlns.*/<Product sourceFile="$name">/;
+    $l =~ s/<!--.*-->//g;
+    $l =~ s/^(.*)<Product.*xmlns.*/$1<Product sourceFile="$name">/;
     $l =~ s/\r//g;
     $l =~ s/\t/  /g;
     #$l =~ s/^ *//g;
@@ -52,6 +53,14 @@ foreach my $file (`find $ARGV[0] -name \*.xml`) {
     if($l !~ m/>$/ || $l =~ m/^\s*<Help>\s*$/) { $buffer .= " ".$l; next; }
     if($buffer && $l =~ m/>$/) { $l = "$buffer $l"; $buffer=""; }
     $l =~ s/<!--.*-->//g;
+    # $l =~ s/<MetaData.*<\/MetaData>//g;
+    # $l =~ s/<MetaDataItem.*<\/MetaDataItem>//g;
+    # $l =~ s/<Entry.author.*<\/Entry>//g;
+    # $l =~ s/<ChangeLog.*<\/ChangeLog>//g;
+    # $l =~ s/<MetaData>//g;
+    # $l =~ s/<\/MetaData>//g;
+    # $l =~ s/<ChangeLog>//g;
+    # $l =~ s/<\/ChangeLog>//g;
     $l =~ s/ *$//g;
     print $l,"\n" if($l);
   }