77 lines
1.6 KiB
Perl
77 lines
1.6 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# vim:set ts=4 sw=4:
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use POSIX qw(strftime);
|
||
|
|
use Time::HiRes qw(time);
|
||
|
|
|
||
|
|
use lib '.';
|
||
|
|
use r0ket;
|
||
|
|
|
||
|
|
$|=1;
|
||
|
|
|
||
|
|
r0ket::r0ket_init();
|
||
|
|
|
||
|
|
# Default openbeacon settings.
|
||
|
|
r0ket::set_txmac(pack("H*","0102030201"));
|
||
|
|
r0ket::set_rxmac(pack("H*","0102030201"));
|
||
|
|
r0ket::set_channel(81);
|
||
|
|
r0ket::set_rxlen(16);
|
||
|
|
|
||
|
|
#r0ket::readbeacon();
|
||
|
|
|
||
|
|
my $str;
|
||
|
|
my %bdata;
|
||
|
|
|
||
|
|
use Socket;
|
||
|
|
use Sys::Hostname;
|
||
|
|
|
||
|
|
my($iaddr,$proto,$port,$paddr);
|
||
|
|
$iaddr = gethostbyname(hostname());
|
||
|
|
$proto = getprotobyname('udp');
|
||
|
|
#$port = getservbyname('time', 'udp');
|
||
|
|
$port = "7777";
|
||
|
|
$paddr = sockaddr_in(0, $iaddr); # 0 means let kernel pick
|
||
|
|
|
||
|
|
socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) || die "socket: $!";
|
||
|
|
bind(SOCKET, $paddr) || die "bind: $!";
|
||
|
|
|
||
|
|
my $host="127.0.0.1";
|
||
|
|
my $hisiaddr = inet_aton($host) || die "unknown host";
|
||
|
|
my $hispaddr = sockaddr_in($port, $hisiaddr);
|
||
|
|
|
||
|
|
###send(SOCKET, 0, 0, $hispaddr);
|
||
|
|
|
||
|
|
|
||
|
|
my $beaconctr=0;
|
||
|
|
my $lasttime;
|
||
|
|
my $crcerr=0;
|
||
|
|
my $ctr=0;
|
||
|
|
while(1){
|
||
|
|
$str=r0ket::get_packet();
|
||
|
|
$ctr++;
|
||
|
|
next if($str eq "ack"); # in-band signalling.
|
||
|
|
|
||
|
|
my $hdr=
|
||
|
|
pack("nCCnnNN",
|
||
|
|
0xeeee, # icrc16
|
||
|
|
1, # proto (BEACONLOG_SIGHTING)
|
||
|
|
0, # interface (we only have one antenna per "reader")
|
||
|
|
1234, # readerid
|
||
|
|
32, # size
|
||
|
|
$ctr, # sequence
|
||
|
|
time # timestamp
|
||
|
|
);
|
||
|
|
send (SOCKET, $hdr.$str,0,$hispaddr);
|
||
|
|
|
||
|
|
my $p=r0ket::nice_beacon($str);
|
||
|
|
if($p->{crc} ne "ok"){
|
||
|
|
$crcerr++;
|
||
|
|
next;
|
||
|
|
};
|
||
|
|
|
||
|
|
};
|
||
|
|
print "received $ctr pkts, $crcerr crc errors\n";
|
||
|
|
r0ket::rest();
|