#!/usr/bin/perl

###########################################################################
#
# Program  : Log Analyzer for DansGuardian
# Author   : Jimmy Myrick (jmyrick@tiger1.tiger.org)
# Version  : .1.1
# Released : July 6, 2002
# 
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
# Heck, if you like it though and want to send me something, that's
# ok too.  
#
# Change history is available here for now:
#  http://www.tiger.org/technology/dg
#
# Change LOG: November 04, 2002
#
#  Adapted end Tranlated from Netcon Soluções em Informática
#  Adaptado e Traduzido por Netcom Soluções em Informática
#     Charles Jonh Camello - charles@netcom.inf.br
#
#  Revision of Tranlation
#  Revisão de Tradução
#     Vicente Fontanella   - vicente@netcom.inf.br
#
###########################################################################


###########################################################################
#
# Mude para o caminho do diretorio de log do DansGuardian
# NOTE: No final é obrigatório ter a / 
#
###########################################################################
$logdir = '/var/log/dansguardian/';


###########################################################################
# 
# Arquivo de log. Altere isto para o exato prefixo dos seus arquivos de log
# Por padrão este arquivo é access.log e não deve ser modificado.
#
# Qualquer arquivo de log em $logdir com o prefixo $logfile será zipado
# com a extenção .gz para futuras consultas. O resultado será impresso na
# ordem cronológica reversa dos arquivos.
#
# Exemplo:
#  Se você tem os arquivos: acces.log access.log.0.gz access.log.1.gz
#  então será impresso primeiro o access.log.1.gz depois access.log.0.gz e
#  por último access.log
#
# Nenhuma organização é feita pelo programa e os resultados são mostrados
# na ordem dos arquivos de log. Se os seus resultados estão fora da sequencia
# verifique os nomes dos arquivos e as datas para ter certeza que eles estão
# compridos na sequencia correta. Se você usa FreeBSD newsyslog.conf para rodar
# os seus logs, então você não terá problemas.
#
###########################################################################
$logfile = 'access.log';


###########################################################################
#
# Se você precisa os modulos do perl abaixo, faça o download para algum
# diretório. Então entre no diretório, descompacte o arquivo e execute os 
# seguintes comandos:
#  perl Makefile.PL; make; make test; make install 
#
# Se você precisar de mais informações vá para o site:
#   http://www.cpan.org/modules/INSTALL.html
#
# Faça o downdoad de:
# http://www.cpan.org/authors/id/LDS/CGI.pm-2.81.tar.gz
#
###########################################################################
use CGI;

###########################################################################
#
# Isso é nesessário para descompactar os arquivos
#
# Faça o download em:
# http://www.cpan.org/authors/id/PMQS/Compress-Zlib-1.16.tar.gz
#
###########################################################################
use Compress::Zlib; 


###########################################################################
#
# Isto ira determinar onde o programa será chamado automaticamente.
# Se não, descomente a primeira linha, mude para o caminho do seu servidor
# nome/caminho e comente a segunda linha. Se desejar pode utilizar as 
# restrições do Apache para tornar bloquear o ascesso.
#
###########################################################################
$cgipath = 'http://nome_do_servidor/cgi-bin/dglog.pl';
#cgipath = $ENV{SCRIPT_NAME};



###########################################################################
#
#    NÃO SE DEVE MODICIFAR QUALQUER COISA ABAIXO DESTA LINHA
#
###########################################################################

$q = new CGI;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon = $mon + 1;  # mon starts at 0 
$year = $year + 1900;  # year needs 1900 added
$pagename = 'Analizador de Logs para DansGuardian';

$a = $q->param('a');

