diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-10-23 14:23:17 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-10-23 14:23:17 +0000 |
| commit | a81c4a6978fec1e9c7079d4a9a8d7e82354e4dda (patch) | |
| tree | ea3e2ec5bb0bd0bbce08be3737d9908534a2b828 | |
| parent | 9f5796e0fb591b6e9642f17d909985a5102c7029 (diff) | |
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 <tzafrir.cohen@xorcom.com>
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@10265 a0bf4364-ded3-4de4-8d8a-66a801d63aff
| -rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm | 4 |
1 files 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"; } |