Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Partition monitor, aka, I told you it was ugly

by BlueLines (Hermit)
on Mar 02, 2001 at 04:55 UTC ( [id://61719]=note: print w/replies, xml ) Need Help??


in reply to Partition monitor, aka, I told you it was ugly

I've used Big Brother for almost 3 years to do monitoring of systems. It's a neat program, and I highly reccomend it. However, it's written in C and sh. So i've been porting it to perl. Right now i've finished the client portion, and here's the sub i use for disk space monitoring. It may or may not be helpful to you, but what the hell...
sub DISK { my @df = `df`; my $red = '95'; my $yellow = '90'; my $color = "green"; my $message; #get rid of the header from df(1) shift @df; #strip off leading whitespace foreach my $lines (@df) { my $warning; $lines =~s/^\s+//; my ($device,$usage) =($lines =~m|(/dev/\S+)\s+\d+\s+\d+\s+\d+\s+(\ +d+)|); if ($usage >= $red) { $color = "red"; $warning = "Warning"; } elsif ($usage >= $yellow) { $color = "yellow" unless ($color eq "red"); $warning = "Caution"; } if (defined $warning) { $message .= "$warning: $device is at $usage% usage.\n"; } } unless (defined $message) { $message .= "All filesystems ok.\n"; } foreach (@df) { $message .= $_ ; } }


BlueLines

Disclaimer: This post may contain inaccurate information, be habit forming, cause atomic warfare between peaceful countries, speed up male pattern baldness, interfere with your cable reception, exile you from certain third world countries, ruin your marriage, and generally spoil your day. No batteries included, no strings attached, your mileage may vary.

Replies are listed 'Best First'.
Re: Re: Partition monitor, aka, I told you it was ugly
by a (Friar) on Mar 02, 2001 at 10:29 UTC
    You should take a look at spong and netsaint; two really snazzy monitors written in perl.

    a

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://61719]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2024-03-28 21:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found