From bbb625fbd7ee5ebb2e3e2564b3c7117f08200e7d Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 23 Oct 2013 17:40:15 +0000
Subject: all sorts of stuff changed. This is just one big code package update

---
 modules/log.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'modules/log.pl')

diff --git a/modules/log.pl b/modules/log.pl
index bdf4821..fe92159 100644
--- a/modules/log.pl
+++ b/modules/log.pl
@@ -41,9 +41,8 @@ sub sqlIncident
   open(FH, '>', $self->{CONFIG}->{actiondir} . $index . '.txt');
   foreach my $chan (@chans) {
     if (defined($self->{backlog}->{$chan})) {
-      print FH "$chan\n";
-      print FH join('', @{$self->{backlog}->{$chan}});
-      print FH "\n";
+      say FH "$chan";
+      say FH join('', @{$self->{backlog}->{$chan}});
     }
   }
   close(FH);
@@ -95,13 +94,14 @@ sub logg
     } else {
       print "COULDN'T PRINT TO $path - $line";
     }
+    my $spy;
     if (defined($::spy{$chan})) {
-      my $spy = $::spy{$chan};
-      print $spy $chan .": " . $nostamp . "\n";
+      $spy = $::spy{$chan};
+    } elsif (defined($::spy{lc $event->{nick}})) {
+      $spy = $::spy{lc $event->{nick}};
     }
-    if (defined($::spy{lc $event->{nick}})) {
-      my $spy = $::spy{lc $event->{nick}};
-      print $spy $chan .": " . $nostamp . "\n";
+    if (defined($spy)) {
+      say $spy "$chan: $nostamp";
     }
 #    $_ >> io($path);
   }
-- 
cgit v1.2.3