XPP utilities rename: first moves.

git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@4415 a0bf4364-ded3-4de4-8d8a-66a801d63aff

1 files changed, 9 insertions, 0 deletions

diff --git a/xpp/dahdi_drivers b/xpp/dahdi_drivers
new file mode 100755
index 0000000..d7904c0
--- /dev/null
+++ b/xpp/dahdi_drivers
@@ -0,0 +1,9 @@
+#! /usr/bin/perl -w
+use strict;
+use File::Basename;
+BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); }
+
+use Zaptel::Hardware;
+
+my $hardware = Zaptel::Hardware->scan;
+print join("\n", $hardware->drivers),"\n";