Hallo betateilchen,
Vielleicht magst du wohlwollend über diese Änderungsvorschläge drübersehen:
--- 98_fheminfo.svn 2021-10-24 08:50:01.324721866 +0200
+++ 98_fheminfo.pm 2021-10-24 08:53:34.540252125 +0200
@@ -1,6 +1,6 @@
=for comment
-# $Id: 98_fheminfo.pm 25077 2021-10-16 10:15:07Z betateilchen $
+# $Id: 98_fheminfo.pm 25077 2021-10-21 + sort html + CUL_HM Beta-User $
This script is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -92,6 +92,8 @@
next if (defined($defs{$key}{'TEMPORARY'}) || defined($defs{$key}{'VOLATILE'}));
my $name = $defs{$key}{NAME};
+ next if AttrVal($name,'ignore','') eq '1';
+
my $type = $defs{$key}{TYPE};
my $model = $c_noModel;
@@ -131,13 +133,13 @@
# 8. skip for some special cases found in database
next if ( ($model =~ /^unkno.*/i) ||
- ($model =~ /virtual.*/i) ||
+ ($model =~ /virtual.*|ACTIONDETECTOR/i) || #CCU-FHEM| ?
($model =~ m/\berror\b/i) ||
($model =~ m/^<.*>$/) ||
($model eq '?') ||
($model eq '1') ||
# (length($model) > 80) ||
- (defined($defs{$key}{'chanNo'})) ||
+ (defined($defs{$key}{'chanNo'}) && defined($defs{$key}{device})) ||
($name =~ m/^unknown_/) );
# 9. finally count it :)
@@ -235,7 +237,7 @@
next if ($type eq $c_system);
$fhemInfo{$type}{$c_noModel} //= '';
$result .= "<tr><td>$type</td><td> </td><td>$fhemInfo{$type}{$c_noModel}</td></tr>";
- while ( my ($model, $count) = each(%{$fhemInfo{$type}}) )
+ for my $model (sort keys %{$fhemInfo{$type}})
{ $result .= "<tr><td> </td><td>$model</td><td>$fhemInfo{$type}{$model}</td></tr>" unless $model eq $c_noModel; }
}
Da ist zwar auch eine Sonderlocke (chanNo) für CUL_HM drin, aber die gab es m.E. schon vorher... Jedenfalls ich habe kein anderes Modul im Einsatz, das diesen key verwendet.
