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";