mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
pahenning
2013-01-07 02:25:27 +00:00
parent 2a8f8b7f4c
commit 0e9e61891c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
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+\://;