From 5efd590aef98165182da647321b81376dbf536f8 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Sun, 23 Oct 2011 14:23:17 +0000 Subject: [PATCH] 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.astersk.org/svn/dahdi/tools/trunk@10265 17933a7a-c749-41c5-a318-cba88f637d49 --- 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"; }