diff options
Diffstat (limited to 'modules/log.pl')
| -rw-r--r-- | modules/log.pl | 16 |
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); } |