From 69bfec035937a9a10ef746fc781bcbf9050a782e Mon Sep 17 00:00:00 2001
From: Stefan `Sec` Zehl <sec@42.org>
Date: Wed, 4 Apr 2012 19:22:00 +0200
Subject: [PATCH] rudimentary openbeacon-style "reader" implementation

---
 tools/mesh/beacon-udp.pl | 76 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100755 tools/mesh/beacon-udp.pl

diff --git a/tools/mesh/beacon-udp.pl b/tools/mesh/beacon-udp.pl
new file mode 100755
index 0000000..4b981ef
--- /dev/null
+++ b/tools/mesh/beacon-udp.pl
@@ -0,0 +1,76 @@
+#!/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();