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 .= "System Info"; $result .= " Release:$fhemInfo{'system'}{'release'}"; $result .= " FeatureLevel:$fhemInfo{'system'}{'feature'}"; + $result .= " SVN rev:$fhemInfo{'system'}{'revision'}"; $result .= " OS:$fhemInfo{'system'}{'os'}"; $result .= " Arch:$fhemInfo{'system'}{'arch'}"; $result .= " Perl:$fhemInfo{'system'}{'perl'}"; @@ -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