Add support for haproxy logs

This commit is contained in:
2025-03-20 18:49:50 +01:00
parent 492e692137
commit ba62e87a00
4 changed files with 79 additions and 4 deletions

View File

@@ -4,16 +4,16 @@ use warnings;
use Getopt::Long;
use My::parser::stats;
my $module;
my @modules = ('ssh','dovecot','exim','apache','gitea_ssh');
my @modules = ('ssh','dovecot','exim','apache','gitea_ssh', 'haproxy');
my $program = $0;
GetOptions ("module=s" => \$module); #Only test one module
unless($module) {
print 'No module specified, use argument --module=(ssh|dovecot|exim|apache|gitea_ssh)'."\n";
print 'No module specified, use argument --module=(ssh|dovecot|exim|apache|gitea_ssh|haproxy)'."\n";
exit;
}
my @matches = grep { /$module/ } @modules;
unless(@matches) {
print 'Unsupported module '.$module.' specified, use argument --module=(ssh|dovecot|exim|apache|gitea_ssh)'."\n";
print 'Unsupported module '.$module.' specified, use argument --module=(ssh|dovecot|exim|apache|gitea_ssh|haproxy)'."\n";
exit;
}
print "Please paste a line to parse here:\n";