package HotSaNICmod::OSdep;

use RRDs;
use Data::Dumper;

# return module version
#
sub version {
  ($VERSION = '$Revision: 1.10 $') =~ s/.*(\d+\.\d+).*/$1/;
  return "$^O.pm $VERSION";
  }

# sample data
#
sub sample {
  my %args=@_;

  @sections = split " ", ($args{SECTIONS});
  foreach (@sections){
    if ($_ eq "cpu")	{read_cpu(%args)}
    elsif ($_ eq "load")   {read_load(%args)}
    elsif ($_ eq "proc")   {read_proc(%args)}
    elsif ($_ eq "mem")	{read_mem(%args)}
    elsif ($_ eq "users")  {read_users(%args)}
    elsif ($_ eq "int")	{read_interrupts(%args)}
	 elsif ($_ eq "uptime") {read_uptime(%args)}
    }

  }

# users.rrd -> tty pty pts
# cpu.rrd -> cpuusr cpusys cpunic cpuidl
# load.rrd -> load15 load5 load1
# proc.rrd -> procslp procrun proczmb procstp
# mem.rrd (Linux) -> memfre memshr membuf memcac swpfre swpuse

#####################################################################################
# build CPU statistics
# in /proc/stat there is a CPU entry which provides us with the
# number of ticks the CPU was in all states ( user nice system idle )
# We simply have to gather this information and calculate the actual percentage :)
# To do this we have to remember the last read values of course!
#
sub read_cpu {
  my %args=@_;
  my $multicpu=0;

  # read actual state
  
  # assumed order is: user nice sys intr idle
  $cpuraw = `/sbin/sysctl kern.cp_time`;
  $cpuraw =~ /^.* user = (\d+), nice = (\d+), sys = (\d+), intr = (\d+), idle = (\d+)$/;
  $cpu="cpu";
  $cpu1{$cpu}=$1;
  $cpu2{$cpu}=$2;
  $cpu3{$cpu}=$3;
  $cpu4{$cpu}=$5;
  $cpu5{$cpu}=$4;
  $cpu1old{$cpu}=0;
  $cpu2old{$cpu}=0;
  $cpu3old{$cpu}=0;
  $cpu4old{$cpu}=0;
  $cpu5old{$cpu}=0;

  # read last state and store actual state
  # usr nice sys idle int
  if ( -e "cpu.dat" ) {
    open(CPU,"cpu.dat");
    while (<CPU>) {
      $line=$_." 0 0 0 0 0 0";
      ($cpu, $cpu1old, $cpu2old, $cpu3old, $cpu4old, $cpu5old)=split / /,$line;
    
      if ($cpu !~ /cpu/) {
        $cpu5old=$cpu4old;
        $cpu4old=$cpu3old;
        $cpu3old=$cpu2old;
        $cpu2old=$cpu1old;
        $cpu1old=$cpu;
        $cpu="cpu";
        }
  
      $cpu1old{$cpu}=$cpu1old;
      $cpu2old{$cpu}=$cpu2old;
      $cpu3old{$cpu}=$cpu3old;
      $cpu4old{$cpu}=$cpu4old;
      $cpu5old{$cpu}=$cpu5old;
      }
    close(CPU);
    }
  
  open(CPU,">cpu.dat");
  
  foreach $cpu (keys %cpu1) {
    print CPU $cpu." ".$cpu1{$cpu}." ".$cpu2{$cpu}." ".$cpu3{$cpu}." ".$cpu4{$cpu}." ".$cpu5{$cpu}."\n";
  
# calculate everything....
#

    $all{$cpu}=($cpu1{$cpu}+$cpu2{$cpu}+$cpu3{$cpu}+$cpu4{$cpu}+$cpu5{$cpu})-($cpu1old{$cpu}+$cpu2old{$cpu}+$cpu3old{$cpu}+$cpu4old{$cpu}+$cpu5old{$cpu});

    $cpuusr{$cpu}=($cpu1{$cpu}-$cpu1old{$cpu})/$all{$cpu};
    $cpunic{$cpu}=($cpu2{$cpu}-$cpu2old{$cpu})/$all{$cpu};
    $cpusys{$cpu}=($cpu3{$cpu}-$cpu3old{$cpu})/$all{$cpu};
    $cpuidl{$cpu}=($cpu4{$cpu}-$cpu4old{$cpu})/$all{$cpu};
    $cpuint{$cpu}=($cpu5{$cpu}-$cpu5old{$cpu})/$all{$cpu};

# store data
#
    if ( ! -e "rrd/".$cpu.".rrd" ) { system("./makerrd",$cpu); }
    RRDs::update "rrd/".$cpu.".rrd", time.":".$cpuusr{$cpu}.":".$cpunic{$cpu}.":".$cpusys{$cpu}.":".$cpuidl{$cpu}.":".$cpuint{$cpu};
    if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update cpu.rrd: $ERROR\n"; }
  
# on single-cpu machines only the global database has to be updated.
#
    last if ($multicpu==0);
  
    }
  close(CPU);
  }



