1 files changed, 5 insertions, 0 deletions
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\-]+))$/;