FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

98_fheminfo.pm: add svn rev to system info

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14578 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-06-26 11:02:41 +00:00
parent 6833c23b21
commit 39de4ecdb5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/98_fheminfo.pm
View File

@ -78,6 +78,7 @@ sub _fi2_Count() {
$fhemInfo{'system'}{'os'} = $os; $fhemInfo{'system'}{'os'} = $os;
$fhemInfo{'system'}{'arch'} = $arch; $fhemInfo{'system'}{'arch'} = $arch;
$fhemInfo{'system'}{'perl'} = $perl; $fhemInfo{'system'}{'perl'} = $perl;
$fhemInfo{'system'}{'revision'} = _fi2_findRev();
foreach my $key ( keys %defs ) foreach my $key ( keys %defs )
{ {
@ -125,6 +126,7 @@ sub _fi2_TelnetTable($) {
$str .= "System Info\n"; $str .= "System Info\n";
$str .= sprintf(" Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'}); $str .= sprintf(" Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'});
$str .= sprintf(" FeatureLevel%*s: %s\n",0," ",$fhemInfo{'system'}{'feature'}); $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(" OS%*s: %s\n",11," ",$fhemInfo{'system'}{'os'});
$str .= sprintf(" Arch%*s: %s\n",9," ",$fhemInfo{'system'}{'arch'}); $str .= sprintf(" Arch%*s: %s\n",9," ",$fhemInfo{'system'}{'arch'});
$str .= sprintf(" Perl%*s: %s\n",9," ",$fhemInfo{'system'}{'perl'}); $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>System Info</td></tr>";
$result .= "<tr><td> </td><td>Release:</td><td>$fhemInfo{'system'}{'release'}</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>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>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>Arch:</td><td>$fhemInfo{'system'}{'arch'}</td></tr>";
$result .= "<tr><td> </td><td>Perl:</td><td>$fhemInfo{'system'}{'perl'}</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); 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; 1;
=pod =pod