support for relaying
This commit is contained in:
parent
5a71fbd1ee
commit
489c0cac78
|
@ -152,10 +152,15 @@ while(1){
|
||||||
};
|
};
|
||||||
$ctr++;
|
$ctr++;
|
||||||
|
|
||||||
|
my $idoff=0;
|
||||||
|
if(substr($pkt,12,1) eq "\xee"){
|
||||||
|
$idoff=1000;
|
||||||
|
};
|
||||||
|
|
||||||
my $hdr= pack("CCnnNN",
|
my $hdr= pack("CCnnNN",
|
||||||
1, # proto (BEACONLOG_SIGHTING)
|
1, # proto (BEACONLOG_SIGHTING)
|
||||||
0, # interface (we only have one antenna per "reader")
|
0, # interface (we only have one antenna per "reader")
|
||||||
$id, # readerid
|
$id+$idoff, # readerid
|
||||||
length($pkt)+16, # size
|
length($pkt)+16, # size
|
||||||
$ctr, # sequence
|
$ctr, # sequence
|
||||||
time # timestamp
|
time # timestamp
|
||||||
|
@ -178,5 +183,8 @@ while(1){
|
||||||
}else{
|
}else{
|
||||||
$typeunknown++;
|
$typeunknown++;
|
||||||
};
|
};
|
||||||
|
if($idoff){
|
||||||
|
$typeunknown++;
|
||||||
|
};
|
||||||
};
|
};
|
||||||
r0ket::rest();
|
r0ket::rest();
|
||||||
|
|
Loading…
Reference in New Issue