From 87ff20ba811e6ecfe28ecdbdd51a226920f62cbf Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 29 Nov 2015 15:06:52 +0000
Subject: [PATCH] fhem.pl: output the perl version in the startup message,
 terse version

git-svn-id: https://svn.fhem.de/fhem/trunk@10049 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 7aad1fcb1..3e8498c19 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -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()) {