From fd6970a2624720ebb872b11e72b8d103c971c20a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 17 Jan 2020 11:30:21 +0000
Subject: [PATCH] 99_Utils.pm: Svn_GetFile added (Forum #97989)

git-svn-id: https://svn.fhem.de/fhem/trunk@21000 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/99_Utils.pm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/fhem/FHEM/99_Utils.pm b/fhem/FHEM/99_Utils.pm
index e20efc722..0081da81e 100644
--- a/fhem/FHEM/99_Utils.pm
+++ b/fhem/FHEM/99_Utils.pm
@@ -264,6 +264,31 @@ sortTopicNum(@)
   return @sorted;
 }
 
+sub
+Svn_GetFile($$)
+{
+  my ($from, $to) = @_;
+  require HttpUtils;
+  return "Missing argument from or to" if(!$from || !$to);
+  return "Forbidden characters in from/to"
+                  if($from =~ m/\.\./ || $to =~ m/\.\./);
+  HttpUtils_NonblockingGet({
+    url=>"https://svn.fhem.de/trac/browser/trunk/fhem/$from?format=txt",
+    callback=>sub($$$){ 
+      if($_[1]) {
+        Log 1, "ERROR Svn_GetFile $from: $_[1]";
+        return;
+      }
+      if(!open(FH,">$to")) {
+        Log 1, "ERROR Svn_GetFile $to: $!";
+        return;
+      }
+      print FH $_[2];
+      close(FH);
+      Log 1, "SVN download of $from to $to finished";
+    }});
+  return "Download started, check the FHEM-log";
+}
 
 1;
 
@@ -358,6 +383,15 @@ sortTopicNum(@)
       (Forum #98578)
       </li></br>
 
+    <li><b>Svn_GetFile(from, to)</b><br>
+      Retrieve a file diretly from the fhem.de SVN server.<br>
+      Example:
+      <ul>
+        <code>{ Svn_GetFile("contrib/86_FS10.pm", "FHEM/86_FS10.pm") }</code>
+      </ul>
+      
+      </li></br>
+
   </ul>
 </ul>
 =end html