git.sesse.net Git - nms/blob - mbd/mbd.pm

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Socket;
   5 use Net::CIDR;
   6 use Net::RawIP;
   7 require './access_list.pl';
   8 require './nets.pl';
   9
  10 package mbd;
  11
  12 sub expand_range {
  13         my $range = shift;
  14
  15         if ($range =~ /^(\d+)\.\.(\d+)$/) {
  16                 return $1..$2;
  17         } else {
  18                 return $range;
  19         }
  20 }
  21
  22 sub match_ranges {
  23         my ($elem, $ranges) = @_;
  24
  25         for my $range (@$ranges) {
  26                 if ($range =~ /^(\d+)\.\.(\d+)$/) {
  27                         return 1 if ($elem >= $1 && $elem <= $2);
  28                 } else {
  29                         return 1 if ($elem == $range);
  30                 }
  31         }
  32
  33         return 0;
  34 }
  35
  36 sub find_all_ports {
  37         # Find what ports we need to listen on
  38         my %port_hash = ();
  39         for my $e (@Config::access_list) {
  40                 for my $r (@{$e->{'ports'}}) {
  41                         for my $p (expand_range($r)) {
  42                                 $port_hash{$p} = 1;
  43                         }
  44                 }
  45         }
  46         my @ports = sort { $a <=> $b } keys %port_hash;
  47         return @ports;
  48 }
  49
  50 1;