xpp/dahdi_drivers


1
2
3
4
5
6
7
8
9

#! /usr/bin/perl -w
use strict;
use File::Basename;
BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/perl_modules"); }

use Dahdi::Hardware;

my $hardware = Dahdi::Hardware->scan;
print join("\n", $hardware->drivers),"\n";