FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +00:00
Code Issues Releases Wiki Activity

git-svn-id: https://svn.fhem.de/fhem/trunk@2445 2b470e98-0d58-463d-a4d8-8e2adae1ed80

Browse Source
This commit is contained in:
pahenning 2013-01-07 02:25:27 +00:00
parent 391805371f
commit 185f5bd8ae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/00_OWX.pm
View File

@ -2071,12 +2071,12 @@ sub OWX_Discover_CUNO ($) {
#-- zero the array #-- zero the array
@{$hash->{DEVS}}=(); @{$hash->{DEVS}}=();
OWX_ReInit_CUNO($hash,1); OWX_ReInit_CUNO($hash,0);
##CUL_SimpleWrite($owx_hwdevice, "Oc"); CUL_SimpleWrite($owx_hwdevice, "Oc");
select(undef,undef,undef,5); select(undef,undef,undef,0.5);
my ($err,$ob) = CUL_ReadAnswer($owx_hwdevice,"",0,undef); my ($err,$ob) = CUL_ReadAnswer($owx_hwdevice,"",0,undef);
if( $ob ){ if( $ob ){
#Log 1,"OWX: Answer to ".$owx_hwdevice->{NAME}." device search is ".$ob; Log 3,"OWX: Answer to ".$owx_hwdevice->{NAME}." device search is ".$ob;
foreach my $dx (split(/\n/,$ob)){ foreach my $dx (split(/\n/,$ob)){
next if ($dx !~ /^\d\d?\:[0-9a-fA-F]{16}/); next if ($dx !~ /^\d\d?\:[0-9a-fA-F]{16}/);
$dx =~ s/\d+\://; $dx =~ s/\d+\://;