98_svn.pm: execute svn commands from fhem commandline

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@11079 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/contrib/98_svn.pm

@@ -0,0 +1,20 @@
+# $Id$
+#
+package main;
+use strict;
+use warnings;
+
+sub CommandSvn;
+
+sub svn_Initialize($$) {
+  my %hash = (  Fn => "CommandSvn", Hlp => "[<command>],execute svn commands)" );
+  $cmds{svn} = \%hash;
+}
+
+sub CommandSvn {
+  my ($cl, $arg) = @_;
+  return qx(svn $arg);
+}
+
+
+1;