From 84aaf425e93b1ff66a4c53df4426972cf26e1df1 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Fri, 1 Aug 2014 22:14:29 +0200
Subject: Bug #45: add port range validation script.

---
 scripts/firewall/valid_port_range.pl | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100755 scripts/firewall/valid_port_range.pl

(limited to 'scripts/firewall/valid_port_range.pl')

diff --git a/scripts/firewall/valid_port_range.pl b/scripts/firewall/valid_port_range.pl
new file mode 100755
index 0000000..1f3b3fc
--- /dev/null
+++ b/scripts/firewall/valid_port_range.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+
+$arg = $ARGV[0];
+
+exit(1) unless $arg =~ /^!?((\d+|\d+-\d+|[a-zA-Z0-9\-]+),)*((\d+|\d+-\d+|[a-zA-Z0-9\-]+))$/;
-- 
cgit v1.2.3