if ($a eq 'i') { # Inquiry into logs

  # These are the values that can be sent by the user through the browser
  $sIP = "Todos";   # IP address 
  $sUN = "Todos";   # Username
  $sURL = "Todos"; # URL to show or trace a denied site - this is the URL to trace
  $sSD = "Todos";   # Complete start date
  $sSDY = "Todos";  # Start date year
  $sSDM = "Todos";  # Start date month
  $sSDD = "Todos";  # Start date day
  $sED = "Todos";   # Complete end date
  $sEDY = "Todos";  # End date year
  $sEDM = "Todas";  # End date month
  $sEDD = "Todos";  # End date day
  $sA = "Todos";    # Action
  $sSumCnt = "20";    # Number of summary sites to show
  $sSumDen = "off";    # Show denied summary? on/off
  $sSumAlw = "off";    # Show allowed summary? on/off
  $sL = "off"; # Turn URL's into links? on/off
  $sZ = "off"; # Examine gziped files? on/off

  $sIP = &validateIP($q->param('sIP')) if $q->param('sIP') ne "";
  $sUN = $q->param('sUN') if $q->param('sUN') ne "";
  $sURL = $q->param('sURL') if $q->param('sURL') ne "";

  if ($q->param('sSDY') ne "" &&
      $q->param('sSDM') ne "" &&
      $q->param('sSDD') ne "" &&
      $q->param('sEDY') ne "" &&
      $q->param('sEDM') ne "" &&
      $q->param('sEDD') ne "") {

      $sSDY = $q->param('sSDY'); 
      $sSDM = $q->param('sSDM'); 
      $sSDD = $q->param('sSDD'); 
      $sEDY = $q->param('sEDY'); 
      $sEDM = $q->param('sEDM'); 
      $sEDD = $q->param('sEDD'); 

      $sSD = $sSDY.'.'.$sSDM.'.'.$sSDD;
      $sSD = convertDate($sSD);
      $sED = $sEDY.'.'.$sEDM.'.'.$sEDD;
      $sED = convertDate($sED);

      if ($sSD > $sED) {
        $msg = "Data Final é posterior a data Inicial";
        &printMenu;
      }
  }

  $sA = &validateAction($q->param('sA')) if $q->param('sA') ne "";  # Action
 
  $sSumCnt = &validateSummary($q->param('sSumCnt')) 
             if $q->param('sSumCnt') ne "";
  $sSumDen = $q->param('sSumDen') if $q->param('sSumDen') eq 'on';
  $sSumAlw = $q->param('sSumAlw') if $q->param('sSumAlw') eq 'on';

  $sL = $q->param('sL') if $q->param('sL') eq 'on';
  $sZ = $q->param('sZ') if $q->param('sZ') eq 'on';


  # Need a few global variables to keep from passing back and forth a bunch
  $linesRead, $allowTotal, $blockTotal, $grandTotal = 0;

  &searchLog;

}
elsif ($a eq 'h') {
  &displayHelp;
}
else {
  &printMenu;
}

#############
sub searchLog
#############
{
  my $first = 0;

  &printHeader;
  print "<font face=arial,helvetica,sans-serif size=2>";
  print "Relatório de Infrmações para:<br>
 Data Inicial: <b>$sSDD/$sSDM/$sSDY</b> | Data Final: <b>$sEDD/$sEDM/$sEDY</b> |
   Nome do Usuário : <b>$sUN</b> | IP: <b>$sIP</b> |
   Ação: <b>$sA</b> | URL: <b>$sURL</b><hr></font>\n";
  print "<font face=arial,helvetica,sans-serif size=1>";

  opendir(D, $logdir);
  @files = grep {/^$logfile/} readdir(D);
  @files = sort {$b cmp $a} @files;
  closedir(D);

  foreach $file (@files) {
    if ($file =~ /\.gz/) {
      if ($sZ eq 'on') {
        if ($first == 0) {
          print "Ignoring gzip logfile(s) in $logdir: ";
          $first = 1;
        }
        print "$file | ";
        next;
      }
      $gz = gzopen($logdir.$file,r);
      if (!$gz) {
        $msg = "Impossivel abrir $logdir$file. Verifique as Permissões.";
        &printMenu;
      }
      while ($gz->gzreadline($line)) {
        &checkLine($line);
      }
      $gz->gzclose;
    } 
    else {
      print "<p>";
      unless (open(F,$logdir.$file)) {
        $msg = "Impossivel abrir $logdir$file. Verifique as Permissões.";
        &printMenu;
      }
      while ($line = <F>) {
        &checkLine($line);
      }
      close(F);
    }
  }

  if ($sSumAlw eq "on" && $allowTotal != 0) {
    &showSummarySites($allowTotal,'PERMITIDO',$sSumCnt,%topSites);
  }
  if ($sSumDen eq "on" && $blockTotal != 0) {
    &showSummarySites($blockTotal,'NEGADO',$sSumCnt,%blockSites);
  }

  print "<center><hr noshade size=1 width=50%>
         <font size=2>Total Encontrados: $grandTotal |
         Total Requerimentos: $linesRead</font>
         <hr noshade size=1 width=50%></font>";
  print "<center><a href=$cgipath>Retornar ao Menu</a></center>";
}

