#! /usr/bin/perl


###
### MAT - Management Account Tool (c)09/02 - Kirk Waingrow
###
### Version 1.3 - "OPEN" button added to show only open items
###
$VER="1.3 - Kirk Waingrow - 10/09";   		# VERSION NUMBER
$PROGNAME="server_outages";
$MANAGENAME="Server Outage";
$DPATH="/var/www/data";
$FIELD1="Outage Date";  $FLEN1=10;  # Length of the input field
$FIELD2="STI";  	$FLEN2=10;  
$FIELD3="ETR"; 	$FLEN3=8;
$FIELD4="Severity"; 	$FLEN4=8;
$FIELD5="Status"; 	$FLEN5=10;
$FIELD6="Hostname"; 	$FLEN6=25;
$FIELD7="Problem / WHY / Resolution"; 	$FLEN7=30;
$FIELD8="Ticket"; $FLEN8=8;
$FIELD9="whoami"; $FLEN9=8;
$FIELD10="Cluster"; 	$FLEN10=10;
@SEV=("Low", "Medium", "High");
@STAT=("Available","Completed", "In-process", "In-Use", "Unknown", "Repair", "New");
$DATE=`date '+%Y/%m/%d'`;
$TIME=`date '+%H:%M'`;

$FVAL1="";
$FVAL2="";
$FVAL3="";
$FVAL5="";
$FVAL6="";
$FVAL7="";
$FVAL8="";
$FVAL9="";
$FVAL10="";
#
# Only Change the Above - IF MORE FIELDS ARE ADDED THEN 
# SEACH FOR /#CHANGE# AND MODIFY WHERE NEEDED
# -------------------------------------------------------------------

$DATA="$DPATH/$PROGNAME.txt";
$COMMENT="$DPATH/$PROGNAME.cmt";
$PROG="/cgi-bin/$PROGNAME";
if ( ! -d "$DPATH" ) { `mkdir -p $DPATH`; }
if ( ! -f "$DATA" ) { `touch $DATA`; }

print "Content-type: text/html\n\n";

print qq~
<title>$MANAGENAME Manager</title>
<table width=100%><td align=left><a href=/cgi-bin/server_outages> < Back </a></td>
</table>

~;

$buffer = "$QUERY_STRING";
$buffer = $ENV{'QUERY_STRING'};

# Split the Variables by the &
#
@pairs = split (/&/, $buffer);

# Create the array
foreach $pair (@pairs)
{
  ($name, $value) = split(/=/, $pair);

  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $form{$name} = $value;
  #print "$form{$name}<P>";
}

## #CHANGE#
$FVAL1="$DATE";
$FVAL2="$TIME";


# GET DATA FROM THE DATA FILE TO BE EDITTED
sub get_data
{
  $cnt=0;
  open(IN, "$DATA");
  while (<IN>)
  {
      $cnt++;
      if ( $cnt eq $form{UPD} ) 
      {
	# #CHANGE#
	($FVAL1, $FVAL2, $FVAL3, $FVAL4, $FVAL5, $FVAL6, $FVAL7, $FVAL8, $FVAL9, $FVAL10) = split(/\t/, $_);
      }
  }
  close(IN);
}



###
### Store the list of outage hosts in an array
###
sub fill_outage
{
  @outage="";
  open(IN, "$DATA") || print "NOT $DATA HERE";
    while (<IN>)
    {
     ($d1, $d2, $d3,$d4, $d5, $d6) = split("	", $_);
    push(@outage, "$d6");
      }
  close(IN);
}



# DELETE AN ENTRY
if ( $form{del} )
{  
  ($fu, $fi) = split(/:/, $form{del});
  $cnt=0;
  open(OUT, "> $DATA.tmp");
    open(IN, "$DATA");
    while (<IN>)
    {
      $cnt++;
      if ( $cnt ne $fu ) { print OUT "$_"; }
#      else 
#      {
#	# #CHANGE#
#	($FD1, $FD2, $FD3, $FD4, $FD5, $FD6, $FD7, $FD8, $FD9) = split(/\t/, $_);
#	if ( "$fi" ne "$FD2" ) { print OUT "$_"; }
#      }
    }
    close(IN);
  close(OUT);
  `mv $DATA.tmp $DATA`;
}

