commit - 92788e3adb0d10591ab17c83803d398a8e81c7ea
commit + dc04523a174702541e2883129d0d324024126439
blob - 769896701006d59e17b892f2e62ba00dde6434d7
blob + d2c4f03ed7a419a8fc85f3a74a75be8595b2191d
--- BNC.pm
+++ BNC.pm
}
}
sub loadlog {
- open(my $fh, '<', "$znclog") or die "Could not read file 'znc.log' $!";
+ open(my $fh, '<', "$znclog") or die "Could not read znc log file: '$znclog' $!";
chomp(@logs = <$fh>);
close $fh;
}
($chan, $text) = ($args[0], $args[1]);
} else { $text = $args[0]; }
my $hostmask = "$nick!$host";
- open(my $fh, "-|", "/usr/bin/tail", "-f", $znclog) or die "could not start tail: $!";
+ open(my $fh, "-|", "/usr/bin/tail", '-10', $znclog) or die "could not tail $znclog: $!";
while (my $line = <$fh>) {
- foreach my $chan (@teamchans) {
- main::putserv($bot, "PRIVMSG $chan :$line");
- }
+ main::putserv($bot, "PRIVMSG $nick :$line");
}
}
foreach my $user (@users) {
my @lines = grep(/^\[\d{4}-\d\d-\d\d \d\d:\d\d:\d\d\] \[$user\] connected to ZNC from [.0-9a-fA-F:]+/, @logs);
if (scalar(@lines) == 0) {
- foreach my $chan (@teamchans) {
- main::putserv($bot, "PRIVMSG $chan :$user never logged in");
- }
+ main::putserv($bot, "PRIVMSG $nick :$user never logged in");
next;
}
my $recent = pop(@lines);
if ($recent =~ /^\[(\d{4}-\d\d-\d\d) \d\d:\d\d:\d\d\] \[$user\] connected to ZNC from [.0-9a-fA-F:]+/) {
my $date = $1;
- foreach my $chan (@teamchans) {
- main::putserv($bot, "PRIVMSG $chan :$user $date");
- }
+ main::putserv($bot, "PRIVMSG $nick :$user $date");
}
}
}