mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-01 06:28:32 +00:00
73_PRESENCE.pm: Version 01.01
git-svn-id: https://svn.fhem.de/fhem/trunk@28595 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
b0d7e01c20
commit
c00227b721
@ -33,7 +33,7 @@ use Blocking;
|
||||
use Time::HiRes qw(gettimeofday usleep sleep);
|
||||
use DevIo;
|
||||
|
||||
my $ModulVersion = "01.00";
|
||||
my $ModulVersion = "01.01";
|
||||
my %LOG_Text = (
|
||||
0 => "SERVER:",
|
||||
1 => "ERROR:",
|
||||
@ -67,14 +67,14 @@ sub PRESENCE2_Log($$$)
|
||||
|
||||
my $xsubroutine = ( caller(1) )[3];
|
||||
my $sub = ( split( ':', $xsubroutine ) )[2];
|
||||
$sub =~ s/CDCOpenData_// if ( defined $sub );;
|
||||
$sub =~ s/PRESENCE2_// if ( defined $sub );;
|
||||
$sub ||= 'no-subroutine-specified';
|
||||
|
||||
$text = $LOG_Text{$loglevel} . $text;
|
||||
$text = "[$instName | $sub.$xline] - " . $text;
|
||||
|
||||
if ( $instHash->{helper}{logDebug} ) {
|
||||
CDCOpenData_DebugLog $instHash, $instHash->{helper}{debugLog} . "-%Y-%m.dlog", $loglevel, $text;
|
||||
PRESENCE2_DebugLog $instHash, $instHash->{helper}{debugLog} . "-%Y-%m.dlog", $loglevel, $text;
|
||||
} else {
|
||||
Log3 $hash, $loglevel, $text;
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user