Munin contributed plugins

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

#

# Magic markers (used by munin-node-configure and some installation scripts):

#%# family=auto

#%# capabilities=autoconf

=head1 NAME

=head1 APPLICABLE SYSTEMS

=head1 CONFIGURATION

Add this to the relevant munin-node config file. You can specify switch address, username, password and description for each port

(the switch management doesn't allow port descriptions)

  env.username admin

  env.password mySecretPassword

  env.p1 'Link to PC1'

  env.p7 'Not used'

  env.p8 'Uplink'

Requires WWW:Mechanize module:

  sudo apt-get install libwww-mechanize-perl

=head1 VERSION

=cut

# read parameters from munin

my $username = ( $ENV{username} || 'admin' );

my $password = ( $ENV{password} || 'admin' );

#populate the ports and descriptions based on ENV

my %ports = ();

    }

    else {

        #no description

    }

}

    foreach my $graphType (qw/Packets Speed/) {

        foreach my $port ( sort keys %ports ) {

            print "multigraph ${graphType}_if_$port\n",

              "graph_info $graphType graph for port $port $ports{$port}\n",

              "graph_args --base 1000 -l 0\n",

              "graph_scale yes\n",

            if ( $graphType eq 'Speed' ) {

                print "graph_vlabel speed\n";

                print "p${port}.label Port $port Link speed\n";

# extract data from the switch - uses web scraping (tested with 1.0.2 Build 20160526 Rel.34615)

my $mech = WWW::Mechanize->new(

    autocheck             => 0,

);

my $result = $mech->post(

    [ username => $username, password => $password, logon => 'Login' ],

);

my $response = $mech->response();

# navigate to the page with the network stats

$response = $mech->response();

# print STDERR $response->code()."\n";