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

10_EnOcean: add function EnOcean_Delete (delete logfiles)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9425 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus-schauer 2015-10-11 10:06:34 +00:00
parent 7366dea85b
commit dee0bda019
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/FHEM/10_EnOcean.pm
View File

@ -446,6 +446,7 @@ EnOcean_Initialize($)
$hash->{Match} = "^EnOcean:";
$hash->{DefFn} = "EnOcean_Define";
$hash->{DeleteFn} = "EnOcean_Delete";
$hash->{UndefFn} = "EnOcean_Undef";
$hash->{ParseFn} = "EnOcean_Parse";
$hash->{SetFn} = "EnOcean_Set";
@ -8051,7 +8052,7 @@ sub EnOcean_Parse($$)
if (defined $deleteDevice) {
# delete device and save config
CommandDelete(undef, $deleteDevice);
CommandDelete(undef, "FileLog_" . $deleteDevice);
#CommandDelete(undef, "FileLog_" . $deleteDevice);
Log3 $name, 2, "EnOcean $name device $deleteDevice deleted";
if (defined $oldDevice) {
Log3 $name, 2, "EnOcean $name renamed $oldDevice to $deleteDevice";
@ -10106,7 +10107,7 @@ sub EnOcean_CommandDelete($) {
my $name = $hash->{NAME};
my $oldDevice = $functionHash->{oldDevice};
CommandDelete(undef, $deleteDevice);
CommandDelete(undef, "FileLog_" . $deleteDevice);
#CommandDelete(undef, "FileLog_" . $deleteDevice);
delete $defs{$deleteDevice};
delete $modules{EnOcean}{defptr}{$hash->{DEF}};
if (defined $oldDevice) {
@ -10936,6 +10937,26 @@ EnOcean_Undef($$)
return undef;
}
# Delete
sub
EnOcean_Delete($$)
{
my ($hash, $name) = @_;
my $logName = "FileLog_$name";
if (exists $defs{$logName}) {
my $count;
my $logFile = $defs{$logName}{logfile};
Log3 $hash->{NAME}, 2, "EnOcean_Delete (1): $logName $logFile";
$logFile =~ /^(.*)($name).*\.(.*)$/;
$logFile = $1 . $2 . "*." . $3;
CommandDelete(undef, "FileLog_$name");
#unlink glob "./log/$name*.log";
$count = unlink glob $logFile;
Log3 $hash->{NAME}, 2, "EnOcean_Delete (2): $logFile >> $count files deleted";
}
return undef;
}
1;
=pod