FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

version: add support for controls_fhem.txt update via "svn update" (Forum: #74372)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14745 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch 2017-07-18 20:56:01 +00:00
parent bfb64f545e
commit ab18f6c3a6
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/98_version.pm
View File

@ -98,19 +98,20 @@ sub version_sortModules($$)
sub version_getRevFromControls(;$)
{
my ($name) = @_;
$name = "fhem" unless(defined($name));
my $control_file = AttrVal("global","modpath",".")."/FHEM/controls_$name.txt";
$name //= "fhem";
my $cf = "controls_$name.txt";
my $filename = (-e "./$cf") ? "./$cf" : AttrVal("global","modpath",".")."/FHEM/$cf";
my ($err, @content) = FileRead({FileName => $filename, ForceType => "file"});
if ($err) {
Log 3, "version: unable to open $filename: $err";
return undef;
}
my $revision;
if(open(FH, $control_file)) {
while(<FH>) {
chomp;
if(/^REV\s+(\S+.*)$/) {
$revision = $1;
last;
}
foreach my $l (@content) {
if($l =~ /^REV\s+(\S+.*)$/) {
$revision = $1;
last;
}
close(FH);
}
return $revision;
}