brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

brmd: $device -> $devdoor

Browse source
This commit is contained in:
Petr Baudis 2011-05-12 23:19:58 +02:00
parent 6d476a318f
commit a5f625fd4c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
brmd/brmd.pl
View file

@ -8,7 +8,7 @@ use POE;
our $channel = "#brmlab"; our $channel = "#brmlab";
our $streamurl = "http://nat.brmlab.cz:8090/brmstream.asf"; our $streamurl = "http://nat.brmlab.cz:8090/brmstream.asf";
our $device = $ARGV[0]; $device ||= "/dev/ttyUSB0"; our $devdoor = $ARGV[0]; $devdoor ||= "/dev/ttyUSB0";
our ($status, $streaming, $topic) = (0, 0, 'BRMLAB OPEN'); our ($status, $streaming, $topic) = (0, 0, 'BRMLAB OPEN');
my $irc = brmd::IRC->new(); my $irc = brmd::IRC->new();
@ -110,7 +110,7 @@ sub _start {
$_[KERNEL]->alias_set("$_[OBJECT]"); $_[KERNEL]->alias_set("$_[OBJECT]");
$_[HEAP]->{serial} = POE::Wheel::ReadWrite->new( $_[HEAP]->{serial} = POE::Wheel::ReadWrite->new(
Handle => serial_open($device), Handle => serial_open($devdoor),
Filter => POE::Filter::Line->new( Filter => POE::Filter::Line->new(
InputLiteral => "\x0A", # Received line endings. InputLiteral => "\x0A", # Received line endings.
OutputLiteral => "\x0A", # Sent line endings. OutputLiteral => "\x0A", # Sent line endings.