mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
83ba7847c1
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@11026 2b470e98-0d58-463d-a4d8-8e2adae1ed80
210 lines
7.1 KiB
Perl
Executable File
210 lines
7.1 KiB
Perl
Executable File
# $Id$
|
|
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub version_Initialize($$) {
|
|
|
|
$cmds{version} = { Fn => "CommandVersion",
|
|
Hlp=>"[<filter>|revision] [noheader],print SVN version of loaded modules"};
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
CommandVersion($$)
|
|
{
|
|
my ($cl, $param) = @_;
|
|
|
|
my $noheader = ($param =~ s/(?:^\s*|\s+)noheader\s*$//);
|
|
|
|
eval { "test" =~ /$param/ };
|
|
return "invalid filter regexp" if($@);
|
|
|
|
my @ret;
|
|
my $max = 0;
|
|
my $modpath = (exists($attr{global}{modpath}) ? $attr{global}{modpath} : "");
|
|
my @files = map {$INC{$_}} keys %INC;
|
|
push @files, $0; # path to fhem.pl
|
|
push @ret, cfgDB_svnId() if(configDBUsed());
|
|
@files = () if($param && $param eq "revision");
|
|
foreach my $fn (@files) {
|
|
next unless($fn =~ /^(?:$modpath.?)?FHEM/ or $fn =~ /fhem.pl$/); # configDB
|
|
my $mod_name = ($fn=~ /[\/\\]([^\/\\]+)$/ ? $1 : $fn);
|
|
next if($param ne "" && $mod_name !~ /$param/);
|
|
next if(grep(/$mod_name/, @ret));
|
|
Log 4, "Looking for SVN Id in module $mod_name";
|
|
|
|
$max = length($mod_name) if($max < length($mod_name));
|
|
|
|
my $line;
|
|
|
|
if(!open(FH, $fn)) {
|
|
$line = "$fn: $!";
|
|
if(configDBUsed()){
|
|
Log 4, "Looking for module $mod_name in configDB to find SVN Id";
|
|
$line = cfgDB_Fileversion($fn,$line);
|
|
}
|
|
} else {
|
|
while(<FH>) {
|
|
chomp;
|
|
if(/#.*\$Id\:[^\$\n\r].+\$/) {
|
|
$line = $_;
|
|
last;
|
|
}
|
|
}
|
|
close(FH);
|
|
}
|
|
$line = "No Id found for $mod_name" unless($line);
|
|
push @ret, $line;
|
|
}
|
|
|
|
my $fhem_revision = version_getRevFromControls();
|
|
|
|
$fhem_revision = "Latest Revision: $fhem_revision\n\n" if(defined($fhem_revision) && !$noheader);
|
|
|
|
@ret = map {/\$Id\: (\S+?) (\d+?) (\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}Z \S+?) \$/ ? sprintf("%-".$max."s %5d %s",$1,$2,$3) : $_} @ret;
|
|
@ret = sort {version_sortModules($a, $b)} grep {($param ne "" ? /$param/ : 1)} @ret;
|
|
return "no loaded modules found that match: $param" if($param ne "" && $param ne "revision" && !@ret);
|
|
return (((!$param && !$noheader) || $param eq "revision") ? $fhem_revision : "").
|
|
($noheader || !@ret ? "" : sprintf("%-".$max."s %s","File","Rev Last Change\n\n")).
|
|
trim(join("\n", grep (($_ =~ /^fhem.pl|\d\d_/), @ret))."\n\n".
|
|
join("\n", grep (($_ !~ /^fhem.pl|\d\d_/), @ret))
|
|
);
|
|
}
|
|
|
|
#####################################
|
|
sub version_sortModules($$)
|
|
{
|
|
my ($a, $b) = @_;
|
|
|
|
$a =~ s/^(?:No Id found for |#\s*\$Id\: )//;
|
|
$b =~ s/^(?:No Id found for |#\s*\$Id\: )//;
|
|
|
|
my @a_vals = split(' ', $a);
|
|
my @b_vals = split(' ', $b);
|
|
|
|
# fhem.pl always at top
|
|
return -1 if($a_vals[0] eq "fhem.pl");
|
|
return 1 if($b_vals[0] eq "fhem.pl");
|
|
|
|
$a_vals[0] =~ s/^\d\d_//;
|
|
$b_vals[0] =~ s/^\d\d_//;
|
|
|
|
return uc($a_vals[0]) cmp uc($b_vals[0]);
|
|
}
|
|
|
|
sub version_getRevFromControls(;$)
|
|
{
|
|
my ($name) = @_;
|
|
$name = "fhem" unless(defined($name));
|
|
my $control_file = AttrVal("global","modpath",".")."/FHEM/controls_$name.txt";
|
|
my $revision;
|
|
|
|
if(open(FH, $control_file)) {
|
|
while(<FH>) {
|
|
chomp;
|
|
if(/^REV\s+(\S+.*)$/) {
|
|
$revision = $1;
|
|
last;
|
|
}
|
|
}
|
|
close(FH);
|
|
}
|
|
return $revision;
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item command
|
|
=begin html
|
|
|
|
<a name="version"></a>
|
|
<h3>version</h3>
|
|
<ul>
|
|
<code>version [<filter>|revision] [noheader]</code>
|
|
<br><br>
|
|
List the version of fhem.pl and all loaded modules. The optional parameter
|
|
can be used to filter the ouput. The special filter value "revision" shows
|
|
only the latest revision number since the last update.<br><br>
|
|
The optional flag <code>noheader</code> disables the output of the header lines (Latest Revision, File, Rev, Last Change).
|
|
<br><br>
|
|
Example output of <code>version</code>:
|
|
<ul>
|
|
<code><br>
|
|
Latest Revision: 10814<br><br>
|
|
File Rev Last Change<br><br>
|
|
fhem.pl 10769 2016-02-08 12:11:51Z rudolfkoenig<br>
|
|
90_at.pm 10048 2015-11-29 14:51:40Z rudolfkoenig<br>
|
|
98_autocreate.pm 10165 2015-12-13 11:14:15Z rudolfkoenig<br>
|
|
00_CUL.pm 10146 2015-12-10 10:17:42Z rudolfkoenig<br>
|
|
10_CUL_HM.pm 10411 2016-01-08 15:18:17Z martinp876<br>
|
|
...
|
|
</code>
|
|
</ul>
|
|
<br>
|
|
Example output of <code>version fhem.pl</code>:
|
|
<ul>
|
|
<code><br>
|
|
File Rev Last Change<br><br>
|
|
fhem.pl 10397 2016-01-07 08:36:49Z rudolfkoenig<br>
|
|
</code>
|
|
</ul>
|
|
<br>
|
|
Example output of <code>version fhem.pl noheader</code>:
|
|
<ul>
|
|
<code><br>
|
|
fhem.pl 10397 2016-01-07 08:36:49Z rudolfkoenig<br>
|
|
</code>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="version"></a>
|
|
<h3>version</h3>
|
|
<ul>
|
|
<code>version [<filter>|revision] [noheader]</code>
|
|
<br><br>
|
|
Gibt die Versionsinformation von fhem.pl und aller geladenen Module aus. Mit
|
|
dem optionalen Parameter kann man die Ausgabe filtern. Der spezielle Filterwert "revision"
|
|
zeigt nur die aktuellste Revisions-Nummer seit dem letzten Update an.
|
|
<br><br>
|
|
Der optionale Parameter <code>noheader</code> unterdrückt die Ausgabe des Listenkopfs (Latest Revision, File, Rev, Last Change).
|
|
<br><br>
|
|
Beispiel der Ausgabe von <code>version</code>:
|
|
<ul>
|
|
<code><br>
|
|
Latest Revision: 10814<br><br>
|
|
File Rev Last Change<br><br>
|
|
fhem.pl 10769 2016-02-08 12:11:51Z rudolfkoenig<br>
|
|
90_at.pm 10048 2015-11-29 14:51:40Z rudolfkoenig<br>
|
|
98_autocreate.pm 10165 2015-12-13 11:14:15Z rudolfkoenig<br>
|
|
00_CUL.pm 10146 2015-12-10 10:17:42Z rudolfkoenig<br>
|
|
10_CUL_HM.pm 10411 2016-01-08 15:18:17Z martinp876<br>
|
|
...
|
|
</code>
|
|
</ul>
|
|
<br>
|
|
Beispiel der Ausgabe von <code>version fhem</code>:
|
|
<ul>
|
|
<code><br>
|
|
File Rev Last Change<br><br>
|
|
fhem.pl 10769 2016-02-08 12:11:51Z rudolfkoenig<br>
|
|
</code>
|
|
</ul>
|
|
<br>
|
|
Beispiel der Ausgabe von <code>version fhem.pl noheader</code>:
|
|
<ul>
|
|
<code><br>
|
|
fhem.pl 10769 2016-02-08 12:11:51Z rudolfkoenig<br>
|
|
</code>
|
|
</ul>
|
|
</ul>
|
|
=end html_DE
|
|
|
|
=cut
|