#! /usr/bin/perl

# tail -f /var/log/apache/access.log | ./isDL

# Variables

$CONFIG = "/home/users/michoux/.isDL";
$MAILTO = "michoux";

open(IN, "tail -f /var/log/apache/access.log|");

while(<IN>)
{
    s/(.*) - - \[(.*)\] \"GET (.*)\" ([0-9]+) [0-9\-]+ \".*\" \"(.*)\" [0-9]+ (.*)/$1µ$2µ$3µ$4µ$5µ$6/;
    ($host, $date, $url, $code, $navig, $vhost) = split("µ");
    open (CONF, "<$CONFIG") || die "Fichier de config de merde";
    if ($code != 404)
    {
        while(<CONF>)
        {
            chomp;
    #       push @nospam, $_;
    #   }
    #   foreach(@nospam)
    #   {
            $match = $_;
            $_ = $url;
            # Si $_ contient $match alors OK comme ED
#           print "<$match> et _ $_ _\n";
            if(/$match/)
            {
            open (SENDMAIL, "|/usr/lib/sendmail -odd -t") or die "Cannot run sendmail: $!\n";
            print SENDMAIL <<EOFMAIL;
From: Vigilant Automate <ik\@nospam.org>
To: michoux  
Subject: $url isDL
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit

$url a ete downloade par $host le $date 
sous $navig sur $vhost.

-- 
Cordialement, Ta machine preferee.
EOFMAIL
            close SENDMAIL;

            }
        }
        close (CONF);
    }
}
close(IN);

# Lecture du fichier de config

#while(<>)
#{
#   s/(.*) - - \[(.*)\] \"GET (.*)\" ([0-9]+) [0-9\-]+ \".*\" \"(.*)\" [0-9]+ (.*)/$1µ$2µ$3µ$4µ$5µ$6/;
#   ($host, $date, $url, $code, $navig, $vhost) = split("µ");
#   print "$host\n";
#}