diff --git a/inxi b/inxi index 93ea236..c10364e 100755 --- a/inxi +++ b/inxi @@ -49,8 +49,8 @@ use POSIX qw(ceil uname strftime ttyname); ## INXI INFO ## my $self_name='inxi'; -my $self_version='3.3.28'; -my $self_date='2023-07-10'; +my $self_version='3.3.29'; +my $self_date='2023-08-15'; my $self_patch='00'; ## END INXI INFO ## @@ -114,7 +114,7 @@ my $sensors_cpu_nu = 0; my ($dl_ua,$weather_source,$weather_unit) = ('s-tools/' . $self_name . '-',100,'mi'); ## Tools -my ($bt_tool,$display,$ftp_alt); +my ($display,$ftp_alt); my ($display_opt,$sudoas) = ('',''); ## Output @@ -263,7 +263,6 @@ sub set { } print Data::Dumper::Dumper \%alerts if $dbg[25]; set_fake_bsd_tools() if $fake{'bsd'}; - set_forced_tools(); eval $end if $b_log; } @@ -354,6 +353,8 @@ sub set_commands { $commands{'bluetoothctl'} = ['missing','linux','','']; # bt-adapter hangs when bluetooth service is disabled $commands{'bt-adapter'} = ['missing','linux','','']; + # btmgmt enters its own shell with no options given + $commands{'btmgmt'} = ['missing','linux','','']; $commands{'hciconfig'} = ['missing','linux','','']; } if ($show{'sensor'}){ @@ -382,20 +383,6 @@ sub set_commands { } } -sub set_forced_tools { - if ($bt_tool){ - if ($bt_tool ne 'bluetootctl' && $alerts{'bluetoothctl'}->{'action'} eq 'use'){ - $alerts{'bluetoothctl'}->{'action'} = 'missing'; - } - if ($bt_tool ne 'bt-adapter' && $alerts{'bt-adapter'}->{'action'} eq 'use'){ - $alerts{'bt-adapter'}->{'action'} = 'missing'; - } - if ($bt_tool ne 'hciconfig' && $alerts{'hciconfig'}->{'action'} eq 'use'){ - $alerts{'hciconfig'}->{'action'} = 'missing'; - } - } -} - # only for dev/debugging BSD sub set_fake_bsd_tools { $system_files{'dmesg-boot'} = '/var/run/dmesg.boot' if $fake{'dboot'}; @@ -1739,6 +1726,7 @@ sub bluetooth_data { print "Collecting bluetooth data...\n"; # no warnings 'uninitialized'; my @cmds = ( + ['btmgmt','info'], ['hciconfig','-a'], # no version #['hcidump',''], # hangs sometimes ['hcitool','dev'], @@ -3034,9 +3022,10 @@ sub check_items { $info_os = 'info-bsd'; } else { - @data = qw(blockdev bt-adapter dig dmidecode doas fdisk file fruid_print - hciconfig hddtemp ifconfig ip ipmitool ipmi-sensors lsblk lsusb lvs - mdadm modinfo runlevel sensors smartctl strings sudo tree upower uptime); + @data = qw(blockdev bt-adapter btmgmt dig dmidecode doas fdisk file + fruid_print hciconfig hddtemp ifconfig ip ipmitool ipmi-sensors lsblk + lsusb lvs mdadm modinfo runlevel sensors smartctl strings sudo tree upower + uptime); } $b_program = 1; $item = 'Program'; @@ -3286,13 +3275,21 @@ sub set_item_data { 'rpm' => 'util-linux', }, 'bt-adapter' => { - 'info' => '-E bluetooth data (if no hciconfig)', + 'info' => '-E bluetooth data (if no hciconfig, btmgmt)', 'info-bsd' => '', 'apt' => 'bluez-tools', 'pacman' => 'bluez-tools', 'pkgtool' => '', # needs to be built by user 'rpm' => 'bluez-tools', }, + 'btmgmt' => { + 'info' => '-E bluetooth data (if no hciconfig)', + 'info-bsd' => '', + 'apt' => 'bluez', + 'pacman' => 'bluez-utils', + 'pkgtool' => '', # needs to be built by user + 'rpm' => 'bluez', + }, 'curl' => { 'info' => '-i (if no dig); -w,-W; -U', 'info-bsd' => '-i (if no dig); -w,-W; -U', @@ -5214,8 +5211,8 @@ sub get { }, 'bt-tool:s' => sub { my ($opt,$arg) = @_; - if ($arg =~ /^(bluetoothctl|bt-adapter|hciconfig|rfkill)$/i){ - $bt_tool = lc($arg); + if ($arg =~ /^(bluetoothctl|bt-adapter|btmgmt|hciconfig|rfkill)$/i){ + $force{lc($arg)} = 1; } else { main::error_handler('bad-arg', $opt, $arg); @@ -5346,7 +5343,7 @@ sub get { 'fake:s' => sub { my ($opt,$arg) = @_; if ($arg){ - my $wl = 'bluetooth|compiler|cpu|dboot|dmidecode|elbrus|iomem|ipmi|'; + my $wl = 'bluetooth|compiler|cpu|dboot|dmidecode|elbrus|iomem|ip-if|ipmi|'; $wl .= 'logical|lspci|partitions|pciconf|pcictl|pcidump|'; $wl .= 'raid-btrfs|raid-hw|raid-lvm|raid-md|raid-soft|raid-zfs|'; $wl .= 'sensors|sensors-sys|swaymsg|sys-mem|sysctl|uptime|usbconfig|'; @@ -5374,9 +5371,10 @@ sub get { 'force:s' => sub { my ($opt,$arg) = @_; if ($arg){ - my $wl = 'colors|cpuinfo|display|dmidecode|hddtemp|lsusb|man|meminfo|'; - $wl .= 'no-dig|no-doas|no-html-wan|no-sudo|pkg|rpm|sensors-sys|usb-sys|'; - $wl .= 'vmstat|wayland|wmctrl'; + my $wl = 'bluetoothctl|bt-adapter|btmgmt|colors|cpuinfo|display|dmidecode|'; + $wl .= 'hciconfig|hddtemp|ip|ifconfig|lsusb|man|meminfo|'; + $wl .= 'no-dig|no-doas|no-html-wan|no-sudo|pkg|rfkill|rpm|sensors-sys|'; + $wl .= 'usb-sys|vmstat|wayland|wmctrl'; for (split(',',$arg)){ if ($_ =~ /\b($wl)\b/){ $force{lc($1)} = 1; @@ -5405,6 +5403,8 @@ sub get { $show{'no-host'} = 0;}, 'html-wan' => sub { $force{'no-html-wan'} = 0;}, + 'ifconfig' => sub { + $force{'ifconfig'} = 1;}, 'indent:i' => sub { my ($opt,$arg) = @_; if ($arg >= 11){ @@ -5583,7 +5583,7 @@ sub post_process { } } if (($show{'label'} || $show{'uuid'}) && !$show{'partition'} && - !$show{'partition-full'} && !$show{'swap'} && !$show{'unmounted'}){ + !$show{'partition-full'} && !$show{'swap'} && !$show{'unmounted'}){ main::error_handler('bad-arg', '-l/-u', 'missing required option(s) -j, -o, -p, -P'); } $extra = 3 if $b_admin; @@ -5602,7 +5602,7 @@ sub post_process { $use{'block-tool'} = 1; } if ($show{'short'} || $show{'raid'} || $show{'disk'} || $show{'disk-total'} || - $show{'disk-basic'} || $show{'unmounted'}){ + $show{'disk-basic'} || $show{'unmounted'}){ $use{'btrfs'} = 1; $use{'mdadm'} = 1; } @@ -5631,16 +5631,17 @@ sub post_process { $show{'disk-basic'} = 0; $show{'disk-total'} = 0; } - if ($show{'ram'} || $show{'slot'} || ($show{'cpu'} && ($extra > 1 || $bsd_type)) || - (($bsd_type || $force{'dmidecode'}) && ($show{'machine'} || $show{'battery'}))){ + if ($show{'ram'} || $show{'slot'} || + ($show{'cpu'} && ($extra > 1 || $bsd_type)) || + (($bsd_type || $force{'dmidecode'}) && ($show{'machine'} || $show{'battery'}))){ $use{'dmidecode'} = 1; } if ($show{'audio'} || $show{'bluetooth'} || $show{'graphic'} || - $show{'network'} || $show{'raid'}){ + $show{'network'} || $show{'raid'}){ $use{'pci'} = 1; } if ($show{'usb'} || $show{'audio'} || $show{'bluetooth'} || $show{'disk'} || - $show{'graphic'} || $show{'network'}){ + $show{'graphic'} || $show{'network'}){ $use{'usb'} = 1; } if ($bsd_type){ @@ -5652,8 +5653,8 @@ sub post_process { $use{'bsd-cpu'} = 1; $use{'bsd-sleep'} = 1;} if ($show{'short'} || $show{'disk-basic'} || $show{'disk-total'} || - $show{'disk'} || $show{'partition'} || $show{'partition-full'} || - $show{'raid'} || $show{'swap'} || $show{'unmounted'}){ + $show{'disk'} || $show{'partition'} || $show{'partition-full'} || + $show{'raid'} || $show{'swap'} || $show{'unmounted'}){ $use{'bsd-disk'} = 1; $use{'bsd-partition'} = 1; $use{'bsd-raid'} = 1;} @@ -6049,7 +6050,8 @@ sub show_options { installed); smt status, if available."], ['2', '-D', '', "Firmware rev. if available; partition scheme, in some cases; disk type, rotation rpm (if available)."], - ['2', '-E', '', "Serial number, class ID, HCI version and revision."], + ['2', '-E', '', "Serial number, class ID, bluetooth device class ID, HCI + version and revision."], ['2', '-G', '', "Device serial number, class ID; Xorg Screen size, diag; Monitors: hz, size, modes, serial, scale, modes (max/min)."], ['2', '-I', '', "For 'Shell:' adds ([doas|su|sudo|login]) to shell name if @@ -6064,9 +6066,9 @@ sub show_options { ['2', '-R', '', "zfs-raid: portion allocated (used) by RAID devices/arrays. md-raid: system md-raid support types (kernel support, read ahead, RAID events). Hardware RAID rev, ports, specific vendor/product information."], - ['2', '-S', '', "Panel/tray/bar/dock info in desktop output, if in X (like - lxpanel, xfce4-panel, mate-panel); (if available) dm version number, window - manager version number, virtual terminal number."], + ['2', '-S', '', "Kernel clocksource; Panel/tray/bar/dock info in desktop + output, if in X (like lxpanel, xfce4-panel, mate-panel); (if available) dm + version number, window manager version number, virtual terminal number."], ); if ($use{'weather'}){ push(@$rows, @@ -6091,8 +6093,8 @@ sub show_options { ['2', '-d,-D', '', "If available: logical and physical block sizes; drive family; maj:min; USB mode (if found); USB drive specifics; SMART report."], ['2', '-E', '', "PCIe lanes-max: gen, speed, lanes (if relevant); USB mode - (if found); If available: in Report:, adds Info: line: acl-mtu, sco-mtu, - link-policy, link-mode, service-classes."], + (if found); If available: in Report:, adds status: discoverable, pairing; + adds Info: line: acl-mtu, sco-mtu, link-policy, link-mode, service-classes."], ['2', '-G', '', "GPU process node, built year (AMD/Intel/Nvidia only); non-free driver info (Nvidia only); PCIe lanes-max: gen, speed, lanes (if relevant); USB mode (if found); list of alternate kernel modules/drivers for @@ -6102,6 +6104,8 @@ sub show_options { package manager and pm tools (if not -r); adds init service tool."], ['2', '-j,-p,-P', '', "For swap (if available): swappiness and vfs cache pressure, and if values are default or not."], + ['2', '-j', '', "Linux only: (if available): row one zswap data, and per zram + row, active and available zram compressions, max compression streams."], ['2', '-J', '', "Adds USB mode (Linux only); IEC speed (base 2, Bytes/s)."], ['2', '-L', '', "LV, Crypto, devices, components: add maj:min; show full device/components report (speed, mapped names)."], @@ -6115,7 +6119,8 @@ sub show_options { percent available for user, block size of file system (root required)."], ['2', '-r', '', "Packages, see -Ia."], ['2', '-R', '', "mdraid: device maj:min; per component: size, maj:min, state."], - ['2', '-S', '', "If available: kernel boot parameters."], + ['2', '-S', '', "If available: kernel alternate clocksources, boot + parameters."], ['2', '', '--slots', "If available: slot bus ID children."], ); push(@$rows, @@ -6155,22 +6160,24 @@ sub show_options { ['2', '43', '', "Bypass Wget as a downloader option."], ['2', '44', '', "Bypass Curl, Fetch, and Wget as downloader options. Forces Perl if HTTP::Tiny present."], - ['1', '', '--bt-tool', "[bt-adapter|hciconfig|rfkill] Force use of given tool - for bluetooth report."], + ['1', '', '--bt-tool', "[bt-adapter btmgmt hciconfig rfkill] Force use of + given tool forbluetooth report. Or use --force [tool]."], ['1', '', '--dig', "Overrides configuration item NO_DIG (resets to default)."], ['1', '', '--display', "[:[0-9]] Try to get display data out of X (default: display 0)."], ['1', '', '--dmidecode', "Force use of dmidecode data instead of /sys where relevant (e.g. -M, -B)."], - ['1', '', '--downloader', "Force $self_name to use [curl|fetch|perl|wget] for + ['1', '', '--downloader', "Force $self_name to use [curl fetch perl wget] for downloads."], - ['1', '', '--force', "[dmidecode|hddtemp|lsusb|meminfo|usb-sys|vmstat|wmctrl]. + ['1', '', '--force', "[bt-adapter btmgmt dmidecode hciconfig hddtemp ip + ifconfig lsusb meminfo rfkill usb-sys vmstat wmctrl]. 1 or more in comma separated list. Force use of item(s). See --hddtemp, --dmidecode, --wm, --usb-tool, --usb-sys."], ['1', '', '--hddtemp', "Force use of hddtemp for disk temps."], ['1', '', '--html-wan', "Overrides configuration item NO_HTML_WAN (resets to default)."], + ['1', '', '--ifconfig', "Force use of ifconfig for IF with -i."], ); if ($use{'update'}){ push(@$rows, @@ -6196,7 +6203,7 @@ sub show_options { ['1', '', '--no-sudo', "Skip internal program use of sudo features (not related to starting $self_name with sudo)."], ['1', '', '--rpm', "Force use of disabled package manager counts for packages - feature with -rx/-Ix. RPM disabled by default due to slow to massive RPM + feature with -rx/-Ix. RPM disabled by default due to slow to massive rpm package query times."], ['1', '', '--sensors-default', "Removes configuration item SENSORS_USE and SENSORS_EXCLUDE. Same as default behavior."], @@ -8748,7 +8755,9 @@ sub get { eval $start if $b_log; my $rows = []; my $num = 0; - $b_bluetooth = 1 if @ps_cmd && (grep {m|/bluetoothd\b|} @ps_cmd); + if ($fake{'bluetooth'} || (@ps_cmd && (grep {m|/bluetoothd\b|} @ps_cmd))){ + $b_bluetooth = 1; + } # note: rapi 4 has pci bus if (%risc && !$use{'soc-bluetooth'} && !$use{'pci-tool'}){ # do nothing, but keep the test conditions to force @@ -8901,18 +8910,7 @@ sub advanced_output { my ($rows,$type,$bus_id) = @_; my (@temp); my ($j,$num,$k,$l,$m,$n,$address,$id,$note,$tool) = (0,1,2,3,4,5,'','','',''); - if (!$b_hci && $alerts{'hciconfig'}->{'action'} eq 'use'){ - hciconfig_data(); - $tool = 'hciconfig'; - } - elsif (!$b_hci && $alerts{'bt-adapter'}->{'action'} eq 'use'){ - bt_tool_data(); - $tool = 'bt-adapter'; - } - if (!$b_rfk && -e '/sys/class/bluetooth/'){ - rfkill_data(); - $tool = 'rfkill' if !$tool; - } + set_bluetooth_data(\$tool); # print "bid: $bus_id\n"; if ($type ne 'check'){ @temp = main::globber('/sys/class/bluetooth/*'); @@ -8979,10 +8977,9 @@ sub advanced_output { $address = main::filter($hci{$item}->{'address'}); } $rows->[$j]{main::key($num++,0,$l,'address')} = $address; - # lmp/hci version only hciconfig sadly - if (defined $hci{$item}->{'lmp-version'} && - (my $btv = bluetooth_version($hci{$item}->{'lmp-version'}))){ - $rows->[$j]{main::key($num++,0,$l,'bt-v')} = $btv; + # lmp/hci version only hciconfig + if ($hci{$item}->{'bt-version'}){ + $rows->[$j]{main::key($num++,0,$l,'bt-v')} = $hci{$item}->{'bt-version'}; } if ($extra > 0 && defined $hci{$item}->{'lmp-version'}){ $rows->[$j]{main::key($num++,0,$l,'lmp-v')} = $hci{$item}->{'lmp-version'}; @@ -8990,25 +8987,34 @@ sub advanced_output { $rows->[$j]{main::key($num++,0,$m,'sub-v')} = $hci{$item}->{'lmp-subversion'}; } } - if ($extra > 0 && defined $hci{$item}->{'hci-version'} && ($extra > 2 || !$hci{$item}->{'lmp-version'} || - ($hci{$item}->{'lmp-version'} && $hci{$item}->{'lmp-version'} ne $hci{$item}->{'hci-version'}))){ + if ($extra > 0 && defined $hci{$item}->{'hci-version'} && + ($extra > 2 || !$hci{$item}->{'lmp-version'} || + ($hci{$item}->{'lmp-version'} && + $hci{$item}->{'lmp-version'} ne $hci{$item}->{'hci-version'}))){ $rows->[$j]{main::key($num++,0,$l,'hci-v')} = $hci{$item}->{'hci-version'}; if ($extra > 1 && $hci{$item}->{'hci-revision'}){ $rows->[$j]{main::key($num++,0,$m,'rev')} = $hci{$item}->{'hci-revision'}; } } - # if ($extra > 1 && $hci{$item}->{'discoverable'}){ - # $rows->[$j]{main::key($num++,1,$l,'discover')} = $hci{$item}->{'discoverable'}; - # if ($extra > 2 && $hci{$item}->{'discovering'}){ - # $rows->[$j]{main::key($num++,1,$m,'active')} = $hci{$item}->{'discovering'}; - # } - # } - # if ($extra > 1 && $hci{$item}->{'pairable'}){ - # $rows->[$j]{main::key($num++,0,$l,'pair')} = $hci{$item}->{'pairable'}; - # } - # this data only from hciconfig if ($b_admin && - ($hci{$item}->{'acl-mtu'} || $hci{$item}->{'sco-mtu'} || $hci{$item}->{'link-policy'})){ + ($hci{$item}->{'discoverable'} || $hci{$item}->{'pairable'})){ + $rows->[$j]{main::key($num++,1,$l,'status')} = ''; + if ($hci{$item}->{'discoverable'}){ + $rows->[$j]{main::key($num++,1,$m,'discoverable')} = $hci{$item}->{'discoverable'}; + if ($hci{$item}->{'discovering'}){ + $rows->[$j]{main::key($num++,1,$n,'active')} = $hci{$item}->{'discovering'}; + } + } + if ($hci{$item}->{'pairable'}){ + $rows->[$j]{main::key($num++,0,$m,'pairing')} = $hci{$item}->{'pairable'}; + } + } + if ($extra > 2 && $hci{$item}->{'class'}){ + $rows->[$j]{main::key($num++,0,$l,'class-ID')} = $hci{$item}->{'class'}; + } + # this data only from hciconfig + if ($b_admin && ($hci{$item}->{'acl-mtu'} || $hci{$item}->{'sco-mtu'} || + $hci{$item}->{'link-policy'})){ $j = scalar @$rows; push(@$rows,{ main::key($num++,1,$l,'Info') => '', @@ -9035,11 +9041,13 @@ sub advanced_output { } # since $rows is ref, we need to just check if no $j were set. if (!$j && !$b_hci_error && ($alerts{'hciconfig'}->{'action'} ne 'use' && - $alerts{'bt-adapter'}->{'action'} ne 'use')){ + $alerts{'bt-adapter'}->{'action'} ne 'use' && + $alerts{'btmgmt'}->{'action'} ne 'use')){ my $key = 'Report'; my $value = ''; if ($alerts{'hciconfig'}->{'action'} eq 'platform' || - $alerts{'bt-adapter'}->{'action'} eq 'platform'){ + $alerts{'bt-adapter'}->{'action'} eq 'platform' || + $alerts{'btmgmt'}->{'action'} eq 'platform'){ $value = main::message('tool-missing-os','bluetooth'); } else { @@ -9053,7 +9061,34 @@ sub advanced_output { eval $end if $b_log; } -sub bt_tool_data { +# note: echo 'show' | bluetoothctl outputs everything but hciX ID, and is fast +# args: 0: $tool, by ref +sub set_bluetooth_data { + eval $start if $b_log; + if (!$b_hci && !$force{'bt-adapter'} && !$force{'btmgmt'} && + !$force{'rfkill'} && + ($fake{'bluetooth'} || $alerts{'hciconfig'}->{'action'} eq 'use')){ + hciconfig_data(); + ${$_[0]} = 'hciconfig'; + } + elsif (!$b_hci && !$force{'rfkill'} && !$force{'bt-adapter'} && + ($fake{'bluetooth'} || $alerts{'btmgmt'}->{'action'} eq 'use')){ + btmgmt_data(); + ${$_[0]} = 'btmgmt'; + } + elsif (!$b_hci && !$force{'rfkill'} && + ($fake{'bluetooth'} || $alerts{'bt-adapter'}->{'action'} eq 'use')){ + bt_adapter_data(); + ${$_[0]} = 'bt-adapter'; + } + if (!$b_rfk && ($fake{'bluetooth'} || -e '/sys/class/bluetooth/')){ + rfkill_data(); + ${$_[0]} = 'rfkill' if !${$_[0]}; + } + eval $end if $b_log; +} + +sub bt_adapter_data { eval $start if $b_log; $b_hci = 1; my (@data,$id); @@ -9065,7 +9100,7 @@ sub bt_tool_data { else { if ($b_bluetooth){ my $cmd = "$alerts{'bt-adapter'}->{'path'} --info 2>/dev/null"; - @data = main::grabber($cmd,'', 'strip'); + @data = main::grabber($cmd,'','strip'); } } # print Data::Dumper::Dumper \@data; @@ -9080,6 +9115,9 @@ sub bt_tool_data { elsif ($working[0] eq 'Address'){ $hci{$id}->{'address'} = join(':',@working[1 .. $#working]); } + elsif ($working[0] eq 'Class' && $working[1] =~ /^0x0*(\S+)/){ + $hci{$id}->{'class'} = $1; + } elsif ($working[0] eq 'Powered'){ $hci{$id}->{'state'} = ($working[1] =~ /^(1|yes)\b/) ? 'up': 'down'; } @@ -9096,7 +9134,50 @@ sub bt_tool_data { if (!@data && !$b_bluetooth){ $hci{'alert'} = main::message('bluetooth-down'); } - print Data::Dumper::Dumper \%hci if $dbg[27]; + print 'bt-adapter: ', Data::Dumper::Dumper \%hci if $dbg[27]; + main::log_data('dump','%hci', \%hci) if $b_log; + eval $end if $b_log; +} + +sub btmgmt_data { + eval $start if $b_log; + $b_hci = 1; + my (@data,$id); + if ($fake{'bluetooth'}){ + my $file; + $file = "$ENV{'HOME'}/bin/scripts/inxi/data/bluetooth/btmgmt-2.txt"; + @data = main::reader($file,'strip'); + } + else { + if ($b_bluetooth){ + my $cmd = "$alerts{'btmgmt'}->{'path'} info 2>/dev/null"; + @data = main::grabber($cmd,'', 'strip'); + } + } + # print Data::Dumper::Dumper \@data; + main::log_data('dump','@data', \@data) if $b_log; + foreach (@data){ + next if /^Index list/; + if (/^(hci[0-9]+):\s+/){ + $id = $1; + } + # addr 4C:F3:72:9C:B4:D3 version 6 manufacturer 15 class 0x000104 + elsif (/^addr\s+([0-9A-F:]+)\s+version\s+([0-9]+)\s/){ + $hci{$id}->{'address'} = $1; + $hci{$id}->{'lmp-version'} = $2; # assume non hex integer + $hci{$id}->{'bt-version'} = bluetooth_version($2); + if (/ class\s+0x0*(\S+)\b/){ + $hci{$id}->{'class'} = $1; + } + } + elsif (/^current settings:\s+(.*)/){ + my $settings = $1; + $hci{$id}->{'state'} = ($settings =~ /\bpowered\b/) ? 'up' : 'down'; + $hci{$id}->{'discoverable'} = ($settings =~ /\bdiscoverable\b/) ? 'yes' : 'no'; + $hci{$id}->{'pairable'} = ($settings =~ /\bconnectable\b/) ? 'yes' : 'no'; + } + } + print 'btmgmt: ', Data::Dumper::Dumper \%hci if $dbg[27]; main::log_data('dump','%hci', \%hci) if $b_log; eval $end if $b_log; } @@ -9107,7 +9188,7 @@ sub hciconfig_data { my (@data,$id); if ($fake{'bluetooth'}){ my $file; - $file = ""; + $file = "$ENV{'HOME'}/bin/scripts/inxi/data/bluetooth/hciconfig-a-2.txt"; @data = main::reader($file,'strip'); } else { @@ -9132,13 +9213,28 @@ sub hciconfig_data { elsif (/^(UP|DOWN).*/){ $hci{$id}->{'state'} = lc($1); } - elsif (/^HCI Version:\s+([0-9\.]+)\s+.*Revision:\s+0x([0-9a-f]+)/){ - $hci{$id}->{'hci-version'} = $1; - $hci{$id}->{'hci-revision'} = $2; + elsif (/^Class:\s+0x0*(\S+)/){ + $hci{$id}->{'class'} = $1; } - elsif (/^LMP Version:\s+([0-9\.]+)\s+.*Subversion:\s+0x([0-9a-f]+)/){ - $hci{$id}->{'lmp-version'} = $1; - $hci{$id}->{'lmp-subversion'} = $2; + # HCI Version: 4.0 (0x6) Revision: 0x1000 + # HCI Version: 6.6 Revision: 0x1000 [don't know if this exists] + # HCI Version: (0x7) Revision: 0x3101 + elsif (/^HCI Version:\s+(([0-9\.]+)\s+)?\(0x([0-9a-f]+)\)\s+Revision:\s+0x([0-9a-f]+)/i){ + $hci{$id}->{'hci-revision'} = $4; + if (defined $3){ + $hci{$id}->{'bt-version'} = bluetooth_version(hex($3)); + $hci{$id}->{'hci-version'} = hex($3); + $hci{$id}->{'hci-version-hex'} = $3; + } + } + # LMP Version: 4.0 (0x6) Subversion: 0x220e + # LMP Version: 6.6 Revision: 0x1000 [don't know if this exists] + # LMP Version: (0x7) Subversion: 0x1 + elsif (/^LMP Version:\s+(([0-9\.]+)\s+)?\(0x([0-9a-f]+)\)\s+Subversion:\s+0x([0-9a-f]+)/i){ + $hci{$id}->{'lmp-subversion'} = $4; + $hci{$id}->{'bt-version'} = bluetooth_version(hex($3)); + $hci{$id}->{'lmp-version'} = hex($3); + $hci{$id}->{'lmp-version-hex'} = $3; } elsif (/^Link policy:\s+(.*)/){ $hci{$id}->{'link-policy'} = lc($1); @@ -9150,7 +9246,7 @@ sub hciconfig_data { $hci{$id}->{'service-classes'} = main::clean_unset(lc($1)); } } - print Data::Dumper::Dumper \%hci if $dbg[27]; + print 'hciconfig: ', Data::Dumper::Dumper \%hci if $dbg[27]; main::log_data('dump','%hci', \%hci) if $b_log; eval $end if $b_log; } @@ -9187,7 +9283,7 @@ sub rfkill_data { $hci{$id}->{'rf-index'} = $value; } } - print Data::Dumper::Dumper \%hci if $dbg[27]; + print 'rfkill: ', Data::Dumper::Dumper \%hci if $dbg[27]; main::log_data('dump','%hci', \%hci) if $b_log; eval $end if $b_log; } @@ -9202,13 +9298,16 @@ sub check_service { eval $end if $b_log; } +# args: 0: lmp versoin - could be hex, but probably decimal, like 6.6 sub bluetooth_version { eval $start if $b_log; my ($lmp) = @_; - return if !defined $lmp || !main::is_numeric($lmp); + return if !defined $lmp; + return if !main::is_numeric($lmp); $lmp = int($lmp); - # conveniently, LMP starts with 0, so perfect for array indexes - my @bt = qw(1.0b 1.1 1.2 2.0 2.1 3.0 4.0 4.1 4.2 5.0 5.1 5.2); + # Conveniently, LMP starts with 0, so perfect for array indexes. + # 6.0 is coming, but might be 5.5 first, nobody knows. + my @bt = qw(1.0b 1.1 1.2 2.0 2.1 3.0 4.0 4.1 4.2 5.0 5.1 5.2 5.3 5.4); return $bt[$lmp]; eval $end if $b_log; } @@ -19467,6 +19566,7 @@ sub advanced_data_sys { @paths = main::globber('/sys/class/net/*'); } @paths = grep {!/\/lo$/} @paths; + # push(@paths,'/sys/class/net/ppp0'); # fake IF if needed to match test data if ($count > 0 && $count < scalar @paths){ @paths = splice(@paths, $count, scalar @paths); } @@ -19627,9 +19727,8 @@ sub if_ip { eval $start if $b_log; my ($rows,$type,$if) = @_; my ($working_if); - my ($cont_ip,$ind_ip) = (3,4); - my $num = 0; - my $j = 0; + my ($cont_ip,$ind_ip,$if_cnt) = (3,4,0); + my ($j,$num) = (0,0); $b_ip_run = 1; if ($type eq 'IF-ID'){ ($cont_ip,$ind_ip) = (2,3); @@ -19642,11 +19741,13 @@ sub if_ip { next; } if ($working_if eq $if){ + $if_cnt = 0; # print "if $if item:\n", Data::Dumper::Dumper $item; foreach my $data2 (@$item){ $j = scalar @$rows; $num = 1; - if ($limit > 0 && $j >= $limit){ + $if_cnt++; + if ($limit > 0 && $if_cnt > $limit){ push(@$rows, { main::key($num++,0,$cont_ip,'Message') => main::message('output-limit',scalar @$item), }); @@ -20569,7 +20670,8 @@ sub swap_data { my (@data,@working); my ($block_size,$cache_pressure,$dev_base,$dev_mapped,$dev_type,$label, $maj_min,$mount,$path,$pattern1,$pattern2,$percent_used,$priority, - $size,$swap_type,$swappiness,$used,$uuid); + $size,$swap_type,$swappiness,$used,$uuid,$zram_comp,$zram_mcs, + $zswap_enabled,$zram_comp_avail,$zswap_comp,$zswap_mpp); my ($s,$j,$size_id,$used_id) = (1,0,2,3); if (!$bsd_type){ # faster, avoid subshell, same as swapon -s @@ -20582,9 +20684,8 @@ sub swap_data { @working = main::grabber("$path -s 2>/dev/null"); } if ($b_admin){ - @data = swap_advanced_data(); - $swappiness = $data[0]; - $cache_pressure = $data[1]; + swap_advanced_data(\$swappiness,\$cache_pressure,\$zswap_enabled, + \$zswap_comp,\$zswap_mpp); } if (($show{'label'} || $show{'uuid'}) && !$loaded{'label-uuid'}){ set_label_uuid(); @@ -20607,12 +20708,19 @@ sub swap_data { foreach (@working){ #next if ! /^\/dev/ || /^\/dev\/(ramzwap|zram)/; next if /^(Device|Filename|no swap)/; - ($block_size,$dev_base,$dev_mapped,$dev_type,$label,$maj_min,$mount,$priority, - $swap_type,$uuid) = ('','','','','','','',undef,'partition',''); + ($block_size,$dev_base,$dev_mapped,$dev_type,$label,$maj_min,$mount, + $swap_type,$uuid) = ('','','','','','','','partition',''); + ($priority,$zram_comp_avail,$zram_comp,$zram_mcs) = (); @data = split(/\s+/, $_); - if (/^\/dev\/(block\/)?(compcache|ramzwap|zram)/i){ + # /dev/zramX; ramzswapX == compcache, legacy version of zram. + # /run/initramfs/dev/zram0; /dev/ramzswap0 + if (/^\/(dev|run).*?\/((compcache|ramzwap|zram)\d+)/i){ + $dev_base = $2; $swap_type = 'zram'; $dev_type = 'dev'; + if ($b_admin){ + zram_data($dev_base,\$zram_comp,\$zram_comp_avail,\$zram_mcs); + } } elsif ($data[1] && $data[1] eq 'ram'){ $swap_type = 'ram'; @@ -20675,6 +20783,12 @@ sub swap_data { 'swap-type' => $swap_type, 'used' => $used, 'uuid' => $uuid, + 'zram-comp' => $zram_comp, + 'zram-comp-avail' => $zram_comp_avail, + 'zram-max-comp-streams' => $zram_mcs, + 'zswap-enabled' => $zswap_enabled, + 'zswap-compressor' => $zswap_comp, + 'zswap-max-pool-percent' => $zswap_mpp, }); $s++; } @@ -20683,23 +20797,59 @@ sub swap_data { eval $end if $b_log; } +# Alll by ref: 0: $swappiness; 1: $cache_pressure; 2: $zswap_enabled; +# 3: $zswap_comp; 4: $zswap_mpp sub swap_advanced_data { eval $start if $b_log; - my ($swappiness,$cache_pressure) = (); if (-r '/proc/sys/vm/swappiness'){ - $swappiness = main::reader('/proc/sys/vm/swappiness','',0); - if (defined $swappiness){ - $swappiness .= ($swappiness == 60) ? ' (default)' : ' (default 60)' ; + ${$_[0]} = main::reader('/proc/sys/vm/swappiness','',0); + if (defined ${$_[0]}){ + ${$_[0]} .= (${$_[0]} == 60) ? ' (default)' : ' (default 60)' ; } } if (-r '/proc/sys/vm/vfs_cache_pressure'){ - $cache_pressure = main::reader('/proc/sys/vm/vfs_cache_pressure','',0); - if (defined $cache_pressure){ - $cache_pressure .= ($cache_pressure == 100) ? ' (default)' : ' (default 100)' ; + ${$_[1]} = main::reader('/proc/sys/vm/vfs_cache_pressure','',0); + if (defined ${$_[1]}){ + ${$_[1]} .= (${$_[1]}== 100) ? ' (default)' : ' (default 100)' ; } } + if (-r '/sys/module/zswap/parameters/enabled'){ + ${$_[2]} = main::reader('/sys/module/zswap/parameters/enabled','',0); + if (${$_[2]} =~ /^(Y|yes|true|1)$/){ + ${$_[2]} = 'yes'; + } + elsif (${$_[2]} =~ /^(N|no|false|0)$/){ + ${$_[2]} = 'no'; + } + else { + ${$_[2]} = 'unset'; + } + } + if (-r '/sys/module/zswap/parameters/compressor'){ + ${$_[3]} = main::reader('/sys/module/zswap/parameters/compressor','',0); + } + if (-r '/sys/module/zswap/parameters/max_pool_percent'){ + ${$_[4]} = main::reader('/sys/module/zswap/parameters/max_pool_percent','',0); + } eval $end if $b_log; - return ($swappiness,$cache_pressure); +} + +# 0: device id [zram0]; by ref: 1: $zram_comp; 2: $zram_comp_avail; 3: $zram_mcs; +sub zram_data { + if (-r "/sys/block/$_[0]/comp_algorithm"){ + ${$_[2]} = main::reader("/sys/block/$_[0]/comp_algorithm",'',0); + # current is in [..] in list + if (${$_[2]} =~ /\[(\S+)\]/){ + ${$_[1]} = $1; + # dump the active one, and leave the available + ${$_[2]} =~ s/\[${$_[1]}\]//; + ${$_[2]} =~ s/^\s+|\s+$//g; + ${$_[2]} =~ s/\s+/,/g; + } + } + if (-r "/sys/block/$_[0]/max_comp_streams"){ + ${$_[3]} = main::reader("/sys/block/$_[0]/max_comp_streams",'',0); + } } # Handle cases of hidden file systems @@ -24651,7 +24801,7 @@ sub sensors_output { @fan_main = @{$sensors->{'fan-main'}} if $sensors->{'fan-main'}; @fan_default = @{$sensors->{'fan-default'}} if $sensors->{'fan-default'}; my $fan_def = (!@fan_main && !@fan_default) ? 'N/A' : ''; - $rows->[$j]{main::key($num++,1,$l1,'Fan Speeds (RPM)')} = $fan_def; + $rows->[$j]{main::key($num++,1,$l1,'Fan Speeds (rpm)')} = $fan_def; my $b_cpu = 0; for (my $i = 0; $i < scalar @fan_main; $i++){ next if $i == 0;# starts at 1, not 0 @@ -25353,7 +25503,7 @@ sub load_sys_data { $value = sprintf('%0.1f',$item->{'value'}/1000); } elsif ($item->{'id'} =~ /^fan/){ - $unit = 'RPM'; + $unit = 'rpm'; $value = $item->{'value'}; } # note: many sensors require further math on value, so these will be wrong @@ -26227,6 +26377,16 @@ sub create_output { if (defined $row->{'cache-pressure'}){ $rows->[$j]{main::key($num++,0,2,'cache-pressure')} = $row->{'cache-pressure'}; } + $row->{'zswap-enabled'} ||= 'N/A'; + $rows->[$j]{main::key($num++,1,2,'zswap')} = $row->{'zswap-enabled'}; + if ($row->{'zswap-enabled'} eq 'yes'){ + if (defined $row->{'zswap-compressor'}){ + $rows->[$j]{main::key($num++,0,1,'compressor')} = $row->{'zswap-compressor'}; + } + if (defined $row->{'zswap-max-pool-percent'}){ + $rows->[$j]{main::key($num++,0,1,'max-pool')} = $row->{'zswap-max-pool-percent'} . '%'; + } + } } else { $rows->[$j]{main::key($num++,0,1,'Message')} = main::message('swap-admin'); @@ -26258,6 +26418,17 @@ sub create_output { if ($extra > 1 && defined $row->{'priority'}){ $rows->[$j]{main::key($num++,0,2,'priority')} = $row->{'priority'}; } + if ($b_admin && $row->{'swap-type'} eq 'zram'){ + if ($row->{'zram-comp'}){ + $rows->[$j]{main::key($num++,1,2,'comp')} = $row->{'zram-comp'}; + if ($row->{'zram-comp-avail'}){ + $rows->[$j]{main::key($num++,0,3,'avail')} = $row->{'zram-comp-avail'}; + } + } + if ($row->{'zram-max-comp-streams'}){ + $rows->[$j]{main::key($num++,0,3,'max-streams')} = $row->{'zram-max-comp-streams'}; + } + } $row->{'mount'} =~ s|/home/[^/]+/(.*)|/home/$filter_string/$1| if $row->{'mount'} && $use{'filter'}; $rows->[$j]{main::key($num++,1,2,$dev)} = ($row->{'mount'}) ? $row->{'mount'} : 'N/A'; if ($b_admin && $row->{'maj-min'}){ @@ -27504,14 +27675,13 @@ package CompilerVersion; sub get { eval $start if $b_log; - my $compiler; + my $compiler = []; # we want an array ref to return if not set if (my $file = $system_files{'proc-version'}){ - version_proc(\$compiler,$file); + version_proc($compiler,$file); } elsif ($bsd_type){ - version_bsd(\$compiler); + version_bsd($compiler); } - $compiler ||= []; # we want an array ref to return if not set eval $end if $b_log; return $compiler; } @@ -27530,17 +27700,17 @@ sub version_bsd { if (/^kern.compiler_version/){ @working = split(/:\s*/, $_); $working[1] =~ /.*(gcc|clang)\sversion\s([\S]+)\s.*/; - $$compiler = [$1,$2]; + @$compiler = ($1,$2); last; } } } # OpenBSD doesn't show compiler data in sysctl or dboot but it's going to # be Clang until way into the future, and it will be the installed version. - if (!@$compiler){ + if (ref $compiler ne 'ARRAY' || !@$compiler){ if (my $path = main::check_program('clang')){ - $compiler->[0] = 'clang'; - $compiler->[1] = main::program_version($path,'clang',3,'--version'); + $compiler->[0] = 'clang'; + $compiler->[1] =main::program_version($path,'clang',3,'--version'); } } } @@ -27569,12 +27739,12 @@ sub version_proc { if ($result =~ /(gcc|clang).*version\s([^,\s\)]+)/){ $version = $2; $version ||= 'N/A'; - $$compiler = [$1,$version]; + @$compiler = ($1,$version); } elsif ($result =~ /\((gcc|clang)[^\(]*\([^\)]+\)\s+([0-9\.]+)(\s[^.]*)?,\s*/){ $version = $2; $version ||= 'N/A'; - $$compiler = [$1,$version]; + @$compiler = ($1,$version); } } main::log_data('dump','@$compiler',$compiler) if $b_log; @@ -30799,10 +30969,11 @@ package IpData; sub set { eval $start if $b_log; - if ($alerts{'ip'}->{'action'} eq 'use'){ + if ($force{'ip'} || + (!$force{'ifconfig'} && $alerts{'ip'}->{'action'} eq 'use')){ set_ip_addr(); } - elsif ($alerts{'ifconfig'}->{'action'} eq 'use'){ + elsif ($force{'ifconfig'} || $alerts{'ifconfig'}->{'action'} eq 'use'){ set_ifconfig(); } eval $end if $b_log; @@ -30811,17 +30982,21 @@ sub set { sub set_ip_addr { eval $start if $b_log; my @data = main::grabber($alerts{'ip'}->{'path'} . " addr 2>/dev/null",'\n','strip'); - # my $file = "$fake_data_dir/if/scope-ipaddr-1.txt"; - # my $file = "$fake_data_dir/networking/ip-addr-blue-advance.txt"; - # my @data = reader($file,'strip') or die $!; - my ($b_skip,$broadcast,$if,$ip,@ips,$scope,$if_id,$type,@temp,@temp2); + if ($fake{'ip-if'}){ + # my $file = "$fake_data_dir/if/scope-ipaddr-1.txt"; + # my $file = "$fake_data_dir/network/ip-addr-blue-advance.txt"; + # my $file = "$fake_data_dir/network/ppoe-ip-address-1.txt"; + # my $file = "$fake_data_dir/network/ppoe-ip-addr-2.txt"; + # my $file = "$fake_data_dir/network/ppoe-ip-addr-3.txt"; + # @data = main::reader($file,'strip') or die $!; + } + my ($b_skip,$broadcast,$if,$if_id,$ip,@ips,$scope,$type,@temp,@temp2); foreach (@data){ if (/^[0-9]/){ # print "$_\n"; if (@ips){ - # print "$if\n"; - @temp = ($if,[@ips]); - push(@ifs,@temp); + # print "$if\n"; + push(@ifs,($if,[@ips])); @ips = (); } @temp = split(/:\s+/, $_); @@ -30831,13 +31006,12 @@ sub set_ip_addr { $if = ''; next; } - $b_skip = 0; - @temp = (); + ($b_skip,@temp) = (); } elsif (!$b_skip && /^inet/){ # print "$_\n"; + ($broadcast,$ip,$scope,$if_id,$type) = (); @temp = split(/\s+/, $_); - ($broadcast,$ip,$scope,$if_id,$type) = ('','','','',''); $ip = $temp[1]; $type = ($temp[0] eq 'inet') ? 4 : 6 ; if ($temp[2] eq 'brd'){ @@ -30847,25 +31021,27 @@ sub set_ip_addr { $scope = $1; $if_id = $3; } - @temp = ($type,$ip,$broadcast,$scope,$if_id); - push(@ips,[@temp]); + push(@ips,[$type,$ip,$broadcast,$scope,$if_id]); # print Data::Dumper::Dumper \@ips; } } - # print Data::Dumper::Dumper \@ips if $dbg[4]; if (@ips){ - @temp = ($if,[@ips]); - push(@ifs,@temp); + push(@ifs,($if,[@ips])); } main::log_data('dump','@ifs',\@ifs) if $b_log; - print Data::Dumper::Dumper \@ifs if $dbg[3]; + print 'ip addr: ', Data::Dumper::Dumper \@ifs if $dbg[3]; eval $end if $b_log; } sub set_ifconfig { eval $start if $b_log; + # whitespace matters!! Don't use strip my @data = main::grabber($alerts{'ifconfig'}->{'path'} . " 2>/dev/null",'\n',''); - # my @data = reader("$fake_data_dir/if/vps-ifconfig-1.txt",'') or die $!; + if ($fake{'ip-if'}){ + # my $file = "$fake_data_dir/network/ppoe-ifconfig-all-1.txt"; + # my $file = "$fake_data_dir/network/vps-ifconfig-1.txt"; + # @data = main::reader($file) or die $!; + } my ($b_skip,$broadcast,$if,@ips_bsd,$ip,@ips,$scope,$if_id,$type,@temp,@temp2); my ($state,$speed,$duplex,$mac); foreach (@data){ @@ -30873,13 +31049,11 @@ sub set_ifconfig { # print "$_\n"; if (@ips){ # print "here\n"; - @temp = ($if,[@ips]); - push(@ifs,@temp); + push(@ifs,($if,[@ips])); @ips = (); } if ($mac){ - @temp = ($if,[($state,$speed,$duplex,$mac)]); - push(@ifs_bsd,@temp); + push(@ifs_bsd,($if,[$state,$speed,$duplex,$mac])); ($state,$speed,$duplex,$mac,$if_id) = ('','','','',''); } $if = (split(/\s+/, $_))[0]; @@ -30949,12 +31123,11 @@ sub set_ifconfig { push(@ifs,($if,[@ips])); } if ($mac){ - @temp = ($if,[($state,$speed,$duplex,$mac)]); - push(@ifs_bsd,@temp); + push(@ifs_bsd,($if,[$state,$speed,$duplex,$mac])); ($state,$speed,$duplex,$mac) = ('','','',''); } - print Data::Dumper::Dumper \@ifs if $dbg[3]; - print Data::Dumper::Dumper \@ifs_bsd if $dbg[3]; + print 'ifconfig: ', Data::Dumper::Dumper \@ifs if $dbg[3]; + print 'ifconfig bsd: ', Data::Dumper::Dumper \@ifs_bsd if $dbg[3]; main::log_data('dump','@ifs',\@ifs) if $b_log; main::log_data('dump','@ifs_bsd',\@ifs_bsd) if $b_log; eval $end if $b_log; @@ -30987,6 +31160,24 @@ sub get_kernel_bits { return $bits; } +# arg: 0: $cs_curr, by ref; 1: $cs_avail, by ref. +sub get_kernel_clocksource { + eval $start if $b_log; + if (-r '/sys/devices/system/clocksource/clocksource0/current_clocksource'){ + ${$_[0]} = reader('/sys/devices/system/clocksource/clocksource0/current_clocksource','',0); + if ($b_admin && + -r '/sys/devices/system/clocksource/clocksource0/available_clocksource'){ + ${$_[1]} = reader('/sys/devices/system/clocksource/clocksource0/available_clocksource','',0); + if (${$_[0]} && ${$_[1]}){ + my @temp = split(/\s+/,${$_[1]}); + @temp = grep {$_ ne ${$_[0]}} @temp; + ${$_[1]} = join(',', @temp); + } + } + } + eval $end if $b_log; +} + sub get_kernel_data { eval $start if $b_log; my ($ksplice) = (''); @@ -33615,12 +33806,12 @@ sub set_sysctl_data { /^dev\.cpu/ || /^machdep\.(cpu|hlt_logical_cpus)/)){ push(@{$sysctl{'cpu'}}, $_); } - # only activate if using the diskname feature in dboot!! + # only activate if using the diskname feature in dboot!! note assign to $dboot. elsif ($use{'bsd-disk'} && /^hw\.disknames/){ push(@{$dboot{'disk'}}, $_); } elsif ($use{'bsd-kernel'} && /^kern.compiler_version/){ - push(@{$dboot{'kernel'}}, $_); + push(@{$sysctl{'kernel'}}, $_); } elsif ($use{'bsd-machine'} && /^(hw\.|machdep\.dmi\.(bios|board|system)-)(date|product|serial(no)?|uuid|vendor|version)/){ @@ -33786,6 +33977,13 @@ sub set { main::log_data('dump','$usb{graphics}: ',$usb{'graphics'}); main::log_data('dump','$usb{network}: ',$usb{'network'}); } + if ($dbg[55]){ + print '$usb{audio}: ', Data::Dumper::Dumper $usb{'audio'}; + print '$usb{bluetooth}: ', Data::Dumper::Dumper $usb{'bluetooth'}; + print '$usb{disk}: ', Data::Dumper::Dumper $usb{'disk'}; + print '$usb{graphics}: ', Data::Dumper::Dumper $usb{'graphics'}; + print '$usb{network}: ', Data::Dumper::Dumper $usb{'network'}; + } eval $end if $b_log; } @@ -33814,7 +34012,6 @@ sub lsusb_data { $chip_id = $working[5]; @temp = @working[6..$#working]; $name = main::remove_duplicates(join(' ', @temp)); - $name = $name; # $type = check_type($name,'',''); $type ||= ''; # do NOT set bus_id_alpha here!! @@ -33843,9 +34040,9 @@ sub lsusb_data { push(@{$usb{'main'}},[@working]); # print join("\n",@working),"\n\n=====\n"; } - print Data::Dumper::Dumper $usb{'main'} if $dbg[6]; + print 'lsusb-pre-sys: ', Data::Dumper::Dumper $usb{'main'} if $dbg[6]; sys_data('lsusb') if $usb{'main'}; - print Data::Dumper::Dumper $usb{'main'} if $dbg[6]; + print 'lsusb-w-sys: ', Data::Dumper::Dumper $usb{'main'} if $dbg[6]; main::log_data('dump','$usb{main}: plain',$usb{'main'}) if $b_log; eval $end if $b_log; } @@ -33954,7 +34151,7 @@ sub usbconfig_data { } } main::log_data('dump','$usb{main}: usbconfig',$usb{'main'}) if $b_log; - print Data::Dumper::Dumper $usb{'main'} if $dbg[6]; + print 'usbconfig: ', Data::Dumper::Dumper $usb{'main'} if $dbg[6]; eval $end if $b_log; } @@ -34130,7 +34327,7 @@ sub usbdevs_data { } } main::log_data('dump','$usb{main}: usbdevs',$usb{'main'}) if $b_log; - print Data::Dumper::Dumper $usb{'main'} if $dbg[6]; + print 'usbdevs: ', Data::Dumper::Dumper $usb{'main'} if $dbg[6]; eval $end if $b_log; } @@ -34249,7 +34446,6 @@ sub sys_data { if (!$b_hub && $usb{'main'}->[$i][13] && (!$type || $type eq '')){ $type = check_type($usb{'main'}->[$i][13],$driver,$type); } - # print $type,"\n"; $usb{'main'}->[$i][0] = $bus_id_alpha; $usb{'main'}->[$i][2] = $path_id; $usb{'main'}->[$i][3] = $file; @@ -34345,7 +34541,7 @@ sub sys_data { # print "$path_id ids: $bus_id:$device_id driver: $driver ports: $ports\n==========\n"; # if $dbg[6];; } } - print Data::Dumper::Dumper $usb{'main'} if $source eq 'main' && $dbg[6]; + print 'usb-sys: ', Data::Dumper::Dumper $usb{'main'} if $source eq 'main' && $dbg[6]; main::log_data('dump','$usb{main}: sys',$usb{'main'}) if $source eq 'main' && $b_log; eval $end if $b_log; } @@ -34421,7 +34617,7 @@ sub assign_usb_type { # although nested hubs of course can be > 1 too. No need to build these if # none of lines are showing. if (($row->[4] && $row->[4] eq '09') || - ($row->[14] && $row->[14] eq 'hub') || $row->[1] <= 1 || + ($row->[14] && lc($row->[14]) eq 'hub') || $row->[1] <= 1 || (!$show{'audio'} && !$show{'bluetooth'} && !$show{'disk'} && !$show{'graphic'} && !$show{'network'})){ return; @@ -34432,30 +34628,41 @@ sub assign_usb_type { set_asound_ids() if $show{'audio'} && !$b_asound; set_network_regex() if $show{'network'} && !$network_regex; # NOTE: a device, like camera, can be audio+graphic + # NOTE: 13, 14 can be upper/lower case, so use i. if ($show{'audio'} && ( (@asound_ids && $row->[7] && (grep {$row->[7] eq $_} @asound_ids)) || - ($row->[14] =~ /audio/) || ($row->[15] && $row->[15] =~ /audio/) || - ($row->[13] && lc($row->[13]) =~ /(audio|\bdac[0-9]*\b|headphone|\bmic(rophone)?\b)/))){ + ($row->[14] && $row->[14] =~ /audio/i) || + ($row->[15] && $row->[15] =~ /audio/) || + ($row->[13] && lc($row->[13]) =~ /(audio|\bdac[0-9]*\b|headphone|\bmic(rophone)?\b)/i) + )){ push(@{$usb{'audio'}},$row); } - if ($show{'graphic'} && ($row->[14] && ($row->[14] =~ /video/) || + if ($show{'graphic'} && ( + ($row->[14] && $row->[14] =~ /video/i) || ($row->[15] && $row->[15] =~ /video/) || - ($row->[13] && lc($row->[13]) =~ /(camera|\bdvb-t|\b(pc)?tv\b|video|webcam)/))){ + ($row->[13] && lc($row->[13]) =~ /(camera|\bdvb-t|\b(pc)?tv\b|video|webcam)/i) + )){ push(@{$usb{'graphics'}},$row); } - elsif ($show{'bluetooth'} && ($row->[14] && $row->[14] =~ /bluetooth/ || - ($row->[15] && $row->[15] =~ /\b(btusb|ubt)\b/))){ + # we want to catch bluetooth devices, which otherwise can trip network regex + elsif (($show{'bluetooth'} || $show{'network'}) && ( + ($row->[14] && $row->[14] =~ /bluetooth/i) || + ($row->[15] && $row->[15] =~ /\b(btusb|ubt)\b/) || + ($row->[13] && $row->[13] =~ /bluetooth/i) + )){ push(@{$usb{'bluetooth'}},$row); } - elsif ($show{'disk'} && ($row->[14] && $row->[14] =~ /mass storage/ || - ($row->[15] && $row->[15] =~ /storage/))){ + elsif ($show{'disk'} && ( + ($row->[14] && $row->[14] =~ /mass storage/i) || + ($row->[15] && $row->[15] =~ /storage/) + )){ push(@{$usb{'disk'}},$row); } elsif ($show{'network'} && ( - ($row->[14] && $row->[14] =~ /(ethernet|network|wifi)/) || + ($row->[14] && $row->[14] =~ /(ethernet|network|wifi)/i) || ($row->[15] && $row->[15] =~ /(^ipw|^iwl|wifi)/) || - ($row->[13] && $row->[13] =~ /($network_regex)/i))){ - # print "$1\n"; + ($row->[13] && $row->[13] =~ /($network_regex)/i) + )){ push(@{$usb{'network'}},$row); } } @@ -34571,12 +34778,12 @@ sub check_type { $name =~ /(camera|display|\bdvb-t|\b(pc)?tv\bvideo|webcam)/){ $type = 'Video'; } - elsif ($name =~ /(wlan|wi-?fi|802\.1[15]|(11|54|108|240|300|450|1300)\s?mbps|(11|54|108|240)g\b|wireless[\s-][gn]\b|wireless.*adapter)/){ + elsif ($name =~ /(wlan|wi-?fi|802\.1[15]|(11|54|108|240|300|433|450|900|1300)\s?mbps|(11|54|108|240)g\b|wireless[\s-][bgn]\b|wireless.*adapter)/){ $type = 'WiFi'; } # note, until freebsd match to actual drivers, these top level driver matches aren't interesting elsif (($driver && $bsd_type && $driver =~ /\b(muge)\b/) || - $name =~ /(ethernet|\blan|802\.3|100?\/1000?|gigabit)/){ + $name =~ /(ethernet|\blan|802\.3|100?\/1000?|gigabit|10\s?G(b|ig)?E)/){ $type = 'Ethernet'; } # note: audio devices show HID sometimes, not sure why @@ -34611,14 +34818,15 @@ sub set_asound_ids { sub set_network_regex { # belkin=050d; d-link=07d1; netgear=0846; ralink=148f; realtek=0bda; # Atmel, Atheros make other stuff. NOTE: exclude 'networks': IMC Networks - # ralink has bluetooth as well as networking; (WG|WND?A)[0-9][0-9][0-9] netgear IDs + # intel, ralink bluetooth as well as networking; (WG|WND?A)[0-9][0-9][0-9] netgear IDs $network_regex = 'Ethernet|gigabit|\bISDN|\bLAN\b|Mobile\s?Broadband|'; $network_regex .= '\bNIC\b|wi-?fi|Wireless[\s-][GN]\b|WLAN|'; $network_regex .= '802\.(1[15]|3)|(10|11|54|108|240|300|450|1300)\s?Mbps|(11|54|108|240)g\b|100?\/1000?|'; $network_regex .= '(100?|N)Base-?T\b|'; $network_regex .= '(Actiontec|AirLink|Asus|Belkin|Buffalo|Dell|D-Link|DWA-|ENUWI-|'; - $network_regex .= 'Ralink|Realtek|Rosewill|RNX-|Samsung|Sony|TEW-|TP-Link'; + $network_regex .= 'Ralink|Realtek|Rosewill|RNX-|Samsung|Sony|TEW-|TP-Link|'; $network_regex .= 'Zonet.*ZEW.*).*Wireless|'; + # Note: Intel Bluetooth wireless interface < should be caught by bluetooth tests $network_regex .= '(\bD-Link|Network(ing)?|Wireless).*(Adapter|Interface)|'; $network_regex .= '(Linksys|Netgear|Davicom)|'; $network_regex .= 'Range(Booster|Max)|Samsung.*LinkStick|\b(WG|WND?A)[0-9][0-9][0-9]|'; @@ -35239,7 +35447,7 @@ sub system_item { my ($index); my $data_name = main::key($prefix++,1,0,'System'); my ($desktop,$desktop_info,$desktop_key,$dm_key,$toolkit,$wm) = ('','','Desktop','dm','',''); - my (@desktop_data,$desktop_version,$tk_version,$wm_version); + my (@desktop_data,$cs_curr,$cs_avail,$desktop_version,$tk_version,$wm_version); my $data = { $data_name => [{}], }; @@ -35263,6 +35471,14 @@ sub system_item { $data->{$data_name}[$index]{main::key($num++,0,3,'v')} = $compiler->[1]; } } + if ($extra > 2){ + main::get_kernel_clocksource(\$cs_curr,\$cs_avail); + $cs_curr ||= 'N/A'; + $data->{$data_name}[$index]{main::key($num++,1,2,'clocksource')} = $cs_curr; + if ($b_admin && $cs_avail){ + $data->{$data_name}[$index]{main::key($num++,0,3,'available')} = $cs_avail; + } + } if ($b_admin && (my $params = KernelParameters::get())){ # $index = scalar(@{$data{$data_name}}); # not on own line for now # print "$params\n"; diff --git a/inxi.1 b/inxi.1 index 852d759..7927b67 100644 --- a/inxi.1 +++ b/inxi.1 @@ -15,7 +15,7 @@ .\" with this program; if not, write to the Free Software Foundation, Inc., .\" 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. .\" -.TH INXI 1 "2023\-07\-10" "inxi" "inxi manual" +.TH INXI 1 "2023\-08\-15" "inxi" "inxi manual" .SH NAME inxi \- Command line system information script for console and IRC @@ -278,9 +278,9 @@ for many more features. .TP .B \-E\fR, \fB\-\-bluetooth\fR Show bluetooth device(s), drivers. Show \fBReport:\fR with HCI ID, state, -address per device (requires \fBbt\-adapter\fR or \fBhciconfig\fR), -and if available (hciconfig only) bluetooth version (\fBbt\-v\fR). -See \fBExtra Data Options\fR for more. +address per device (requires \fBbtmgmt\fR, \fBbt\-adapter\fR, or +\fBhciconfig\fR), and if available (hciconfig, btmgmt only) bluetooth version +(\fBbt\-v\fR). See \fBExtra Data Options\fR for more. If bluetooth shows as \fBstatus: down\fR, shows \fBbt\-service:\fR\fB state and rfkill\fR software and hardware blocked states, and rfkill ID. @@ -697,8 +697,8 @@ Show distro repository data. Currently supported repo types: \fBAPK\fR (Alpine Linux + derived versions) -\fBAPT\fR (Debian, Ubuntu + derived versions, as well as RPM based -APT distros like PCLinuxOS or Alt\-Linux) +\fBAPT\fR (Debian, Ubuntu + derived versions, as well as rpm based +apt distros like PCLinuxOS or Alt\-Linux) \fBCARDS\fR (NuTyX + derived versions) @@ -1358,9 +1358,9 @@ specific vendor [product] information. \- Adds driver version (if available) for each device. -\- Adds (if available, and \fBhciconfig\fR only) LMP (HCI if no LMP data, -and HCI if HCI/LMP versions are different) version (if available) -for each HCI ID. +\- Adds (if available, \fBbtmgmt\fR, \fBhciconfig\fR only) LMP (HCI if no LMP +data, and HCI if HCI/LMP versions are different) version (if available) for each +HCI ID. .TP .B \-x \-G\fR @@ -1555,14 +1555,14 @@ For a PCIe 3 NVMe drive, with speed of \fB8 GT/s\fR and \fB4\fR lanes .B \-xx \-E\fR (\fB\-\-bluetooth\fR) \- Adds vendor:product ID of each device. -\- Adds (\fBhciconfig \fRonly) LMP subversion (and/or HCI revision -if applicable) for each device. - \- Adds PCIe speed and lanes item (Linux only, and if PCIe bluetooth, which is rare). \- Adds for USB devices USB rev, speed, lanes (lanes Linux only). +\- Adds (\fBhciconfig \fRonly) LMP subversion (and/or HCI revision if +applicable) for each device. + .TP .B \-xx \-G\fR Triggers much more complete Screen/Monitor output. @@ -1818,6 +1818,8 @@ are spinning, no rpm data will show. .B \-xxx \-E\fR (\fB\-\-bluetooth\fR) \- Adds, if present, PCI/USB class ID. +\- Adds, if present, bluetooth device class ID. + \- Adds (\fBhciconfig \fRonly) HCI version, revision. .TP @@ -1908,6 +1910,8 @@ RAID events) .TP .B \-xxx \-S\fR +\- Adds current kernel clock source, if available (Linux only). + \- Adds, if in X, or with \fB--display\fR, bar/dock/panel/tray items (\fBinfo\fR). If none found, shows nothing. Supports desktop items like gnome\-panel, lxpanel, xfce4\-panel, lxqt\-panel, tint2, cairo-dock, trayer, @@ -2141,6 +2145,9 @@ shown. Bluetooth PCIe rare). \- Adds for USB devices USB mode (Linux only). +\- Adds, if present, bluetooth \fBstatus:\fR discoverable, active discoverable, +and pairing items. + .TP .B \-a \-G\fR \- Adds, if present, possible \fBalternate:\fR kernel modules capable of driving @@ -2295,6 +2302,13 @@ For \fB\-j\fR row 1 output: \fBKernel: swappiness: 60 (default) cache\-pressure: 90 (default 100)\fR +\- Adds zswap data for row 1 output: + +\fBzswap: [yes/no] compressor: [type] max-pool: xx%\fR + +\- Adds for zram swap type: active compression type, available compression +types, and max compression streams. + \- Adds device kernel major:minor number (Linux only). .TP @@ -2388,6 +2402,8 @@ Component report to 1 component per line. .TP .B \-a \-S\fR +\- Adds alternate kernel clock sources, if available (Linux only). + \- Adds kernel boot parameters to \fBKernel\fR section (if detected). Support varies by OS type. @@ -2443,9 +2459,8 @@ basically forces the downloader selection to use \fBPerl 5.x\fR may help bypass issues with downloading. .TP -.B \-\-bt\-tool [bt\-adapter|hciconfig|rfkill]\fR -Force the use of the given tool for bluetooth report (\fB\-E\fR). \fBrfkill\fR -does not support mac address data. +.B \-\-bt\-tool [bt\-adapter|btmgmt|hciconfig|rfkill]\fR +See \fB\-\-force [tool name]\fR. Used to set \fB\-E\fR report tool. .TP .B \-\-dig\fR @@ -2484,6 +2499,10 @@ as a comma separated list: \fBinxi \-MJ --force dmidecode,lsusb\fR +\- \fBbt\-adapter\fR \- Force use of bt\-adapter tool in \fB\-E\fR. + +\- \fBbtmgmt\fR \- Force use of btmgmt tool in \fB\-E\fR. + \- \fBcolors\fR \- Same as \fB\-Y \-2\fR . Do not remove colors from piped or redirected output. @@ -2492,18 +2511,25 @@ redirected output. \- \fBhddtemp\fR \- Force use of hddtemp instead of /sys temp data for disks. +\- \fBifconfig\fR \- Force use of IF tool ifconfig for \fB\-i\fR. + +\- \fBip\fR \- Force use of IF ip tool for \fB\-i\fR (default). + \- \fBlsusb\fR \- Forces the USB data generator to use \fBlsusb\fR as data source (default). Overrides \fBUSB_SYS\fR in user configuration file(s). -\- \fBrpm\fR, \fBpkg\fR \- Force override of disabled RPM package counts on -primarily RPM run systems due to unacceptably slow execution times for this +\- \fBrfkill\fR \- Force use of rfkill tool in \fB\-E\fR. \fBrfkill\fR does not +support mac address data. + +\- \fBrpm\fR, \fBpkg\fR \- Force override of disabled rpm package counts on +primarily rpm run systems due to unacceptably slow execution times for this command: .nf \fBrpm \-qa \-\-nodigest \-\-nosignature\fR .fi -Even on newer RPM systems, in virtual machines, running rpm package list query +Even on newer rpm systems, in virtual machines, running rpm package list query takes more than 0.15 seconds (compared to 0.01 to 0.05 for dpkg, pacman, pkgtool etc) for just this single feature, which is north of 10% of total execution time for \fBinxi \-bar\fR. On bare metal this can hit 1 second or more in our tests. @@ -2542,6 +2568,10 @@ Temporary override of \fBNO_HTML_WAN\fR configuration item. Only use to test w/wo HTML downloaders for WAN IP. Restores default behavior for WAN IP, which is use HTML downloader if present and if dig failed. +.TP +.B \-\-ifconfig\fR +Shortcut. See \fB\-\-force ifconfig\fR. + .TP .B \-\-man\fR Updates / installs man page with \fB\-U\fR if \fBpinxi\fR or using \fB\-U 3\fR diff --git a/inxi.changelog b/inxi.changelog index d885a86..685da62 100644 --- a/inxi.changelog +++ b/inxi.changelog @@ -1,3 +1,214 @@ +================================================================================ +Version: 3.3.29 +Patch: 00 +Date: 2023-08-15 +-------------------------------------------------------------------------------- +RELEASE NOTES: +-------------------------------------------------------------------------------- + +Some significant bugs, 1 showstopper for FreeBSD, and one universal one for USB +network devices, and possibly some other USB device types. Also some nice new +features. + +-------------------------------------------------------------------------------- +SPECIAL THANKS: + +1. SYSTEM: Github user chromer030 in issue #285 - a very nice small enhancement +to -Sxxx line, adding kernel clocksource, and with -Sa, adding available +clocksources. I wish all issues were this clean and easy to implemment, with +such clear benefit. + +2. BLUETOOTH: Github user chromer030, issue #286 - extending and adding +bluetooth report feature. This required refactors and some cleanup of bad logic +to make -E more able to handle new data sources, and also made me fix the docs +and add debugger data files to make testing changes for various bluetooth +datasources easier. Adding btmgmt turned out to have a lot of long term benefits +to the bluetooth feature and internal inxi logic, I hadn't realized how hacked +on bluetooth feature was, but code review showed it clearly. + +3. SYSTEM: Github user oleg-indeez found a break in FreeBSD compiler data, 2 +glitches, one made inxi crash due to is array test on undefined reference, the +other maybe a bad copy paste in the past that assigned compiler data to wrong +hash. See CODE 3 for details on the ref issue. + +4. SWAP: Github user chromer030, again, issue #290 suggested some swap +zram/zswap data enhancements, seems good, so thanks. + +5. UsbData: Slackware/Linuxquestions.org poster J_W for posting on a device +missing in his output as of 3.3.27 inxi. This exposed bug 3, which usually was +npt visible since the fallback was catching most of the network matches, but +since he had a TP-Link, and it went missing, it triggered the issues, and also +exposed the inconsistent upper/lower case use in device type from kernel. + +6. NETWORK: Slackware user babydr on linuxquestions.org tripped a bug in +network, was not counting correctly to limit IP list. Led to showing limit +message on 10th row of network report, not 10th IP of a device. See Bug 4. + +-------------------------------------------------------------------------------- +KNOWN ISSUES: + +1. Nothing new. + +-------------------------------------------------------------------------------- +BUGS: + +1. BLUETOOTH: with hciconfig, would show wrong LMP/HCI version because either +the syntax changed for those strings, or it was wrong always. I think it changed +because this worked correctly at one point. Should now show the right hci/lmp +versions, and the bluetooth version as expected for hcicconfig/btmgmt. + +2. SYSTEM: CPU compiler broke for FreeBSD 13.2, caused by bad test for undefined +array in CompilerVersion::version_bsd(), and also, assigned kernel compiler data +to %dboot instead of %sysctl hash. Thanks oleg-indeez for spotting that one and +figuring it out. + +3a. UsbData: Failure to use /i caseinsensitive on regex led to failure to detect +USB type using standard defaults, but then a further regex error, subtle, missed +a | between two elements of a pattern, led to the last fallback case for network +detection failing. This was coupled with a change in the Kernel, which now uses +Uppercase first sometimes, and sometimes lowercase first. I think that's a +change anyway. This resulted in some usb type hashes failing to load specific +devices, network in this case, TP-Link, which was the fallback pattern that +broke. + +3b. UsbData::assign_usb_type() improper nesting of tests led to failures that +should not have happened, like a bluetooth device cascading down to network. + +4. NETWORK: IP limit was limiting based on total row count, not the actual count +of IPs for that device. Not sure how that slipped up. Now correctly limits the +IPs, not the previous total rows in Network report. Thanks babydr / Slackware +forums for finding yet more issues. + +-------------------------------------------------------------------------------- +FIXES: + +1a. BLUETOOTH: added in switches for fake bluetooth data for all bluetooth data +sources. + +1b. BLUETOOTH: made --bt-tool load $force{[tool]} to be consistent with rest of +logic in inxi for forcing use of specific tools. No idea why I made a standalone +one only for Bluetooth. + +1c. BLUETOOTH: the HCI/LMP version generators were mixing up bluetooth version +string and LMP, leading to wrong results. See BUGS 1. I think this was a syntax +change because I would not have generated this originally if the syntax had not +worked, at least I don't think I would have. See also DOCS DATA item, added in +samples for dev purposes to avoid this type of issue in future. + +2. UsbData: Device type from /sys could be upper/lower case first, but inxi was +not testing for anything but lower case, which would lead to fallback tests for +Bluetooth, Network, at least, maybe others. This goes with BUG 3, which exposed +a small torrent of such potential failure cases. The fallback block of regex is +really only designed to catch the few that don't get caught by the generic type +tests. + +3. NETWORK: UsbData::set_network_regex(). Bad regex caused bluetooth device: +"Intel Bluetooth wireless interface" to trip an overly loose regex for wireless. +See BUG 3b. The real issue was incorrect test nesting which led to a bluetooth +device falling down to network regex, which it should not have done. It also +failed test the product name for bluetooth, which led to failure as well. + +4. SWAP: Was failing to capture some zram syntaxes, regex was too tight. Failed: +/run/initramfs/dev/zram0. + +-------------------------------------------------------------------------------- +ENHANCEMENTS: + +1. SYSTEM: added kernel current clocksource for -Sxxx, and alternates for -Sa. + +2. BLUETOOTH: added btmgmt as first fallback to hciconfig, that one also +supplies bt version via lmp version, like hciconfig. Note this tool has very +little useful information. + +3. Added back in discoverable, active discovery, and pairing status with -Ea. +This data is also crudely available from btmgmt but I would not bet on those +items actually being right. I'm not totally convinced that's good data, so +making it admin for now. Put these in a 'status:' parent container. + +4a. SWAP: Added zswap enabled, compressor, max_pool_percent for -ja swap general +features line. If no zswap data and Linux, shows 'N/A'. +https://www.kernel.org/doc/Documentation/vm/zswap.txt + +4b. SWAP: Added zram comp_algorithm max_comp_streams to -j per line report, only +for zram, of course. +https://docs.kernel.org/admin-guide/blockdev/zram.html + +-------------------------------------------------------------------------------- +CHANGES: + +1. None that are obvious. + +-------------------------------------------------------------------------------- +DOCUMENTATION: + +1. DATA: Added new data/bluetooth/, with several sample 'btmgmt info' and +'hciconfig -a' outputs for debugging and reference purposes. These work with +the revised debuggers and force/fake data switches for bluetooth. Should add +some bt-adapter --info samples too to make testing/debugging easier. + +2a. DOCS: Made new docs/inxi-bluetooth.txt doc. + +2b. DOCS: Moved more data out of inxi-data.txt and inxi-resources.txt, into +inxi-bluetooth.txt, tips-tricks.txt, man-pages.txt. While I'm not going to do it +all at once, I am trying to move relevant data into granular doc file as I hit +that during dev. + +2c. DOCS: Updated and organized docs/inxi-tools-mapping.txt more, new mapping +tools added. inxi has so many manually updated mapping tools that it's going to +get more and more important that this document is accurate, and is updated when +required. + +3a. MAN/OPTIONS: Added BT tools to --force lists, and updated --bt-tool list. +Also added -Ea options, the status: stuff. + +3b. MAN/OPTIONS: Made consistent, lower case rpm, both PM type rpm and rpm as +rotation were switching between RPM and rpm randomly. + +3b. MAN/OPTIONS: Updated for --force ip/ifconfig, --ifconfig. + +3c. MAN/OPTIONS: Updated for zswap, zram extra -ja data. + +-------------------------------------------------------------------------------- +CODE: + +1. BLUETOOTH: added %force bluetoothctrl, bt-adapter, btmgmt, hciconfig, rfkill, +and added checks to enable $fake{'bluetooth'} in the main callers for each type. +This makes debugging and development a lot easier. Also removed the force tool +block in CheckTools, no idea, again, why I did it that way only for bluetooth. + +2. CheckTools: got rid of set_forced_tools(), which was only used for bluetooth +tools, and didn't fit with the rest of the core logic. + +3. SYSTEM: CompilerVersion: used array refs wrong, or rather, used refs wrong, +which led to various errors that were confusing. Corrected to start out with an +array ref, then to pass that as is, leaving it the same ref all through, for bsd +and linux. This is the method inxi should have always used for passing array/ +hash refs around, create as ref, then pass around, and update, without assigning +a new ref to it. + +I had failed to verify that the same ref was being used through the sequence. +Unfortunately this error is probably very widespread in inxi, because no +consistent rule was created and enforced from the first lines of Perl. + +4. UsbData: added source type to --dbg 6 output, and added --dbg 55 to output +the per type arrays. + +5. NETWORK: IpData:: added --ifconfig/--force [ip|ifconfig], --fake ip-if to +allow for basic debugging for -n / -i IP data sources. Not super useful since so +much comes from /sys, but there was nothing there at all, which is weird for +networking. + +6. SWAP: Changed to passing data using scalar references, not returning an +array of the items, and got rid of the copies in the swap_data_advanced() tool. +It's less readable, but incurs basically very little overhead, and with the new +function / method arg lists I'm using more now, it's clear what the references +are. + +7. IpData: got rid of extra array copies for push, pointless. + +-------------------------------------------------------------------------------- +-- Harald Hope - Tue, 15 Aug 2023 19:45:54 -0700 + ================================================================================ Version: 3.3.28 Patch: 00 @@ -5998,7 +6209,7 @@ Includes a fallback report Report-ID: case where for some reason, inxi could not match the HCI ID with the device. That's similar to IF-ID in -n, which does the same when some of the IFs could not be matched to a specific device. -3. For -A, -G, -N, and -E, new item for -xxx, classID, I realized this is +3. For -A, -G, -N, and -E, new item for -xxx, class-ID, I realized this is actually useful for many cases of trying to figure out what devices are, though most users would not know what to do with that information, but that's why it's an -xxx option!