All the files

lib/localcheck.pm

@@ -0,0 +1,24 @@
+package My::parser::localcheck;
+use strict;
+use warnings;
+
+sub new {
+	my $class	= shift;
+	my $self	= {};
+	bless ($self, $class);
+	return $self;
+}
+
+sub islocal {
+	my $self	= shift;
+	my $host	= shift;
+	my @local_nets	= ('127\.','10\.','192\.168\.','172\.((1[6-9])|(2[0-9])|(3[0-1]))\.','213\.236\.200\.(7|10)'); # array of regexes matching networks considered local and to be ignored
+	my $local	= 0;
+	foreach my $test(@local_nets) {
+		$local = 1 if($host =~ m/^$test/);
+		last if $local;
+	}
+	return $local;
+}
+
+return 1;