Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_autocreate.pm: more detail on "attr global verbose 5" (Forum #97756)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18695 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-02-23 12:20:24 +00:00
parent c76d828740
commit b8ae776ef8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
FHEM/98_autocreate.pm
View File

@ -563,8 +563,8 @@ CommandUsb($$)
my $PARAM = $1; my $PARAM = $1;
$PARAM =~ s/[^A-Za-z0-9]//g; $PARAM =~ s/[^A-Za-z0-9]//g;
my $name = $thash->{NAME}; my $name = $thash->{NAME};
$msg = "### $dev: checking if it is a $name"; $msg = "Probing $name device $dev";
Log3 undef, 4, $msg; $ret .= $msg . "\n"; $ret .= $msg . "\n";
# Check if it already used # Check if it already used
foreach my $d (keys %defs) { foreach my $d (keys %defs) {
@ -603,10 +603,16 @@ CommandUsb($$)
DevIo_TimeoutRead($hash, 0.1); DevIo_TimeoutRead($hash, 0.1);
DevIo_SimpleWrite($hash, $thash->{request}, 0); DevIo_SimpleWrite($hash, $thash->{request}, 0);
my $answer = DevIo_TimeoutRead($hash, 0.1); my $answer = DevIo_TimeoutRead($hash, 0.1);
if(AttrVal("global", "verbose", 0) >= 5) {
my $aTxt = $answer;
$aTxt =~ s/([^ -~])/"(".ord($1).")"/ge;
$aTxt = (substr($aTxt,0,60)."...") if(length($aTxt) > 63);
Log3 undef, 5, " answer: $aTxt";
}
DevIo_CloseDev($hash); DevIo_CloseDev($hash);
if($answer !~ m/$thash->{response}/) { if($answer !~ m/$thash->{response}/) {
$msg = "got wrong answer for a $name"; $msg = " wrong answer";
Log3 undef, 4, $msg; $ret .= $msg . "\n"; Log3 undef, 4, $msg; $ret .= $msg . "\n";
next; next;
} }
@ -614,7 +620,7 @@ CommandUsb($$)
my $define = $thash->{define}; my $define = $thash->{define};
$define =~ s/PARAM/$PARAM/g; $define =~ s/PARAM/$PARAM/g;
$define =~ s,DEVICE,$dir/$dev,g; $define =~ s,DEVICE,$dir/$dev,g;
$msg = "create as a fhem device with: define $define"; $msg = " matching answer, create it with: define $define";
Log3 undef, 4, $msg; $ret .= $msg . "\n"; Log3 undef, 4, $msg; $ret .= $msg . "\n";
if(!$scan) { if(!$scan) {