8f6ccfba04
Add missing functions to lib/BotLib/Admin.pm to be able to expoprt chat settings for for particular chats. Add extract_chatlist.txt.pl to extract chat list from debug.log
29 lines
680 B
Perl
29 lines
680 B
Perl
#!/usr/bin/perl
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
my %chats;
|
|
open my $F, '<', 'debug.log' or die "Unable to open debug.log: $!\n"; ## no critic (ErrorHandling::RequireUseOfExceptions, InputOutput::RequireBriefOpen)
|
|
|
|
foreach my $line (<$F>) { ## no critic (InputOutput::ProhibitReadlineInForLoop)
|
|
if ($line =~ /.DEBUG. In public chat .* \(\-(\d+)\) .* say:/) {
|
|
next unless defined $1;
|
|
next if $1 eq '';
|
|
|
|
$chats{$1} = 1;
|
|
}
|
|
}
|
|
|
|
close $F;
|
|
|
|
open $F, '>', 'chatlist.txt' or die "Unable to open chatlist.txt: $!\n"; ## no critic (ErrorHandling::RequireUseOfExceptions)
|
|
|
|
foreach my $chat (keys %chats) {
|
|
print $F "$chat\n";
|
|
}
|
|
|
|
close $F;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|