Ok, I am a noob at perl scripting. In the past I have taught myself alot of different languages, but I am drawing a major blank on perlscript. If somebody could help me out by starting a little bit of this code, I would be very thankful. I need a simple script that logs to a database how many times an IP has downloaded a file which is over the size of x(whatever MB). Once the user has downloaded the set limit of the specified minimum MB files, the script will block their IP for 24 hours, and alert them with a simple warning that they have downloaded too much for that day.
I host a file server with well over 97 GiB of files using abyss web server (http://www.aprelium.com/) and right now I have configured it to support perlscript with active perl. Any help is welcomed.