45 lines
925 B
Perl
Executable File
45 lines
925 B
Perl
Executable File
#!/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 network\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";
|
|
}
|