C4/SIP/Sip/Configuration.pm

   1 #
   2 # parse-config: Parse an XML-format
   3 # ACS configuration file and build the configuration
   4 # structure.
   5 #
   6
   7 package Sip::Configuration;
   8
   9 use strict;
  10 use warnings;
  11 use XML::Simple qw(:strict);
  12
  13 use Sip::Configuration::Institution;
  14 use Sip::Configuration::Account;
  15 use Sip::Configuration::Service;
  16
  17 my $parser = new XML::Simple( KeyAttr   => { login => '+id',
  18                                              institution => '+id',
  19                                              service => '+port' },
  20                               GroupTags =>  { listeners => 'service',
  21                                               accounts => 'login',
  22                                               institutions => 'institution', },
  23                               ForceArray=> [ 'service',
  24                                              'login',
  25                                              'institution' ],
  26                               ValueAttr =>  { 'error-detect' => 'enabled',
  27                                              'min_servers' => 'value',
  28                                              'max_servers' => 'value'} );
  29
  30 sub new {
  31     my ($class, $config_file) = @_;
  32     my $cfg = $parser->XMLin($config_file);
  33     my %listeners;
  34
  35     foreach my $acct (values %{$cfg->{accounts}}) {
  36                 new Sip::Configuration::Account $acct;
  37     }
  38
  39     # The key to the listeners hash is the 'port' component of the
  40     # configuration, which is of the form '[host]:[port]/proto', and
  41     # the 'proto' component could be upper-, lower-, or mixed-cased.
  42     # Regularize it here to lower-case, and then do the same below in
  43     # find_server() when building the keys to search the hash.
  44
  45     foreach my $service (values %{$cfg->{listeners}}) {
  46                 new Sip::Configuration::Service $service;
  47                 $listeners{lc $service->{port}} = $service;
  48     }
  49     $cfg->{listeners} = \%listeners;
  50
  51     foreach my $inst (values %{$cfg->{institutions}}) {
  52                 new Sip::Configuration::Institution $inst;
  53     }
  54     return bless $cfg, $class;
  55 }
  56
  57 sub error_detect {
  58     my $self = shift;
  59     return $self->{'error-detect'};
  60 }
  61 sub accounts {
  62     my $self = shift;
  63     return values %{$self->{accounts}};
  64 }
  65
  66 # sub policy {
  67 #     my $self = shift;
  68 #     return values %{$self->{policy}};
  69 # }
  70
  71 sub find_service {
  72     my ($self, $sockaddr, $port, $proto) = @_;
  73     my $portstr;
  74         foreach my $addr ('', '*:', "$sockaddr:") {
  75                 $portstr = sprintf("%s%s/%s", $addr, $port, lc $proto);
  76                 Sys::Syslog::syslog("LOG_DEBUG", "Configuration::find_service: Trying $portstr");
  77                 last if (exists(($self->{listeners})->{$portstr}));
  78         }
  79     return $self->{listeners}->{$portstr};
  80 }
  81
  82 1;
  83 __END__
  84
  85     my $config = new Sip::Configuration $ARGV[0];
  86
  87
  88 foreach my $acct ($config->accounts) {
  89     print "Found account '", $acct->name, "', part of '"
  90     print $acct->institution, "'\n";
  91 }
  92
  93 1;