projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fc04c40
)
RFID_LISTEN=host:port to listen for TCP socket from reader
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 24 Jan 2017 12:49:07 +0000
(13:49 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 24 Jan 2017 12:49:07 +0000
(13:49 +0100)
lib/Biblio/RFID/Reader/Serial.pm
patch
|
blob
|
history
diff --git
a/lib/Biblio/RFID/Reader/Serial.pm
b/lib/Biblio/RFID/Reader/Serial.pm
index
24432d5
..
b97be50
100644
(file)
--- a/
lib/Biblio/RFID/Reader/Serial.pm
+++ b/
lib/Biblio/RFID/Reader/Serial.pm
@@
-61,6
+61,29
@@
sub port {
return $port;
}
return $port;
}
+ if ( my $listen = $ENV{RFID_LISTEN} ) {
+ my $server = Biblio::RFID::Reader::INET->new(
+ Proto => 'tcp',
+ LocalAddr => $listen,
+ Listen => SOMAXCONN,
+ Reuse => 1
+ );
+
+ die "can't setup server $listen: $!" unless $server;
+
+ warn "RFID: waiting for reader connection to $listen";
+
+ my $port = $server->accept();
+ $port->autoflush(1);
+
+ warn "## LISTEN $listen ", ref($port);
+ $self->{port} = $port;
+ $self->init;
+
+ return $port;
+
+ }
+
my $settings = $self->serial_settings;
my @devices = $ENV{RFID_DEVICE} ? ( $ENV{RFID_DEVICE} ) : glob '/dev/ttyUSB* /dev/ttyS*';
warn "# port devices ",dump(@devices);
my $settings = $self->serial_settings;
my @devices = $ENV{RFID_DEVICE} ? ( $ENV{RFID_DEVICE} ) : glob '/dev/ttyUSB* /dev/ttyS*';
warn "# port devices ",dump(@devices);