###
### ADD ENTRY
###

# Default values
$ERROR="";

if ( "$form{FIELD1}" )
{
#  if ( ! "$form{FIELD1}" ) { $ERROR="1"; }
#  if ( ! "$form{FIELD2}" ) { $ERROR="1"; }
#  if ( ! "$form{FIELD3}" ) { $ERROR="1"; }
  if ( ! "$ERROR" )
  {
### #CHANGE#
    $reload=`grep "^$form{FIELD1}	$form{FIELD2}	$form{FIELD3}	$form{FIELD4}	$form{FIELD5}	$form{FIELD6}	$form{FIELD7}	$form{FIELD8}	$form{FIELD9}	$form{FIELD10}" $DATA`;
    if ( ! "$reload" )
    {
      open (OUT, ">> $DATA");
###   #CHANGE#
      print OUT "$form{FIELD1}	$form{FIELD2}	$form{FIELD3}	$form{FIELD4}	$form{FIELD5}	$form{FIELD6}	$form{FIELD7}	$form{FIELD8}	$form{FIELD9}	$form{FIELD10}\n";
      close(OUT);
      `sort -nr $DATA > $DATA.tmp`;
      `mv $DATA.tmp $DATA`;
    }
  } 
  else
  { $ERROR="<br><font color=bb0000><b>*** ERROR: ALL FIELDS MUST BE ENTERED *** </b></font>"; 
   
### #CHANGE#
    $FVAL1="$form{FIELD1}";
    $FVAL2="$form{FIELD2}";
    $FVAL3="$form{FIELD3}";
    $FVAL4="$form{FIELD4}";
    $FVAL5="$form{FIELD5}";
    $FVAL6="$form{FIELD6}";
    $FVAL7="$form{FIELD7}";
    $FVAL8="$form{FIELD8}";
    $FVAL9="$form{FIELD9}";
    $FVAL10="$form{FIELD10}";
  }
} 


sub average_day
{
  if ( -s "$DATA" ) 
  { 
  $days=0; $daystemp=""; $cnt=0;
  open(IN, "$DATA");
  while (<IN>)
  {
    chomp;
    ($FD1,$FD2,$FD3, $FD4, $FD5, $FD6, $FD7, $FD8) = split(/\t/, $_);
    if ( $daystemp ne $FD1 ) 
    { 
      #print "<br>DAYS = $days / $daystemp / $FD1 = $cnt\n"; 
      $d="$daystemp:$cnt";
      if ( $daystemp ne "" )
      {
        push(@days, "$d"); 
      }
      $days++; $daystemp="$FD1"; 
      $cnt=0;
    }
      #print "<br>DAYS = $days / $daystemp / $FD1 = $cnt\n"; 
    $cnt++;
  }
  close(IN);
  $avgday=sprintf("%.0f", ($TOTALREC / $days));
  }
  else { $avgday=0; $TOTALREC=0; $days=0; }
#  print "<br> avgday = $TOTALREC /$days\n"; 
}


sub average_week
{
  $weeks=1; $weeknum=0; $weekstemp="";
  @weektotals=""; $cnt=0;
  open(IN, "$DATA");
  while (<IN>)
  {
    chomp;
    ($FD1,$FD2,$FD3, $FD4, $FD5, $FD6, $FD7, $FD8) = split(/\t/, $_);
    if ( $weekstemp ne $FD1 ) 
    { 
      $weekstemp="$FD1"; 
      $weeknum++;
      if ( $weeknum == 7 ) 
      {
#         print "<br> WEEKS = $weeks /$weeknum / $weekstemp / $FD1 = $cnt\n"; 
          $w="$FD1:$cnt";
          push(@weektotals, "$w");
         $weeks++;  $weeknum=0; $cnt=1;
      }
    }
    $cnt++;
  }
  close(IN);
  $avgweek=sprintf("%.0f", ($TOTALREC / $weeks));
#  print "<br> avgweek = $TOTALREC /$weeks\n"; 
}


