freenet_connections

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use Net::FCP::Tiny;

=head1 NAME

freenet_connections - Graph Freenet's connected peers

=head1 CONFIGURATION

=head1 MAGIC MARKERS

 #%# family=auto
 #%# capabilities=autoconf

=cut

given ($ARGV[0]) {
  when ('config') {
    print << "END";
graph_title Freenet connected peers
graph_args --lower-limit 0
graph_vlabel peers
graph_category freenet
graph_info How many peers our node is connected to

connected.label Connected peers
connected.type GAUGE
connected.draw AREA
connected.info Number of connected peers
connected.colour 008000

backedoff.label Backed off peers
backedoff.type GAUGE
backedoff.draw STACK
backedoff.info Number of peers that have backed off
backedoff.colour ff8c00

notconnected.label Not-connected peers
notconnected.type GAUGE
notconnected.draw STACK
notconnected.info Number of not-connected peers
notconnected.colour a0a0a0

END

  }

  when ('autoconf') {
    my $fcp = Net::FCP::Tiny->new(
      name => 'Freenet Munin Plugin',
      host => $ENV{FREENET_HOST},
      port => $ENV{FREENET_PORT},
    );

    if ($fcp) {
      print qq{yes\n};
    } else {
      printf qq{no (could not make FCP connecton to %s:%d\n}, $ENV{FREENET_HOST}, $ENV{FREENET_PORT};
    }
  }

  default {
    my $fcp = Net::FCP::Tiny->new(
      name => 'Freenet Munin Plugin',
      host => $ENV{FREENET_HOST},
      port => $ENV{FREENET_PORT},
    );

    if ($fcp) {
      my $info = $fcp->array2hash($fcp->send_msg(<<'END'));
GetNode
WithPrivate=false
WithVolatile=true
EndMessage
END
      printf qq{connected.value %d\n}, $info->{'volatile.numberOfConnected'};
      printf qq{backedoff.value %d\n}, $info->{'volatile.numberOfRoutingBackedOff'};
      printf qq{notconnected.value %d\n}, $info->{'volatile.numberOfNotConnected'};
    }
  }
}