blob: 1b73d5bc3ae7e861bbe23089eda195dbc975d178 (
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
|
package Zaptel;
#
# 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;
use Zaptel::Span;
=head1 NAME
Zaptel - Perl interface to Zaptel information
This package allows access from Perl to information about Zaptel
hardware and loaded Zaptel devices.
=head1 SYNOPSIS
# Listing channels in analog spans:
use Zaptel;
# scans system:
my @spans = Zaptel::spans();
for my $span (@spans) {
next if ($span->is_digital);
$span->num. " - [". $span->type ."] ". $span->name. "\n";
for my $chan ($span->chans) {
print " - ".$chan->num . " - [". $chan->type. "] ". $chan->fqn". \n";
}
}
=cut
my $proc_base = "/proc/zaptel";
=head1 spans()
Returns a list of span objects, ordered by span number.
=cut
sub spans() {
my @spans;
-d $proc_base or return ();
foreach my $zfile (glob "$proc_base/*") {
$zfile =~ s:$proc_base/::;
my $span = Zaptel::Span->new($zfile);
push(@spans, $span);
}
@spans = sort { $a->num <=> $b->num } @spans;
return @spans;
}
=head1 SEE ALSO
Span objects: L<Zaptel::Span>.
Zaptel channels objects: L<Zaptel::Chan>.
Zaptel hardware devices information: L<Zaptel::Hardware>.
Xorcom Astribank -specific information: L<Zaptel::Xpp>.
=cut
1;
|