sub display_output
{
        $TOTALREC++;
        $found="1"; 
        if ( $fade ) { $bgc="bgcolor=e8e8e8"; $fade="0"; }
        else { $bgc="bgcolor=white"; $fade="1"; }
        #if ( "$PREV" eq $FD1 ) { $bgc="bgcolor=red"; }
        $STCCC="black";
        $SEVCCC="black";
        if ( "$FD4" eq "Low" ) { $SEVCCC="green"; }
        if ( "$FD4" eq "Medium" ) { $SEVCCC="orange"; }
        if ( "$FD4" eq "High" ) { $SEVCCC="red"; }
        if ( "$FD1" =~ /9999/ ) { $FD4=""; $FD1="";}
        if ( "$FD5" eq "Completed" || "$FD5" eq "Resolved" ) { $STCCC="green"; }
        if ( "$FD5" eq "In-process" || "$FD5" eq "New" || "$FD5" eq "Unknown" || "$FD5" eq "In-Use" || "$FD5" eq "Repair") { $STCCC="red"; }
        if ( "$FD5" eq "Available" ) { $STCCC="green"; }
        print "<tr><td $bgc><font size=2>\n";
        if ( ! $form{prnt} && ! $form{DO}) 
	  { print "<a href=$PROG?$FLINE><img src=/edit.gif border=0></a>";}

        print qq~
<!-- #CHANGE -->
	 <!-- <Input type=radio NAME="del" value="$lnum:$FD1"> -->
        </td><td $bgc valign=center><font size=2>$FD1<font></td> 
 	      <td $bgc><font size=2> $FD2</font></td>
	      <td $bgc><font size=2> $FD3</font></td>
        ~;
         # Strip severity/status/outages
         if ( ! $form{DO} )
         {
  	    print qq~
	      <td $bgc ><font size=2 color=$SEVCCC> $FD4</font></td>
	      <td $bgc><font size=2 color=$STCCC> $FD5</font></td>
	      <td $bgc valign=center align=center> $tcnt </font></td>
             ~;
          }
   	  # Display host
   	  print qq~
	      <td $bgc><font size=2> $FD6</font></td>
          ~;
         # Strip  cluster
         if ( ! $form{DO} )
         {
  	    print qq~
	      <td $bgc><font size=2> $FD10</font></td>
            ~;
          }
	  # Display Description
	  print qq~
	      <td $bgc><font size=2> $FD7</font></td>
          ~;
         # Strip Ticket / whoami
         if ( ! $form{DO} )
         {
  	    print qq~
	      <td $bgc><font size=2> $FD8</font></td>
	      <td $bgc><font size=2> $FD9</font></td>
            ~;
  	  }
          print " </tr>\n";
        $PREV="$FD1";
}


###
### TITLE BAR
###
$TOTALREC=`cat $DATA | wc -l | awk '{ print $1}'`;
average_week;
average_day;

print qq~
<body bgcolor="white" text="000000" link="000000" vlink="000000" alink="000000" >
<CENTER>
  <table border=1 cellpadding=5 width=100%>
  <TR> 
      <TD align=center bgcolor=ccccaa width=50%>
      <FONT color=gray size=5> <a href=$PROG>$MANAGENAME Manager</a></font><br>
      <FONT color=gray size=3><i>MySpace Unix Operations</i></font>
      </TD>
	<TD align=right bgcolor=ccccaa>
	<font size=2 color=black>
	<form method=get action=$PROG>
	Search $TOTALREC records: 
	<INPUT SIZE=25 NAME="search"> 
	<Input TYPE=submit VALUE="Go">
	</font>
        <br> 
	<font size=2 color=black> Averages:
         <a href=$PROG?avg=day>$avgday p/day</a></font>  - 
	</font>
	<font size=2 color=black> 
         <a href=$PROG?avg=week>$avgweek p/week</a></font>  
	</font>
       &nbsp; 
       &nbsp; 
       &nbsp; 
       &nbsp; 
       &nbsp; 
       &nbsp; 
	<font size=2 color=black> 
         <a href=$PROG?search=%OPEN%>OPEN</a></font> | 
	</font>
	<font size=2 color=black> 
         <a href=$PROG?prnt=1&search=$form{search}>print</a></font>
         | <a href=$PROG?DO=1&search=$form{search}>d/o</a></font>
	</font>
  	</td>
  </TR>
