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

eventType: configDB added by betateilchen (Forum #23872)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5939 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-05-23 06:14:26 +00:00
parent e61610e5f2
commit 751e5f0143
1 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
fhem/FHEM/91_eventTypes.pm
View File

@ -34,24 +34,22 @@ eventTypes_Define($$)
my $cnt = 0;
my @t = localtime;
my $f = ResolveDateWildcards($a[2], @t);
my $fh = new IO::File "$f";
if($fh) {
while(my $l = <$fh>) {
chomp($l);
next if($l =~ m/ CULHM (SND|RCV) /);
next if($l =~ m/ UNKNOWNCODE /);
next if($l =~ m/^\d+ global /);
my @a = split(" ", $l, 3);
if(@a != 3) {
Log3 undef, 2, "eventTypes: $f: bogus line $l";
next;
}
$modules{eventTypes}{ldata}{$a[1]}{$a[2]} = $a[0];
$cnt++;
my ($err, @content) = FileRead($f);
foreach my $l (@content) {
chomp($l);
next if($l =~ m/ CULHM (SND|RCV) /);
next if($l =~ m/ UNKNOWNCODE /);
next if($l =~ m/^\d+ global /);
my @a = split(" ", $l, 3);
if(@a != 3) {
Log3 undef, 2, "eventTypes: $f: bogus line $l";
next;
}
close($fh);
$modules{eventTypes}{ldata}{$a[1]}{$a[2]} = $a[0];
$cnt++;
}
Log3 undef, 2, "eventTypes: loaded $cnt events from $f";
$hash->{STATE} = "active";
@ -111,17 +109,15 @@ eventTypes_Shutdown($$)
{
my ($hash, $name) = @_;
my @content;
my $fName = $hash->{DEF};
my $fh = new IO::File ">$fName";
return "Can't open $fName: $!" if(!defined($fh));
my $ldata = $modules{eventTypes}{ldata};
foreach my $t (sort keys %{$ldata}) {
foreach my $e (sort keys %{$ldata->{$t}}) {
print $fh "$ldata->{$t}{$e} $t $e\n";
push @content, "$ldata->{$t}{$e} $t $e\n";
}
}
close($fh);
FileWrite($fName, @content);
return undef;
}