mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_fheminfo.pm: add featurelevel (Forum #44231)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9928 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-11-18 19:12:26 +00:00
parent e7bc445934
commit a3040658fc
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/98_fheminfo.pm
View File

@@ -75,6 +75,7 @@ CommandFheminfo($$)
my $branch = "DEVELOPMENT"; # UNUSED my $branch = "DEVELOPMENT"; # UNUSED
my $release = "5.7"; my $release = "5.7";
my $feature = $featurelevel ? $featurelevel : $release;
my $os = $^O; my $os = $^O;
my $arch = $Config{"archname"}; my $arch = $Config{"archname"};
my $perl = $^V; my $perl = $^V;
@@ -112,7 +113,8 @@ CommandFheminfo($$)
my $str; my $str;
$str = "Fhem info:\n"; $str = "Fhem info:\n";
$str .= sprintf(" Release%*s: %s\n",2," ",$release); $str .= sprintf(" Release%*s: %s FeatureLevel: %s\n",
2, " ", $release, $feature);
$str .= sprintf(" OS%*s: %s\n",7," ",$os); $str .= sprintf(" OS%*s: %s\n",7," ",$os);
$str .= sprintf(" Arch%*s: %s\n",5," ",$arch); $str .= sprintf(" Arch%*s: %s\n",5," ",$arch);
$str .= sprintf(" Perl%*s: %s\n",5," ",$perl); $str .= sprintf(" Perl%*s: %s\n",5," ",$perl);