Implemented point system for banning with timeout scale based on

severity.
Implemented banning based on excessive activity.
Utility functions split off into utils.txr.

1 files changed, 4 insertions, 2 deletions

diff --git a/apache.txr b/apache.txr
index 12d6a9f..bb873d4 100644
--- a/apache.txr
+++ b/apache.txr
@@ -11,11 +11,13 @@
 @        (fail badguys)
 @      (or)
 @        (require (search-regex agent #/[Bb][Oo][Tt]|[Ss]pider|[Cc]rawler|[Yy]andex/))
+@        (bind points 9)
+@      (or)
+@        (bind points 0)
 @      (end)
 @    (end)
 @    (do
        (let ((time (make-time year (month-num month) day hour min sec :auto)))
-         (ban ip time 86400)
-         (expire time)))
+         (report ip time points)))
 @  (end)
 @(end)