From 50057d5149dda340b3b47aca4096f4a6ec66b9ee Mon Sep 17 00:00:00 2001 From: Přemysl Eric Janouch Date: Fri, 6 Aug 2021 16:12:15 +0200 Subject: Come up with sillier names for the binaries I'm not entirely sure, but it looks like some people might not like jokes about the Holocaust. On a more serious note, the project has become more serious over the 7 or so years of its existence. --- plugins/zyklonb/seen-import-degesch.pl | 39 ---------------------------------- 1 file changed, 39 deletions(-) delete mode 100755 plugins/zyklonb/seen-import-degesch.pl (limited to 'plugins/zyklonb/seen-import-degesch.pl') diff --git a/plugins/zyklonb/seen-import-degesch.pl b/plugins/zyklonb/seen-import-degesch.pl deleted file mode 100755 index ddef6be..0000000 --- a/plugins/zyklonb/seen-import-degesch.pl +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/env perl -# Creates a database for the "seen" plugin from logs for degesch. -# The results may not be completely accurate but are good for jumpstarting. -# Usage: ./seen-import-degesch.pl LOG-FILE... > seen.db - -use strict; -use warnings; -use File::Basename; -use Time::Piece; - -my $db = {}; -for (@ARGV) { - my $where = (basename($_) =~ /\.(.*).log/)[0]; - unless ($where) { - print STDERR "Invalid filename: $_\n"; - next; - } - - open my $fh, '<', $_ or die "Failed to open log file: $!"; - while (<$fh>) { - my ($when, $who, $who_action, $what) = - /^(.{19}) (?:<[~&@%+]*(.*?)>| \* (\S+)) (.*)/; - next unless $when; - - if ($who_action) { - $who = $who_action; - $what = "* $what"; - } - $db->{$who}->{$where} = - [Time::Piece->strptime($when, "%Y-%m-%d %T")->epoch, $what]; - } -} - -while (my ($who, $places) = each %$db) { - while (my ($where, $data) = each %$places) { - my ($when, $what) = @$data; - print ":$who PRIVMSG $where $when :$what\n"; - } -} -- cgit v1.2.3-54-g00ecf