munin/rrr-age

   1 #!/usr/bin/perl
   2 # Parameters understood:
   3 #
   4 #       config   (required)
   5 #       autoconf (optional - used by munin-config)
   6 #
   7 # Magic markers - optional - used by installation scripts and
   8 # munin-config:
   9 #
  10 #%# family=auto
  11 #%# capabilities=autoconf
  12
  13 use strict;
  14 my $file = "/opt/projects/CPAN/modules/02packages.details.txt.gz";
  15
  16 if ($ARGV[0] eq "autoconf"){
  17     if ( -e $file
  18        ){
  19         print "yes\n";
  20         exit 0;
  21     } else {
  22         print "no\n";
  23         exit 1;
  24     }
  25 }
  26
  27 if ( $ARGV[0] eq "config" ){
  28     print <<EOF;
  29 graph_title time since 02packages
  30 graph_args -r
  31 graph_vlabel seconds
  32 graph_scale yes
  33 graph_info Age of $file
  34 graph_category cpantesters
  35 EOF
  36
  37     for my $c ("age"){
  38         #my $draw = "??/";
  39         print <<EOF;
  40 rf$c.label $c
  41 rf$c.min 0
  42 rf$c.type GAUGE
  43 EOF
  44     }
  45     exit 0;
  46 }
  47
  48 {
  49     printf "rfage.value %d\n", 86400 * -M $file;
  50 }
  51
  52 # Local Variables:
  53 # mode: cperl
  54 # cperl-indent-level: 4
  55 # indent-tabs-mode: nil
  56 # End:
  57 # vim:sw=4:ts=8:sta:et