FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-02 19:15:31 +00:00
Code Issues Releases Wiki Activity

fhem.pl: output the perl version in the startup message, terse version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10049 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-11-29 15:06:52 +00:00
parent 8bafc0241f
commit 87ff20ba81
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/fhem.pl
View File

@ -571,10 +571,10 @@ if($motd eq "$sc_text\n\n") {
}
}
my $osuser = "os $^O, user ".(getlogin || getpwuid($<) || "unknown");
my $osuser = "os:$^O user:".(getlogin || getpwuid($<) || "unknown");
Log 0, "Featurelevel: $featurelevel";
Log 0, "Server started with ".int(keys %defs).
" defined entities (version $attr{global}{version}, $osuser, pid $$)";
" defined entities ($attr{global}{version} perl:$] $osuser pid:$$)";
################################################
# Main Loop
@ -2319,7 +2319,8 @@ GlobalAttr($$$$)
opendir(DH, $modpath) || return "Can't read $modpath: $!";
push @INC, $modpath if(!grep(/\Q$modpath\E/, @INC));
$attr{global}{version} = $cvsid;
$cvsid =~ m/(fhem.pl) (\d+) (\d+-\d+-\d+)/;
$attr{global}{version} = "$1:$2/$3";
my $counter = 0;
if(configDBUsed()) {