24 lines
464 B
Plaintext
24 lines
464 B
Plaintext
|
#! /usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use File::Basename;
|
||
|
|
BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/perl_modules"); }
|
||
|
|
|
||
|
|
use Dahdi::Hardware;
|
||
|
|
|
||
|
|
my @drivers = Dahdi::Hardware->drivers;
|
||
|
|
print join("\n", @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.
|