diff options
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Span.pm')
| -rw-r--r-- | xpp/utils/zconf/Zaptel/Span.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/xpp/utils/zconf/Zaptel/Span.pm b/xpp/utils/zconf/Zaptel/Span.pm index c020d2f..8496910 100644 --- a/xpp/utils/zconf/Zaptel/Span.pm +++ b/xpp/utils/zconf/Zaptel/Span.pm @@ -69,14 +69,16 @@ sub new($$) { die "$0: Unkown TERMTYPE [NT/TE]\n" if $self->is_bri and !defined $self->{TERMTYPE}; ($self->{NAME}, $self->{DESCRIPTION}) = (split(/\s+/, $head, 4))[2, 3]; + $self->{IS_ZAPTEL_SYNC_MASTER} = + ($self->{DESCRIPTION} =~ /\(MASTER\)/) ? 1 : 0; $self->{CHANS} = []; while(<F>) { chomp; s/^\s*//; s/\s*$//; next unless /\S/; - my ($chan, $name, $info) = split(/\s+/, $_, 3); - my $c = Zaptel::Chans->new($self, $chan, $name, $info); + my ($chan, $name, $signalling, $info) = split(/\s+/, $_, 4); + my $c = Zaptel::Chans->new($self, $chan, $name, $signalling, $info); push(@{$self->{CHANS}}, $c); } close F; |