diff options
Diffstat (limited to 'contrib/aix/check_failed')
| -rw-r--r-- | contrib/aix/check_failed | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/contrib/aix/check_failed b/contrib/aix/check_failed deleted file mode 100644 index 50cdf7e1..00000000 --- a/contrib/aix/check_failed +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/perl -#====================== -# Created May 25, 2000 -#====================== - -# This scripts is for checking for failed root login attempts on -# any machine running AIX which has a failedlogin file in /etc/security -# The purpose is to thwart (good word) any unauthorised people from -# even trying to log in as root. This plugin has been developed for Nagios -# running on AIX. -# Lonny Selinger SpEnTBoY lonny@abyss.za.org -# May - - -my $server = $ARGV[0]; - -if (!$ARGV[0]) { - print "You must specify a server to check\n"; - print "usage: ./check_failed <Server Name>\n"; - exit (-1); - } else { - open (DATE, "/bin/date '+%b %d' |"); - while (<DATE>) { - $dline = $_; - @dresults = $dline; - chop $dresults[0]; - } - open (SULOG, "rsh $server -l root who /etc/security/failedlogin | grep root |"); - while (<SULOG>) { - $line = $_; - @results = split (/\s+/,$line); - if ($line =~ /^root/) { - if (join(' ', @results[2,3]) eq $dresults[0]) { - print "FAILED root login on $dresults[0], node: $ARGV[0] from $results[5]\n"; - exit(2); - } - } - } -} -if (join(' ', @results[2,3]) ne $dresults[0]) { - print "No Failed Root Logins on This Node\n"; - exit(0); -} -exit(0); -close(SULOG); -close(DATE); - - |