bluelock.pl is a Perl script designed to lock a display or terminal once a Bluetooth device (like a cell phone) is out of range. The script queries the RSSI (signal strength) of a Bluetooth device. Once the RSSI passes above a certain threshold a timer is started, and once the timer expires a locking program is run.
Usage: bluelock.pl BDADDR
Product's homepage
Requirements:
· Perl
What's New in This Release: [ read full changelog ]
· Try adding a bit more sleeping to let rfcomm connect successfully, and don't count the connection time against the counter.
· Handle rfcomm execution/reaping better.
· Use 'hci0' instead of 'bluelock0' for default rfcomm/hci device name.