#!/usr/bin/perl

###########################################################################
#
# Program  : Log Analyzer for DansGuardian
# Author   : Jimmy Myrick (jmyrick@cherokeek12.org)
# Translation / Traduction française : Philippe Hermès (ph35sm@free.fr)
# Version  : 1.0
# Released : October 10, 2005
# Translation Released : January 20, 2006
# 
#    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.
#
#
# If you like it and want to send me something, that's ok too.
# How about a gift certificate to amazon.com or a donation to DansGuardian
# on my behalf? 
#
###########################################################################


###########################################################################
#
# Changer si nécessaire pour indiquer le chemin du répertoire des fichiers 
#   journal de Dansguardian
# NOTE: Le dernier caractère / est nécessaire !!
#
###########################################################################
$logdir = '/var/log/dansguardian/';


###########################################################################
#
# Nom du fichier journal : Changer pour faire correspondre avec le préfixe
#   de vos fichiers journaux.
# Par défaut c'est access.log et cela ne devrait pas être modifié
#
# Tout fichier journal dans $logdir dont le préfixe correspond au contenu de
# de la varialbe  $logfile et qui compressé avec une extention .gz sera 
# aussi lu. Le résultat sera affiché dans l'ordre chronologique inverse 
# des noms de fichiers.
#
# Exemple : 
#  Si vous avre les fichiers : access.log access.log.0.gz access.log.1.gz
#  allant du plus récent au plus vieux, alors toute occurence trouvée
#  dans access.log.1.gz sera affiché en premier, suivi par celles
#  dans access.log.0.gz et enfin par celles dans access.log
# 
# Aucun tri n'est effectué par le programme et les résultats sont affichés
# dans l'ordre des fichiers journaux. Si vos résultats ne sont pas en séquence
# vérifier les dates des fichiers pour être sûr qu'ils sont compressés
# et permutés correctement. Si vous utilisez le programme FreeBSD newsyslog.conf
# pour permuter vos fichiers journaux, cela ne devrait pas être un problème.
#
###########################################################################
$logfile = 'access.log';

###########################################################################
#
# Format des fichiers journaux : Changer pour indiquer dans quel format
# sont les fichiers jouraux.
# Cela doit correspondre avec ce qui est indiqué dans le fichier dansguardian.conf.
# Positionné incorrectement ce paramètre peut produire des résultats étranges.
#
# 1 = DansGuardian format     2 = CSV-style format
#
###########################################################################
$logformat = 1;

###########################################################################
#
# Si vous avez besoin des modules perl ci-dessous, télécharger puis 
# décompresser les dans un répertoire. 
# Ensuite positionner vous dans ce répetoire avec la commande cd et 
# passer les commandes :
#  perl Makefile.PL; make; make test; make install 
#
# Si vous avez besoin d'instructions complémentaires,
# aller ici : http://www.cpan.org/modules/INSTALL.html
#
# Le téléchargement c'est ici : 
#  http://www.cpan.org/authors/id/LDS/CGI.pm-2.81.tar.gz
#
###########################################################################
use CGI;

###########################################################################
#
# C'est nécessaire pour dé/compresser les fichiers journaux à la volée
# Le téléchargement c'est ici : 
#  http://www.cpan.org/authors/id/PMQS/Compress-Zlib-1.16.tar.gz
#
###########################################################################
use Compress::Zlib; 

###########################################################################
#
# Cela indique d'où le programme est automatiquement appellé par le serveur web.
# Si c'est pas le cas, décommenter la première ligne, changer le chemin
# et le nom du serveur avec les votres et commenter la deuxième ligne.
# Vous pouvez utiliser les restrictions implémentées dans Apache pour 
# bloquer l'accès à ce fichier.
#
###########################################################################
#$cgipath = 'http://your.server.com/cgi-bin/dglog/dglog.pl';
$cgipath = $ENV{SCRIPT_NAME};

###########################################################################
# 
#    VOUS NE DEVRIEZ RIEN MODIFIER EN-DESSOUS DE CETTE LIGNE
#
###########################################################################

$q = new CGI;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon = $mon + 1;  # Lundi démarre à 0 
$year = $year + 1900;  # 1900 doit être ajouté à l'année
$pagename = 'Page d\'analyse des fichiers journaux pour DansGuardian';

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

