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

HMInfo:File create if not existant

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16195 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2018-02-16 18:49:28 +00:00
parent 45d75eda2e
commit 17243db401
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/98_HMinfo.pm
View File

@ -652,7 +652,6 @@ sub HMinfo_paramCheck(@) { ####################################################
my @idMismatch; my @idMismatch;
my @ccuUndef; my @ccuUndef;
my @perfIoUndef; my @perfIoUndef;
my @aesInval;
foreach my $eName (@entities){ foreach my $eName (@entities){
if ($defs{$eName}{helper}{role}{dev}){ if ($defs{$eName}{helper}{role}{dev}){
my $ehash = $defs{$eName}; my $ehash = $defs{$eName};
@ -675,8 +674,6 @@ sub HMinfo_paramCheck(@) { ####################################################
} }
} }
if (!$IoDev) { push @noIoDev,$eName;} if (!$IoDev) { push @noIoDev,$eName;}
elsif (AttrVal($eName,"aesCommReq",0) && $IoDev->{TYPE} ne "HMLAN")
{ push @aesInval,"$eName ";}
if ( !$defs{$eName}{helper}{role}{vrt} if ( !$defs{$eName}{helper}{role}{vrt}
&& AttrVal($eName,"model","") ne "CCU-FHEM"){ && AttrVal($eName,"model","") ne "CCU-FHEM"){
@ -691,7 +688,6 @@ sub HMinfo_paramCheck(@) { ####################################################
$ret .="\n\n no IO device assigned" ."\n ".(join "\n ",sort @noIoDev) if (@noIoDev); $ret .="\n\n no IO device assigned" ."\n ".(join "\n ",sort @noIoDev) if (@noIoDev);
$ret .="\n\n PairedTo missing/unknown" ."\n ".(join "\n ",sort @noID) if (@noID); $ret .="\n\n PairedTo missing/unknown" ."\n ".(join "\n ",sort @noID) if (@noID);
$ret .="\n\n PairedTo mismatch to IODev" ."\n ".(join "\n ",sort @idMismatch) if (@idMismatch); $ret .="\n\n PairedTo mismatch to IODev" ."\n ".(join "\n ",sort @idMismatch) if (@idMismatch);
$ret .="\n\n aesCommReq set, IO not compatibel" ."\n ".(join "\n ",sort @aesInval) if (@aesInval);
$ret .="\n\n IOgrp: CCU not found" ."\n ".(join "\n ",sort @ccuUndef) if (@ccuUndef); $ret .="\n\n IOgrp: CCU not found" ."\n ".(join "\n ",sort @ccuUndef) if (@ccuUndef);
$ret .="\n\n IOgrp: prefered IO undefined" ."\n ".(join "\n ",sort @perfIoUndef)if (@perfIoUndef); $ret .="\n\n IOgrp: prefered IO undefined" ."\n ".(join "\n ",sort @perfIoUndef)if (@perfIoUndef);
return $ret; return $ret;
@ -704,6 +700,11 @@ sub HMinfo_tempList(@) { ######################################################
my %dl =("Sat"=>0,"Sun"=>1,"Mon"=>2,"Tue"=>3,"Wed"=>4,"Thu"=>5,"Fri"=>6); my %dl =("Sat"=>0,"Sun"=>1,"Mon"=>2,"Tue"=>3,"Wed"=>4,"Thu"=>5,"Fri"=>6);
my $ret; my $ret;
if (not -f $fName) { #create file if necessary
open(aSave, ">$fName") || return("Can't open $fName: $!");
print aSave "#init\n";
}
if ($action eq "save"){ if ($action eq "save"){
# foreach my $eN(HMinfo_getEntities("d")){#search and select channel # foreach my $eN(HMinfo_getEntities("d")){#search and select channel
# my $md = AttrVal($eN,"model",""); # my $md = AttrVal($eN,"model","");
@ -1001,6 +1002,10 @@ sub HMinfo_tempListTmplGenLog($$) { ###########################################
my (undef,$eN) = split " ",$_; my (undef,$eN) = split " ",$_;
$eNh{$eN} = 1; $eNh{$eN} = 1;
} }
if (not -f $fName) { #create file if necessary
open(aSave, ">$fName") || return("Can't open $fName: $!");
print aSave "#init\n";
}
$err = FileWrite($fName,@WLines); $err = FileWrite($fName,@WLines);
return "file: $fName error write:$err" if ($err); return "file: $fName error write:$err" if ($err);
HMinfo_tempListTmplGenGplot($fName,keys %eNh); HMinfo_tempListTmplGenGplot($fName,keys %eNh);
@ -1050,6 +1055,10 @@ sub HMinfo_tempListTmplGenGplot(@) { ##########################################
} }
} }
if (not -f $fName) { #create file if necessary
open(aSave, ">$fName") || return("Can't open $fName: $!");
print aSave "#init\n";
}
push @WLines,$func.$plot; push @WLines,$func.$plot;
my $err = FileWrite($fName,@WLines); my $err = FileWrite($fName,@WLines);
return "file: $fName error write:$err" if ($err); return "file: $fName error write:$err" if ($err);