diff options
author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-03-02 18:07:37 +0000 |
---|---|---|
committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2010-03-02 18:07:37 +0000 |
commit | ee0e06c99e2cf44c23984e84b592ff82af68b19b (patch) | |
tree | e3c8fc7310253671fcc7d1b77a4b308013da72dd /xpp/lsdahdi | |
parent | ff09b1ff474333d8f7e51a8f4ef84a2f9cd9e395 (diff) |
DAHDI-perl: allow setting base of system files with DAHDI_VIRT_TOP
If the user set DAHDI_VIRT_TOP in the environment, consider it as a path
under which to look for ProcFS and SysFS files. This allows running the
DAHDI-perl tools on filesystem dumps generated by
build_tools/dump_sys_state .
To reduce the number of dependencies between various modules, the 'xpd'
member of a Dahdi::Span is removed. Dahdi::Xpp::xpd_of_span() can be
used if needed.
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@8215 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/lsdahdi')
-rwxr-xr-x | xpp/lsdahdi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xpp/lsdahdi b/xpp/lsdahdi index 1298c3e..e4d473c 100755 --- a/xpp/lsdahdi +++ b/xpp/lsdahdi @@ -22,7 +22,7 @@ my @xpds = map { $_->xpds } @xbuses; foreach my $span (Dahdi::spans()) { my $spanno = $span->num; - my $xpd = $span->xpd; + my $xpd = Dahdi::Xpp::xpd_of_span($span); my @lines; my $index = 0; |