diff --git a/fhem/FHEM/98_FhemTestUtils.pm b/fhem/FHEM/98_FhemTestUtils.pm index 2f24c4c33..01e360458 100644 --- a/fhem/FHEM/98_FhemTestUtils.pm +++ b/fhem/FHEM/98_FhemTestUtils.pm @@ -73,6 +73,22 @@ FhemTestUtils_resetLogs() @logs=(); } +sub +FhemTestUtils_getLogTime +{ + my $arg = shift; + + foreach my $line (@logs) { + if($line =~ m/^([0-9\.]+ [0-9:\.]+)\s.*$arg/ms) { + my @a = split("[\. :]", $1); + my $time = mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1); + $time += $a[6]/1000 if(@a == 7); # attrg global mseclog is active + return $time; + } + } + return; +} + 1; @@ -99,6 +115,9 @@ FhemTestUtils_resetLogs() Return the logs matching the regexp argument (with grep). Note, that loglevel filtering with verbose ist still active. +
  • FhemTestUtils_getLogTime($)
    + Return the timestamp of the first log matching the argument. +
  • FhemTestUtils_resetEvents()
    Reset the internal event buffer.