FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 13:24:56 +00:00
Code Issues Releases Wiki Activity

speedup apptime, comments in HMInfo

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6126 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-06-17 05:44:54 +00:00
parent ff2efd832d
commit 50b11436ae
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/98_HMinfo.pm
View File

@ -1679,8 +1679,8 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
<ul><code><br> <ul><code><br>
set hm update<br> set hm update<br>
</code></ul><br> </code></ul><br>
Webview of HMinfo will provide details, basically counter about how Webview of HMinfo providee details, basically counter about how
many CUL_HM entities experience exceptional conditions. Areas provided are many CUL_HM entities experience exceptional conditions. It contains
<ul> <ul>
<li>Action Detector status</li> <li>Action Detector status</li>
<li>CUL_HM related IO devices and condition</li> <li>CUL_HM related IO devices and condition</li>
@ -1693,9 +1693,9 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
It also allows some HM wide commands such It also allows some HM wide commands such
as store all collected register settings.<br><br> as store all collected register settings.<br><br>
Commands will be executed on all HM entities of the installation. Commands are executed on all HM entities.
If applicable and evident execution is restricted to related entities. If applicable and evident execution is restricted to related entities.
In fact, rssi is executed on devices only because channels do not support rssi values.<br><br> e.g. rssi is executed on devices only since channels do not support rssi values.<br><br>
<a name="HMinfoFilter"><b>Filter</b></a> <a name="HMinfoFilter"><b>Filter</b></a>
<ul> can be applied as following:<br><br> <ul> can be applied as following:<br><br>
<code>set &lt;name&gt; &lt;cmd&gt; &lt;filter&gt; [&lt;param&gt;]</code><br> <code>set &lt;name&gt; &lt;cmd&gt; &lt;filter&gt; [&lt;param&gt;]</code><br>
@ -1762,9 +1762,7 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
statistic about message transferes over a week<br> statistic about message transferes over a week<br>
</li> </li>
<li><a name="#HMinfoprotoEvents">protoEvents </a><a href="#HMinfoFilter">[filter]</a> <br> <li><a name="#HMinfoprotoEvents">protoEvents </a><a href="#HMinfoFilter">[filter]</a> <br>
this is likely a very <B>important view</B> for message incidents. <B>important view</B> about pending commands and failed executions for all devices in a single table.<br>
Information about pending commands and - much more relevant - about failed executions
is given in a table over all devices.<br>
Consider to clear this statistic use <a name="#HMinfoclear">clear Protocol</a>.<br> Consider to clear this statistic use <a name="#HMinfoclear">clear Protocol</a>.<br>
</li> </li>
<li><a name="#HMinforssi">rssi </a><a href="#HMinfoFilter">[filter]</a><br> <li><a name="#HMinforssi">rssi </a><a href="#HMinfoFilter">[filter]</a><br>

16
fhem/FHEM/98_apptime.pm
View File

@ -107,7 +107,7 @@ sub apptime_getTiming($$$@) {
$ts1 = int((gettimeofday()-$ts1)*1000); $ts1 = int((gettimeofday()-$ts1)*1000);
if ($ts1 && $h->{max}<$ts1){ if ($ts1 && $h->{max}<$ts1){
$h->{max}=$ts1; $h->{max}=$ts1;
$h->{mAr}=join ("; ",@arg); $h->{mAr}= \@arg;
} }
$h->{tot}+=$ts1; $h->{tot}+=$ts1;
@ -139,11 +139,15 @@ sub apptime_CommandDispTiming($$@) {
($n,$t) = split(";",$f,2) if ($d eq "global"); ($n,$t) = split(";",$f,2) if ($d eq "global");
$t = "" if (!defined $t); $t = "" if (!defined $t);
my $h = $defs{$d}{helper}{bm}{$f}; my $h = $defs{$d}{helper}{bm}{$f};
my $arg = $h->{mAr}; my $arg = "";
foreach (@a){ if ($h->{mAr}){
my ($h,$n) = split(":",$_); foreach my $i (0..scalar(@{$h->{mAr}})){
$arg =~ s/$h/$n/g; if(ref(${$h->{mAr}}[$i]) eq 'HASH' and exists(${$h->{mAr}}[$i]->{NAME})){
${$h->{mAr}}[$i] = "HASH(".${$h->{mAr}}[$i]->{NAME}.")";
}
}
$arg = join ("; ",@{$h->{mAr}});
} }
push @bmArr,[($n,$t push @bmArr,[($n,$t