added DCC chat capabilities, plus sigalarm to self-die. DCC chat is still very broken

1 files changed, 9 insertions, 0 deletions

diff --git a/modules/log.pl b/modules/log.pl
index 7bd69a1..581f70b 100644
--- a/modules/log.pl
+++ b/modules/log.pl
@@ -43,11 +43,20 @@ sub logg
     $_ =    "-$event->{nick}- $event->{args}->[0]"                      if $event->{type} eq 'notice';
     $_ = "*** $event->{nick} sets mode: " . join(" ",@{$event->{args}}) if $event->{type} eq 'mode';
     $_ = "*** $event->{nick} changes topic to \"$event->{args}->[0]\""  if $event->{type} eq 'topic';
+    my $nostamp = $_;
     $_ = strftime($cfg->{timefmt}, @time) . $_ . "\n";
     my $line = $_;
     open(FH, $path) or die "Can't open $path: $!";
     print FH $line;
     close(FH);
+    if (defined($::spy{$chan})) {
+      my $spy = $::spy{$chan};
+      print $spy $chan .": " . $nostamp . "\n";
+    }
+    if (defined($::spy{lc $event->{nick}})) {
+      my $spy = $::spy{lc $event->{nick}};
+      print $spy $chan .": " . $nostamp . "\n";
+    }
 #    $_ >> io($path);
   }
 }