From aa421a2d56c5bdfb467eddaba478e5aef04bbce4 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 26 Apr 2011 17:42:42 +0000
Subject: Lots of added stuff. Don't know whatall.

---
 modules/event.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'modules/event.pl')

diff --git a/modules/event.pl b/modules/event.pl
index f808317..e25066b 100644
--- a/modules/event.pl
+++ b/modules/event.pl
@@ -5,6 +5,7 @@ use strict;
 use Data::Dumper;
 use Text::LevenshteinXS qw(distance);
 use IO::All;
+use POSIX qw(strftime);
 
 sub cs {
   my ($chan) = @_;
@@ -100,6 +101,7 @@ sub on_join {
   } else {
     $::sn{$nick} = {};
     $::sn{$nick}->{mship} = [ $chan ];
+    $::sn{$nick}->{dnsbl} = 0;
     if (defined($::needgeco{$nick})) {
       $::needgeco{$nick} = [ @{$::needgeco{$nick}}, $evcopy ];
       $::db->logg($event);
@@ -363,7 +365,7 @@ sub whois_identified {
     foreach my $item (@{$::idqueue{$who}}) {
       my ($cmd, $command, $event) = @{$item};
       if ( $cmd =~ /$command->{cmd}/ ){
-        print "$event->{from} told me $cmd \n";
+        print strftime("%F %T  ", gmtime) . "$event->{from} told me $cmd \n";
         eval $command->{content};
 	warn $@ if $@;
       }
-- 
cgit v1.2.3