All the files

lib/gitea_parser.pm

@@ -0,0 +1,41 @@
+package My::parser::gitea_parser;
+use strict;
+use warnings;
+
+sub new {
+	my $class	= shift;
+	my $self	= {};
+	bless ($self, $class);
+	return $self;
+}
+
+sub parser {
+	my $self	= shift;
+	my $string	= shift;
+	my ($reply,$hostile,$host) = ("No match for $string",0,'');
+	my $re_host	= qr/[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/;
+	if($string =~ m/sshConnectionFailed/) {
+		if($string =~ m/Failed connection from /) {
+			$_		= $string;
+			$reply		= 'Failed connection';
+			$hostile	= 1;
+			PARSE:
+				m/($re_host)\:[0-9]{1,6} /gcix && do {
+					$host	= $1;
+				};
+		} elsif($string =~ m/Failed authentication attempt from /) {
+			$_		= $string;
+			$reply		= 'Failed auth';
+			$hostile	= 1;
+			PARSE:
+				m/($re_host)\:[0-9]{1,6}/gcix && do {
+					$host	= $1;
+				};
+		}
+	} else {
+		$reply	= 'non-ssh lines not supported yet';
+	}
+	return { retval => 1, retmsg => $reply, hostile => $hostile, host => $host, string => $string };
+}
+
+return 1;