LinHES Forums • View topic

mihanson · **Posted:** Tue Jun 05, 2007 2:54 pm

I find myself always looking to customize/improve my KnoppMyth box and it got me wondering what others may have done to trick out their box(en). What kind of things have you done? I have not done too much. I added TorrentFlux and made some tweaks to existing and created new scripts for rrdtool. TorrentFlux is pretty basic. I don't really use it except to seed R5F1 and get the occasional distro or app.

Here's what I did for rrdtool... First, I added HD temp monitoring for a second hard drive. I also added a script to monitor my master backend UPS. It uses NUT to monitor is vital stats and this is my script:

Code:

#!/usr/bin/perl
#
#  rrd_Ups.pl
#       Ups data collection routine for KnoppMyth
#
########################################################################
# Configuration:
my $dbf = 'Ups';
my $configfile = '/etc/rrd.config';
########################################################################
use RRDs;

if (! -d "/myth") { $configfile = "./D_rrd.config"; }   # DEBUG
do $configfile;

sub create {
    #   $_[0] = filename
    if (! -e "$log/$_[0].rrd") {
        print "Create db for $_[0] => $log/$_[0].rrd\n";
        RRDs::create( "$log/$_[0].rrd", "-s 300",
            "DS:runtime:GAUGE:600:0:U",
            "DS:charge:GAUGE:600:0:U",
            "DS:load:GAUGE:600:0:U",
            "RRA:AVERAGE:0.5:1:576",
            "RRA:AVERAGE:0.5:6:672",
            "RRA:AVERAGE:0.5:24:732",
            "RRA:AVERAGE:0.5:144:1460");
        $ERROR = RRDs::error;
        print "Error: RRDs::create failed for '$_[0]' : $ERROR\n" if $ERROR;
    }
}

my ($runtime, $charge, $load, $model, $status);

sub gather {
        my @line = `$CMD $name$host`;
        $val_a_1 = $line[0];
        my @val_a_2 = split( /:/, $val_a_1 );
        $charge = $val_a_2[1];
        $charge =~ s/[\n ]//g;
        $val_b_1 = $line[3];
        my @val_b_2 = split( /:/, $val_b_1 );
        $runtime = $val_b_2[1]/60;
        $runtime =~ s/[\n ]//g;
        $val_c_1 = $line[20];
        my @val_c_2 = split( /:/, $val_c_1 );
        $load = $val_c_2[1];
        $load =~ s/[\n ]//g;
        $val_d_1 = $line[22];
        my @val_d_2 = split( /:/, $val_d_1 );
        $model = $val_d_2[1];
        $model =~ s/[\n ]//g;
        $val_e_1 = $line[23];
        my @val_e_2 = split( /:/, $val_e_1 );
        $status = $val_e_2[1];
        $status =~ s/[\n ]//g;
        print "$dbf: $name Battery Charge = $charge (%)\n";
        print "$dbf: $name Battery Runtime = $runtime minutes\n";
        print "$dbf: $name UPS Load = $load (%)\n";
        print "$dbf: $name UPS Model = $model\n";
        print "$dbf: $name UPS Status = $status\n";
}

sub update {
    #   $_[0] = filename
    RRDs::update( "$log/$_[0].rrd", "-t",
        "runtime:charge:load",
        "N:$runtime:$charge:$load");
    $ERROR = RRDs::error;
    print "Error: RRDs::update for '$_[0]' : $ERROR\n" if $ERROR;
}

sub graph {
    #   $_[0] = time interval (ie: day...)
    #   $_[1] = filename suffix.
    RRDs::graph( "$png/$dbf-$_[1].png", "-s -1$_[0]", "-aPNG",
        "-w $Gwd", "-h $Ght", "-E", "-l 20", "-M",
        "--color", "SHADEA$color",
        "--color", "SHADEB$color",
        "--color", "BACK$color",
        "-t UPS Statistics ($name $model / Status: $status) :: $_[0]",
        "DEF:runtime=$log/$dbf.rrd:runtime:AVERAGE",
        "LINE3:runtime$color_runtime:Battery Runtime (min)\\:",
        "GPRINT:runtime:MIN:Minimum\\: % 5.1lf",
        "GPRINT:runtime:MAX:Maximum\\: % 5.1lf",
        "GPRINT:runtime:AVERAGE:Average\\: % 5.1lf",
        "GPRINT:runtime:LAST:Current\\: % 5.1lf \\j",
        "DEF:charge=$log/$dbf.rrd:charge:AVERAGE",
        "LINE3:charge$color_charge:Battery Charge (%)\\:    ",
        "GPRINT:charge:MIN:Minimum\\: % 5.1lf",
        "GPRINT:charge:MAX:Maximum\\: % 5.1lf",
        "GPRINT:charge:AVERAGE:Average\\: % 5.1lf",
        "GPRINT:charge:LAST:Current\\: % 5.1lf \\j",
        "DEF:load=$log/$dbf.rrd:load:AVERAGE",
        "LINE3:load$color_load:UPS Load (%)\\:         ",
        "GPRINT:load:MIN:Minimum\\: % 5.1lf",
        "GPRINT:load:MAX:Maximum\\: % 5.1lf",
        "GPRINT:load:AVERAGE:Average\\: % 5.1lf",
        "GPRINT:load:LAST:Current\\: % 5.1lf \\j");
    $ERROR = RRDs::error;
    print "Error: RRDs::graph failed for '$_[0]' : $ERROR\n" if $ERROR;
}
########################################################################
create "$dbf";
gather;
update "$dbf";
graph 'day',   'Daily';
graph 'week',  'Weekly';
graph 'month', 'Monthly';
graph 'year',  'Yearly';
########################################################################
# End

And the associated /etc/rrd.config

Code:

#  rrd_Ups.pl configuration     # NUT UPS driver stats
#-----------------------------------------------------------------------
$name = 'dynex';                # name of the UPS
$host = '@localhost';           # Host the UPS is connected to
$CMD = '/bin/upsc';             # Command to get UPS stats
$color_charge = '#FF0000';      # Red
$color_runtime = '#00FF00';     # Green
$color_load = '#FF00FF';        # Magenta (mixed red with blue)
#=======================================================================

What works with your NUT monitored UPS depends on what the UPS is capable of. If you have NUT installed, run the following as root:

Code:

# /bin/upsc upsname@host

Substitute your UPS name and host. Then, around line 258 of /usr/local/bin/rrd_Configure.sh add a line like this:

Code:

Ups "UPS Statistics" on \

and then execute /usr/local/bin/rrd_Configure.sh
I don't know if this works with UPS' that run on ApcUpsd, but I imagine there's a way, but I don't know it.

Ok, now it's your turn!

Tricked Out KnoppMyth Box(en)

Who is online