diff options
author | Karel Kočí <cynerd@email.cz> | 2022-06-25 20:08:57 +0200 |
---|---|---|
committer | Karel Kočí <cynerd@email.cz> | 2022-06-25 20:08:57 +0200 |
commit | 44fa0d9200d2a0e78e5d2cb5a849d370bc47e45c (patch) | |
tree | de358e64afa892a6374e662b32db6317bbeb80f9 /config/i3blocks/scripts/cpu_usage | |
parent | c3cc932f4b1950b1633af02f510d47b9c19d0863 (diff) | |
download | myconfigs-44fa0d9200d2a0e78e5d2cb5a849d370bc47e45c.tar.gz myconfigs-44fa0d9200d2a0e78e5d2cb5a849d370bc47e45c.tar.bz2 myconfigs-44fa0d9200d2a0e78e5d2cb5a849d370bc47e45c.zip |
i3blocks: add missing scripts
Diffstat (limited to 'config/i3blocks/scripts/cpu_usage')
-rwxr-xr-x | config/i3blocks/scripts/cpu_usage | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/config/i3blocks/scripts/cpu_usage b/config/i3blocks/scripts/cpu_usage new file mode 100755 index 0000000..b298a97 --- /dev/null +++ b/config/i3blocks/scripts/cpu_usage @@ -0,0 +1,66 @@ +#!/usr/bin/env perl +# +# Copyright 2014 Pierre Mavro <deimos@deimos.fr> +# Copyright 2014 Vivien Didelot <vivien@didelot.org> +# Copyright 2014 Andreas Guldstrand <andreas.guldstrand@gmail.com> +# +# Licensed under the terms of the GNU GPL v3, or any later version. + +use strict; +use warnings; +use utf8; +use Getopt::Long; + +# default values +my $t_warn = $ENV{T_WARN} // 50; +my $t_crit = $ENV{T_CRIT} // 80; +my $cpu_usage = -1; +my $decimals = $ENV{DECIMALS} // 2; +my $label = $ENV{LABEL} // ""; +my $color_normal = $ENV{COLOR_NORMAL} // "#EBDBB2"; +my $color_warn = $ENV{COLOR_WARN} // "#FFFC00"; +my $color_crit = $ENV{COLOR_CRIT} // "#FF0000"; + +sub help { + print "Usage: cpu_usage [-w <warning>] [-c <critical>] [-d <decimals>]\n"; + print "-w <percent>: warning threshold to become yellow\n"; + print "-c <percent>: critical threshold to become red\n"; + print "-d <decimals>: Use <decimals> decimals for percentage (default is $decimals) \n"; + exit 0; +} + +GetOptions("help|h" => \&help, + "w=i" => \$t_warn, + "c=i" => \$t_crit, + "d=i" => \$decimals, +); + +# Get CPU usage +$ENV{LC_ALL}="en_US"; # if mpstat is not run under en_US locale, things may break, so make sure it is +open (MPSTAT, 'mpstat 1 1 |') or die; +while (<MPSTAT>) { + if (/^.*\s+(\d+\.\d+)[\s\x00]?$/) { + $cpu_usage = 100 - $1; # 100% - %idle + last; + } +} +close(MPSTAT); + +$cpu_usage eq -1 and die 'Can\'t find CPU information'; + +# Print short_text, full_text +print "${label}"; +printf "%.${decimals}f%%\n", $cpu_usage; +print "${label}"; +printf "%.${decimals}f%%\n", $cpu_usage; + +# Print color, if needed +if ($cpu_usage >= $t_crit) { + print "${color_crit}\n"; +} elsif ($cpu_usage >= $t_warn) { + print "${color_warn}\n"; +} else { + print "${color_normal}\n"; +} + +exit 0; |