~;
if ( ! $form{prnt} && ! $form{DO} )
{
print qq~
  <TR> 
	<TD align=center colspan=2 bgcolor=darkcyan>
 	</form>
	<form method=get action=$PROG>
	<font size=2 color=white>
~;
	if ( $form{UPD}) 
	{ 
	  &get_data; $SUBVAL="Update";
	  print "<input name=del type=hidden value=\"$form{UPD}\">\n";
	}
	else { $SUBVAL="Add";}
print qq~
<!-- #CHANGE -->
	$FIELD1: <INPUT SIZE=$FLEN1 NAME="FIELD1" value="$FVAL1"> 
	$FIELD2: <INPUT SIZE=$FLEN2 NAME="FIELD2" value="$FVAL2"> 
	$FIELD3: <INPUT SIZE=$FLEN3 NAME="FIELD3" value="$FVAL3"> 
	<!-- $FIELD4: <INPUT SIZE=$FLEN4 NAME="FIELD4" value="$FVAL4">  -->
   $FIELD4: <SELECT NAME="FIELD4">
~;
   foreach (@SEV)
   {
     if ( /$FVAL4/) { $SEL="SELECTED"; } 
     else { $SEL=""; }
     print "<OPTION VALUE=$_ $SEL>$_\n";
   }
   
print qq~
    </SELECT>

	<!-- $FIELD5: <INPUT SIZE=$FLEN5 NAME="FIELD5" value="$FVAL5"> <br> &nbsp; -->
   $FIELD5: <SELECT NAME="FIELD5">
~;
   foreach (@STAT)
   {
     if ( /$FVAL5/) { $SEL="SELECTED"; } 
     else { $SEL=""; }
     print "<OPTION VALUE=$_ $SEL>$_\n";
   }
print qq~
    </SELECT> 

	$FIELD6: <INPUT SIZE=$FLEN6 NAME="FIELD6" value="$FVAL6"> &nbsp; <br>
	$FIELD10: <INPUT SIZE=$FLEN10 NAME="FIELD10" value="$FVAL10"> &nbsp; 
	$FIELD7: <INPUT SIZE=$FLEN7 NAME="FIELD7" value="$FVAL7"> &nbsp; 
	$FIELD8: <INPUT SIZE=$FLEN8 NAME="FIELD8" value="$FVAL8"> &nbsp; 
	$FIELD9: <INPUT SIZE=$FLEN9 NAME="FIELD9" value="$FVAL9"> &nbsp; 
	<Input TYPE=submit VALUE="$SUBVAL">
	</font>
  	$ERROR
	</font>
  	</td>
  </tr>
~;
}
print qq~
</center>
</table>
</form>
</center>
~;


###
### Get average if passed
###
if ( $form{avg} )
{
  print "</center>";
  if ( $form{avg} eq "day" ) {@avg=@days;}
  if ( $form{avg} eq "week" ) {@avg=@weektotals;}
  print qq~
    <table border=0>
    <td align=center><u>$form{avg}</u></td><td align=center><u># Outages</u></td>
  ~;
  foreach $i (@avg) 
  {
  ($dd, $nn) = split(/:/, $i);
  print qq~
    <tr><td align=center>$dd</td><td align=center>$nn</td></tr>
  ~; 
  }
  print "</table>";
    exit;
}



