kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Tired of this

This commit is contained in:
Brian West 2013-12-24 11:49:23 -06:00
parent f03e9fe8af
commit cb6c17a691
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scripts/perl/f-off-friendly-scanner.pl Normal file
View File

@ -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");
}
}