/usr/share/perl5/Asterisk/Conf/IAX.pm is in libasterisk-agi-perl 1.08-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | package Asterisk::Conf::IAX;
require 5.004;
=head1 NAME
Asterisk::Config::IAX - IAX configuration stuff
=head1 SYNOPSIS
stuff goes here
=head1 DESCRIPTION
description
=cut
use Asterisk;
use Asterisk::Conf;
@ISA = ('Asterisk::Conf');
$VERSION = '0.01';
$DEBUG = 5;
sub new {
my ($class, %args) = @_;
my $self = {};
$self->{'name'} = 'IAX';
$self->{'description'} = 'IAX Channel Driver Configuration';
$self->{'configfile'} = '/etc/asterisk/iax.conf';
$self->{'config'} = {};
$self->{'configtemp'} = {};
$self->{'contextorder'} = ( 'general' );
$self->{'channelgroup'} = {};
$self->{'variables'} = {
#this stuff can only be in general context
#need to put together some list of codecs somewhere
'allow' => { 'default' => 'gsm', 'type' => 'multitext', 'contextregex' => '^general$' },
'disallow' => { 'default' => 'lpc10', 'type' => 'multitext', 'contextregex' => '^general$' },
'bindaddr' => { 'default' => undef, 'type' => 'text', 'regex' => '^\w*$', 'contextregex' => '^general$' },
'bandwidth' => { 'default' => 'low', 'type' => 'one', 'values' => [ 'low', 'medium', 'high' ], 'contextregex' => '^general$' },
'jitterbuffer' => { 'default' => 'yes', 'type' => 'one', 'values' => [ 'yes', 'no' ], 'contextregex' => '^general$' },
'dropcount' => { 'default' => '3', 'type' => 'text', 'regex' => '^\d*$', 'contextregex' => '^general$' },
'permit' => { 'default' => undef, 'type' => 'multitext' },
'deny' => { 'default' => undef, 'type' => 'multitext', 'negcontextregex' => '^general$' },
'context' => { 'default' => 'default', 'type' => 'multitext' },
'port' => { 'default' => undef, 'type' => 'text', 'regex' => '^\d*$' },
'type' => { 'default' => 'user', 'type' => 'one', 'values' => [ 'user', 'peer', 'friend'] },
'context' => { 'default' => 'default', 'type' => 'multitext' },
'secret' => { 'default' => undef, 'type' => 'text', 'regex' => '^\w*$', 'negcontextregex' => '^general$' },
'username' => { 'default' => undef, 'type' => 'text', 'regex' => '^\w*$', 'negcontextregex' => '^general$' },
};
bless $self, ref $class || $class;
return $self;
}
1;
|