#!/usr/bin/perl
# Minecraft Audit
#   by m1ndgames for
#     Hexagon.de.tf
#############################
use warnings;
use strict;
my $logfilepath = "/minecraft/bin/logs/";
my @logfiles = `ls $logfilepath*.log`;
open(BADWORDS, "<", "badwords.db");


foreach(@logfiles) {
        open(CURRENTLOG, $_) or die $!;
        foreach(<CURRENTLOG>) {
                my $line = $_;
                if ($line =~ /Sign/) {
                        print $line;
                } elsif ($line =~ /Line/) {
                        foreach (<BADWORDS>) {
                                if ($line =~ /$_/) {
                                        print $_;
                                }
                        }
                } elsif ($line =~ /Antigrief/) {
#                       print $line;
                }
        }
}