blob: 6de3eb760d561d6732e414bc3684780be41d5c5b (
plain)
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
|
#!/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');
|