From ba55c0675df20a89a452162216af4b6a8e06ce5c Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 25 Mar 2008 17:05:22 +0000
Subject: Added dnsbl analysis, better sql, better rules, fixed some commands

---
 modules/mysql.pl | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'modules/mysql.pl')

diff --git a/modules/mysql.pl b/modules/mysql.pl
index 22369e1..f0b7845 100644
--- a/modules/mysql.pl
+++ b/modules/mysql.pl
@@ -76,23 +76,36 @@ sub logg
     $string = $string . 'channel, ';
   }
   $string = $string . 'nick, user, host, geco';
-  if ($table ne 'join') {
+  if (($table ne 'join') && ($table ne 'kick')) {
     $string = $string . ', content1';
   }
-  if (($table eq 'kick') || ($table eq 'mode')) {
+  if ($table eq 'mode') {
     $string = $string . ', content2';
   }
+  if ($table eq 'kick') {
+    $string = $string . ', victim_nick, victim_user, victim_host, victim_geco, content1';
+  }
   $string = $string . ') VALUES (';
-  if (($table ne 'nick') && ($table ne 'quit')) {
+  if (($table ne 'nick') && ($table ne 'quit') && ($table ne 'kick')) {
     $string = $string . $dbh->quote($event->{to}->[0]) . ", ";
   }
+  if ($table eq 'kick') {
+    $string = $string . $dbh->quote($event->{args}->[0]) . ", ";
+  }
   my $geco = $::sn{lc $event->{nick}}->{gecos};
   $string = $string . $dbh->quote($event->{nick}) . ", " . $dbh->quote($event->{user}) . ", " .
                       $dbh->quote($event->{host}) . ", " . $dbh->quote($geco);
-  if ($table ne 'join') {
+  if (($table ne 'join') && ($table ne 'kick')) {
     $string = $string. ', ' . $dbh->quote($event->{args}->[0]);
   }
-  if (($table eq 'kick') || ($table eq 'mode')) {
+  if ($table eq 'kick') {
+    $string = $string . ', ' . $dbh->quote($event->{to}->[0]);
+    $string = $string . ', ' . $dbh->quote($::sn{lc $event->{to}->[0]}->{user});
+    $string = $string . ', ' . $dbh->quote($::sn{lc $event->{to}->[0]}->{host});
+    $string = $string . ', ' . $dbh->quote($::sn{lc $event->{to}->[0]}->{gecos});
+    $string = $string . ', ' . $dbh->quote($event->{args}->[1]);
+  }
+  if ($table eq 'mode') {
     $string = $string . ', ' . $dbh->quote($event->{args}->[1]);
   }
   $string = $string . ');';
-- 
cgit v1.2.3