Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 28 lines (25 sloc) 716 Bytes
#!/usr/bin/env perl
use 5.010;
use strict;
use File::Spec::Functions qw(catfile);
my $statedir = $ENV{MUNIN_PLUGSTATE};
my $statefile = $0; $statefile =~ s[^.*/][];
my $cache = catfile($statedir, $statefile . '-cache');
given ($ARGV[0]) {
when ("config") {
print <<END;
graph_title CPAN modules that are outdated
graph_args --base 1000 -l 0
graph_vlabel modules
graph_category CPAN
graph_info The number of installed CPAN modules that aren't up to date
count.label modules
count.type GAUGE The number of CPAN modules that aren't up to date as reported by cpan-outdated(1)
default {
my ($lines) = qx[wc -l $cache] =~ /^(\d+)/;
say "count.value $lines";