#!/bin/bash
# -*- sh -*-

: << =cut

=head1 NAME

glassfish_counters_ - Wildcard-plugin to monitor counters in GlassFish

=head1 CONFIGURATION

This plugin does need the full path to the asadmin script:
  [glassfish_counters_*]
        env.ASADMIN /usr/local/glassfish/bin/asadmin

This is a wildcard plugin. To monitor an subtree, link
glassfish_counters_<subtree> to this file. E.g.

  ln -s /usr/share/munin/plugins/glassfish_counters_ \
        /etc/munin/plugins/glassfish_counters_server.web.request

...will monitor server.web.request.*

To ignore certain counters, just add more "IGNORE" lines on top of
the awk script. (XXX: Fixme for env.)

=head1 AUTHOR
Philipp Buehler

=head1 LICENSE

BSD 2-clause

=head1 VERSION

  $Id: glassfish_counters_.in$
  0.0.1

=cut
[ -z $ASADMIN ] && {
        echo "ASADMIN not set in node configuration"
        exit 1
        } || MUN_AS_ADMIN=${ASADMIN}

check_link () {
        scriptname=${0##*/}
        myself=${scriptname##*_}
        if [ "x$myself" = "x" ] ; then
                echo "plugin must be symlinked, e.g. to glassfish_counters_server.web.request"
                exit 1
        fi
}

SUBTREE=${0##*glassfish_counters_}

case $1 in
    suggest)
                echo "not implemented"
                exit 0
        ;;
    config)
                check_link
                $MUN_AS_ADMIN get -t --monitor=true "${SUBTREE}.*" | \
                awk 'BEGIN{ FS="[ = ]"}
                        /requestcount/ { next; } # IGNORE
                        /dotted-name/ { myself = $NF
                                print "graph_title GlassFish", myself
                                print "graph_vlabel count"
                                print "graph_category glassfish"
                                print "graph_info this shows available counters from", myself
                                next
                                }
                        /-name / { nwhat = split($1, what, ".")
                                gsub(/-name/, "", what[nwhat])
                                print what[nwhat] ".label " $NF
                                print what[nwhat] ".type GAUGE"
                                }
                        /-description / { nwhat = split($1, what, ".")
                                gsub(/-description/, "", what[nwhat])
                                $1 = ""; line = $0
                                gsub(/^   /,"", line)
                                print what[nwhat] ".info " line
                                }
                '
                exit 0
        ;;
esac

check_link
$MUN_AS_ADMIN get -t --monitor=true "${SUBTREE}.*" | \
awk 'BEGIN{ FS="[ = ]" }
        /requestcount/ { next;} # IGNORE
        /-count / { nwhat = split($1, what, ".")
                gsub(/-count/, "", what[nwhat])
                print what[nwhat] ".value=" $NF}
'