if ($a eq 'i') { # Recherche dans les fichiers journaux

  # Ce sont les valeurs qui peuvent être envoyées par l'utilisateur avec le navigateur
  $sIP = "ALL";   # Addresse IP
  $sUN = "ALL";   # Nom de l'utilisateur
  $sURL = "ALL"; # URL visualiser ou tracer un site interdit  - C'est l'URL pour tracer
  $sSD = "ALL";   # Date complète de départ
  $sSDY = "ALL";  # Année de départ
  $sSDM = "ALL";  # Mois de départ
  $sSDD = "ALL";  # Jour de départ
  $sED = "ALL";   # Date complète de fin
  $sEDY = "ALL";  # Année de fin
  $sEDM = "ALL";  # Mois de fin
  $sEDD = "ALL";  # Jour de fin
  $sA = "ALL";    # Action
  $sSumCnt = "20";    # Nombre de résumé sites à montrer 
  $sSumDen = "off";    # Afficher le récapitulatif pour les sites interdits ? on/off
  $sSumAlw = "off";    # Afficher le récapitulatif pour les sites autorisés ? on/off
  $sSumOrd = "URL"; # Par défaut l'url est affiché pour le résumé des sites interdits/autorisés
  $sL = "off"; # Changer les URL en liens ? on/off
  $sZ = "off"; # Examiner les fichiers compressés (.gz) ? 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('sSDY') ne 'ALL' &&
      $q->param('sSDM') ne "" && $q->param('sSDM') ne 'ALL' &&
      $q->param('sSDD') ne "" && $q->param('sSDD') ne 'ALL' &&
      $q->param('sEDY') ne "" && $q->param('sEDY') ne 'ALL' &&
      $q->param('sEDM') ne "" && $q->param('sEDM') ne 'ALL' &&
      $q->param('sEDD') ne "" && $q->param('sEDD') ne 'ALL') {

      $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 = "La date de fin est plus récente que la date de départ";
        &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';
  $sSumOrd = $q->param('sSumOrd') if $q->param('sSumOrd') ne '';

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


  # On a besoin de quelques variables globales 
  $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 "Rapport pour :<br>
   Date de départ: <b>$sSD</b> | Date de fin: <b>$sED</b> |
   Utilisateur: <b>$sUN</b> | IP: <b>$sIP</b> |
   Action: <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 'off') {
        if ($first == 0) {
          print "les fichiers gzip $logdir sont ignorés: ";
          $first = 1;
        }
        print "$file | ";
        next;
      }
      $gz = gzopen($logdir.$file,r);
      if (!$gz) {
        $msg = "Le fichier $logdir$file ne peut être lu. Vérifier les permissions.<p>Essayer de 
        positionner les droits sur les répertoires chmod 755 et sur les fichiers journaux chmod 644.";
        &printMenu;
      }
      while ($gz->gzreadline($line)) {
        &checkLine($line);
      }
      $gz->gzclose;
    } 
    else {
      print "<p>";
      unless (open(F,$logdir.$file)) {
        $msg = "Le fichier $logdir$file ne peut être lu. Vérifier les permissions.<p>Essayer de 
        positionner les droits sur les répertoires chmod 755 et sur les fichiers journaux chmod 644.";
        &printMenu;
      }
      while ($line = <F>) {
        &checkLine($line);
      }
      close(F);
    }
  }

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

  print "<center><hr noshade size=1 width=50%>
         <font size=2>Nombre total de correspondance trouvées : $grandTotal |
         Nombre total de requêtes: $linesRead</font>
         <hr noshade size=1 width=50%></font>";
  print "<center><a href=$cgipath>Retour au Menu</a></center>";
}

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

  # Print out a '.' Toutes les 1000 lignes lues, on garde le navigateur connecté
  if (($linesRead % 1000) == 0) {
    print " ";
  } 
  if ($logformat == 2) {
    # Si c'est au format CSV, alors on convertit au format DansGuardian
    # $c1=date+time,$c5=action, $c6=method, $c7=size
    ($c1,$user,$ip,$url,$c5,$c6,$c7) = split(/","/,$line,7);
    ($date,$time) = split(/ /,$c1);
    # Les quotes en trop sont supprimées, ce n'est pas élégant mais ça marche
    # En faisant le découpage ci-dessus il devrait être possible de lire une ligne
    # incorrectement dans le cas ou une URL contiendrait ce type de séquence de 
    # caractère ... mais dans la pluspart des cas cela fonctionne correctement.
    $date =~ s/\"//; $c7 =~ s/\"//;
    $toeol = $c5 . ' ' . $c6. ' ' . $c7;
  }
  else {
    ($date,$time,$user,$ip,$url,$toeol) = split(/ /,$line,6);
  }
  # On élimine en premier les correspondances les plus faciles
  return if ($sIP ne "ALL" && $sIP ne $ip);
  return if ($sUN ne "ALL" && $sUN ne $user);

  # Pas de comparaison de date, sauf si cela est demandé
  if ($sSD ne "ALL" || $sED ne "ALL") {
    $dgDate = &convertDate($date);
    return if (!($dgDate ge $sSD && $dgDate le $sED));
  }

  $url =~ /(\w+):\/\/([\w\.-]+)\/?(\S*)/;  
  $protocol = $1; # HTTP, FTP
  $baseurl = $2;  # Le nom de domaine sans http:// ou ftp://
  return if ($sURL ne "ALL" && $sURL ne $baseurl);
  $toeol =~ /(\*.+\*)? ?(.+)? (\w+) (\d+)$/;
  $action = $1; # *DENIED# or *EXCEPTION* etc., si cela existe
  $reason = $2; # Raison pour #1 si cela existe
  $method = $3; # Méthode (GET POST)
  $size = $4;   # Taille
  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/));
  }

  # Un compte doit être fait pour grandTotal si le résumé des autorisés ou permis est demandé
  if ($sSumAlw eq "on" || $sSumDen eq "on") {
    if ($action ne '*DENIED*') {
      $allowTotal++;
      $grandTotal++;
      # Pas de mémoire à perdre mais on doit compter pour grandTotal
      $topSites{$baseurl}++ if ($sSumAlw eq "on" && $sSumOrd eq "URL");
      $topSites{$ip}++ if ($sSumAlw eq "on" && $sSumOrd eq "IP");
      $topSites{$user}++ if ($sSumAlw eq "on" && $sSumOrd eq "User");
    }
    else {
      $blockTotal++;
      $grandTotal++;
      # Pas de mémoire à perdre mais on doit compter pour grandTotal
      $blockSites{$baseurl}++ if ($sSumDen eq "on" && $sSumOrd eq "URL");
      $blockSites{$ip}++ if ($sSumDen eq "on" && $sSumOrd eq "IP");
      $blockSites{$user}++ if ($sSumDen eq "on" && $sSumOrd eq "User");
    }
  }
  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, $sumOrder, %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>
         Les $topNum premiers sites $whatToShow par $sumOrder</b></td></tr>
         <hr noshade width=50% size=1>
         <tr><td align=center>Rang</td>
             <td align=center>URL</td>
             <td align=center>Nombre</td>
             <td align=right>\% de<br>$whatToShow</td>
             <td align=right>\% du<br>Total</td>
             <td align=center>Investiguer</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' && $sumOrder eq 'URL') {
        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=";
      if ($sumOrder eq 'User') { print "$key"; } else { print "$sUN"; }
      print "&sIP=";
      if ($sumOrder eq 'IP') { print "$key"; } else { print "$sIP"; }
      print "&sURL=";
      if ($sumOrder eq 'URL') { print "$key"; } else { print "$sURL"; }
      print "&sL=$sL&sZ=$sZ&sA=";
      if ($whatToShow eq "DENIED") { print "denAll"; } else { print ""; }
      print">Trace</a></td></tr>";
      $count++;
    }
    break;
  }
  print "<tr><td colspan=6 align=center>
         <hr noshade size=1 width=85% align=center>
         Requêtes totales $whatToShow (seuls les $topNum premiers sites affichés) : $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 'ALL') {
    return('ALL');
  }
  elsif ($checkIP =~ /^((2([0-4]\d|5[0-5])|1?\d{1,2})(\.|$)){4}/) {
    return ($checkIP);
  }
  else {
    $msg = "Adresse IP entrée invalide.";
    &printMenu;
  }
}

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

  # Les actions doivent être "hachées" et on doit les référencés de cette façon
  # C'est plus facile pour ajouter/modifier et pour valider peut être plus tard
  if ($action eq "none") { return ("ALL"); }

  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 = "Date invalide détectée - $workDate - 
    Soyez sûr que le format du fichier journal est correctement positionné.";
    &printMenu;
  }
}