#############
sub checkLine
#############
{
  my ($line) = @_;
  $linesRead++;

  # Print out a '.' every 1000 log file lines read. Keep browser connect alive
  if (($linesRead % 1000) == 0) {
    print " ";
  } 
  ($date,$time,$user,$ip,$url,$toeol) = split(/ /,$line,6);
  # Rule out the easy matches first 
  return if ($sIP ne "Todos" && $sIP ne $ip);
  return if ($sUN ne "Todos" && $sUN ne $user);

  # Don't do a date comparison unless we are told to
  if ($sSD ne "Todos" || $sED ne "Todos") {
    $dgDate = &convertDate($date);
    return if (!($dgDate ge $sSD && $dgDate le $sED));
  }

  $url =~ /(\w+):\/\/([\w\.-]+)\/?(\S*)/;  
  $protocol = $1; # HTTP, FTP
  $baseurl = $2;  # domain part without http:// or ftp://
  return if ($sURL ne "Todos" && $sURL ne $baseurl);
  $toeol =~ /(\*.+\*)? ?(.+)? (\w+) (\d+)$/;
  $action = $1; # *DENIED# or *EXCEPTION* etc., if exists
  $reason = $2; # Reason for #1 if exists
  $method = $3; # method (GET POST)
  $size = $4;   # size
  if ($sA ne "ALL") { 
    return if ($sA eq "denAll" &&
      $action ne "*DENIED*");
    return if ($sA eq "excAll" &&
      $action ne "*EXCEPTION*");
    return if ($sA eq "denSite" && 
      !($reason =~ /^Banned site/));
    return if ($sA eq "denRegURL" && 
      !($reason =~ /^Banned Regular Expression URL/));
    return if ($sA eq "denPhrase" && 
      !($reason =~ /^Banned Phrase/));
    return if ($sA eq "denCombPhrase" && 
      !($reason =~ /^Banned combination phrase/));
    return if ($sA eq "denWeightPhrase" && 
      !($reason =~ /^Weighted phrase limit/));
    return if ($sA eq "denExt" && 
      !($reason =~ /^Banned extension/));
    return if ($sA eq "denMIME" && 
      !($reason =~ /^Banned MIME Type/));
    return if ($sA eq "denICRA" && 
      !($reason =~ /^ICRA/));
    return if ($sA eq "denBlanketIP" && 
      !($reason =~ /^Blanket IP Block/));
    return if ($sA eq "excSite" && 
      !($reason =~ /^Exception site/));
    return if ($sA eq "excPhrase" && 
      !($reason =~ /^Exception phrase/));
    return if ($sA eq "excCombPhrase" && 
      !($reason =~ /^Combination exception phrase/));
  }

  # Need to do a count for grandTotal if allowed OR denied summary selected 
  if ($sSumAlw eq "on" || $sSumDen eq "on") {
    if ($action ne '*DENIED*') {
      $allowTotal++;
      $grandTotal++;
      # Don't waste memory if didn't want this, but need to count for grandTotal
      $topSites{$baseurl}++ if $sSumAlw eq "on";
    }
    else {
      $blockTotal++;
      $grandTotal++;
      # Don't waste memory if didn't want this, but need to count for grandTotal
      $blockSites{$baseurl}++ if $sSumDen eq "on";
    }
  }
  else {
    print "$date &nbsp; $time &nbsp; ";
    print "<a href=$cgipath?a=i&sSDY=$sSDY&sSDM=$sSDM&sSDD=$sSDD&sEDY=$sEDY&sEDM=$sEDM&sEDD=$sEDD&sIP=$ip&sZ=$sZ&sL=$sL>$ip</a> 
      &nbsp; $user<br>";
    if ($sL eq 'on') {
      print "<a href=\"$url\" target=_blank>$url</a> $method $size<br>";
    } else {
      print "$url $method $size<br>";
    }
    if ($action ne "" && $reason ne "") {
      print "<font color=red>$action : $reason</font><p>";
    } else {
      print "<p>";
    }
    $grandTotal++;
  }
}

