ADD: own function for parsing subscriptions

This commit is contained in:
Dominik Meyer 2024-03-17 08:51:28 +01:00
parent 002f1fa11a
commit 714db9fb25
Signed by: byterazor
GPG Key ID: EABDA0FD5981BC97
1 changed files with 15 additions and 7 deletions

View File

@ -150,17 +150,25 @@ sub NTFY_Define
return;
}
sub NTFY_Get_Subscriptions
{
my $hash = shift;
my @subscriptions;
for my $k (keys %{$modules{NTFY_TOPIC}{defptr}})
{
$k=~/^(.*)_(.*)$/;
push(@subscriptions,$2);
}
return @subscriptions;
}
sub NTFY_Update_Subscriptions_Readings
{
my $hash = shift;
my @topics;
my @topics = NTFY_Get_Subscriptions($hash);
for my $k (keys %{$modules{NTFY_TOPIC}{defptr}})
{
$k=~/^(.*)_(.*)$/;
push(@topics,$2);
}
readingsSingleUpdate($hash,"subscriptions", join(",", @topics),1);
}