#!/usr/bin/perl

#

# Author: Russ Wright, Lawrence Berkeley National Laboratory December 1997

# Local modifications by Wee-Meng Lee  HP Singapore (colour/lynx)

#    and Mark Mushkin  HP Santa Clara  (avg/max/min that suit our needs)

#  Last Update on  Oct 14, 1997

#

# This will look at the $trafficDir directory for MRTG generated HTML

# files, parse them and generate a listing of the most active interfaces

# in a file called "active.htlm" in the same directory

#

# modify this if you wish as long as the above credit is not removed

#

# The only weird thing I do is to skip tunnel interfaces (see code below)

#

# TWO VARIABLES YOU MUST CHANGE

#

$trafficDir="/usr/local/httpd/htdocs";

#

# I put it in a file and include it because I use it in other scripts

# if you don't - comment this out and uncomment the above line

#require "trafficdir.include";

# CHANGE THIS to your organization name

$orgName="HP Singapore - IT Site Infrastructure";

$outFile = "$trafficDir/active.html";

# The following may be changed and I admit that it isn't perfect how I decide

# to highlight stuff.

#

#values over this will be displayed in the specified color

#  these are for the MAX values

$maxAMBER = 70;

$maxRED = 90;

# these are for the Average and Current values

$AMBER = 30;

$RED = 60;

#Defining the colors

$REDcolor="#ff0000";

$AMBERcolor="#ffff00";

$GREENcolor="#00ff00";

# Refresh interval (minutes) for HTML doc

$refreshInt=10;

#

$refreshSeconds=60*$refreshInt;

#

# Max % to look at (if the Max is lower then we do not include in the list)

#$maxThresh = 5;

$maxThresh = 0;

$theDate=`date +"%m/%d/%y %H:%M"`;

open(LS, "ls $trafficDir/*.[0-9]*.html|") || die "Couldn't list directory";

while (<LS>) {

        chop;

        $theFile = $_;

        open(IN, "$theFile") || die "Couldn't open $theFile\n";

        $i=0;

        while (<IN>) {

                if (/Traffic Analysis for .*[0-9]
(.*)<\/H1> /) {

                        if ($1 =~ /tunnel/i) {

# skip tunnels

                                last;

                        }

                        $desc{$theFile} = $1;

                }

                if (/\(([0-9.]*\%)\)/) {

                        $theList{$theFile}[$i++] = $1;

                }

        }

        close(IN);

}

close(LS);

#

#

# the array contains all the percentages: the following 6 for

#               daily, weekly, monthly, yearly

#

# 0 Max In

# 1 Avg In

# 2 Cur In

# 3 Max Out

# 4 Avg Out

# 5 Cur Out

#

#

open(OUT, ">$outFile") || die "Couldn't create $outFile";

&PrintHead;

foreach $key (keys %theList) {

# get sum of both max in and out

#        $sumInOut = $theList{$key}[0] + $theList{$key}[4]; # use for max

         $sumInOut = $theList{$key}[1] + $theList{$key}[4]; # use for avg

        if ( ($sumInOut > $maxThresh) ||

            ($curIn > $highlightThresh) ||

            ($curOut > $highlightThresh) ||

            ($avgIn > $highlightThresh) ||

            ($avgOut > $highlightThresh) ) {

                $printList{$key} = $sumInOut;

        }

}

