#!@@PERL@@
#
# Developed 05/28/2003 by Mike Discenza
# mike.discenza@dillards.com
#
# $Log$
# Revision 1.2  2004/02/18 16:39:35  jimmyo
# Turned off scaling of values for cpu-graphs (no more nano-percentages).
#
# Revision 1.1  2004/01/02 18:50:00  jimmyo
# Renamed occurrances of lrrd -> munin
#
# Revision 1.1.1.1  2004/01/02 15:18:07  jimmyo
# Import of LRRD CVS tree after renaming to Munin
#
# Revision 1.2  2003/11/07 17:43:16  jimmyo
# Cleanups and log entries
#
#
# Plugin to monitor CPU usage on AIX (4.3.3 and 5.x).
#
#   DESCRIPTION
#   ===========
#     This will monitor the cpu usage on your server.  It measures the
#     amout of time spent on user requests, system requests, in iowait,
#     and finally in idle.  It uses /usr/bin/iostat, which is usually
#     installed.
#     
#   RESTRICTIONS
#   ============
#     None known of.  Should be safe to run this under any user -- this is not restricted to root.
#
# Usage: Place in /etc/munin/node.d/ (or link it there  using ln -s)
#
# Parameters understood:
#
# 	config   (required)
# 	autoconf (optional - used by munin-config)
#
# Magic markers - optional - used by installation scripts and
# munin-config:
#
#%# family=contrib
#%# capabilities=autoconf

use strict;
use POSIX;

my($arg) = shift;

if($arg eq 'autoconf')
  {
    if(-e '/usr/bin/iostat' && -X '/usr/bin/iostat')
      {
        print "yes\n";
        exit 0;
      }
    else
      {
        print "no\n";
        exit 1;
      }
  }

  
if($arg eq 'config')
  {
    my($percent) = 100;
    my($warn) = $percent*30/100;
    my($critical) = $percent*50/100;
    my($usrwarn) = $percent*80/100;
    print "graph_title CPU usage\n";
    print "graph_order idle iowait system user\n";
    print "graph_args -r --lower-limit 0 --upper-limit $percent \n";
    print "graph_vlabel %\n";
    print "graph_scale no\n";
    print "system.label system\n";
    print "system.type GAUGE\n";
    print "system.max 5000\n";
    print "system.type GAUGE\n";
    print "system.warning $warn\n";
    print "system.critical $critical\n";
    print "user.label user\n";
    print "user.type GAUGE\n";
    print "user.max 5000\n";
    print "user.warning $usrwarn\n";
    print "user.type GAUGE\n";
    print "iowait.label iowait\n";
    print "iowait.type STACK\n";
    print "iowait.max 5000\n";
    print "iowait.type GAUGE\n";
    print "idle.label idle\n";
    print "idle.max 5000\n";
    print "idle.type GAUGE\n";
    exit 0;
  }

my($user,$sys,$idle,$iowait) = getMeasurements();
my($uptime) = getUptime();

findTotalTime($user,$sys,$idle,$iowait,$uptime);

sub findTotalTime
{
  my($user,$sys,$idle,$iowait,$uptime) = @_;
  my($userTime) = ceil($user);
  my($sysTime) = ceil($sys);
  my($idleTime) = ceil($idle);
  my($iowaitTime) = ceil($iowait);
  
  
  print "user.value $userTime\nsystem.value $sysTime\nidle.value $idleTime\niowait.value $iowaitTime\n";
}

sub getMaxPercent
{
  my($numCPUs) = `/usr/sbin/lscfg|grep proc|wc -l`;
  my($percent) = $numCPUs * 100;
  return $percent;
}

sub getUptime
{
  my($uptimeSTR) = `/usr/bin/uptime`;
  my(@upArray) = split(/ +/,$uptimeSTR);
  my($upItem,$upDays,$upHours,$upMinutes,@timeArray,$upDays);
  my($itemCount) = 0;
  foreach $upItem (@upArray)
    {
      if(lc(substr($upItem,0,3)) eq 'day')
        {$upDays =  $upArray[$itemCount - 1];}
      if(index($upItem,":") != -1 && length($upHours) == 0 && length($upMinutes) == 0 && $itemCount > 1)
        {
          @timeArray = split(/:/,$upItem);
          ($upHours,$upMinutes) = @timeArray;
        }
      $itemCount++;
    }
  my($upMinutes) = (((($upDays * 24) + $upHours) * 60) + $upMinutes) * 60;
  return $upMinutes;
}

sub getMeasurements
{
  my($percents) = `/usr/bin/iostat -t 1 2|tail +3`;
  my(@items) = split(/ +/,$percents);
  my($user) = $items[3];
  my($sys) = $items[4];
  my($idle)= $items[5];
  my($iowait)= $items[6];
  return ($user,$sys,$idle,$iowait);
}