summaryrefslogtreecommitdiffstats
path: root/modules/event.pl
diff options
context:
space:
mode:
Diffstat (limited to 'modules/event.pl')
-rw-r--r--modules/event.pl4
1 files changed, 3 insertions, 1 deletions
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 $@;
}