MySensors in Windows

Begonnen von Thorsten Pferdekaemper, 25 November 2016, 22:41:02

Vorheriges Thema - Nächstes Thema

Thorsten Pferdekaemper

Hi,
ich bin gerade dabei, mit MySensors auf meinem Windows-Laptop herumzuspielen. Dazu fehlt aber was in der 00_MYSENSORS.pm:

sub Ready($) {
  my $hash = shift;
  return DevIo_OpenDev($hash, 1, "MYSENSORS::Init") if($hash->{STATE} eq "disconnected");
 
  # This is relevant for Windows/USB only
if(defined($hash->{USBDev})) {
my $po = $hash->{USBDev};
my ( $BlockingFlags, $InBytes, $OutBytes, $ErrorFlags ) = $po->status;
return ( $InBytes > 0 );
}
}

Das Coding ab "# This is relevant for Windows/USB only" habe ich eingefügt und jetzt funktioniert's einwandfrei.
Vielleicht will das ja jemand in die offizielle Auslieferung übernehmen.
Gruß,
   Thorsten
FUIP