neingeist
/
conky-gadgets
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor the mess into subs

Browse Source
master
neingeist 10 years ago
parent ff1d80a7c2
commit a532814e5e
1 changed files with 113 additions and 106 deletions
Show Stats Download Patch File Download Diff File

219
conky-disks
Unescape Escape View File

@ -39,137 +39,144 @@ sub magic_level {
return $new_level; return $new_level;
} }
my $fs = Sys::Filesystem->new(); sub conky_fs {
my @filesystems = $fs->filesystems(); my $fs = Sys::Filesystem->new();
my @filesystems = $fs->filesystems();
# determine longest mount point path # determine longest mount point path
my $mlength = 5; my $mlength = 5;
for my $f (@filesystems) { for my $f (@filesystems) {
my $mount_point = $fs->mount_point($f); my $mount_point = $fs->mount_point($f);
if (length($mount_point) > $mlength) { if (length($mount_point) > $mlength) {
$mlength = length($mount_point); $mlength = length($mount_point);
}
} }
}
for my $f (@filesystems) { for my $f (@filesystems) {
my $mount_point = $fs->mount_point($f); my $mount_point = $fs->mount_point($f);
my $format = $fs->format($f); my $format = $fs->format($f);
next if grep { /^$format$/xsm } @ignoreformats; next if grep { /^$format$/xsm } @ignoreformats;
next if grep { $mount_point =~ $_ } @ignorepaths; next if grep { $mount_point =~ $_ } @ignorepaths;
my $df = df($mount_point, 1024); # 1k blocks my $df = df($mount_point, 1024); # 1k blocks
my $blocks = $df->{blocks}; my $blocks = $df->{blocks};
if (!defined($blocks)) { $blocks = 1 }; if (!defined($blocks)) { $blocks = 1 };
my $size = $blocks/(1024*1024); my $size = $blocks/(1024*1024);
my $level_warn = magic_level(0.80, $size) * 100; my $level_warn = magic_level(0.80, $size) * 100;
my $level_crit = magic_level(0.90, $size) * 100; my $level_crit = magic_level(0.90, $size) * 100;
# color depends on used percent # color depends on used percent
my $color = $color_ok; my $color = $color_ok;
my $per = $df->{per}; my $per = $df->{per};
if (!defined($per)) { $per = 100 }; if (!defined($per)) { $per = 100 };
if ($per >= $level_warn) { if ($per >= $level_warn) {
$color = $color_warn; $color = $color_warn;
} }
if ($per >= $level_crit) { if ($per >= $level_crit) {
$color = $color_crit; $color = $color_crit;
}
my $bfree = $df->{bfree};
if (!defined($bfree)) { $bfree = 0 };
printf(" \${color #98c2c7}%-${mlength}s\$color %2.f%% %6.1fGB \${color $color}\${fs_bar 6 %s}\$color\n",
$mount_point,
100 - $per,
$bfree/(1024*1024),
$mount_point
);
} }
my $bfree = $df->{bfree};
if (!defined($bfree)) { $bfree = 0 };
printf(" \${color #98c2c7}%-${mlength}s\$color %2.f%% %6.1fGB \${color $color}\${fs_bar 6 %s}\$color\n",
$mount_point,
100 - $per,
$bfree/(1024*1024),
$mount_point
);
} }
# hddtemp sub conky_hddtemp {
my $color_toocold = "#0000ff";
my $color_toocold = "#0000ff"; my $color_toohot = "#ff0000";
my $color_toohot = "#ff0000";
my $socket=IO::Socket::INET->new(
PeerAddr => 'localhost', PeerPort=> 7634,
Proto => 'tcp', Type => $IO::Socket::SOCK_STREAM)
or croak "Can't talk to hddtemp";
my $hddtemp_output = <$socket>;
close $socket;
my @hddtemp_output = split /[|]/x, $hddtemp_output;
my $diskcount = $#hddtemp_output/5;
for (my $i = 0; $i < $diskcount; $i++) {
my $dev = $hddtemp_output[$i*5+1];
my $temp = $hddtemp_output[$i*5+3];
my $unit = $hddtemp_output[$i*5+4];
my $color = $color_ok;
if ($temp > 40) {
$color = $color_toohot;
} elsif ($temp < 25) {
$color = $color_toocold;
}
printf " \${color #98c2c7}%s\$color ", $dev; my $socket=IO::Socket::INET->new(
printf "\${color $color}%02.f°%s\$color\n", $temp, $unit; PeerAddr => 'localhost', PeerPort=> 7634,
} Proto => 'tcp', Type => $IO::Socket::SOCK_STREAM)
or croak "Can't talk to hddtemp";
my $hddtemp_output = <$socket>;
close $socket;
# mdstat my @hddtemp_output = split /[|]/x, $hddtemp_output;
open my $fh, "<", "/proc/mdstat"; my $diskcount = $#hddtemp_output/5;
my $md_current; for (my $i = 0; $i < $diskcount; $i++) {
my $md_current_state; my $dev = $hddtemp_output[$i*5+1];
my $md_current_mdstat; my $temp = $hddtemp_output[$i*5+3];
my $unit = $hddtemp_output[$i*5+4];
sub print_md_current_state {
if (defined $md_current) {
my $color = $color_ok; my $color = $color_ok;
my $print_mdstat = 0; if ($temp > 40) {
$color = $color_toohot;
} elsif ($temp < 25) {
$color = $color_toocold;
}
if ($md_current_state =~ /^\[(\d+)\/(\d+)\]\s+\[([U_]+)\]$/xsm) { printf " \${color #98c2c7}%s\$color ", $dev;
my $should = $1; printf "\${color $color}%02.f°%s\$color\n", $temp, $unit;
my $are = $2; }
my $states = $3; }
if ($are < $should) { sub conky_mdstat {
$color = $color_crit; open my $fh, "<", "/proc/mdstat";
$print_mdstat = 1; my $md_current;
my $md_current_state;
my $md_current_mdstat;
my $print_md_current_state = sub {
if (defined $md_current) {
my $color = $color_ok;
my $print_mdstat = 0;
if ($md_current_state =~ /^\[(\d+)\/(\d+)\]\s+\[([U_]+)\]$/xsm) {
my $should = $1;
my $are = $2;
my $states = $3;
if ($are < $should) {
$color = $color_crit;
$print_mdstat = 1;
}
} else {
$color = $color_unknown;
} }
} else {
$color = $color_unknown;
}
printf " \${color #98c2c7}%s\$color \${color $color}%s\$color\n", printf " \${color #98c2c7}%s\$color \${color $color}%s\$color\n",
"/dev/$md_current", $md_current_state; "/dev/$md_current", $md_current_state;
if ($print_mdstat) { if ($print_mdstat) {
printf "\n\${color $color}%s\$color", printf "\n\${color $color}%s\$color",
$md_current_mdstat; $md_current_mdstat;
}
} }
} };
}
while (my $line = <$fh>) { while (my $line = <$fh>) {
next if $line =~ /^Personalities\s*:/xsmi; next if $line =~ /^Personalities\s*:/xsmi;
next if $line =~ /^unused\sdevices\s*:/xsmi; next if $line =~ /^unused\sdevices\s*:/xsmi;
if ($line =~ /^(.*) : /) { if ($line =~ /^(.*) : /) {
print_md_current_state(); &$print_md_current_state();
$md_current = $1; $md_current = $1;
$md_current_state = undef; $md_current_state = undef;
$md_current_mdstat = undef; $md_current_mdstat = undef;
} }
if ($line =~ /^\s*\d+\s+blocks(?: super [0-9.]+)? (.*)$/) { if ($line =~ /^\s*\d+\s+blocks(?: super [0-9.]+)? (.*)$/) {
$md_current_state = $1; $md_current_state = $1;
} }
$md_current_mdstat .= $line; $md_current_mdstat .= $line;
}
close $fh;
&$print_md_current_state();
} }
close $fh;
print_md_current_state(); conky_fs();
conky_hddtemp();
conky_mdstat();
# vim:textwidth=120: # vim:textwidth=120:

Write Preview
Loading…
Cancel
Save