diff options
Diffstat (limited to 'xpp/perl_modules/Zaptel.pm')
-rw-r--r-- | xpp/perl_modules/Zaptel.pm | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/xpp/perl_modules/Zaptel.pm b/xpp/perl_modules/Zaptel.pm deleted file mode 100644 index ef36bae..0000000 --- a/xpp/perl_modules/Zaptel.pm +++ /dev/null @@ -1,68 +0,0 @@ -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 @xbuses = 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/dahdi"; - -=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; |