###############
sub buildSelect
###############
{
  my ($start, $end, $type) = @_;
  my $x = 0;
  
##  print "<option value=\"\">--$type--";
  print "<option value=\"\">--ALL--";
  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";
  }
  
  # Nom des rangées
  print "
  <tr bgcolor=f0f0f0>
  <th width=40%>
    Paramètre
  </th>
  <th width=40%>
    Valeur
  </th>
  <th width=20%>
    Description
  </th></tr>\n";

  # Contenu du menu pour entrer les plages de dates
  print "
  <tr><td align=left>
    Entre la plage de date
    <form action=$cgipath><input type=hidden name=a value=i>
    <br>
  </td>
  <td align=left>
    Date de début<br>
    <select name=sSDY>";
  &buildSelect(2002,2010,"Year");
  print "</select><select name=sSDM>";
  &buildSelect(01,12,"Month");
  print "</select><select name=sSDD>";
  &buildSelect(01,31,"Day");
  print "</select><br>
    Date de fin<br>
    <select name=sEDY>";
  &buildSelect(2002,2010,"Year");
  print "</select><select name=sEDM>";
  &buildSelect(01,12,"Month");
  print "</select><select name=sEDD>";
  &buildSelect(01,31,"Day");
  print "</select>
  </td>
  <td align=center>
    Une date de début et une date de fin doivent être spécifiées.
  <td></tr>\n";

  # Contenu du menu pour visualiser par adresses IP
  print "
  <tr><td align=left>
    Entre l'adresse IP 
  </td>
  <td align=left>
    <input name=sIP maxlength=15 size=20>
  </td>
  <td align=center>
    ex: 10.0.0.1<br>
  </td></tr>\n";

  # Contenu du menu pour visualiser par nom d'utilisateur
  print "
  <tr><td align=left>
    Entrer un nom d'utilisateur
  </td>
  <td align=left>
    <input name=sUN maxlength=15 size=20>
  </td>
  <td align=center>
    (L'authentification par proxy doit être autorisée)<br>
  </td></tr>\n";
  
  # Contenu du menu pour visualiser par URL 
  print "
  <tr><td align=left>
    Entrer une URL (uniquement la partie domaine)
  </td>
  <td align=left>
    <input name=sURL maxlength=30 size=20>
  </td>
  <td align=center>
    Entrer uniquement www.domain.com de l'URL<br>
  </td></tr>\n";
  
  # Contenu du menu pour les ACTION
  print "
  <tr><td align=left>
    Visualiser l'activité par ACTION
  </td>
  <td align=left>
    <select name=sA>
    <option value=none>Afficher TOUT
    <option value=none>---------------
    <option value=denAll>Afficher TOUS les interdits
    <option value=none>---------------
    <option value=excAll>Afficher TOUTES les exceptions
    <option value=none>---------------
    <option value=denSite>Site interdit
    <option value=denPhrase>Phrase interdite
    <option value=denRegURL>Expression régulière interdite dans URL
    <option value=denCombPhrase>Combinaison de phrases interdites
    <option value=denWeightPhrase>Limite poids phrase
    <option value=denExt>Extention interdite
    <option value=denMIME>Type MIME interdit
    <option value=denICRA>ICRA dépassé
    <option value=denBlanketIP>Bloc d'IP de Couverture 
    <option value=none>---------------
    <option value=excSite>Exception des sites
    <option value=excPhrase>Exception phrase
    <option value=excCombPhrase>Combinaison d'exception de phrase
    </select>
   
  </td>
  <td align=center>
    On peut en faire qu'un à la fois.
  </td></tr>\n";
  
  # Contenu du menu pour sélectionner les résumés de statistiques
  print "
  <tr><td colspan=2 align=left>
    Afficher les informations récapitulatives pour les premiers sites
    <input maxlength=3 size=5 name=sSumCnt value=20> 
    <input type=checkbox name=sSumDen>INTERDITS
    <input type=checkbox name=sSumAlw>AUTORISES
    par <select name=sSumOrd>
    <option value=URL>URL
    <option value=IP>IP
    <option value=User>Utilisateur
    </select>
  </td>
  <td align=center>
    On compte les sites pour les critères indiqués
  </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>Cocher pour transformer les noms d'URL en lien.<br>
     <input type=checkbox name=sZ>Cocher pour <b>inclure</b> les fichiers journaux gzip.<br>
     <a href=$cgipath?a=h>Visualiser le mode d'emploi</a><br>
    </td>
    <td align=center valign=middle>
     Cliquer le bouton \"Lancement du rapport\" pour démarrer l'analyse<p>
     <input type=submit value=\"Lancement du rapport\">&nbsp;&nbsp;&nbsp;
     <input type=reset value=\"Remise à zéro des valeurs\"><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>
   Instructions
  </th></tr>
  <tr><td align=right><font face=arial,helvetica,sans-serif size=1>
  Ecrit par Jimmy Myrick - Liser le fichier programme pour obtenir les informations permettant de le contacter.
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Résumé</b>
  <ul>
  Ce programme examine les fichiers journaux créés par le logiciel de filtrage
  DansGuardian.(http://www.dansguardian.org).<p>
  Différents critères de recherche peuvent être spécifiés. Les critères 
  de recherches sont cummulatifs (Ils s'additionnent). Par exemple, en spécifiant
  une plage de dates et une adresse IP, seules les entrées qui satisfont
  à ces deux critères seront affichées. Si vous voulez visualiser toutes 
  les entrées journalisés, ne spécifier pas de critères.
  <p>
  Actuellement, les résultats ne sont pas triés. C'est pour privilègier
  la rapidité de la recherche, l'utilisation d'une petite quantité de mémoire,
  et la transmission d'informations au navigateur par paquet pour éviter
  que le délai d'attente maximum soit atteint. Ce qui signifie que les fichiers
  journaux sur votre système doivent être dans un ordre chronologique et par nom.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Dates</b>
  <ul>
Selectionner une plage de dates à rechercher. Si les dates sont utilisés, les dates de début <b>et</b> de fin doivent être sélectionnées. Selectionner l'option ALL  dans n'importe quel champ de date causera l'examen de TOUTES les entrées. Les dates qui correspondent seront plus récentes ou égales à la date de début  - plus ancienne ou égale à la date de fin.
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Addresse IP</b>
  <ul>
  Entrer une adresse IPv4 à rechercher. Exemple : 10.0.0.1
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Nom de connexion</b>
  <ul>
  Entrer un nom de connexion à rechercher. L'authentification par proxy doit être validée dans DansGuardian pour que cela marche. Si les noms de connexion ne sont pas affichés quand cela correspond sans aucun critère, cela signifie souvent que l'authentification par proxy n'est pas activée. Se reférer à la documentation appropriée pour savoir comment faire cela.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Action</b>
  <ul>
  Entrer une action à rechercher.
  Utiliser le menu déroulant pour selectionner l'ACTION à rechercher. Les ACTIONS 
  sont les requêtes  spéciales journalisées par DansGuardian. Pour voir TOUTES les 
  correpondances pour DENIED et EXCEPTION, sélectionner "ALL DENIED" ou "ALL EXCEPTIONS".
  Une seule ACTION peut être visualisée à la fois et c'est très restrictif. Par exemple,
  si ""Banned Site"  est sélectionnée, alors seules les requêtes refusées, parce qu'un site a été interdit seront visualisées. Aucune autre requête refusée ne sera affichée.
  </ul>
  </td></tr>
  <tr><td align=left><font face=arial,helvetica,sans-serif size=2>
  <b>Résumé d'information</b>
  <ul>
  La sélection de ces options montrera a rapport concis pour le nombre de sites entrés. 
  La sélection peut se faire du premier au centième sites.
  <p>
  Une fois l'affichage de l'écran récapitulatif, vous pouvez "investiguer" pour un site
  a été interdit/autorisé et qui/pourquoi cette machine a visitée ce site.
  Il suffit simplement de cliquer sur le lien "Trace" situé sous la colonne
  "investiguer" pour que les résultats s'affichent.
  <p>
  Attention : Si vous sélectionner de filtrer sur "interdit seulement" et
  cocher un récapitulatif pour les autorisés, rien ne sera affiché. C'est correct.
  Si vous ne voyez pas les résultats attendus, revener en arrière et vérifier
  les critères sélectionnés.
  <p>
  Changer les noms d'URL en liens
  <ul>Valider ce choix permettra de cliquer sur les libéllés d'URL.
  </ul>
  </ul>
  </td></tr>
(EOF)
  print "<tr><td align=center><font face=arial,helvetica,sans=serif size=2>
  <a href=$cgipath>Retour à la page $pagename</a></tr></td> 
  </table>\n";
}