From a81c4a6978fec1e9c7079d4a9a8d7e82354e4dda Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Sun, 23 Oct 2011 14:23:17 +0000 Subject: chandahdi gen: extens can have any num of digits Don't force extens we generate to have exactly 4 digits (simple formatting limitation). Signed-off-by: Tzafrir Cohen git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@10265 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm index 7ade82a..252b91e 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm @@ -168,7 +168,7 @@ sub gen_channel($$) { die "missing context for chan #$num type $type" unless $context; $callerid = ($type eq 'FXO') ? 'asreceived' - : sprintf "\"Channel %d\" <%04d>", $num, $exten; + : sprintf "\"Channel %d\" <%d>", $num, $exten; if($type eq 'IN') { $immediate = 'yes'; } @@ -182,7 +182,7 @@ sub gen_channel($$) { printf ";;; line=\"%d %s%s%s\"\n", $num, $chan->fqn, $signalling, $info; printf "signalling=$sig\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) { printf "group=$group\n"; } -- cgit v1.2.3