1#!/usr/bin/perl
2
3use lib './lib','../lib';
4
5use Asterisk::Extension;
6use Data::Dumper;
7
8
9$ext = new Asterisk::Extension;
10
11$ext->readconfig('/etc/asterisk/extensions.conf');
12
13my @arr= $ext->getextensionarr('demo','1234');
14for (@arr) {
15
16	$x++;
17#	print "$x $_\n" if ($_);
18}
19
20#$ext->getcontextarr();
21
22print "\n";
23
24#print Dumper $ext;
25
26print Dumper $ext->matchextension('local', '559');
27
28$ext->writeconfig('/tmp/test.config');
29