Munin contributed plugins

#!/usr/bin/perl -w

#

# Author: Jesse Waite

# Plugin: earthquakes

# License: GPL v2

# Version: 1.0

#

# Plugin to retrieve earthquake data from earthquake.usgs.gov

#

# Parameters supported:

#    config

#    autoconf

#

# Requirements:

#    LWP::Simple

#

#  $Log$

#  v. 1.0 11/04/2008 Initial release.

#  v. 1.1 11/08/2008 Fixed misspelling of GAUGE.

#

# Magic markers:

#%# family=auto

#%# capabilities=autoconf

use strict;

use warnings;

# place locations here seperated by commas

# names must match Region from the link below

my @regions = ("Southern California", 

               "Central California", 

               "Northern California", 

               "Greater Los Angeles area");

my $url = "http://earthquake.usgs.gov/eqcenter/catalogs/eqs1hour-M1.txt";

# checks if LWP::Simple is installed

my $ret = undef;

eval { use LWP::Simple };

if ($@) {

  my $ret = "LWP::Simple not installed.";

}

if (defined $ARGV[0] and $ARGV[0] eq "autoconf")

{

  if (defined $ret)

  {

    print "no ($ret)\n";

    exit 1;

  } else {

    print "yes\n";

    exit 0;

  }

}

if (defined $ARGV[0] and $ARGV[0] eq "config")

{

  print "graph_title Earthquakes by region\n";

  print "graph_args --base 1000\n";

  print "graph_category Other\n";

  print "graph_info This graph shows earthquakes by region of magnitude 1.0 or greater.\n";

  print "graph_vlabel Number of Earthquakes\n";  

  for my $locale (@regions) {

    $locale =~ s/\s/_/g;	# replace whitespace with underscores

    print "$locale.label $locale\n";

    print "$locale.type GAUGE\n";

    print "$locale.draw LINE2\n";

    print "$locale.warning 4\n";

    print "$locale.critical 6\n";

  } # end for loop

  exit 0;

} # end if

# fetch the most recent earthquakes

my $content = get($url);

# pull the regions and count how many times they are mentioned

for my $locale (@regions) {

  my $i = 0;

  foreach my $key (split(/[,|\n\r]/, $content)) {

    $key =~ s/"//g;	# remove quotes

    if ($key eq $locale) {

      $i++;

    }

  } # end foreach loop

  $locale =~ s/\s/_/g;	# replace whitespace with underscore

  print "$locale.value $i\n";

} # end if