all sorts of stuff changed. This is just one big code package update

1 files changed, 8 insertions, 8 deletions

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);
   }