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

FRM: fix debug-logging on Windows-Systems

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5508 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ntruchsess
2014-04-11 10:55:42 +00:00
parent 7e544827f9
commit 873618d0b3
1 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
fhem/FHEM/10_FRM.pm
View File

@@ -348,7 +348,7 @@ sub FRM_DoInit($) {
my $name = $shash->{NAME};
my $firmata_io = Firmata_IO->new($hash);
my $firmata_io = Firmata_IO->new($hash,$name);
my $device = Device::Firmata::Platform->attach($firmata_io) or return 1;
$shash->{FirmataDevice} = $device;
@@ -600,28 +600,29 @@ sub FRM_Catch($) {
package Firmata_IO;
sub new {
my ($class,$hash) = @_;
return bless {
hash => $hash,
}, $class;
sub new($$) {
my ($class,$hash,$name) = @_;
return bless {
hash => $hash,
name => $name,
}, $class;
}
sub data_write {
my ( $self, $buf ) = @_;
my $hash = $self->{hash};
main::Log3 $hash->{NAME},5,$hash->{FD}.">".join(",",map{sprintf"%02x",ord$_}split//,$buf);
main::DevIo_SimpleWrite($hash,$buf,undef);
my ( $self, $buf ) = @_;
my $hash = $self->{hash};
main::Log3 $self->{name},5,"FRM:>".unpack "H*",$buf;
main::DevIo_SimpleWrite($hash,$buf,undef);
}
sub data_read {
my ( $self, $bytes ) = @_;
my $hash = $self->{hash};
my $string = main::DevIo_SimpleRead($hash);
if (defined $string ) {
main::Log3 $hash->{NAME},5,$hash->{FD}."<".join(",",map{sprintf"%02x",ord$_}split//,$string);
}
return $string;
my ( $self, $bytes ) = @_;
my $hash = $self->{hash};
my $string = main::DevIo_SimpleRead($hash);
if (defined $string ) {
main::Log3 $self->{name},5,"FRM:<".unpack "H*",$string;
}
return $string;
}
package main;