foreach $key (sort by_percent (keys %printList)) {

        $theRouter = $key;

        $theRouter =~ s/.*\///;

        $theRouter =~ s/\.html//;

        $theFile = $key;

        $theFile =~ s/.*traffic\///;

        $maxIn= $theList{$key}[0];

        $avgIn= $theList{$key}[1];

        $curIn= $theList{$key}[2];

        $maxOut= $theList{$key}[3];

        $avgOut= $theList{$key}[4];

        $curOut= $theList{$key}[5];

        printf(OUT "");

        if ($maxIn > $maxRED) {

                printf(OUT "<CENTER>$maxIn</CENTER>");

        } elsif ($maxIn > $maxAMBER) {

                printf(OUT "<CENTER>$maxIn</CENTER>");

        } else {

                printf(OUT "<CENTER>$maxIn</CENTER>");

        }

        printf(OUT "    ");

        if ($maxOut > $maxRED) {

                printf(OUT "<CENTER>$maxOut</CENTER>");

        } elsif ($maxOut > $maxAMBER) {

                printf(OUT "<CENTER>$maxOut</CENTER>");

        } else {

                printf(OUT "<CENTER>$maxOut</CENTER>");

        }

        printf(OUT "    ");

        if ($avgIn > $RED) {

                printf(OUT "<CENTER>$avgIn</CENTER>");

        } elsif ($avgIn > $AMBER) {

                printf(OUT "<CENTER>$avgIn</CENTER>");

        } else {

                printf(OUT "<CENTER>$avgIn</CENTER>");

        }

        printf(OUT "    ");

        if ($avgOut > $RED) {

                printf(OUT "<CENTER>$avgOut</CENTER>");

        } elsif ($avgOut > $AMBER) {

                printf(OUT "<CENTER>$avgOut</CENTER>");

        } else {

                printf(OUT "<CENTER>$avgOut</CENTER>");

        }

        printf(OUT "    ");

        if ($curIn > $RED) {

                printf(OUT "<CENTER>$curIn</CENTER>");

        } elsif ($curIn > $AMBER) {

                printf(OUT "<CENTER>$curIn</CENTER>");

        } else {

                printf(OUT "<CENTER>$curIn</CENTER>");

        }

        printf(OUT "    ");

        if ($curOut > $RED) {

                printf(OUT "<CENTER>$curOut</CENTER>");

        } elsif ($curOut > $AMBER) {

                printf(OUT "<CENTER>$curOut</CENTER>");

        } else {

                printf(OUT "<CENTER>$curOut</CENTER>");

        }

        printf(OUT "    ");

        printf(OUT "$theRouter
\n");

}

&PrintTail;

close(OUT);

sub by_percent {

        $printList{$b} <=> $printList{$a};

}

sub PrintTail

{

print OUT <

</BODY>

</HTML>

EOF

}

sub PrintHead

{

$expTime=&expistr;

print OUT <

<HTML>

<HEAD>

<TITLE>$orgName Most Active Interface</TITLE>

</HEAD>

<META HTTP-EQUIV="Expires" CONTENT="$expTime">

<META HTTP-EQUIV="Refresh" CONTENT=$refreshSeconds>

<BODY bgcolor=#ffffff>

Most Active Interfaces as of $theDate

 The following are sorted by the sum of the daily average input

and daily average output (In Avg% + Out Avg%) interface octets. 

This table is updated every $refreshInt minutes and will automatically 

be updated if you are using Netscape.

Value ranges: 

MAX Values are: <FONT COLOR="#ff0000">RED if \> $maxRED </font>, and 

YELLOW if \> $maxAMBER </font>

Average & Current Values are: <FONT COLOR="#ff0000">RED if \> $RED </font>, and YELLOW if \> $AMBER </font>

In Max %

Out Max %

In Avg %

Out Avg %

In Current %

Out Current %

Interface

EOF

}

sub expistr {

  my ($time) = time+$refreshInt*60+5;

  my ($wday) = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[(gmtime($time))[6]];

  my ($month) = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',

                 'Oct','Nov','Dec')[(gmtime($time))[4]];

  my ($mday,$year,$hour,$min,$sec) = (gmtime($time))[3,5,2,1,0];

  if ($mday<10) {$mday = "0$mday"};

  if ($hour<10) {$hour = "0$hour"};

  if ($min<10) {$min = "0$min";}

  if ($sec<10) {$sec = "0$sec";}

  return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT";

}