diff options
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Chans.pm')
| -rw-r--r-- | xpp/utils/zconf/Zaptel/Chans.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/xpp/utils/zconf/Zaptel/Chans.pm b/xpp/utils/zconf/Zaptel/Chans.pm index c364dd5..f105a8c 100644 --- a/xpp/utils/zconf/Zaptel/Chans.pm +++ b/xpp/utils/zconf/Zaptel/Chans.pm @@ -39,6 +39,12 @@ sub new($$$$$$) { my $type; if($fqn =~ m|\bXPP_(\w+)/.*$|) { $type = $1; # One of our AB + } elsif ($fqn =~ m{\bFXS/.*}) { + $type = "FXS"; # likely Rhino + } elsif ($fqn =~ m{\bFXO/.*}) { + $type = "FXO"; # likely Rhino + } elsif ($fqn =~ m{\b---/.*}) { + $type = "EMPTY"; # likely Rhino, empty slot. } elsif ($fqn =~ m{\b(TE[24]|WCT1|Tor2|TorISA|WP[TE]1|cwain[12])/.*}) { # TE[24]: Digium wct4xxp # WCT1: Digium single span card drivers? @@ -74,7 +80,7 @@ sub probe_type($) { my $num = $self->num; my $type; - if($fqn =~ m:WCTDM/|\ WRTDM/|OPVXA1200/:) { + if($fqn =~ m:WCTDM/| WRTDM/|OPVXA1200/:) { my %maybe; undef %maybe; @@ -89,6 +95,8 @@ sub probe_type($) { $type = 'FXS'; } elsif($maybe{fxs}) { $type = 'FXO'; + } else { + $type = 'EMPTY'; } } else { $type = $self->type; |