47 lines
1.4 KiB
Perl
Executable File
47 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use Getopt::Long;
|
|
use My::parser::stats;
|
|
my $module;
|
|
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|haproxy)'."\n";
|
|
exit;
|
|
}
|
|
my @matches = grep { /$module/ } @modules;
|
|
unless(@matches) {
|
|
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";
|
|
my $frompipe = <STDIN>;
|
|
chomp($frompipe); #One line is fine for us, user may fuck up, but we're good..
|
|
my $parser = &load($module);
|
|
my $result = $parser->parser($frompipe);
|
|
if($result->{'retval'}) {
|
|
print 'Parser said: '.$result->{'retmsg'}."\n";
|
|
print 'Regarded as a hostile action'."\n" if($result->{'hostile'});
|
|
print 'Host: '.$result->{'host'}."\n";
|
|
} else {
|
|
print 'Parser found no match'."\n";
|
|
}
|
|
|
|
sub load {
|
|
my $parser = shift;
|
|
my $filename = 'My/parser/'.$parser.'_parser.pm';
|
|
my $newclass;
|
|
eval {
|
|
require $filename;
|
|
my $classname = 'My::parser::'.$parser.'_parser';
|
|
$newclass = $classname->new || die "Failed to load parser for $parser";
|
|
} or do {
|
|
my $e = $@;
|
|
print 'Could not load parser '.$module.' from file '.$filename.': '.$e."\n";
|
|
exit;
|
|
};
|
|
return $newclass;
|
|
}
|