blob: 857324e3dcfa9f99c5a83ad67213f38784bcfd0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#! /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";
__END__
=head1 NAME
dahdi_drivers - Show drivers required for installed dahdi devices.
=head1 SYNOPSIS
dahdi_drivers
=head1 DESCRIPTION
This script shows by default the list of drivers required for currently
installed dahdi devices.
|