####################
sub showSummarySites {
####################
  my ($subTotal, $whatToShow, $topNum, %sites) = @_;
  my $count = 1;

  print "<table border=0 cellpadding=2 cellspacing=2 align=center>
         <tr><th colspan=6>
         <b><center>
         <hr noshade width=50% size=1>
         Os $topNum Sites mais $whatToShow</b></td></tr>
         <hr noshade width=50% size=1>
         <tr><td align=center>Colocação</td>
             <td align=center>URL</td>
             <td align=center>Contagem</td>
             <td align=right>\% de<br>$whatToShow</td>
             <td align=right>\% de<br>Total</td>
             <td align=center>Detalhes</td></tr>";

  foreach $key (sort {$sites{$b} <=> $sites{$a}} keys %sites) {
    if ($count <= $topNum) {
      print "<tr>
         <td align=right>$count.&nbsp;&nbsp;</td>";
      print "<td align=right>";
      if ($sL eq 'on') {
        print "<a href=http://$key target=_blank>$key</a>";
      } else {
        print "$key";
      }
      print "</td><td align=right>$sites{$key}</td><td align=right>";
      printf("&nbsp;&nbsp;&nbsp;%2.2f &nbsp;",($sites{$key}/$subTotal)*100);
      print "</td><td align=right>";
      printf("&nbsp;&nbsp;&nbsp;%2.2f",($sites{$key}/$grandTotal)*100);
      print "</td>";
      print "<td align=center>
             <a href=$cgipath?a=i&sSDY=$sSDY&sSDM=$sSDM&sSDD=$sSDD&sEDY=$sEDY&sEDM=$sEDM&sEDD=$sEDD&sUN=$sUN&sIP=$sIP&sURL=$key&sZ=$sZ&sA=";
      if ($whatToShow eq "DENIED") { print "denAll"; } else { print ""; }
      print">Sobre</a></td></tr>";
      $count++;
    }
    break;
  }
  print "<tr><td colspan=6 align=center>
         <hr noshade size=1 width=85% align=center>
         Total de Sites $whatToShow (os $topNum mais ascessados) : $subTotal
         <hr noshade size=1 width=85% align=center>
         </td></tr>";
  print "</table>
         <hr noshade width=100% size=1>";
}

###################
sub validateSummary 
###################
{
  my ($count) = @_;
  if ($count < 0 || $count > 100) {
    $count = 20;
  }
  return($count);
}

##############
sub validateIP 
##############
{
  my ($checkIP) = @_;

  if ($checkIP eq 'Todos') {
    return('Todos');
  }
  elsif ($checkIP =~ /^((2([0-4]\d|5[0-5])|1?\d{1,2})(\.|$)){4}/) {
    return ($checkIP);
  }
  else {
    $msg = "Endereço IP Inválido.";
    &printMenu;
  }
}

##################
sub validateAction {
##################
  my ($action) = @_;

  # Need to make the actions a hash and reference them that way
  # Make it easier to add/modify and can validate that way too
  # Maybe later.
  if ($action eq "none") { return ("Todos"); }

  return ($action);
}

###############
sub convertDate {
###############
  my ($workDate) = @_;
  ($year, $mon, $day) = split(/\./,$workDate);

  if (length($mon) == 1) { $mon = '0'.$mon; }
  if (length($day) == 1) { $day = '0'.$day; }
  if (($mon ge "01" && $mon le "12") && ($day ge "01" && $day le "31") &&
      ($year ge "2000" && $year le "2035")) {

      $goodDate = $year.$mon.$day;
      return ($goodDate);
  } else {
    $msg = "Detectado Data Inválida";
    &printMenu;
  }
}

###############
sub buildSelect
###############
{
  my ($start, $end, $type) = @_;
  my $x = 0;
  
##  print "<option value=\"\">--$type--";
  print "<option value=\"\">--Todos--";
  for ($x = $start; $x <= $end; $x++) {
    if ($type eq 'Year' && $x == $year) {
      print "<option value=$x selected>$x";
    }
    elsif ($type eq 'Month' && $x == $mon) {
      print "<option value=$x selected>$x";
    }
    elsif ($type eq 'Day' && $x == $mday) {
      print "<option value=$x selected>$x";
    }
    else {
      print "<option value=$x>$x";
    }
  }
}

