/usr/share/perl5/Asterisk/Conf/MeetMe.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 | package Asterisk::Conf::MeetMe;
require 5.004;
=head1 NAME
Asterisk::Config::MeetMe - MeetMe 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'} = 'MeetMe';
$self->{'description'} = 'MeetMe Configuration';
$self->{'configfile'} = '/etc/asterisk/meetme.conf';
$self->{'config'} = {};
$self->{'configtemp'} = {};
$self->{'contextorder'} = ( 'rooms' );
$self->{'channelgroup'} = {};
$self->{'variables'} = {
#this stuff can only be in general context
#need to put together some list of codecs somewhere
'conf' => { 'default' => undef, 'type' => 'multitext', 'regex' => '^\w*$' },
};
bless $self, ref $class || $class;
return $self;
}
1;
|