FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 04:36:02 +00:00
Code Issues Releases Wiki Activity

version: code optimization

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10477 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch 2016-01-12 21:16:15 +00:00
parent 274d427566
commit 939a5a7ff1
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_version.pm
View File

@ -29,9 +29,8 @@ CommandVersion($$)
next if(grep(/$mod_name/, @ret));
Log 4, "Looking for SVN Id in module $mod_name";
if($max < length($mod_name)) {
$max = length($mod_name)
}
$max = length($mod_name) if($max < length($mod_name))
my $line;
if(!open(FH, $fn)) {
@ -53,10 +52,8 @@ CommandVersion($$)
push @ret, $line;
}
@ret = map {/\$Id\: (\S+) (\S+) (.+?) \$/ ? sprintf("%-".$max."s %5d %s",$1,$2,$3) : $_}
@ret;
@ret = grep {(defined($param) ? $_ =~ /$param/ : 1)} @ret;
@ret = sort {version_sortModules($a, $b)} @ret;
@ret = map {/\$Id\: (\S+) (\S+) (.+?) \$/ ? sprintf("%-".$max."s %5d %s",$1,$2,$3) : $_} @ret;
@ret = sort {version_sortModules($a, $b)} grep {(defined($param) ? $_ =~ /$param/ : 1)} @ret;
return "no loaded modules found that match: $param" if($param && !@ret);
return sprintf("%-".$max."s %s","File","Rev Last Change\n\n").
trim(join("\n", grep (($_ =~ /^fhem.pl|\d\d_/), @ret))."\n\n".