xpp/utils/zaptel_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/zconf"); }

use Zaptel::Hardware;

Zaptel::Hardware->scan_hardware();
print join("\n", Zaptel::Hardware->drivers),"\n";