#!/bin/sh
# sync-bt-os.sh
cd /var/lib/bluetooth
for i in *; do
    cd "$i"
    plutil -i /media/OSX/private/var/root/Library/Preferences/blued.plist -o /dev/stdout |
    perl -0777 -MMIME::Base64 -ne 's|\s||g; $s = $_; while ($s =~ m|<key>(..-..-..-..-..-..)</key><data>(.*?)</data>|g) { $mac = uc($1); $key = uc(unpack("H*",reverse decode_base64($2))); $mac =~ s/-/:/g; $pinlength = 6; $pinlength = 4 if $mac eq "C4:2C:03:A0:C7:20"; print "$mac $key 0 $pinlength\n"; }' |
    tee linkkeys
    cd ..
done
service bluetooth restart