FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues 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@18695 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-02-23 12:20:24 +00:00
parent 58e4625392
commit 1708dcbf6a
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/FHEM/98_autocreate.pm
View File

@ -563,8 +563,8 @@ CommandUsb($$)
my $PARAM = $1;
$PARAM =~ s/[^A-Za-z0-9]//g;
my $name = $thash->{NAME};
$msg = "### $dev: checking if it is a $name";
Log3 undef, 4, $msg; $ret .= $msg . "\n";
$msg = "Probing $name device $dev";
$ret .= $msg . "\n";
# Check if it already used
foreach my $d (keys %defs) {
@ -603,10 +603,16 @@ CommandUsb($$)
DevIo_TimeoutRead($hash, 0.1);
DevIo_SimpleWrite($hash, $thash->{request}, 0);
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);
if($answer !~ m/$thash->{response}/) {
$msg = "got wrong answer for a $name";
$msg = " wrong answer";
Log3 undef, 4, $msg; $ret .= $msg . "\n";
next;
}
@ -614,7 +620,7 @@ CommandUsb($$)
my $define = $thash->{define};
$define =~ s/PARAM/$PARAM/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";
if(!$scan) {