Munin pluginの作り方

my $hub;

if ($0 =~ /softether_([\w\d#-_.&]+)$/) {
  $hub = $1;
} else {
  die ("Can't run config without a symlinked name");
}

unless (defined $ENV{host}) {
  $ENV{host} = "localhost";
}

unless (defined $ENV{password}) {
  die ("Please set password");
}

unless (defined $ENV{vpncmdpath}) {
  $ENV{vpncmdpath} = "/usr/local/vpnserver/vpncmd";
}

[softether_*]
env.password myvpnpassword
env.host localhost
env.vpncmdpath /usr/local/vpnserver/vpncmd

my @item_key = (
"Outgoing Unicast Packets",
"Outgoing Unicast Total Size",
"Outgoing Broadcast Packets",
"Outgoing Broadcast Total Size",
"Incoming Unicast Packets",
"Incoming Unicast Total Size",
"Incoming Broadcast Packets",
"Incoming Broadcast Total Size",
);

my $result = `$ENV{vpncmdpath} $ENV{host} /SERVER /password:$ENV{password} /hub:$hub /cmd StatusGet`;

my %data;

sub get_value {
  my $tmp;
  my $key = shift;
  if ($result =~ /$key\s*\|([0-9,]+)/) {
    $tmp = $1;
    $tmp =~ s/,//g;
    return $tmp;
  }
}

for my $item (@item_key) {
  $data{$item} = get_value($item);
}

StatusGet
vpncmd command - SoftEther VPN Command Line Management Utility
SoftEther VPN Command Line Management Utility (vpncmd command)
Version 4.19 Build 9605   (English)
Compiled 2016/03/06 21:09:57 by yagi at pc30
Copyright (c) SoftEther VPN Project. All Rights Reserved.

Connection has been established with VPN Server "localhost" (port 443).

You have administrator privileges for Virtual Hub 'vpn' on the VPN Server.

VPN Server/vpn>StatusGet
StatusGet command - Get Current Status of Virtual Hub
Item                         |Value
-----------------------------+---------------------
Virtual Hub Name             |vpn
Status                       |Online
Type                         |Standalone
SecureNAT                    |Enabled
Sessions                     |2
Sessions (Client)            |1
Sessions (Bridge)            |0
Access Lists                 |0
Users                        |1
Groups                       |0
MAC Tables                   |3
IP Tables                    |3
Num Logins                   |54
Last Login                   |2016-06-25 19:12:43
Last Communication           |2016-06-25 21:22:15
Created at                   |2016-04-04 00:12:46
Outgoing Unicast Packets     |157,138,736 packets
Outgoing Unicast Total Size  |133,078,817,603 bytes
Outgoing Broadcast Packets   |477,735 packets
Outgoing Broadcast Total Size|31,355,040 bytes
Incoming Unicast Packets     |157,166,519 packets
Incoming Unicast Total Size  |133,081,898,141 bytes
Incoming Broadcast Packets   |2,833,614 packets
Incoming Broadcast Total Size|174,223,220 bytes
The command completed successfully.

my $plugin = Munin::Plugin::Framework->new;

$plugin->add_graphs(
  packets => {
    args => "",
    category => $category,
    info => "$hub Packets",
    title => "$hub Packets",
    vlabel => "in (-) | out (+) packets / second",
    fields => {
      unicast_out => {
        label => "Unicast",
	type => "DERIVE",
	min => 0,
	negative => "unicast_in",
	value => $data{"Outgoing Unicast Packets"}
      },
      unicast_in => {
        type => "DERIVE",
	min => 0,
	value =>  $data{"Incoming Unicast Packets"}
      }
    }
  },
  unicast_total_packets => {
    args => "",
    category => $category,
    info => "$hub Unicast Toatl Packets",
    title => "$hub Unicast Total Packets",
    vlabel => "packets",
    fields => {
      incoming => {
        label => "Incoming",
        type => "GAUGE",
        min => 0,
        value => $data{"Incoming Unicast Packets"}
      },
      outgoing => {
        label => "Outgoing",
        type => "GAUGE",
        draw => "AREA",
        min => 0,
        value => $data{"Outgoing Unicast Packets"}
      }
    }
  }
);

$plugin->run();