From 1326aa0a345cc1e81f71c6f776791b65421a6b42 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <marko.oldenburg@cooltux.net>
Date: Wed, 17 Jun 2020 16:58:14 +0200
Subject: [PATCH] add support for backupToRestore

---
 98_backup.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/98_backup.pm b/98_backup.pm
index 279a746..b14eee5 100644
--- a/98_backup.pm
+++ b/98_backup.pm
@@ -64,6 +64,7 @@ BEGIN {
           InternalVal
           gettimeofday
           ResolveDateWildcards
+          readingsSingleUpdate
           attr
           Log
           fhemForked
@@ -119,8 +120,17 @@ sub CommandBackup {
     @all{@pathname}=1;
     @pathname = keys %all;
 
-    # create archiv
+    ### create archiv
     $ret = createArchiv( $backupdir, $cl, $byUpdate, $dateTime );
+    
+    ### support for backupToStorage Modul
+    readingsSingleUpdate($defs{join(' ',
+        devspec2array('TYPE=backupToStorage'))}
+        , 'fhemBackupFile'
+        , "$backupdir/FHEM-$dateTime.tar.gz"
+        , 0
+    )
+        if ( devspec2array('TYPE=backupToStorage') > 0 );
 
     @pathname = [];
     undef @pathname;