support for relaying

This commit is contained in:
Stefan `Sec` Zehl 2012-04-07 20:01:43 +02:00
parent 5a71fbd1ee
commit 489c0cac78
1 changed files with 9 additions and 1 deletions

View File

@ -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();