Kevin Mok
2b55781ab8
Like the cleaner look of uniform coloring. Also added pywal bg color to Benq blocks except for CPU usage, which has Perl problems....
61 lines
1.4 KiB
Perl
Executable File
61 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/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;
|
|
# use Env::Modify qw(:ksh source);
|
|
|
|
# default values
|
|
my $t_warn = 50;
|
|
my $t_crit = 80;
|
|
my $cpu_usage = -1;
|
|
|
|
sub help {
|
|
print "Usage: cpu_usage [-w <warning>] [-c <critical>]\n";
|
|
print "-w <percent>: warning threshold to become yellow\n";
|
|
print "-c <percent>: critical threshold to become red\n";
|
|
exit 0;
|
|
}
|
|
|
|
GetOptions("help|h" => \&help,
|
|
"w=i" => \$t_warn,
|
|
"c=i" => \$t_crit);
|
|
|
|
# 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 -P ALL |') or die;
|
|
while (<MPSTAT>) {
|
|
if (/^.*\s+(\d+\.\d+)\s+$/) {
|
|
$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
|
|
printf "%.0f%%\n", $cpu_usage;
|
|
printf "%.0f%%\n", $cpu_usage;
|
|
|
|
system("source \"/home/kevin/.cache/wal/colors.sh\"");
|
|
# printf "%s", $ENV{'SHELL'};
|
|
printf "%s", $ENV{'color2'};
|
|
# printf "%s", $ENV{'bg'};
|
|
# Print color, if needed
|
|
if ($cpu_usage >= $t_crit) {
|
|
print "#FF0000\n";
|
|
exit 33;
|
|
} elsif ($cpu_usage >= $t_warn) {
|
|
print "#FFFC00\n";
|
|
}
|
|
|
|
exit 0;
|