From d38174c6f83603454210cc0dfd26b58ff30549eb Mon Sep 17 00:00:00 2001
From: phl <philipp.haussleiter@innoq.com>
Date: Sun, 22 Jun 2014 14:42:22 +0200
Subject: [PATCH] adding first version of the plugin for Mac OS Server VPN
 Daemon

---
 plugins/network/dar_vpnd | 44 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 plugins/network/dar_vpnd

diff --git a/plugins/network/dar_vpnd b/plugins/network/dar_vpnd
new file mode 100755
index 00000000..660d82e5
--- /dev/null
+++ b/plugins/network/dar_vpnd
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+# -*- perl -*-
+
+=head1 NAME
+
+dar_vpnd a Plugin for displaying VPN Stats for the Darwin (MacOS) vpnd Service.
+
+=head1 INTERPRETATION
+
+The Plugin displays the number of active VPN connections.
+
+=head1 CONFIGURATION
+
+No Configuration necessary!
+
+=head1 AUTHOR
+
+Philipp Haussleiter <philipp@haussleiter.de> (email)
+
+=head1 LICENSE
+
+GPLv2
+
+=cut
+
+# MAIN
+use warnings;
+use strict;
+
+
+my $cmd = "ps -ef | awk '/[p]ppd/ {print substr(\$NF,2);}' | wc -l";
+
+if ( exists $ARGV[0] and $ARGV[0] eq "config" ) {
+	print "graph_category VPN\n";
+	print "graph_args --base 1024 -r --lower-limit 0\n";	
+	print "graph_title Number of VPN Connections\n";
+	print "graph_vlabel VPN Connections\n";
+	print "graph_info The Graph shows the Number of VPN Connections\n";	
+	print "connections.label Number of VPN Connections\n";
+	print "connections.type GAUGE\n";			
+} else {
+	my $output = `$cmd`;
+	print "connections.value $output";
+}
\ No newline at end of file