#############
sub printMenu
#############
{
  &printHeader;
  print "
    <table align=center bgcolor=ffffff border=1 cellpadding=3 cellspacing=1>\n";
  if ($msg ne "") {
    print "<tr><td colspan=3 bgcolor=c80000 align=center>
           <font face=arial,helvetica,sans-serif size=3><b>$msg</b>
           </font></tr>\n";
  }
  
  # Menu items header row
  print "
  <tr bgcolor=f0f0f0>
  <th width=40%>
    Parametro
  </th>
  <th width=40%>
    Valor
  </th>
  <th width=20%>
    Descrição
  </th></tr>\n";

  # Menu item for entering date ranges
  print "
  <tr><td align=left>
    Informe o Intervalo de Data:
    <form action=$cgipath><input type=hidden name=a value=i>
    <br>
  </td>
  <td align=left>
    Data Inicial<br>
    <select name=sSDD>";
  &buildSelect(01,31,"Day");
  print "</select><select name=sSDM>";
  &buildSelect(01,12,"Month");
  print "</select><select name=sSDY>";
  &buildSelect(2002,2010,"Year");
  print "</select><br>
    Data Final<br>
    <select name=sEDD>";
  &buildSelect(01,31,"Day");
  print "</select><select name=sEDM>";
  &buildSelect(01,12,"Month");
  print "</select><select name=sEDY>";
  &buildSelect(2002,2010,"Year");
  print "</select>
  </td>
  <td align=center>
    Intervalo de datas para pesquisa.
  </td></tr>\n";

  # Menu item for IP viewing
  print "
  <tr><td align=left>
    Informe o Endereço IP
  </td>
  <td align=left>
    <input name=sIP maxlength=15 size=20>
  </td>
  <td align=center>
    ex: 192.168.0.1<br>
  </td></tr>\n";

  # Menu item for username viewing
  print "
  <tr><td align=left>
    Informe o Nome do Usuário
  </td>
  <td align=left>
    <input name=sUN maxlength=15 size=20>
  </td>
  <td align=center>
    (autenticação do proxy estiver habilitada)<br>
  </td></tr>\n";
  
  # Menu item for URL viewing
  print "
  <tr><td align=left>
    Informe o Endereço (ou parte do dominio)
  </td>
  <td align=left>
    <input name=sURL maxlength=30 size=20>
  </td>
  <td align=center>
    Informe www.dominio.com.br ou parte da URL somente<br>
  </td></tr>\n";
  
  # Menu item for ACTION
  print "
  <tr><td align=left>
   Visualizar Atividade por Ação 
  </td>
  <td align=left>
    <select name=sA>
    <option value=none>Mostrar Todos
    <option value=none>---------------
    <option value=denAll>Mostrar Todos Negados
    <option value=none>---------------
    <option value=excAll>Mostrar Todas as Excessões
    <option value=none>---------------
    <option value=denSite>Sites Proibidos 
    <option value=denPhrase>Frases Proibidas
    <option value=denRegURL>Expressão Regular em URL Proibida
    <option value=denCombPhrase>Combinação de Frases Proibidas
    <option value=denWeightPhrase>Limitação do Peso da Frase
    <option value=denExt>Extenções Proibidas
    <option value=denMIME>Tipos MIME Proibidos
    <option value=denICRA>ICRA Excedido
    <option value=denBlanketIP>Bloco de IP em Branco
    <option value=none>---------------
    <option value=excSite>Sites em Exessão 
    <option value=excPhrase>Frase em Exessão
    <option value=excCombPhrase>Frase Combinatoria em Exessão
    </select>
   
  </td>
  <td align=center>
    Uma ação por vez.
  </td></tr>\n";
  
  # Menu item for selecting summary statistics
  print "
  <tr><td colspan=2 align=left>
    Número de Sites mais Ascessados
    <input maxlength=3 size=5 name=sSumCnt value=20> 
    <input type=checkbox name=sSumDen>NEGADO 
    <input type=checkbox name=sSumAlw>PERMITIDO
  </td>
  <td align=center>
    Resumo dos sites mais procurados.
  </td></tr>\n";

  print "
  <tr><td colspan=3 align=center>
   <table width=100% border=0 cellpadding=0 cellspacing=0 align=center>
    <tr><td>
     <input type=checkbox name=sL>Marque para tornar as URL's do Relatório em links.<br>
     <input type=checkbox name=sZ>Marque para <b>excluir</b> os logs em formato gzip.<br>
     <a href=$cgipath?a=h>Veja Instruções de como Usar</a><br>
    </td>
    <td align=center valign=middle>
     Clique no botão \"Gerar\" para Gerar Relatório<p>
     <input type=submit value=\"Gerar\">&nbsp;&nbsp;&nbsp;
     <input type=reset value=\"Limpar Valores\"><br>
    </td></tr>
   </table>
  </td></tr>\n";

  print " </form> </td> </tr> </table> ";
  &printFooter;
  exit;
}

