From 39de4ecdb559c06fde39f6db2049010f00d95ab9 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Mon, 26 Jun 2017 11:02:41 +0000
Subject: [PATCH] 98_fheminfo.pm: add svn rev to system info

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

diff --git a/fhem/FHEM/98_fheminfo.pm b/fhem/FHEM/98_fheminfo.pm
index 3b63b38e8..ac7474fdb 100644
--- a/fhem/FHEM/98_fheminfo.pm
+++ b/fhem/FHEM/98_fheminfo.pm
@@ -78,6 +78,7 @@ sub _fi2_Count() {
    $fhemInfo{'system'}{'os'}       = $os;
    $fhemInfo{'system'}{'arch'}     = $arch;
    $fhemInfo{'system'}{'perl'}     = $perl;
+   $fhemInfo{'system'}{'revision'} = _fi2_findRev();
 
    foreach my $key ( keys %defs )
    {
@@ -125,6 +126,7 @@ sub _fi2_TelnetTable($) {
   $str .= "System Info\n";
   $str .= sprintf("  Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'});
   $str .= sprintf("  FeatureLevel%*s: %s\n",0," ",$fhemInfo{'system'}{'feature'});
+  $str .= sprintf("  SVN revision%*s: %s\n",0," ",$fhemInfo{'system'}{'revision'});
   $str .= sprintf("  OS%*s: %s\n",11," ",$fhemInfo{'system'}{'os'});
   $str .= sprintf("  Arch%*s: %s\n",9," ",$fhemInfo{'system'}{'arch'});
   $str .= sprintf("  Perl%*s: %s\n",9," ",$fhemInfo{'system'}{'perl'});
@@ -153,6 +155,7 @@ sub _fi2_HtmlTable($) {
       $result .= "<tr><td>System Info</td></tr>";
       $result .= "<tr><td> </td><td>Release:</td><td>$fhemInfo{'system'}{'release'}</td></tr>";
       $result .= "<tr><td> </td><td>FeatureLevel:</td><td>$fhemInfo{'system'}{'feature'}</td></tr>";
+      $result .= "<tr><td> </td><td>SVN rev:</td><td>$fhemInfo{'system'}{'revision'}</td></tr>";
       $result .= "<tr><td> </td><td>OS:</td><td>$fhemInfo{'system'}{'os'}</td></tr>";
       $result .= "<tr><td> </td><td>Arch:</td><td>$fhemInfo{'system'}{'arch'}</td></tr>";
       $result .= "<tr><td> </td><td>Perl:</td><td>$fhemInfo{'system'}{'perl'}</td></tr>";
@@ -195,6 +198,13 @@ sub _fi2_Div($$) {
   return (int($p1/$p2), $p1 % $p2);
 }
 
+sub _fi2_findRev {
+   my ($err, @content) = FileRead({FileName => './controls_fhem.txt', ForceType => "file"});
+   return if $err;
+   my (undef,$rev) = split (/ /,$content[0]);
+   return $rev;
+}
+
 1;
 
 =pod