FGCOM/dahdi-tools
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

chandahdi gen: extens can have any num of digits

Browse Source 
Don't force extens we generate to have exactly 4 digits (simple
formatting limitation).

Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com>

git-svn-id: http://svn.astersk.org/svn/dahdi/tools/trunk@10265 17933a7a-c749-41c5-a318-cba88f637d49
This commit is contained in:
Tzafrir Cohen 2011-10-23 14:23:17 +00:00
parent 1e21cb1356
commit 5efd590aef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm
View File

@ -168,7 +168,7 @@ sub gen_channel($$) {
die "missing context for chan #$num type $type" unless $context; die "missing context for chan #$num type $type" unless $context;
$callerid = ($type eq 'FXO') $callerid = ($type eq 'FXO')
? 'asreceived' ? 'asreceived'
: sprintf "\"Channel %d\" <%04d>", $num, $exten; : sprintf "\"Channel %d\" <%d>", $num, $exten;
if($type eq 'IN') { if($type eq 'IN') {
$immediate = 'yes'; $immediate = 'yes';
} }
@ -182,7 +182,7 @@ sub gen_channel($$) {
printf ";;; line=\"%d %s%s%s\"\n", $num, $chan->fqn, $signalling, $info; printf ";;; line=\"%d %s%s%s\"\n", $num, $chan->fqn, $signalling, $info;
printf "signalling=$sig\n"; printf "signalling=$sig\n";
printf "callerid=$callerid\n"; printf "callerid=$callerid\n";
printf "mailbox=%04d\n", $exten unless $type eq 'FXO'; printf "mailbox=%d\n", $exten unless $type eq 'FXO';
if(defined $group) { if(defined $group) {
printf "group=$group\n"; printf "group=$group\n";
} }