22 lines
480 B
Plaintext
22 lines
480 B
Plaintext
|
#!/usr/bin/env perl
|
||
|
|
use Modern::Perl;
|
||
|
|
|
||
|
|
given ($ARGV[0]) {
|
||
|
|
when ("config") {
|
||
|
|
print <<END;
|
||
|
|
graph_title CPAN modules not up to date
|
||
|
|
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
|
||
|
|
count.info The number of CPAN modules that aren't up to date
|
||
|
|
END
|
||
|
|
}
|
||
|
|
default {
|
||
|
|
my $num = () = qx[cpanp -o];
|
||
|
|
say "count.value $num";
|
||
|
|
}
|
||
|
|
}
|