From 937a8e071ae0af6baafd4868d006f9a9dfa0de92 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 3 Oct 2015 13:38:48 +0000
Subject: [PATCH] fhem.pl: version diff (Forum #41726)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 9e481d3dc..9b280ca6a 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2632,10 +2632,16 @@ CommandVersion($$)
 
   my @ret = ("# $cvsid");
   push @ret, cfgDB_svnId if(configDBUsed());
-  foreach my $m (sort keys %modules) {
-    next if(!$modules{$m}{LOADED} || $modules{$m}{ORDER} < 0);
+  my $max = 7 ; # length("fhem.pl") = 7
+  
+  foreach my $m (sort {uc($a) cmp uc($b)} keys %modules) {
+    next if(!$modules{$m}{LOADED} ||
+             $modules{$m}{ORDER} < 0 ||
+             ($param && $m !~ /$param/));
     Log 4, "Looking for SVN Id in module $m";
-    my $fn = "$attr{global}{modpath}/FHEM/".$modules{$m}{ORDER}."_$m.pm";
+    my $fn = "$attr{global}{modpath}/FHEM/".$modules{$m}{ORDER}."_$m.pm"; 
+    if($max < length($modules{$m}{ORDER}."_$m.pm"))
+    { $max = length($modules{$m}{ORDER}."_$m.pm") }
     if(!open(FH, $fn)) {
       my $ret = "$fn: $!";
       if(configDBUsed()){
@@ -2644,14 +2650,14 @@ CommandVersion($$)
       }
       push @ret, $ret;
     } else {
-      push @ret, map { chomp; $_ } grep(/# \$Id:/, <FH>);
+      push @ret, grep(/\$Id. [^\$\n\r].+\$/, <FH>);
     }
   }
-  if($param) {
-    return join("\n", grep /$param/, @ret);
-  } else {
-    return join("\n", @ret);
-  }
+  @ret = map {/\$Id. (\S+) (.+?)\$/ ? sprintf("%-".$max."s %s",$1,$2) : $_}
+        @ret; 
+  
+  return sprintf("%-".$max."s %s","File","Rev  Last Change\n\n").
+         join("\n", grep((defined($param) ? ($_ =~ /$param/) : 1), @ret));
 }
 
 #####################################