[Nagiosplug-devel] [ nagiosplug-New Plugins-1087567 ] New plugin - check_tacacs_plus

[SourceForge.net]

New Plugins item #1087567, was opened at 2004-12-18 16:13
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=541465&aid=1087567&group_id=29880

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Mark Cooper (gollum)
Assigned to: Nobody/Anonymous (nobody)
Summary: New plugin - check_tacacs_plus

Initial Comment:
#!/usr/bin/perl -w
#
# $Hashbang: check_tacacs_plus.pl,v 1.2 2004/12/15
15:42:01 pfarmer Exp $
#
# Copyright Notice: GPL
#
# $Id: check_tacacs_plus.pl,v 1.2 2004/12/15 15:42:01
pfarmer Exp $
#

use strict;
use lib "/usr/local/nagios/libexec";
use utils qw($TIMEOUT %ERRORS &print_revision &support);
use Authen::TacacsPlus;
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_H $opt_t $opt_k $opt_u
$opt_p $verbose
$PROGNAME);


$PROGNAME = "check_tacacs_plus";
sub print_help ();
sub print_usage ();

Getopt::Long::Configure('bundling');
GetOptions(
        "V"   => \,  "version"    => \,
        "h"   => \,  "help"       => \,
        "t=i" => \,  "timeout=i"  => \,
        "H=s" => \,  "hostname=s" => \,
        "k=s" => \,  "key=s"      => \,
        "u=s" => \,  "username=s" => \,
        "p=s" => \,  "password=s" => \,
        "v"   => \,"verbose"    => \
);

if ($opt_V) {
        print_revision($PROGNAME,'$Revision: 1.2 $ ');
        exit $ERRORS{'OK'};
}

if ($opt_h) {
        print_help();
        exit $ERRORS{'OK'};
}

if (!$opt_H) { 
        print "Host missing!\n";
        print_usage();
        exit $ERRORS{'UNKNOWN'};
}

if (!$opt_k) { 
        print_usage();
        exit $ERRORS{'UNKNOWN'};
}

if (!$opt_u) { 
        print_usage();
        exit $ERRORS{'UNKNOWN'};
}

if (!$opt_p) { 
        print_usage();
        exit $ERRORS{'UNKNOWN'};
}

if (!$opt_t) {
        $opt_t = 60;
}

my $tac = new Authen::TacacsPlus(Host => $opt_H, Key =>
$opt_k, Timeout
=> $opt_t);
unless ($tac){
        print "CRITICAL:
",Authen::TacacsPlus::errmsg(),"\n";
        exit $ERRORS{'CRITICAL'};
}
if ($tac->authen($opt_u,$opt_p)){
        print "OK: Tacacs Authentication OK\n";
        exit $ERRORS{'OK'};
} else {
        print "WARNING:
",Authen::TacacsPlus::errmsg(),"\n";
        exit $ERRORS{'WARNING'};
}
$tac->close();


sub print_help() {
        print_revision($PROGNAME,'$Revision: 1.2 $ ');
        print "Copyright (c) 2004 Peter Farmer/Mark
Cooper\n";
        print "\n";
        print "Check if a tacacs service is running and
that a user can
authenticate\n";
        print "\n";
        print_usage();
        print "\n";
        print "  <host>     The server providing the
tacacs service\n";
        print "  <key>      The tacacs key\n";
        print "  <user>     A username that will
authenticate OK with tacacs\n";
        print "  <password> The password for <user>\n";
        print "\n";
        support();
}

sub print_usage () {
        print "Usage: \n";
        print " $PROGNAME -H host -k key -u user -p
password\n";
        print " $PROGNAME [-h | --help]\n";
        print " $PROGNAME [-V | --version]\n";
}


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=541465&aid=1087567&group_id=29880