#!/usr/bin/perl -w
#
# Web front end for ExtractEmail (Extract emails from sendmail logs)
# Todd A. Lyons <tlyons@ivenue.com>
# Rev 0  --  03/13/06
# License: GPLv2

use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my $parameters;

#
# Returns text string of header html.
#
sub genHeader {
  my ($username) = @_;
  my $body;
  $body .= CGI::header . "\n";
  $body .= CGI::start_html(-title => "Searching Email Logs") . "\n";
  my $intro = '';
  if ( $username ) {
    # Do some funky stuff to make the title appear properly.
    $intro = "for ";
  }
  $body .= "
      <table width=\"100%\" bgcolor=\"#cccccc\" height=\"70\"
             cellpadding=\"0\">
        <tr>
          <td align=\"center\">
            <table cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td>
                  <!--
		  -->
                </td>
                <td>
                  <h2>&nbsp;
                  <font color=\"#CF3400\">Searching Email Logs </font>
                  <font color=\"#5B6D92\">" . $intro . $username . "</font>
                  </h2>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    ";

  return $body;
}


#
# Returns text string of javascript code.
#
sub genJavascript {
  my $body;
  $body = "
  <script language=JavaScript>
  function confirmButtonPress(Username) {
    return confirm('Click OK to search maillogs.');
  }

  function selectAll(object){
    for (var i=0; i<document.spams.elements.length; i++){
      var e=document.spams.elements[i];
      if (object && e.type == \"checkbox\"){
        e.checked=true;
      }
      if (!object && e.type == \"checkbox\"){
        e.checked=false;
      }
    }
  }

  </script>
  ";
  return $body;
}   


#
#
#
sub genSearchHeader {
  my $body = "
    <table name=\"results\" width=\"100%\" bgcolor=\"#A13139\">
      <tr>
        <td align=\"center\">
	  <table>
	    <tr>
	      <td align=\"left\">
	        <font color=white>
		Patience!  It normally takes a little over a
		minute to search through a full week's logs.
		</font>
              </td>
	    </tr>
	  </table>
	</td>
      </tr>
    </table>
  ";
  return $body;
}


#
# Returns text string of search results.
#
sub genSearchResults {
  my ($username,$age) = @_;
  my $cliopts = '';
  if ( $parameters->{today} ) {
    $cliopts .= " --date=today";
    $age = "maillog";
  }
  if ( $parameters->{yesterday} ) {
    $cliopts .= " --date=yesterday";
    $age = "maillog";
  }
  my $results = `/usr/bin/nice /usr/local/bin/extractemail.pl $cliopts --email=$username --logfile=/disk1/log/$age`;
  my $body = "
    <table name=\"results\" width=\"100%\" bgcolor=\"#A9E9A9\">
      <tr>
        <td align=\"center\">
	  <table>
	    <tr>
	      <td align=\"left\">
	        <pre> 
                " . CGI::escapeHTML($results) . "
                </pre>
              </td>
	    </tr>
	  </table>
	</td>
      </tr>
    </table>
  ";
  return $body;
}


#
# Returns text string of main body html form.
#
sub genForm {
  my ($username) = @_;
  my $formhref = CGI::url(-absolute=>1);
  my $body;
  $body = "

        <center>
      
        <form name=\"emails\"action=\"$formhref\" method=\"post\">
        <!--
          <input type=\"hidden\" name=\"username\" value=\"$username\">
        -->
          <table name=\"main\" width=\"100%\" height=\"40\" bgcolor=\"#C9D9E9\">
            <tr>
              <td>
                &nbsp;
              </td>
            </tr>
            <tr>
              <td align=\"center\">
                Recipient Email Address: <input type=\"text\" name=\"username\" value=\"$username\">
              </td>
            </tr>
            <tr>
              <td>
              <table width=\"100%\" bgcolor=\"#C9D9E9\">
                <tr>
                  <td align=\"right\">
                    How long ago:
                  </td>
                  <td align=\"left\">
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog\">This week
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.1\">Last week
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.2\">2 weeks ago
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.3\">3 weeks ago
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.4\">4 weeks ago
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.5\">5 weeks ago
                    <br>
                    <input type=\"radio\" name=\"age\" value=\"maillog.6\">6 weeks ago
                  </td>
                </tr>
		<tr>
		  <td align=right>
		    <input type=\"checkbox\" name=\"today\" value=1>
		  </td>
		  <td>
		    Show only today
		  </td>
		</tr>
		<tr>
		  <td align=right>
		    <input type=\"checkbox\" name=\"yesterday\" value=1>
		  </td>
		  <td>
		    Show only yesterday
		  </td>
		</tr>
              </table>
              </td>
            </tr>
            <tr>
              <td align=\"center\">
                <br>
                <input type=\"submit\" name=\"send\" value=\"Search\" onclick=\'return confirmButtonPress(\"$username\")\'>
		<!--
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                <a href = \"javascript:history.back()\">Go back</a>
		-->
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                <a href = \"$formhref\">Clear form</a>
              </td>
            </tr>
            <tr>
              <td>
                &nbsp;
              </td>
            </tr>
          </table>
        </form>
  ";
  return $body;
}


#
# Returns footer html.
#
sub genFooter {
  my $body;
  $body = CGI::end_html;
  return $body;
}


foreach my $param ( param() ) {
  $parameters->{$param} = param($param);
}

my $username = $parameters->{username} || '';
print genHeader($username);
print genJavascript();
# If user didn't select how long ago, but did check today or yesterday,
# set the age manually.
if ( ! $parameters->{age} and 
       ( $parameters->{today} or $parameters->{yesterday} ) ) {
  $parameters->{age} = "maillog";
}
if ( $parameters->{send} and $parameters->{age} and $username ) {
  print genSearchHeader();
  print genSearchResults($username,$parameters->{age});
  print genForm($username);
} else {
  print genForm($username);
}
print genFooter();