Tired of this

diff --git a/scripts/perl/f-off-friendly-scanner.pl b/scripts/perl/f-off-friendly-scanner.pl
new file mode 100644 (file)
index 0000000..48c0b75
--- /dev/null
+++ b/scripts/perl/f-off-friendly-scanner.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+# Fsck Friendly Scanner
+#
+use Data::Dumper;
+require ESL;
+$| = 1;
+my $c = new ESL::ESLconnection("localhost", "8021", "ClueCon");
+$c->events("plain", "CUSTOM sofia::register");
+
+while ($c->connected()) {
+  my $event = $c->recvEvent(); 
+
+  my $user_agent = $event->getHeader('user-agent');
+  my $network_ip = $event->getHeader('network-ip');
+
+  if ($user_agent =~ m/friendly-scanner/) {
+      system("/sbin/iptables -I INPUT -s $network_ip -j DROP");
+    }
+}