#!/usr/bin/env perl

my $NAME="warnings.pl";

# check commandline arguments
#
my $cmd=shift;
if ($cmd eq "-p") { print_rows(@ARGV); }
elsif ($cmd eq "-c") { check_thresholds(@ARGV); }
else { helptext(); exit; }

sub check_thresholds {
  if ( ($#ARGV != 6) && ($#ARGV != 11) ) {
print "\nUSAGE: $NAME -c <module> <database> <row> <consolidation> <timespan> <lt|eq|gt> <threshold> [-m <> <> <> <>]\n\n";
    exit;
    }
  $module=shift;
  $db=shift;
  $row=shift;
  $consolidation=shift;
  $time=shift;
  $func=shift;
  $threshold=shift;


  open LINES,"rrdtool fetch ./modules/$module/rrd/$db.rrd -s -$time $consolidation|";
  @lines=<LINES>;
  close LINES;

  print @lines;

  $caught=0;
  $num=-1;
  $vmin=999999999999999999;
  $vmax=0;

  if ($func eq "gt") { $function="higher than"; }
  elsif ($func eq "eq") { $function="equal"; }
  elsif ($func eq "lt") { $function="lower than"; }

  foreach (@lines) {
    # first line contains data-row names
    if ($num == -1) {
      chomp;
      @names=split;
      $num++;
      next;
      }
    if ((! /nan/) && ( /:/)) {
      # process lines containing valid values
      chomp;
      $num++;
      @items=split;
      $val=@items[$row];
      $vsum+=$val;
      $vmin=$val if $vmin>$val;
      $vmax=$val if $vmax<$val;
      if (($func eq "gt") && ($val>$threshold)) { $caught++; }
      elsif (($func eq "eq") && ($val==$threshold)) { $caught++; }
      elsif (($func eq "lt") && ($val<$threshold)) { $caught++; }
      }
    }

  # check if there was at least one valid line
  if ($num > 0) { $vavg=$vsum/$num; } else { $vavg=-1; $num=-1; }

  if ($num == $caught) {
    my @message;
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $year+=1900;
    $mon++;
    $dow=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")[$wday];
    if ($isdst) { $dst="(DST)"; } else { $dst=""; }
    $mday="0".$mday if $mday<10;
    $mon="0".$mon if $mon<10;
    $sec="0".$sec if $sec<10;
    $min="0".$min if $min<10;
    $hour="0".$hour if $hour<10;
  
    my @message=("HotSaNIC THRESHOLD WARNING!","","Date    : $dow, $year-$mon-$mday","Time    : $hour:$min:$sec $dst","Module  : $module","database: $db","data-row: ".@names[$row-1],"","","$consolidation value constantly $function $threshold over the last $time seconds.",(sprintf "minimum: %12.2f",$vmin),(sprintf "average: %12.2f",$vavg),(sprintf "maximum: %12.2f",$vmax),"");

    $cmd=shift;
    if ($cmd eq "-m") {
	    print "sending...\n";
      sendmail(@_,@message);
      }
    else { print join("\n",@message),"\n"; }
    }
  }

sub print_rows {
  if ($#ARGV != 1) {
    print "\nUSAGE: $NAME -p <module> <database>\n\n";
    exit;
    }
  $module=shift;
  $db=shift;
  open LINES,"rrdtool fetch ./modules/$module/rrd/$db.rrd -s -1 MAX|";
  ( $line=<LINES> ) =~ s/^\s*//g;
  close LINES;
  $n=1;
  print "Row numbers for $module - $db.rrd\n";
  foreach (split /\s+/,$line) { print $n++." -> $_\n"; }
  exit;
  }


sub sendmail {
  use Net::SMTP;
             
  my $SMTP_Host  = shift || "";
  my $account    = shift || "dummy";
  my $sender     = shift || "hotsanic-system";
  my $recipient  = shift || "admin";
  my @message = (@_);
  unshift @message,"From: HotSaNIC <$sender>","";
  unshift @message,"Subject: HotSaNIC threshold warning";
  
  # add line-breaks (\r\n)  to text
  @message = map { $_."\r\n" } @message;

  my $smtp = Net::SMTP->new( $SMTP_Host, Helo => $account, Debug => 0 );
  my $OK;
  
  $OK = $smtp->mail($sender);
  if (! $OK) { return "ERROR: sender unknown: \"$sender\""; }
  
  $OK = $smtp->recipient( $recipient );
  if (! $OK) { return "ERROR: recipient invalid: \"$recipient\""; }
  
  # Nachricht senden
  $OK = $smtp->data(\@message);
  if (! $OK) { return "ERROR: message could not be delivered: \"$!\""; }
  
  # Ordungsgemäss beim Server abmelden
  $OK = $smtp->quit();
  if (! $OK) { return "ERROR: could not close connection.\"$!\""; }
  }


sub helptext {
  print "
USAGE:

$NAME -c <module> <database> <row> <consolidation> <timespan> <lt|eq|gt> <threshold>
  check the given database for given events and print results to running shell.

$NAME -p <module> <database>
  print DB-internal names.

$NAME -c ... -m <SMTPhost> <SMTPaccount> <sender> <recipient>
  mails the results in the given way

$NAME -f config_file
  check all targets configured in config_file.  (not implemented yet!)


  <module>            name of the module to query (you have to be in the HotSaNIC main directory)
  
  <database>          name of the database to query

  <data-row-number>   number of the database-row
                      \"?\" to show row names

  [MAX|MIN|AVERAGE]   consolidation function of the data-row you like to query

  <timespan>          timespan backwards from now in seconds

  [lt|eq|gt]          threshold functions
                        lt -> test if values are less than <threshold>
			eq -> test if values are equal <threshold>
			gt -> test if values are greater than <threshold>

  <threshold>         threshold value

  example:

   $NAME -c traffic eth0 1 MAX 120 gt 100000
     generates a warning message if the incoming traffic (row 1) of the traffic on eth0 exceeded 100000 bytes/s over the last 2 minutes

   $NAME -c system cpu 4 MAX 120 lt 0.3
     generates a warning message if the idle-time (row 4) of your CPU was constantly lower than 30% over the last 2 minutes
\n";
  }

<!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 5
            - /trunk/tools/warnings.pl
      </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=%2Ftrunk%2Ftools%2Fwarnings.pl&amp;repname=hotsanic&amp;rev=5" 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=5">/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Ftrunk%2F&amp;rev=5">trunk/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Ftrunk%2Ftools%2F&amp;rev=5">tools/</a>] [<b>warnings.pl</b>] - Blame information for rev <b>5</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>