From 16313c1bcc7f1be3258237c7fb5b979e646bb0d5 Mon Sep 17 00:00:00 2001
From: Jesse <unknown@munin-monitoring.org>
Date: Wed, 5 Nov 2008 07:04:03 +0100
Subject: [PATCH] Initial version

---
 plugins/other/earthquakes | 92 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100755 plugins/other/earthquakes

diff --git a/plugins/other/earthquakes b/plugins/other/earthquakes
new file mode 100755
index 00000000..85031ea8
--- /dev/null
+++ b/plugins/other/earthquakes
@@ -0,0 +1,92 @@
+#!/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
+