+my $self_version='3.0.34';

+my $self_date='2019-04-30';

+ 'cmdline' => '/proc/cmdline',

+ '/proc/cmdline',

+ @data = basic_data($line,$pm);

+ my ($line,$pm_local) = @_;

+ $pm_local ||= 'N/A';

+ ['0', '', '', "Package manager: $pm_local" ],

+ ipmi-sensors lsblk lsusb modinfo runlevel sensors smartctl strings sudo

+ tree upower uptime);

+ if (($b_program || $b_module) && $pm){

+ $info{$pm} ||= 'N/A';

+ $install = " ~ Install package: $info{$pm}";

+ }

+ # Directory Data

+ # File Data

+ ## START PACKAGE MANAGER BLOCK ##

+ # Note: see inxi-perl branch for details: docs/recommends-package-manager.txt

+ # System Tools

+ 'info' => '-Dxx rotation (alt), type, smart',

+ 'info-bsd' => '-Dx rotation (alt), type, smart',

+ # Display Tools

+ # Perl Modules

+ ## END PACKAGE MANAGER BLOCK ##

+ # support maintainers of other pm types using custom lists

+ if ($arg =~ /^[1-9]$/){

+ ['2', '-d,-D', '', "If available: logical and physical block sizes." ],

+ ['2', '-S', '', "If available: kernel boot parameters." ],

+ location, see -W. NO AUTOMATED QUERIES ALLOWED!"],

+ [location]: postal code[,country/country code]; city, state (USA)/country

+ (country/two character country code); latitude, longitude. Only use if you

+ want the weather somewhere other than the machine running $self_name. Use

+ only ASCII characters, replace spaces in city/state/country names with '+'.

+ Example:^$self_name^-W^[new+york,ny^london,gb^madrid,es]"],

+ ['1', '', '--weather-source', "[1-9] Change weather data source. 1-4 generally

+ active, 5-9 check. See man."],

+ 'weather-error' => "Error: $id",

+ # failure to read dmesg.boot: dmesg.boot permissions; then short -Cx list flags

+ @flags = grep {/^(dmesg.boot|permissions|avx[2-9]?|lm|nx|pae|pni|(sss|ss)e([2-9])?([a-z])?(_[0-9])?|svm|vmx)$/} @flags;

+ # $model = 'Patriot Memory';

+ ['^(WD|WL[0]9]|Western Digital|My (Book|Passport)|\d*LPCX|Elements|M000|EARX|EFRX|\d*EAVS|0JD|JPVX|[0-9]+(BEV|(00)?AAK|AAV|AZL))','(^WDC|Western\s?Digital)','Western Digital',''],

+ ['^Addlink','^Addlink','Addlink',''],

+ ['^Aireye','^Aireye','Aireye',''],

+ ['^Alfawise','^Alfawise','Alfawise',''],

+ ['^Apotop','^Apotop','Apotop',''],

+ ['^(APPLE|iPod)','^APPLE','Apple',''],

+ ['^(A-?RAM|ARSSD)','^A-?RAM','A-RAM',''],

+ ['^Bell\b','^Bell','Packard Bell',''],

+ ['^BIOSTAR','^BIOSTAR','Biostar',''],

+ ['^Centerm','^Centerm','Centerm',''],

+ ['^Clover','^Clover','Clover',''],

+ ['^Dell\b','^Dell','Dell',''],

+ ['^Dogfish','^Dogfish','Dogfish',''],

+ ['^DragonDiamond','^DragonDiamond','DragonDiamond',''],

+ ['^Geil','^Geil','Geil',''],

+ ['^HDC','^HDC\b','HDC',''],

+ ['^Hectron','^Hectron','Hectron',''],

+ ['^Hoodisk','^Hoodisk','Hoodisk',''],

+ ['^(LITE[\-\s]?ON|PH[1-9])','^LITE[\-]?ON','LITE-ON',''], # PH6-CE240-L

+ ['^(MAXTOR|Atlas)','^MAXTOR','Maxtor',''], # note M2 M3 is usually maxtor, but can be samsung

+ ['^Memorex','^Memorex','Memorex',''],

+ ['^MARSHAL\b','^MARSHAL','Marshal',''],

+ ['^Morebeck','^Morebeck','Morebeck',''],

+ ['^MTRON','^MTRON','MTRON',''],

+ ['^OWC','^OWC\b','OWC',''],

+ ['^PERC\b','','Dell PowerEdge RAID Card',''], # ssd

+ ['^Pioneer','Pioneer','Pioneer',''],

+ ['^Runcore','^Runcore','Runcore',''],

+ ['^Sage','^Sage(\s?Micro)?','Sage Micro',''],

+ # DIAMOND_040_GB

+ ['^(SILICON\s?MOTION|SM[0-9])','^SILICON\s?MOTION','Silicon Motion',''],

+ ['^(Silicon\s?Power|SP[CP]C|Silicon|Diamond|Haspeed)','Silicon\s?Power','Silicon Power',''],

+ ['Smartbuy','\s?Smartbuy','Smartbuy',''], # SSD Smartbuy 60GB; mSata Smartbuy 3

+ ['^Skill','^Skill','Skill',''],

+ ['^SUNEAST','^SUNEAST','SunEast',''],

+ ['^Teclast','^Teclast','Teclast',''],

+ ['^Teleplan','^Teleplan','Teleplan',''],

+ ['^USBTech','^USBTech','USBTech',''],

+ ['^(YUCUN|R880)','^YUCUN','YUCUN',''],

+ ['^ZTC','^ZTC','ZTC',''],

+ # NOTE: the syntax of deb822 must be considered a bug, it's sloppy beyond belief.

+ # deb822 supports line folding which starts with space

+ # BUT: you can start a URIs: block of urls with a space, sigh.

+ next if $row =~ /^\s+/ && $row !~ /^\s+[^#]+:\//;

+ # strip out line space starters now that it's safe

+ $row =~ s/^\s+//;

+ # my $file = "$ENV{'HOME'}/bin/scripts/inxi/data/sensors/sensors-maximus-arch-1.txt";

+ # @sensors_data = main::reader($file);

+ $gpudata[$j]{'type'} = $holder;

+ if (/^[^:]*:([0-9]+).*\b(C|F)\s/i){

+ # print "$_\n";

+ # speeds can be in percents or rpms, so need the 'fan' in regex

+ if (/^.*fan.*:([0-9]+).*(RPM)?/i){

+ if ($weather{'moonphase'}){

+ $value = $weather{'moonphase'} . '%';

+ $value .= ($weather{'moonphase-graphic'}) ? ' ' . $weather{'moonphase-graphic'} :'';

+ $rows[0]{main::key($num++,'Moonphase')} = $value;

+ }

+ if ($weather{'forecast'}){

+ $rows[0]{main::key($num++,'Forecast')} = $weather{'forecast'};

+ }

+

+ elsif ( $working[0] eq 'forecast' ){

+ $weather{'forecast'} = $working[1];

+ }

+ elsif ( $working[0] eq 'moonphase' ){

+ $weather{'moonphase'} = $working[1];

+ }

+ elsif ( $working[0] eq 'moonphase_graphic' ){

+ $weather{'moonphase-graphic'} = $working[1];

+ }

+ $date_time = test_locale_date($date_time,'','');

+ $date_time = test_locale_date($date_time,$show{'weather-location'},$weather{'observation-epoch'});

+ $date_time = test_locale_date($date_time,'','');

+ $date_time = test_locale_date($date_time,$show{'weather-location'},$weather{'observation-epoch'});

+ my (@weather,$temp,$ua,$url);

+ $url = "https://smxi.org/opt/xr2.php?loc=$location[0]&src=$weather_source";

+ $ua = 'weather';

+ @weather = split(/\n/, $temp) if $temp;

+sub test_locale_date {

+ $location = $city . ', ' . $location if $city && $location !~ m|$city|i;

+ $pattern .= 'fancybar|fbpanel|fspanel|glx-dock|gnome-panel|hpanel|i3bar|icewmtray|';

+sub get_kernel_parameters {

+ eval $start if $b_log;

+ my ($parameters);

+ if (my $file = system_files('cmdline') ) {

+ $parameters = get_kernel_parameters_linux($file);

+ }

+ elsif ($bsd_type) {

+ $parameters = get_kernel_parameters_bsd();

+ }

+ eval $end if $b_log;

+ return $parameters;

+}

+sub get_kernel_parameters_linux {

+ eval $start if $b_log;

+ my ($file) = @_;

+ my $line = (reader($file))[0];

+ eval $end if $b_log;

+ return $line;

+}

+sub get_kernel_parameters_bsd {

+ eval $start if $b_log;

+ my ($parameters);

+ eval $end if $b_log;

+ return $parameters;

+}

+

+ # handle possible regex in device name, like [ConnectX-3]

+ my $device_temp = main::regex_cleaner($device);

+ if (main::regex_cleaner($vendor) !~ /$device_temp/i){

+

+ if ($b_admin && (my $params = get_kernel_parameters())){

+ $index = scalar(@{ $data{$data_name} } );

+ $data{$data_name}[$index]{main::key($num++,'parameters')} = $params;

+ $index = scalar(@{ $data{$data_name} } );

+ }