#####################################################################################
# here we go with the load-average value ...
#
sub read_load {
  my %args=@_;
 (undef,$load1,$load5,$load15)=split(/ /,`/sbin/sysctl vm.loadavg`);

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



#####################################################################################
# now the processes. We have to check how many processes are sleeping,
# running, zombieng spwapped to disc or stopped. To do this we simply
# have to walk through the /proc tree, check all "stat" files of each
# process-id subdir and increment the according state-counter.
#
sub read_proc {
  my %args=@_;
  ($procslp,$procrun,$proczmb,$procstp,$procdsc)=(0,0,0,0,0);

  # ok, this needs work doing to it. Unfortunately I'm not quite
  # familiar enough with FreeBSD to do this properly - any takers? - MJB

  $procslp=$procrun=$proczmb=$procstp=$procdsc=0;
  open FILE,"/bin/ps axostate|";
  while (<FILE>) {
    $procslp++ if (/^S/);
    $procdsc++ if (/^D/);
    $procrun++ if (/^R/);
    $proczmb++ if (/^Z/);
    $procstp++ if (/^T/);
    }
  close FILE;

  if ( ! -e "rrd/proc.rrd" ) { system("./makerrd","proc") }
  RRDs::update "rrd/proc.rrd", time.":".$procslp.":".$procrun.":".$proczmb.":".$procstp.":".$procdsc;
  if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": nable to update proc.rrd: $ERROR\n"; }
  }

#####################################################################################
# read users stats
#
sub read_users {
  my %args=@_;

  @users=`who`;
  ($tty,$pty,$pts)=(0,0,0);
  foreach (@users) {
    #  print $_;
    if (index($_," ttyE") >=0 )    { $tty++; }
    elsif (index($_," ttyp") >=0 ) { $pty++; }
    elsif (index($_," pts") >=0 )  { $pts++; }
    }

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

####################################################################################
# here we go with the memory and swapfile statistics...
#
sub read_mem {
	my %args=@_;

	my ($line, $bpp, $totalmem, $free, $active, $inactive, $fcache, $ecache, $totalswap, $swapused);
	my @vmstat = `/usr/bin/vmstat -s`;
	foreach $line ( @vmstat ) {
		chomp $line;
		($bpp = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / bytes per page$/);
		($totalmem = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / pages managed$/);
		($free = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / pages free$/);
		($active = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / pages active$/);
		($inactive = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / pages inactive$/);
		($wired = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / pages wired$/);
		($fcache = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / cached file pages$/);
		($ecache = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / cached executable pages$/);
		($totalswap = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / swap pages$/);
		($swapused = $line) =~ s/^.*?(\d+) .*$/$1/ if ($line =~ / swap pages in use$/);
	}
	my $memfree = $free * $bpp ;
	my $meminac = $inactive * $bpp ;
	my $memacti = $active * $bpp ;
	my $memwire = $wired * $bpp ;
	my $memcach = ($fcache + $ecache) * $bpp ;
	my $swpfree = ($totalswap - $swapused) *$bpp ;
	my $swpused = $swapused * $bpp ;
	#print STDERR "$memactv,$memfree,$swpused,$swpfree\n";
	if ( ! -e "rrd/mem.rrd" ) { system("./makerrd","mem") }
	RRDs::update "rrd/mem.rrd", time.":".$memfree.":".$meminac.":".$memacti.":".$memwire.":".$memcach.":".$swpfree.":".$swpused;
	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update `mem.rrd': $ERROR\n"; }
}

####################################################################################
# here we go with the interrupts...
#
sub read_interrupts {
  my %args=@_;

   my @stats=(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
   my $i;
   open FILE,"/usr/bin/vmstat -i |";
   while (<FILE>) {
     next if (/interrupts/);
     chomp;
     ($irq,$total,) = split;
     ($i = $irq ) =~ s/irq(\d+)/$1/;
     $i  =~ s/Total/-1/;
     $stats[$i+1] = $total ;
     }
   close FILE;
 
  # need first 17 values from array
  my $result=join(":",@stats[0..16]);
    
  if ( ! -e "rrd/irq.rrd" ) { system("./makerrd","irq") }
  RRDs::update "rrd/irq.rrd",time.":".$result;
  if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update `irq.rrd': $ERROR\n"; }
}

#####################################################################################
# here we go with the load-average value ...
#
sub read_uptime {
	my %args=@_;
#	open(IN,"/usr/bin/uptime |"); ($up,$idle)=split(/ /,<IN>); close(IN);
#	$up/=86400;
#	$idle/=86400;
#
#	if ( ! -e "rrd/uptime.rrd" ) { system("./makerrd","uptime") }
#	RRDs::update "rrd/uptime.rrd", time.":".$up.":".$idle;
#	if ($ERROR = RRDs::error) { print time," ",$args{MODNAME},": unable to update uptime.rrd: $ERROR\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 9
            - /branches/HotSaNIC-0.5.0-jablonecka/modules/system/platform/netbsd.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%2Fnetbsd.pm&amp;repname=hotsanic&amp;rev=9" 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=9">/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2F&amp;rev=9">branches/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2F&amp;rev=9">HotSaNIC-0.5.0-jablonecka/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2F&amp;rev=9">modules/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2Fsystem%2F&amp;rev=9">system/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Fmodules%2Fsystem%2Fplatform%2F&amp;rev=9">platform/</a>] [<b>netbsd.pm</b>] - Blame information for rev <b>9</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>