7 require './access_list.pl';
15 if ($range =~ /^(\d+)\.\.(\d+)$/) {
23 my ($elem, $ranges) = @_;
25 for my $range (@$ranges) {
26 if ($range =~ /^(\d+)\.\.(\d+)$/) {
27 return 1 if ($elem >= $1 && $elem <= $2);
29 return 1 if ($elem == $range);
37 # Find what ports we need to listen on
39 for my $e (@Config::access_list) {
40 for my $r (@{$e->{'ports'}}) {
41 for my $p (expand_range($r)) {
46 my @ports = sort { $a <=> $b } keys %port_hash;