###############
sub printHeader
###############
{
 print $q->header;
 print <<"(EOT)";
 <HTML><HEAD>
 <META HTTP-EQUIV="Pragma" CONTENT="no-cache">
 <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
 <META HTTP-EQUIV="Expires" CONTENT="-1">
 <TITLE>$pagename</TITLE>
 <STYLE>
 <!--
    TABLE       {margin-top: 0; padding-top: 0}
    TD  	{font-family: Serif; font-size: 10pt }
    TH  	{font-family: Serif; font-size: 12pt }
 -->
 </STYLE>
 </HEAD>
 <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#0000ff"
 alink="#0000ff">
 <center>
 <table width="600" border="0" cellspacing="0" cellpadding="0">
 <tr><th width=600 align=center>
 <font size="4" color="#000000" face="arial">
 <hr noshade size=1 width=90%>
 $pagename 
 <hr noshade size=1 width=90%>
 </th></tr>
 </table>
 </center>

(EOT)
}

###############
sub printFooter
###############
{
  print <<"(EOT)";
  </BODY>
  </HTML>
(EOT)
}

###############
sub displayHelp
###############
{
  &printHeader;
  print<<"(EOF)";
  <table width=75% border=1 cellpadding=2 cellspacing=0 align=center>
  <tr><th bgcolor=f0f0f0><font face=arial,helvetica,sans-serif size=4>
   Instruções
  </th></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Descrição</b>
  <ul>
  Este programa ira examinar os arquivos de log criados pelo DansGuardian software (http://www.dansguardian.org).<p>
  Critérios diferentes de procura podem ser especificados. Os critérios de procura são acumalativos (adicionados juntos).  Por examplo, especificando um periodo de datas e um endereço IP irá mostrar apenas as ocorrências que coincidem com ambos os critérios de procura.  Se você quer visializar todas as entradas, não especifique nenhum critério.
  <p>
  Atualmente, nenhuma organização é feita no resultado. Isto é feito para uma procura mais rápida, tendo um consumo baixo de memória, e formando o relatório periodicamente com as informações. Isso é importante porque os logs estarão em uma sequencia cronologica no seu sistema, separados por nome.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Datas</b>
  <ul>
Selecione um periodo de datas para procura. As datas, inicial e final tem que ser selecionadas. Se as datas informadas não forem válidas não será feita a procura. 
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Endereço IP</b>
  <ul>
  Informe um endereço IP para procura.  Exemplo:  192.168.0.1
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Username</b>
  <ul>
  Informe um nome de usuários para procura. Para que isso funcione é necessário que a opção de autenticação (Proxy auth) no proxy esteja habilitada.  Se o nome do usuário não estiver disponível quando a procura for realizada sem nenhum critério, significa que a opção de autenticação (Proxy auth) não está habilitada. Para habilitar isso veja a documentação.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Ação</b>
  <ul>
  Inforeme uma ação para procura.
  Use a lista para selecionar a ação de procura. Com as ações você pode procurar por requisições especificas logadas pelo DansGuardian. Para ver todas as requisições negadas e exessões selecione "Mostrar Todos Negados" ou "Mostrar Todas as Exessões". Só pode ser aplicada uma ação por vez. Por exemplos, se "Sites Proibidos" estiver seleciona, então, somente sites negados serão mostrados.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Resumo</b>
  <ul>
  Selecioando estas opções será mostrado um resumo do relatório para o número de sites encontrados. Podendo-se escolher entre 1 e 100 sites (NEGADOS OU PERMITIDOS) mais acessados.
  <p>
  Uma vez apresentado o resumo do relatório, você poderá constatar porque um site foi NEGADO/PERMITIDO e QUEM/QUE MÁQUINA esteve visitando o site. Simplesmente clicando no link "Sobre" abaixo de "Datalhes".
  <p>
  CUIDADO: Se você selecionar o filtro NEGADO e marcar para mostrar o resumo de PERMITIDOS, isso não irá gerar nenhum resultado.
  Se Você não viu o resultado que esperava, volte e verifique o critério que foi usado.
  <p>
  Tranforme a URL em link
  <ul>Marcando-se esta caixa, os endereços do relatório se tornarão links.
  </ul>
  </ul>
  </td></tr>
(EOF)
  print "<tr><td align=center><font face=arial,helvetica,sans=serif size=2>
  <a href=$cgipath>Retorna para $pagename</a></tr></td> 
  </table>\n";
}