###
### CAT A TEXT FILE FOR COMMENT AND INFORMATION
###
`touch $COMMENT`;
open(IN, "$COMMENT" );
while (<IN>)
  { print $_; }
close(IN);



###
### DISPLAY DATA
###
$TOTALREC=0;
if ( -s "$DATA" )
{
      #</center><Input TYPE=submit VALUE="Remove">
  print qq~
    <form method=get action=$PROG>
    <table border=0 width=100% cellpadding=3>
    <tr>
<!-- #CHANGE# -->
	<td align=center colspan=2><font size=2>$FIELD1<br><hr></font></td>
	<td align=center><font size=2>$FIELD2<br><hr></font></td>
	<td align=center><font size=2>$FIELD3<br><hr></font></td>
    ~; 
         # severity/Status/outages
         if ( ! $form{DO} )
         {
  	    print qq~
	<td align=center><font size=2>$FIELD4<br><hr></font></td>
	<td align=center><font size=2>$FIELD5<br><hr></font></td>
	<td align=center><font size=2>Outages<br><hr></font></td>
	  ~;
         }
        print qq~
	<td align=center><font size=2>$FIELD6<br><hr></font></td>
        ~;
         if ( ! $form{DO} )
         {
  	    print qq~
	<td align=center><font size=2>$FIELD10<br><hr></font></td>
          ~;
         }
        print qq~
	<td align=center><font size=2>$FIELD7<br><hr></font></td>
        ~;
         if ( ! $form{DO} )
         {
  	    print qq~
	<td align=center><font size=2>$FIELD8<br><hr></font></td>
	<td align=center><font size=2>$FIELD9<br><hr></font></td>
            ~;
          }
  print qq~
    </tr> 
  ~;
  
  $bgc="";
  $lnum=0;
  $found="";
  &fill_outage;
  open (IN, "$DATA");
  while (<IN>)
  {
    $lnum++;
### #CHANGE# 
    ($FD1,$FD2,$FD3, $FD4, $FD5, $FD6, $FD7, $FD8, $FD9, $FD10) = split(/\t/, $_);

    ### COUNT NUMBER OF OUTAGES
    $ocnt=0; $tcnt=0;
    foreach $o(@outage)
    {
      $ocnt++;
      if ( $ocnt > $lnum ) { if ( "$o" eq "$FD6" ) { $tcnt++; } }
    }
    if ( $FD6 =~ /warmspare/ || $FD6 =~ /ws00/ ) { $tcnt="";}
    if ( $tcnt > 1 )
	  { $tcnt="<a href=$PROG?search=$FD6><font size=2 color=red><b>$tcnt</b></a>";}
    else	{ $tcnt="<font size=2>$tcnt";}
    

    if ( ! $FD6 ) { $FD2="---"; $FD3="---"; $FD4="---"; $FD5="---"; $FD6="NO OUTAGES"; $FD7="---"; $FD8="---"; $FD9="---";}
     $FLINE="UPD=$lnum";
    #
    # SEARCH
    #
    if ( $form{search} )
    {
      # Search only OPEN Issues
      if ( "$form{search}" eq "%OPEN%" ) 
        { 
        if ( "$FD5" eq "In-process" || "$FD5" eq "New" || "$FD5" eq "In-Use") { display_output; }
        }
      else 
      {
        # Search all issues
        if ( /$form{search}/i ) { display_output; }
      }
    }
    # DONT SEARCH - DISPLAY EVERYTHING
    else  { display_output; }
  }
  close(IN);
  print qq~
    </table>
  ~;
  if ( ! "$found" )
  { print "<p><font size=4 color=red>*** Nothing was found</font><p>\n"; }
  else 
  {
      #<Input TYPE=submit VALUE="Remove">
    print qq~
      <hr>
      </form>
      <table width=100% border=0>
        <td align=left >
</td>
	<td align=right><font size=2>Total Records = $TOTALREC</font></td>
	<td align=right><font size=1>(ver. $VER)</font></td>
      </table>
    ~;
  }
}