From 2ef171cb7daadf62126fbf5a13d9c136e15bb5da Mon Sep 17 00:00:00 2001
From: hirose31 <hirose31@gmail.com>
Date: Wed, 10 Nov 2010 16:00:53 +0100
Subject: [PATCH] obsolete

---
 plugins/other/apcupsd | 223 +-----------------------------------------
 1 file changed, 4 insertions(+), 219 deletions(-)

diff --git a/plugins/other/apcupsd b/plugins/other/apcupsd
index d802af10..90205f6d 100755
--- a/plugins/other/apcupsd
+++ b/plugins/other/apcupsd
@@ -1,221 +1,6 @@
-#!/usr/bin/env perl
+This plugin is obsolete. Instead, please use apcupsd_pct plugin:
 
-use strict;
-use warnings;
-use Carp;
-use Pod::Usage;
+apcupsd_pct plugin
+http://exchange.munin-monitoring.org/plugins/apcupsd_pct/details
 
-our $APCACCESS = $ENV{apcaccess} || "/sbin/apcaccess";
-our $UPS_MODEL = $ENV{ups_model} || "ES 725";
-our $VERSION   = 1.0;
-my  %Graph;
-my  %Metric;
-
-MAIN: {
-    decide_monitor_type();
-
-    my $mode = $ARGV[0] || "fetch";
-    $mode =~ /^-/ && pod2usage();
-
-    ### $mode
-    eval "do_${mode}();"
-        or croak "do_${mode}: $@";
-
-    ### end
-    exit 0;
-}
-
-=begin comment
-
-pct
-  LOADPCT   is the percentage of load capacity as estimated by the UPS.
-    15.0 Percent Load Capacity
-  BCHARGE   is the percentage charge on the batteries.
-    100.0 Percent
-
-volt
-  LINEV     is the current line voltage as returned by the UPS.
-    102.0 Volts
-  BATTV     is the battery voltage as supplied by the UPS.
-    13.5 Volts
-
-time
-  TIMELEFT  is the remaining runtime left on batteries as estimated by the UPS.
-    38.4 Minutes
-
-=end comment
-
-=cut
-
-sub decide_monitor_type {
-    my $type = $0 =~ /_pct/  ? "pct"  :
-               $0 =~ /_volt/ ? "volt" :
-               $0 =~ /_time/ ? "time" : undef
-                   or croak "unknown monitor type: $0";
-
-    # common
-    %Graph = (
-        graph_title => "APC Status".($UPS_MODEL?" ($UPS_MODEL)":"")." - ",
-        graph_category => "ups",
-        graph_info     => "This graph shows information about your APC UPS",
-        graph_args     => "--base 1000 --lower-limit 0",
-       );
-
-    if ($type eq "pct") {
-        $Graph{graph_title}  .= "Percentage";
-        $Graph{graph_vlabel}  = "%";
-        %Metric =(
-            LOADPCT => {
-                label    => "load capacity pct",
-            },
-            BCHARGE => {
-                label    => "charge on the batteries pct",
-            },
-           );
-    } elsif ($type eq "volt") {
-        $Graph{graph_title}  .= "Voltage";
-        $Graph{graph_vlabel}  = "Volts";
-        %Metric =(
-            LINEV => {
-                label    => "line voltage as returned by the UPS",
-            },
-            BATTV => {
-                label    => "battery voltage as supplied by the UPS",
-            },
-           );
-    } elsif ($type eq "time") {
-        $Graph{graph_title} .= "Time";
-        $Graph{graph_vlabel}  = "minutes";
-        %Metric =(
-            TIMELEFT => {
-                label    => "remaining runtime left on batteries",
-            },
-           );
-    }
-}
-
-sub do_fetch {
-    ### do_fetch
-
-    my @status_data = retrieve_apcupsd_status()
-        or croak "failed: retrieve_apcupsd_status";
-    ### status_data: \@status_data
-
-    my $status = parse_status_data(@status_data);
-    ### status: $status
-
-    my $FIELD;
-    while (my($field,$attr) = each %Metric) {
-        $field = lc $field;
-        $FIELD = uc $field;
-        printf "%s.value %.1f\n", $field, (exists $status->{$FIELD} ? ($status->{$FIELD} =~ /([\d]+\.?[\d]*)/) : 0);
-    }
-
-    return 1;
-}
-
-sub do_config {
-    ### do_config
-
-    while (my($k,$v) = each %Graph) {
-        printf "%s %s\n", $k, $v;
-    }
-    while (my($field,$attr) = each %Metric) {
-        $field = lc $field;
-        while (my($k,$v) = each %$attr) {
-            printf "%s.%s %s\n", $field, $k, $v;
-        }
-    }
-
-    return 1;
-}
-
-sub do_autoconf {
-    ### do_config
-    print "yes\n";
-}
-
-sub retrieve_apcupsd_status {
-    open my $apc, '-|', $APCACCESS
-        or croak $!;
-    my @status_data = <$apc>;
-    close $apc;
-    chomp @status_data;
-    return @status_data;
-}
-
-sub parse_status_data {
-    my $status = {};
-    my($k,$v);
-    for (@_) {
-        ($k,$v) = split /\s*:\s*/, $_, 2;
-        $status->{$k} = $v;
-    }
-    return $status;
-}
-
-
-__END__
-
-=head1 NAME
-
-B<apcupsd_pct>, B<apcupsd_volt>, B<apcupsd_time> - munin plugin for APC UPS
-
-=head1 SYNOPSIS
-
-B<apcupsd_pct>  [ I<config>|I<fetch> ]
-
-B<apcupsd_volt> [ I<config>|I<fetch> ]
-
-B<apcupsd_time> [ I<config>|I<fetch> ]
-
-
-=head1 DESCRIPTION
-
-munin plugin to monitor APC UPS via apcupsd by apcaccess.
-
-=head1 INSTALLATION
-
-  cp apcupsd_pct $MUNIN_LIBDIR/plugsin/
-  
-  cd YOUR_MUNIN_PLUGINS_DIR
-  (make symbolic links different name)
-  ln -s $MUNIN_LIBDIR/plugsin/apcupsd_pct apcupsd_pct
-  ln -s $MUNIN_LIBDIR/plugsin/apcupsd_pct apcupsd_volt
-  ln -s $MUNIN_LIBDIR/plugsin/apcupsd_pct apcupsd_time
-  
-  restart munin-node
-
-=head1 REPOSITORY
-
-L<http://github.com/hirose31/munin-apcupsd-fixme/tree/master>
-
-  git clone git://github.com/hirose31/fixme.git
-
-patches and collaborators are welcome.
-
-=head1 SEE ALSO
-
-L<http://munin.projects.linpro.no/wiki/HowToWritePlugins>,
-L<http://munin.projects.linpro.no/wiki/protocol-config>
-
-=head1 AUTHOR
-
-HIROSE, Masaaki E<lt>hirose31 _at_ gmail.comE<gt>
-
-=head1 COPYRIGHT & LICENSE
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
-
-# for Emacsen
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# indent-tabs-mode: nil
-# coding: utf-8
-# End:
-
-# vi: set ts=4 sw=4 sts=0 :
+thanks.