blob: 3717e72637c15a9b551013a243c2bb4ffc0d5c9c (
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
|
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;
my $proc_base = "/proc/zaptel";
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);
}
return sort { $a->num <=> $b->num } @spans;
}
1;
|