aindreas/utility_scripts
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix uninitialized variable errors in bluetooth_info.pl

Browse Source
This commit is contained in:
Aindréas Ó hAodha
2024-07-13 14:02:37 +01:00
parent 1648ccce5f
commit b10413ff5f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bluetooth_info.pl
View File

@ -4,12 +4,12 @@
use strict;
use warnings;
my $output = `bluetoothctl info` or die;
my $output = `bluetoothctl info` or die("disconnected\n");
my $mac_address = $1 if ($output =~ /^Device\s+(\S+)/) or die("N/A\n");
my $device_name = $1 if ($output =~ /Name:\s+(.*)/);
my $icon = $1 if ($output =~ /Icon:\s+(.*)/);
my $battery_percentage = $1 if ($output =~ /Battery Percentage:\s+\S+\s\(([0-9]+)\)/);
my $mac_address = ($output =~ /^Device\s+(\S+)/) ? "$1" : die("disconnected\n");
my $device_name = ($output =~ /Name:\s+(.*)/) ? "$1" : "unknown";
my $icon = ($output =~ /Icon:\s+(.*)/) ? "$1" : "";
my $battery_percentage = ($output =~ /Battery Percentage:\s+\S+\s\(([0-9]+)\)/) ? "$1" : "";
if ($icon eq "audio-headphones") {
printf(" ");