From d2384835bb5274509a3e53c6b9f26964f27134de Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 8 Jan 2023 12:26:52 +0000
Subject: [PATCH] contrib/zwave_configconvert.pl: add "unpack" capability

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

diff --git a/fhem/contrib/zwave_configconvert.pl b/fhem/contrib/zwave_configconvert.pl
index 110720a31..fa7b12d3d 100644
--- a/fhem/contrib/zwave_configconvert.pl
+++ b/fhem/contrib/zwave_configconvert.pl
@@ -20,6 +20,9 @@ if($ARGV[0] eq "-d") {
     my $f = $1;
     next if(-f "config/$f");
     print("Creating: config/$f\n");
+    my $dir = $f;
+    $dir =~ s,/[^/]*$,,;
+    `mkdir -p config/$dir`;
     open(FH, ">config/$f") || die("open config/$f: $!\n");
     print FH $l;
     while($l = <STDIN>) {
@@ -33,7 +36,7 @@ if($ARGV[0] eq "-d") {
 
 print '<?xml version="1.0" encoding="utf-8"?>', "\n";
 print "<ProductList>\n";
-foreach my $file (`find $ARGV[0] -name \*.xml`) {
+foreach my $file (`find $ARGV[0] -name \\*.xml`) {
   chomp($file);
   my $name = $file;
   $name =~ s+.*config/++;