From e07b80f91c00fcf5013fe2c7066008470d203d30 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Sun, 24 May 2009 17:02:36 +0300 Subject: Importing Asterisk::config 0.96 from tarball --- examples/exten.conf | 8 ++++++++ examples/new.conf | 20 ++++++++++++++++++++ examples/new_exten.conf | 7 +++++++ examples/sip.conf | 25 +++++++++++++++++++++++++ examples/test1.pl | 10 ++++++++++ examples/test2.pl | 30 ++++++++++++++++++++++++++++++ examples/test3.pl | 16 ++++++++++++++++ examples/test4.pl | 14 ++++++++++++++ examples/test5.pl | 26 ++++++++++++++++++++++++++ examples/test6.pl | 12 ++++++++++++ 10 files changed, 168 insertions(+) create mode 100755 examples/exten.conf create mode 100755 examples/new.conf create mode 100755 examples/new_exten.conf create mode 100755 examples/sip.conf create mode 100755 examples/test1.pl create mode 100755 examples/test2.pl create mode 100755 examples/test3.pl create mode 100755 examples/test4.pl create mode 100755 examples/test5.pl create mode 100755 examples/test6.pl (limited to 'examples') diff --git a/examples/exten.conf b/examples/exten.conf new file mode 100755 index 0000000..96a92f6 --- /dev/null +++ b/examples/exten.conf @@ -0,0 +1,8 @@ + +[mytest] +exten => 200,1,Dial(SIP/200) +exten => 201,1,NoOp('No response') +exten => 201,2,Hangup() + +[demo] +exten => s,1,NoOp('hello') diff --git a/examples/new.conf b/examples/new.conf new file mode 100755 index 0000000..7369ddf --- /dev/null +++ b/examples/new.conf @@ -0,0 +1,20 @@ +type=friend +secret=123456 +[general] +useragent=hoowa +disallow=all +#include classsip.conf + +[usera] +type=friend;saying +secret=thisone +host=192.168.0.1;dynamic + +[trunka] +type=peer +host=192.168.0.1 + +#include branchsip.conf + +[gan] +allow=h263 diff --git a/examples/new_exten.conf b/examples/new_exten.conf new file mode 100755 index 0000000..b3ba1f9 --- /dev/null +++ b/examples/new_exten.conf @@ -0,0 +1,7 @@ + +[mytest] +exten => 200,1,Dial(SIP/200) +exten => 201,1,NoOp('No response') + +[demo] +exten => s,1,NoOp('hello') diff --git a/examples/sip.conf b/examples/sip.conf new file mode 100755 index 0000000..1cfbf94 --- /dev/null +++ b/examples/sip.conf @@ -0,0 +1,25 @@ +key=value + +thisis=>unsection + +[general] +useragent=hoowa +disallow=all +allow=g729 +allow=>g723 #comment +allow=ulaw +#include classsip.conf + +[usera] +type=friend;saying +secret=thisone +host=>dynamic + +[trunka] +type=friend +host=192.168.0.1 + +#include branchsip.conf + +[tempsection] +delete=me diff --git a/examples/test1.pl b/examples/test1.pl new file mode 100755 index 0000000..d8ec230 --- /dev/null +++ b/examples/test1.pl @@ -0,0 +1,10 @@ +#!/usr/bin/perl +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'sip.conf',keep_resource_array=>0); +if ($rc) { + print "true"; +} +print Dumper $rc; diff --git a/examples/test2.pl b/examples/test2.pl new file mode 100755 index 0000000..1476e66 --- /dev/null +++ b/examples/test2.pl @@ -0,0 +1,30 @@ +#!/usr/bin/perl +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'sip.conf'); + +$myfile = $rc->get_objvar('file'); +print $myfile; +print "\n\n"; + +$parsed = $rc->fetch_sections_hashref(); +print Dumper $parsed; +print "\n\n"; + +$section_list = $rc->fetch_sections_list(); +print Dumper $section_list; +print "\n\n"; + +$key_ref = $rc->fetch_keys_hashref(section=>'[unsection]'); +print Dumper $key_ref; +print "\n\n"; + +$key_list = $rc->fetch_keys_list(section=>'general'); +print Dumper $key_list; +print "\n\n"; + +$value_list = $rc->fetch_values_arrayref(section=>'general',key=>'useragent'); +print Dumper $value_list; +print "\n\n"; diff --git a/examples/test3.pl b/examples/test3.pl new file mode 100755 index 0000000..9c8169f --- /dev/null +++ b/examples/test3.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'sip.conf'); + +print $rc->fetch_sections_hashref(); +print "\n\n"; + +if ($rc->reload()) { + print "true reload\n\n"; +} + +print $rc->fetch_sections_hashref(); +print "\n\n"; diff --git a/examples/test4.pl b/examples/test4.pl new file mode 100755 index 0000000..bb6b1f3 --- /dev/null +++ b/examples/test4.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'sip.conf'); + +if (!$rc->set_objvar(mytest=>'test')) { + print "not found\n"; +} + +$rc->set_objvar(reload_when_save=>123467); + +print $rc->get_objvar('reload_when_save'); diff --git a/examples/test5.pl b/examples/test5.pl new file mode 100755 index 0000000..6de3eb7 --- /dev/null +++ b/examples/test5.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'sip.conf',keep_resource_array=>0); + +$rc->assign_matchreplace(match=>'host=>dynamic',replace=>'host=192.168.0.1;dynamic'); + +$rc->assign_replacesection(section=>'[unsection]',data=>['type=friend','secret=123456']); + +$rc->assign_delsection(section=>'tempsection'); + +$rc->assign_addsection(section=>'gan'); + +$rc->assign_append(point=>'down',section=>'gan',data=>'allow=h263'); + +$rc->assign_editkey(section=>'trunka',key=>'type',new_value=>'peer'); + +$rc->assign_delkey(section=>'general',key=>'allow'); + +#$rc->assign_cleanfile(); + +# new_file can save data to newfile +$rc->save_file(new_file=>'new.conf'); + diff --git a/examples/test6.pl b/examples/test6.pl new file mode 100755 index 0000000..c14d0ab --- /dev/null +++ b/examples/test6.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl -w +use Data::Dumper; +use lib '../lib'; +use Asterisk::config; + +my $rc = new Asterisk::config(file=>'exten.conf',keep_resource_array=>0); + +$rc->assign_delkey(section=>'mytest',key=>'exten',value_regexp=>'201',value=>'201,2,Hangup()'); + +# new_file can save data to newfile +$rc->save_file(new_file=>'new_exten.conf'); + -- cgit v1.2.3