From: Brian West <brian@freeswitch.org>
Date: Tue, 24 Dec 2013 17:49:23 +0000 (-0600)
Subject: Tired of this
X-Git-Tag: v1.4.2~2^2~14
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cb6c17a691203813fa9fa8cbe9321296513f7d2c;p=thirdparty%2Ffreeswitch.git

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
index 0000000000..48c0b75083
--- /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");
+    }
+}