Importing Asterisk::config 0.96 from tarball

10 files changed, 168 insertions, 0 deletions

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');
+