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

98_apptime:introduce timestamp

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14087 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2017-04-23 13:45:38 +00:00
parent 60730c8535
commit 2492d61fea
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/98_apptime.pm
View File

@ -88,9 +88,9 @@ sub apptime_getTiming($$$@) {
!$defs{$e}{helper}{bm} ||
!$defs{$e}{helper}{bm}{$fnName} ){
%{$defs{$e}{helper}{bm}{$fnName}} =(max =>0, mAr =>"",
cnt =>1, tot =>0,
dmx =>0);
%{$defs{$e}{helper}{bm}{$fnName}} =(max => 0, mAr => "",
cnt => 1, tot => 0,
dmx => 0, mTS => "");
$h = $defs{$e}{helper}{bm}{$fnName};
}
@ -114,6 +114,7 @@ sub apptime_getTiming($$$@) {
if ($ts1 && $h->{max} < $ts1){
$h->{max} = $ts1;
$h->{mAr} = \@arg;
$h->{mTS}= strftime("%d.%m. %H:%M:%S", localtime());
}
$h->{tot} += $ts1;
@ -164,8 +165,8 @@ sub apptime_CommandDispTiming($$@) {
${$h->{mAr}}[$i] = "HASH(".${$h->{mAr}}[$i]->{NAME}.")";
}
}
$arg = join ("; ",@{$h->{mAr}});
}
$arg = join ("; ", map { $_ // "(undef)" } @{$h->{mAr}});
}
push @bmArr,[($n,$t
,$h->{max}
@ -173,6 +174,7 @@ sub apptime_CommandDispTiming($$@) {
,$h->{tot}
,$h->{tot} /$h->{cnt}
,$h->{dmx}
,$h->{mTS}
,$arg
)];
}
@ -182,12 +184,12 @@ sub apptime_CommandDispTiming($$@) {
if ($field>1){@bmArr = sort { $b->[$field] <=> $a->[$field] } @bmArr;}
else {@bmArr = sort { $b->[$field] cmp $a->[$field] } @bmArr;}
my $ret = ($apptimeStatus ? "" : "------ apptime PAUSED data collection ----------\n")
.sprintf("\n %35s %20s %6s %6s %8s %8s %s",
"name","function","max","count","total","average","maxDly","param Max call");
.sprintf("\n %-40s %-35s %6s %6s %8s %8s %6s %-15s %s",
"name","function","max","count","total","average","maxDly","TS Max call","param Max call");
my $end = ($top && $top eq "top")?20:@bmArr-1;
$end = @bmArr-1 if ($end>@bmArr-1);
$ret .= sprintf("\n %35s %20s %6d %6d %8d %8.2f %6d %s",@{$bmArr[$_]})for (0..$end);
$ret .= sprintf("\n %-40s %-35s %6d %6d %8d %8.2f %6d %-15s %s",@{$bmArr[$_]})for (0..$end);
return $ret;
}