Cactiusers.org

foreach $probe(@probes){
        my ($delta,$now,$then);
        my (@then,@now);
        #sample from past
        open (RRD, "/usr/local/bin/rrdtool fetch $abs_db_dir/$probe/data.rrd AVERAGE  -r $rrdres -s midnight-1470min -e s+1h |") or die "Can't run rrdtool $!\n";
        while (<RRD>){
                #drop NANs and other garbage
                if ($_=~/\d+:\s+[0-9.]+e.\d+/){
                        push  (@then,$_);
                }
        }
        close (RRD);
        if (@then){
                $then=&calc_avg(@then);
        }else{
                push (@content, "\nno valid data for $probe please investigate\n");
        }
   #sample from recent
   
        open (RRD, "/usr/local/bin/rrdtool fetch $abs_db_dir/$probe/data.rrd AVERAGE  -r $rrdres -s midnight-30 -e s+1h |") or die "Can't run rrdtool $!\n";
        while (<RRD>){
                #drop NANs and other garbage
                if ($_=~/\d+:\s+[0-9.]+e.\d+/){
                        push  (@now,$_);
                }
        }   
        if (@now){
                $now=&calc_avg(@now);
        }else{
                push (@content, "\nno valid data for $probe please investigate\n");
        }
        $delta=$now-$then;
        if (abs($delta) > $threshold){             
                push (@content,"\n$probe\nthreshold(+/-) $threshold\n-------------------\nyesterday   = $then\ntoday       = $now\nchange      = $delta\n\n");
        }               
}

sub calc_avg{   
        my @list=@_;   
        my ($avg,$sum)=0;
        foreach (@list){
                if ($_=~/(\d+):\s+([0-9.]+)e(.\d+)/){
                        my $num=$2;
                        my $exp =$3;
                        $sum += ($num*10**$exp);
                }
        }
        $avg = $sum/@list;
        return $avg;
}