f03f477a493e7c60005e045e04db7a957ba7009e
4 # helpers for custom packet format
5 # bytes 0-7 are used by a dummy radiotap header
6 my $WLAN_LEN = "radio[8:2]";
7 my $SNR = "radio[10:1]";
11 my $VERSION = 1; # filter binary format version
12 my $HDRLEN = 3; # assumed storage space for custom fields
14 my $output = "filter.bin";
17 [ "small", "$WLAN_LEN < 250" ],
18 [ "medium", "$WLAN_LEN < 800" ],
22 [ "low", "$SNR < 10" ],
23 [ "medium", "$SNR < 20" ],
27 [ "beacon", "type mgt subtype beacon" ],
28 [ "data", "type data subtype data" ],
29 [ "qosdata", "type data subtype qos-data" ],
30 [ "other", "$DEFAULT" ]
40 my $GROUPS = scalar(keys %$config);
41 open OUTPUT
, ">$output" or die "Cannot open output file: $!\n";
42 print OUTPUT
pack("a4CCn", $MAGIC, $VERSION, $HDRLEN, $GROUPS);
44 foreach my $groupname (keys %$config) {
46 my $group = $config->{$groupname};
47 print OUTPUT
pack("a32N", $groupname, scalar(@
$group));
48 foreach my $filter (@
$group) {
50 $default > 0 and print "Cannot add more than one default filter per group: $groupname -> ".$filter->[0]."\n";
51 print OUTPUT
pack("a32N", $filter->[0], 0);
54 open FILTER
, "./pfc '".escape_q
($filter->[0])."' '".escape_q
($filter->[1])."' |"
55 or die "Failed to run filter command for '".$filter->[0]."': $!\n";
60 $?
and die "Filter '".$filter->[0]."' did not compile.\n";