35 lines
995 B
Perl
Executable File
35 lines
995 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Script that allows the user to select a bluetooth device to connect to via dmenu.
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $script_name = $1 if ($0 =~ /.*\/(.*)$/);
|
|
my $output = `bluetoothctl devices`;
|
|
my %devices;
|
|
|
|
# assumes devices have unique names
|
|
foreach my $device (split(/\n/, $output)) {
|
|
if ($device =~ /Device\s(\S+)\s(.+)/) {
|
|
my $mac_address = $1;
|
|
my $name = $2;
|
|
$devices{$name} = $mac_address;
|
|
}
|
|
}
|
|
|
|
my $device_list = "";
|
|
foreach my $name (sort(keys %devices)) {
|
|
$device_list .= $name . "\n";
|
|
}
|
|
|
|
my $selection = `printf "$device_list" | dmenu` or die("No selection made");
|
|
chomp($selection);
|
|
`notify-send "$script_name" "Attempting to connect to $selection ($devices{$selection})"`;
|
|
`bluetoothctl connect $devices{$selection}`;
|
|
|
|
if ($? == 0) {
|
|
`notify-send "$script_name" "Successfully connected to $selection ($devices{$selection})"`;
|
|
}
|
|
else {
|
|
`notify-send "$script_name" "Failed to connect to $selection ($devices{$selection})"`;
|
|
}
|