blob: eef922f84211f745052e657b61d37ea2fca3cb07 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
package Zaptel::Chans;
#
# Written by Oron Peled <oron@actcom.co.il>
# Copyright (C) 2007, Xorcom
# This program is free software; you can redistribute and/or
# modify it under the same terms as Perl itself.
#
# $Id$
#
use strict;
# Accessors (miniperl does not have Class:Accessor)
our $AUTOLOAD;
sub AUTOLOAD {
my $self = shift;
my $name = uc($AUTOLOAD);
$name =~ s/.*://; # strip fully-qualified portion
if (@_) {
return $self->{$name} = shift;
} else {
return $self->{$name};
}
}
sub new($$$$$$) {
my $pack = shift or die "Wasn't called as a class method\n";
my $span = shift or die "Missing a span parameter\n";
my $num = shift or die "Missing a channel number parameter\n";
my $fqn = shift or die "Missing a channel fqn parameter\n";
my $signalling = shift || '';
my $info = shift || '';
my $self = {};
bless $self, $pack;
$self->span($span);
$self->num($num);
$self->fqn($fqn);
$self->signalling($signalling);
$self->info($info);
my $type;
if($fqn =~ m|\bXPP_(\w+)/.*$|) {
$type = $1; # One of our AB
} elsif(defined $signalling) {
$type = 'FXS' if $signalling =~ /^FXS/;
$type = 'FXO' if $signalling =~ /^FXO/;
} else {
$type = undef;
}
$self->type($type);
return $self;
}
my $ztcfg = $ENV{ZTCFG} || '/sbin/ztcfg';
sub probe_type($) {
my $self = shift;
my $fqn = $self->fqn;
my $num = $self->num;
my $type;
if($fqn =~ m:WCTDM/|\ WRTDM/|OPVXA1200/:) {
my %maybe;
undef %maybe;
foreach my $sig (qw(fxo fxs)) {
my $cmd = "echo ${sig}ks=$num | $ztcfg -c /dev/fd/0";
$maybe{$sig} = system("$cmd >/dev/null 2>&1") == 0;
}
if($maybe{fxo} and $maybe{fxs}) {
$type = 'EMPTY';
} elsif($maybe{fxo}) {
$type = 'FXS';
} elsif($maybe{fxs}) {
$type = 'FXO';
}
} else {
$type = $self->type;
}
return $type;
}
1;
|