diff options
Diffstat (limited to 'xpp/utils/zaptel_hardware')
-rwxr-xr-x | xpp/utils/zaptel_hardware | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/xpp/utils/zaptel_hardware b/xpp/utils/zaptel_hardware index 26aa839..049c1e8 100755 --- a/xpp/utils/zaptel_hardware +++ b/xpp/utils/zaptel_hardware @@ -8,7 +8,8 @@ # $Id:$ # use strict; -BEGIN { my $dir = $0; $dir =~ s:/[^/]+$::; unshift(@INC, "$dir", "$dir/zconf"); } +use File::Basename; +BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); } use Zaptel; use Zaptel::Span; @@ -22,6 +23,8 @@ sub usage { @ARGV == 0 or usage; +Zaptel::Hardware->scan_hardware; + my @hardware = Zaptel::Hardware->devices; my @spans = Zaptel::spans; |