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

refactor the mess into subs

Browse source
This commit is contained in:
neingeist 2014-10-11 18:17:28 +02:00
parent ff1d80a7c2
commit a532814e5e
1 changed files with 123 additions and 116 deletions
Download patch file Download diff file Expand all files Collapse all files

21
conky-disks
View file

@ -39,6 +39,7 @@ sub magic_level {
return $new_level;
}
sub conky_fs {
my $fs = Sys::Filesystem->new();
my @filesystems = $fs->filesystems();
@ -87,9 +88,9 @@ for my $f (@filesystems) {
$mount_point
);
}
}
# hddtemp
sub conky_hddtemp {
my $color_toocold = "#0000ff";
my $color_toohot = "#ff0000";
@ -117,14 +118,15 @@ for (my $i = 0; $i < $diskcount; $i++) {
printf " \${color #98c2c7}%s\$color ", $dev;
printf "\${color $color}%02.f°%s\$color\n", $temp, $unit;
}
}
# mdstat
sub conky_mdstat {
open my $fh, "<", "/proc/mdstat";
my $md_current;
my $md_current_state;
my $md_current_mdstat;
sub print_md_current_state {
my $print_md_current_state = sub {
if (defined $md_current) {
my $color = $color_ok;
my $print_mdstat = 0;
@ -149,14 +151,14 @@ sub print_md_current_state {
$md_current_mdstat;
}
}
}
};
while (my $line = <$fh>) {
next if $line =~ /^Personalities\s*:/xsmi;
next if $line =~ /^unused\sdevices\s*:/xsmi;
if ($line =~ /^(.*) : /) {
print_md_current_state();
&$print_md_current_state();
$md_current = $1;
$md_current_state = undef;
@ -170,6 +172,11 @@ while (my $line = <$fh>) {
$md_current_mdstat .= $line;
}
close $fh;
print_md_current_state();
&$print_md_current_state();
}
conky_fs();
conky_hddtemp();
conky_mdstat();
# vim:textwidth=120: