package syssnmp;

use lib "../../lib";
use HotSaNICsnmp;

my ($host,$com);

sub version {
  ($VERSION = '$Revision: 1.18 $') =~ s/.*(\d+\.\d+).*/$1/;
  return "syssnmp.pm $VERSION";
  }

sub do_snmp {
	my ($arg,$vardir) = @_;
	$arg =~ s/SNMP://;
	($host, $com) = split ":", $arg;

	# Now do the real work ...
	do_cpu($vardir);
	do_load();
	do_proc();
	do_mem();
	do_users();
}

# Gather data from SNMP agent

sub do_cpu {
        my ($vardir)=@_;
	my $oid = '.1.3.6.1.4.1.2021.11';
		  # enterprises.ucdavis.systemStats
	
	my $suf_user   = '.50.0';
			 # .ssCpuRawUser.0
	my $suf_nice   = '.51.0';
	                 # .ssCpuRawNice.0
	my $suf_system = '.52.0';
	                 # .ssCpuRawSystem.0
	my $suf_idle   = '.53.0';
	                 # .ssCpuRawIdle.0

	undef my %cpu_new;
	my $cpu_all;
	my %cpu_old  = ( user => 0, nice => 0, system => 0, idle => 0 );
	my $filename = $vardir."/cpu_".$host.".dat";

	defined($res = HotSaNICsnmp::snmp_walk($host, $com, ($oid))) || return undef;
	$cpu_new{'user'}	= $$res{$oid.$suf_user} || 0;
	$cpu_new{'nice'}	= $$res{$oid.$suf_nice} || 0;
	$cpu_new{'system'}	= $$res{$oid.$suf_system} || 0;
	$cpu_new{'idle'}	= $$res{$oid.$suf_idle} || 0;

	if( -e $filename ) {
		open(CPUFILE, "$filename");
		my $line = do { local $/; <CPUFILE> };
		($user,$'nice,$system,$idle) = split " ", $line;
		close CPUFILE;

		$cpu_old{'user'}   = $user || 0;
	        $cpu_old{'nice'}   = $nice || 0;
		$cpu_old{'system'} = $system || 0;
		$cpu_old{'idle'}   = $idle || 0; 
	}

	$cpu_all = 
	($cpu_new{'user'}+$cpu_new{'nice'}+$cpu_new{'system'}+$cpu_new{'idle'})
      - ($cpu_old{'user'}+$cpu_old{'nice'}+$cpu_old{'system'}+$cpu_old{'idle'});

	open(CPUFILE, ">$filename"); 
	print CPUFILE "$cpu_new{'user'} $cpu_new{'nice'} $cpu_new{'system'} $cpu_new{'idle'}";
	close CPUFILE;

	if ( $cpu_all > 0 ) {
          $cpu_new{'user'} = ($cpu_new{'user'}-$cpu_old{'user'})/$cpu_all;
          $cpu_new{'nice'} = ($cpu_new{'nice'}-$cpu_old{'nice'})/$cpu_all;
          $cpu_new{'system'} = ($cpu_new{'system'}-$cpu_old{'system'})/$cpu_all;
          $cpu_new{'idle'} = ($cpu_new{'idle'}-$cpu_old{'idle'})/$cpu_all;
          }
        else {
          $cpu_new{'user'} = "U";
          $cpu_new{'nice'} = "U";
          $cpu_new{'system'} = "U";
          $cpu_new{'idle'} = "U";
          }

	do_rrd_cpu(%cpu_new);

	#print "CPU: $cpu_new{'user'} $cpu_new{'nice'} $cpu_new{'system'} $cpu_new{'idle'}\n";

}

sub do_load {
	my $oid = '.1.3.6.1.4.1.2021.10.1.3';
		  # enterprises.ucdavis.laTable.laEntry.laLoad
		  
	my @load;

	defined(my $res = HotSaNICsnmp::snmp_walk($host, $com, ($oid))) || return undef;
	foreach ( keys(%$res) ) {
		push @load, $$res{$_} || 0;
	}

	do_rrd_load(@load);

	#print "LOAD: $load[0] $load[1] $load[2]\n";
}

sub do_proc {
	my $oid = '.1.3.6.1.2.1.25.4.2.1.7';
		  # host.hrSWRun.hrSWRunTable.hrSWRunEntry.hrSWRunStatus

	my %proc = ( 	running => 0, 
			runnable => 0, 
			notRunnable => 0, 
			invalid => 0
		   );

	defined(my $res = HotSaNICsnmp::snmp_walk($host, $com, ($oid))) || return undef;
	foreach( keys(%$res) ) {
		for ($$res{$_}) {
			if    (/(1|running)/) { $proc{'running'}++;     }
			elsif (/(2|runnable)/) { $proc{'runnable'}++;    }
			elsif (/(3|notRunnable)/) { $proc{'notRunnable'}++; }
			elsif (/(4|invalid)/) { $proc{'invalid'}++;     }
			else        { print "unknown state seen.\n"; }
		}
	}

	do_rrd_proc(%proc);

	#print "PROC: $proc{'running'} $proc{'runnable'} $proc{'notRunnable'} $proc{'invalid'}\n";
}

sub do_mem {
	my $oid = '.1.3.6.1.4.1.2021.4';
		  # enterprises.ucdavis.memory

        my $suf_total = '.5.0';
			# .memTotalReal.0
	my $suf_free  = '.6.0';
			# .memAvailReal.0
	my $suf_buffer   = '.14.0';
   			# .memBuffer.0
	my $suf_cache	 = '.15.0';
			# .memCached.0

	my $suf_swap_total = '.3.0';
			     # .memTotalSwap.0
	my $suf_swap_free  = '.4.0';
			     # .memAvailSwap.0

	my %mem;

	defined(my $res = HotSaNICsnmp::snmp_walk($host, $com, ($oid))) || return undef;
	$mem{'totalReal'} = $$res{$oid.$suf_total} * 1024 || 0;
	$mem{'availReal'} = $$res{$oid.$suf_free} * 1024 || 0;
	$mem{'buffer'}    = $$res{$oid.$suf_buffer} * 1024 || 0;
	$mem{'cached'}    = $$res{$oid.$suf_cache} * 1024 || 0;
	$mem{'totalSwap'} = $$res{$oid.$suf_swap_total} * 1024 || 0;
	$mem{'swapFree'}  = $$res{$oid.$suf_swap_free} * 1024 || 0;
	$mem{'swapUsed'}  = $mem{'totalSwap'} - $mem{'swapFree'};
	
	$mem{'shared'} = $mem{'totalReal'}-$mem{'availReal'}-$mem{'buffer'}-$mem{'cached'};

	do_rrd_mem(%mem);

	#print "MEM: ";
	#foreach ( keys(%mem) ) { print "$mem{$_} "; }
	#print "\n";
}

sub do_users {
	my $oid = '.1.3.6.1.2.1.25.1.5.0';
		  # host.hrSystem.hrSystemNumUsers.0

	defined(my $res = HotSaNICsnmp::snmp_get($host, $com, ($oid))) || return undef;

	do_rrd_users($$res{$oid});

	#print "USERS: $res\n";
}

# End gather functions 
#
# Start rrd-functions

sub do_rrd_cpu() {
	my %cpu_new = @_;
	my $rrdname = "cpu_".$host;

	if ( ! -e "rrd/".$rrdname.".rrd" ) { 
		system("./makerrd", $rrdname);
	}

	RRDs::update "rrd/".$rrdname.".rrd", time.":".$cpu_new{'user'}.":".$cpu_new{'nice'}.":".$cpu_new{'system'}.":".$cpu_new{'idle'};
	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update $rrdname.rrd: $ERROR\n"; }

	#print "Finished RRD update (CPU)\n";
}

sub do_rrd_load() {
	my @load = @_;
	my $rrdname = "load_".$host;

	if ( ! -e "rrd/".$rrdname.".rrd" ) { system("./makerrd", $rrdname) }
  	RRDs::update "rrd/".$rrdname.".rrd", time.":".$load[2].":".$load[1].":".$load[0];
  	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update $rrdname.rrd: $ERROR\n"; }

	#print "Finished RRD update (LOAD)\n";
}

sub do_rrd_proc() {
	my %proc = @_;
	my $rrdname = "proc_".$host;

	if ( ! -e "rrd/".$rrdname.".rrd" ) { system("./makerrd",$rrdname) }
  	RRDs::update "rrd/".$rrdname.".rrd", time.":".$proc{'runnable'}.":".$proc{'running'}.":".$proc{'invalid'}.":".$proc{'notRunnable'}.":U";
  	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update $rrdname.rrd: $ERROR\n"; }

	#print "Finished RRD update (PROC)\n";
}

sub do_rrd_mem() {
	my %mem = @_;
	my $rrdname = "mem_".$host;

	if ( ! -e "rrd/".$rrdname.".rrd" ) { system("./makerrd",$rrdname) }
	RRDs::update "rrd/".$rrdname.".rrd", time.":".$mem{'availReal'}.":".$mem{'shared'}.":".$mem{'buffer'}.":".$mem{'cached'}.":".$mem{'swapFree'}.":".$mem{'swapUsed'};
	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update $rrdname.rrd: $ERROR\n"; }

	#print "Finished RRD update (MEM)\n";
}

sub do_rrd_users() {
	my ($users) = @_;
	my $rrdname = "users_".$host;

	if ( ! -e "rrd/".$rrdname.".rrd" ) { system("./makerrd",$rrdname) }
	RRDs::update "rrd/".$rrdname.".rrd", time.":".$users.":U:U";
	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update $rrdname.rrd: $ERROR\n"; }

	#print "Finished RRD update (USERS)\n";
}

1;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
   <head>
      <meta http-equiv="content-type" content="text/html;charset=UTF-8">
      <meta http-equiv="generator" content="WebSVN 2.2.1" /> <!-- leave this for stats -->
      <link rel="shortcut icon" type="image/x-icon" href="./templates/BlueGrey/favicon.ico" />
      <link type="text/css" href="./templates/BlueGrey/styles.css" rel="stylesheet" media="screen">
      <!--[if lt IE 7]>
      <script type="text/javascript" src="./templates/BlueGrey/png.js"></script>
      <![endif]-->
      <script type="text/javascript" src="./templates/BlueGrey/collapse.js"></script>
      <title>
         WebSVN
            - hotsanic
            - Blame
               - Rev 36
            - /branches/HotSaNIC-0.5.0-jablonecka/modules/system/platform/syssnmp.pm
      </title>

      <script type="text/javascript">
         function checkCB(chBox)
         {
            count = 0
            first = null
            f = chBox.form
            for (i = 0 ; i < f.elements.length ; i++)
            if (f.elements[i].type == 'checkbox' && f.elements[i].checked)
            {
               if (first == null && f.elements[i] != chBox)
                  first = f.elements[i]
               count += 1
            }
            
            if (count > 2) 
            {
               first.checked = false
               count -= 1
            }
         }
         
      </script>


</head>
<body>
	<table width="100%" border="0">
	  <tr>
		<td width="13%">&nbsp;</td>
		<td width="73%" align="center"><a href="http://www.jablonka.cz/"><img style="border: 0; width: 201px; height: 51px;" src="./templates/BlueGrey/logo.png" alt="jablonka.cz" /></a><a href="http://www.prosek.czf/"><img style="border: 0; width: 528px; height: 51px;" src="./templates/BlueGrey/squares.png" alt="prosek.czf" /></a></td>
		<td width="13%"><div style="float: right"><form action="?path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2Fsystem%2Fplatform%2Fsyssnmp.pm&amp;repname=hotsanic&amp;rev=36" method="post" id="langform"><select name="langchoice" onchange="javascript:this.form.submit();"><option value="ca">Catal&agrave;-Valenci&agrave; - Catalan</option><option value="cs">&#268;esky - Cesky</option><option value="da">Dansk - Dansk</option><option value="nl">Dutch - Dutch</option><option value="en" selected="selected">English - English</option><option value="fi">Finnish - Finnish</option><option value="fr">Fran&ccedil;ais - Francais</option><option value="de">Deutsch - German</option><option value="he-IL">&#1506;&#1489;&#1512;&#1497;&#1514; - Hebrew</option><option value="hu">Magyar - Hungarian</option><option value="id">Bahasa Indonesia - Indonesian</option><option value="it">Italiano - Italian</option><option value="ja">&#26085;&#26412;&#35486; - Japanese</option><option value="ko">&#54620;&#44397;&#50612; - Korean</option><option value="no">Norsk - Norwegian</option><option value="pl">Polski - Polish</option><option value="pt">Portugu&ecirc;s - Portuguese</option><option value="pt-BR">Portugu&ecirc;s - Brazilian Portuguese</option><option value="ru">&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; - Russian</option><option value="zh-CN">&#20013;&#25991; - Simplified Chinese</option><option value="sk">Sloven&#269;ina - Slovak</option><option value="sl">Sloven&#269;ina - Slovenian</option><option value="es">Espa&ntilde;ol - Spanish</option><option value="sv">Svenska - Swedish</option><option value="zh-TW">&#20013;&#25991; - Traditional Chinese</option><option value="tr">T&uuml;rk&ccedil;e - Turkish</option><option value="uz">O&euml;zbekcha - Uzbek</option></select><input type="submit" value="Go" /></form></div></td>
	  </tr>
	</table>
	<hr />
<table cellspacing="0" cellpadding="0" border="0" width="100%">
  <tr>
    <td align="left"><h1>hotsanic</h1></td>
    <td align="right"><b>Subversion Repositories:</b> <form action="form.php?" method="post" id="projectform"><select name="repname" onchange="javascript:this.form.submit();"><option value="banderdyn">banderdyn</option><option value="centos.prosek.czf">centos.prosek.czf</option><option value="crusader">crusader</option><option value="czf4bfu">czf4bfu</option><option value="czf4bfu.prosek.czf">czf4bfu.prosek.czf</option><option value="czfcentos">czfcentos</option><option value="czfgmap">czfgmap</option><option value="discover">discover</option><option value="fedora.prosek.czf">fedora.prosek.czf</option><option value="freenet-router">freenet-router</option><option value="ftth">ftth</option><option value="getonlineclouds">getonlineclouds</option><option value="hotsanic" selected="selected">hotsanic</option><option value="internet.prosek.czf">internet.prosek.czf</option><option value="is">is</option><option value="mapstats">mapstats</option><option value="meteolinger">meteolinger</option><option value="netmap">netmap</option><option value="qos">qos</option><option value="sedlo">sedlo</option><option value="sedlo.prosek.czf">sedlo.prosek.czf</option><option value="switches">switches</option><option value="vbtobb">vbtobb</option><option value="vlubnt">vlubnt</option><option value="weathermap">weathermap</option><option value="weatherstats">weatherstats</option><option value="websvn">websvn</option><option value="wifidashboard">wifidashboard</option><option value="wifimon">wifimon</option><option value="www.prosek.czf">www.prosek.czf</option><option value="xenstats">xenstats</option></select><input type="submit" value="Go" /><input type="hidden" name="selectproj" value="1" /><input type="hidden" name="op" value="form" /></form></td>
  </tr>
</table>

[<a href="listing.php?repname=hotsanic&amp;path=%2F&amp;rev=36">/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2F&amp;rev=36">branches/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2F&amp;rev=36">HotSaNIC-0.5.0-jablonecka/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2F&amp;rev=36">modules/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2Fsystem%2F&amp;rev=36">system/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2Fsystem%2Fplatform%2F&amp;rev=36">platform/</a>] [<b>syssnmp.pm</b>] - Blame information for rev <b>36</b>
<p>&nbsp;</p>

<table cellpadding="2" cellspacing="0" width="100%" class="blameTbl">
	<thead>
		<tr>
			<th class="HdrClmn"><b>Line No.</b></th>
			<th class="HdrClmn"><b>Rev</b></th>
			<th class="HdrClmn"><b>Author</b></th>
			<th class="HdrClmnEnd"><b>Line</b></th>
		</tr>
	</thead>
	<tbody>
	</tbody>
</table> 


<script type='text/javascript'>
/* <![CDATA[ */
var rev = new Array();
var a = document.getElementsByTagName('a');
for (var i = 0; i < a.length; i++) {
  if (a[i].className == 'blame-revision') {
    var id = a[i].id;
    addEvent(a[i], 'mouseover', function() { mouseover(this) } );
    addEvent(a[i], 'mouseout', function() { mouseout(this) } );
  }
}

function mouseover(a) {
  // Find the revision by using the link
  var m = /rev=(\d+)/.exec(a.href);
  var r = m[1];

  div = document.createElement('div');
  div.className = 'blame-popup';
  div.innerHTML = rev[r];
  a.parentNode.appendChild(div);
}

function mouseout(a) {
  var div = a.parentNode.parentNode.getElementsByTagName('div');
  for (var i = 0; i < div.length; i++) {
    if (div[i].className = 'blame-popup') {
      div[i].parentNode.removeChild(div[i]);
    }
  }
}

function addEvent(obj, type, func) {
  if (obj.addEventListener) {
    obj.addEventListener(type, func, false);
    return true;
  } else if (obj.attachEvent) {
    return obj.attachEvent('on' + type, func);
  } else {
    return false;
  }
}
/* ]]> */
</script>

      <p><center><font size="-1"><i><b>Powered by <a href="http://www.websvn.info/">WebSVN</a> 2.2.1</b></i></font></center>
   </body>
</html>