12 |
|
|
13 |
use IO::Socket::INET; |
use IO::Socket::INET; |
14 |
|
|
15 |
|
my $debug = 0; |
16 |
|
|
17 |
my $meteor_server = '192.168.1.13:4671'; |
my $meteor_server = '192.168.1.13:4671'; |
18 |
my $meteor_fh; |
my $meteor_fh; |
19 |
|
|
80 |
$client->autoflush(1); |
$client->autoflush(1); |
81 |
my $request = <$client>; |
my $request = <$client>; |
82 |
|
|
83 |
warn "<< $request\n"; |
warn "WEB << $request\n" if $debug; |
84 |
|
|
85 |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
if ($request =~ m{^GET (/.*) HTTP/1.[01]}) { |
86 |
my $method = $1; |
my $method = $1; |
90 |
my ($n,$v) = split(/=/, $p, 2); |
my ($n,$v) = split(/=/, $p, 2); |
91 |
$param->{$n} = $v; |
$param->{$n} = $v; |
92 |
} |
} |
93 |
warn "<< param: ",dump( $param ); |
warn "WEB << param: ",dump( $param ) if $debug; |
94 |
} |
} |
95 |
if ( my $path = static( $client,$1 ) ) { |
if ( my $path = static( $client,$1 ) ) { |
96 |
warn ">> $path"; |
warn "WEB >> $path" if $debug; |
97 |
} elsif ( $method =~ m{/scan} ) { |
} elsif ( $method =~ m{/scan} ) { |
98 |
my $tags = scan_for_tags(); |
my $tags = scan_for_tags(); |
99 |
my $json = {}; |
my $json = {}; |
131 |
sub _log { _message('log',@_) }; |
sub _log { _message('log',@_) }; |
132 |
sub diag { _message('diag',@_) }; |
sub diag { _message('diag',@_) }; |
133 |
|
|
|
my $debug = 0; |
|
|
|
|
134 |
my $device = "/dev/ttyUSB0"; |
my $device = "/dev/ttyUSB0"; |
135 |
my $baudrate = "19200"; |
my $baudrate = "19200"; |
136 |
my $databits = "8"; |
my $databits = "8"; |