examples/test4.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
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');