222 lines
6.6 KiB
Perl
222 lines
6.6 KiB
Perl
package Dahdi::Hardware::USB;
|
|
#
|
|
# Written by Oron Peled <oron@actcom.co.il>
|
|
# Copyright (C) 2007, Xorcom
|
|
# This program is free software; you can redistribute and/or
|
|
# modify it under the same terms as Perl itself.
|
|
#
|
|
# $Id$
|
|
#
|
|
use strict;
|
|
use Dahdi::Utils;
|
|
use Dahdi::Hardware;
|
|
use Dahdi::Xpp::Mpp;
|
|
|
|
our @ISA = qw(Dahdi::Hardware);
|
|
|
|
my %usb_ids = (
|
|
# from wcusb
|
|
'06e6:831c' => { DRIVER => 'wcusb', DESCRIPTION => 'Wildcard S100U USB FXS Interface' },
|
|
'06e6:831e' => { DRIVER => 'wcusb2', DESCRIPTION => 'Wildcard S110U USB FXS Interface' },
|
|
'06e6:b210' => { DRIVER => 'wc_usb_phone', DESCRIPTION => 'Wildcard Phone Test driver' },
|
|
|
|
# from xpp_usb
|
|
'e4e4:1130' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-8/16 no-firmware' },
|
|
'e4e4:1131' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-8/16 USB-firmware' },
|
|
'e4e4:1132' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-8/16 FPGA-firmware' },
|
|
'e4e4:1140' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-BRI no-firmware' },
|
|
'e4e4:1141' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-BRI USB-firmware' },
|
|
'e4e4:1142' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-BRI FPGA-firmware' },
|
|
'e4e4:1150' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-multi no-firmware' },
|
|
'e4e4:1151' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-multi USB-firmware' },
|
|
'e4e4:1152' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-multi FPGA-firmware' },
|
|
'e4e4:1160' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-modular no-firmware' },
|
|
'e4e4:1161' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-modular USB-firmware' },
|
|
'e4e4:1162' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-modular FPGA-firmware' },
|
|
'e4e4:1163' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-TwinStar monitor' },
|
|
'e4e4:1164' => { DRIVER => 'xpp_usb', DESCRIPTION => 'Astribank-EEPROM burner' },
|
|
|
|
# Sangoma USB FXO:
|
|
'10c4:8461' => { DRIVER => 'wanpipe', DESCRIPTION => 'Sangoma WANPIPE USB-FXO Device' },
|
|
);
|
|
|
|
|
|
$ENV{PATH} .= ":/usr/sbin:/sbin:/usr/bin:/bin";
|
|
|
|
sub usb_sorter() {
|
|
return $a->hardware_name cmp $b->hardware_name;
|
|
}
|
|
|
|
sub mpp_addinfo($) {
|
|
my $self = shift || die;
|
|
|
|
my $mppinfo = Dahdi::Xpp::Mpp->new($self);
|
|
$self->{MPPINFO} = $mppinfo if defined $mppinfo;
|
|
}
|
|
|
|
sub new($@) {
|
|
my $pack = shift or die "Wasn't called as a class method\n";
|
|
my %attr = @_;
|
|
my $name = sprintf("usb:%s", $attr{PRIV_DEVICE_NAME});
|
|
my $self = Dahdi::Hardware->new($name, 'USB');
|
|
%{$self} = (%{$self}, %attr);
|
|
bless $self, $pack;
|
|
return $self;
|
|
}
|
|
|
|
sub readval($) {
|
|
my $fname = shift || warn;
|
|
open(F, $fname) || warn "Failed opening '$fname': $!";
|
|
my $val = <F>;
|
|
close F;
|
|
chomp $val;
|
|
warn "$fname is empty" unless defined $val and $val;
|
|
return $val;
|
|
}
|
|
|
|
sub set_transport($$) {
|
|
my $pack = shift || die;
|
|
my $xbus = shift || die;
|
|
my $xbus_dir = shift;
|
|
my $transportdir = "$xbus_dir/transport";
|
|
if(! -e "$transportdir/ep_00") {
|
|
warn "A trasnport in '$transportdir' is not USB";
|
|
return undef;
|
|
}
|
|
my ($usbdev) = glob("$transportdir/usb_device:*");
|
|
my $busnum;
|
|
my $devnum;
|
|
# Different kernels...
|
|
if(defined $usbdev) { # It's USB
|
|
if($usbdev =~ /.*usb_device:usbdev(\d+)\.(\d+)/) {
|
|
$busnum = $1;
|
|
$devnum = $2;
|
|
} else {
|
|
warn "Bad USB transportdir='$transportdir' usbdev='$usbdev'\n";
|
|
}
|
|
} elsif(-f "$transportdir/idVendor" ) {
|
|
my $transport_link = readlink($transportdir);
|
|
$transport_link =~ m|/(\d+)-[\d.]+$|;
|
|
$busnum = $1;
|
|
$devnum = readval("$transportdir/devnum");
|
|
}
|
|
my $usbname = sprintf("%03d/%03d", $busnum, $devnum);
|
|
#printf STDERR "DEBUG: %03d/%03d\n", $busnum, $devnum;
|
|
$xbus->{USB_DEVNAME} = $usbname;
|
|
my $hwdev = Dahdi::Hardware->device_by_hwname("usb:$usbname");
|
|
if(defined $hwdev) {
|
|
#print "set_transport: ", $hwdev, "\n";
|
|
$xbus->{TRANSPORT} = $hwdev;
|
|
$hwdev->{XBUS} = $xbus;
|
|
$hwdev->{LOADED} = 'xpp_usb';
|
|
$xbus->{IS_TWINSTAR} = $hwdev->is_twinstar;
|
|
}
|
|
return $hwdev;
|
|
}
|
|
|
|
sub _get_attr($) {
|
|
my $attr_file = shift;
|
|
|
|
open(ATTR, $attr_file) or die "Failed to read SysFS attribute $attr_file\n";
|
|
my $value = <ATTR>;
|
|
chomp $value;
|
|
return $value;
|
|
}
|
|
|
|
sub _get_attr_optional($$) {
|
|
my ($attr_file, $def_val) = @_;
|
|
|
|
eval {return _get_attr($attr_file)};
|
|
|
|
# If we got here, _get_attr exploded. Return the default value:
|
|
return $def_val;
|
|
}
|
|
|
|
sub scan_devices_sysfs($) {
|
|
my $pack = shift || die;
|
|
my @devices = ();
|
|
|
|
while (<$Dahdi::sys_base/bus/usb/devices/*-*>) {
|
|
next unless -r "$_/idVendor"; # endpoints
|
|
|
|
# Older kernels, e.g. 2.6.9, don't have the attribute
|
|
# busnum:
|
|
m|/((\d+)-[\d.]+)$|;
|
|
my $busnum = $2 || next;
|
|
my $dev_sys_name = $1;
|
|
my $vendor = _get_attr("$_/idVendor");
|
|
my $product = _get_attr("$_/idProduct");
|
|
my $model = $usb_ids{"$vendor:$product"};
|
|
next unless defined $model;
|
|
my $devnum = _get_attr("$_/devnum");
|
|
my $serial = _get_attr_optional("$_/serial", '');
|
|
my $devname = sprintf("%03d/%03d", $busnum, $devnum);
|
|
# Get driver for first interface of the device:
|
|
my $iface = "$_/$dev_sys_name:1.0";
|
|
my $loaded = readlink("$iface/driver");
|
|
if (defined $loaded) {
|
|
$loaded =~ s|.*/||;
|
|
}
|
|
my $d = Dahdi::Hardware::USB->new(
|
|
IS_ASTRIBANK => ($model->{DRIVER} eq 'xpp_usb')?1:0,
|
|
PRIV_DEVICE_NAME => $devname,
|
|
VENDOR => $vendor,
|
|
PRODUCT => $product,
|
|
SERIAL => $serial,
|
|
DESCRIPTION => $model->{DESCRIPTION},
|
|
DRIVER => $model->{DRIVER},
|
|
LOADED => $loaded,
|
|
);
|
|
push(@devices, $d);
|
|
}
|
|
return @devices;
|
|
}
|
|
|
|
sub scan_devices($) {
|
|
my $pack = shift || die;
|
|
my $usb_device_list = "$Dahdi::proc_usb_base/devices";
|
|
return $pack->scan_devices_sysfs() unless (-r $usb_device_list);
|
|
|
|
my @devices;
|
|
open(F, $usb_device_list) || die "Failed to open $usb_device_list: $!";
|
|
local $/ = '';
|
|
while(<F>) {
|
|
my @lines = split(/\n/);
|
|
my ($tline) = grep(/^T/, @lines);
|
|
my ($pline) = grep(/^P/, @lines);
|
|
my ($dline) = grep(/^I/, @lines);
|
|
my ($sline) = grep(/^S:.*SerialNumber=/, @lines);
|
|
my ($busnum,$devnum) = ($tline =~ /Bus=(\w+)\W.*Dev#=\s*(\w+)\W/);
|
|
my $devname = sprintf("%03d/%03d", $busnum, $devnum);
|
|
my ($vendor,$product) = ($pline =~ /Vendor=(\w+)\W.*ProdID=(\w+)\W/);
|
|
my $serial;
|
|
if(defined $sline) {
|
|
$sline =~ /SerialNumber=(.*)/;
|
|
$serial = $1;
|
|
#$serial =~ s/[[:^print:]]/_/g;
|
|
}
|
|
my $loaded;
|
|
if ($dline =~ /Driver=(\w+)/) {
|
|
$loaded = $1;
|
|
}
|
|
my $model = $usb_ids{"$vendor:$product"};
|
|
next unless defined $model;
|
|
my $d = Dahdi::Hardware::USB->new(
|
|
IS_ASTRIBANK => ($model->{DRIVER} eq 'xpp_usb')?1:0,
|
|
PRIV_DEVICE_NAME => $devname,
|
|
VENDOR => $vendor,
|
|
PRODUCT => $product,
|
|
SERIAL => $serial,
|
|
DESCRIPTION => $model->{DESCRIPTION},
|
|
DRIVER => $model->{DRIVER},
|
|
LOADED => $loaded,
|
|
);
|
|
push(@devices, $d);
|
|
}
|
|
close F;
|
|
@devices = sort usb_sorter @devices;
|
|
return @devices;
|
|
}
|
|
|
|
1;
|