diff options
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Hardware/USB.pm')
-rw-r--r-- | xpp/utils/zconf/Zaptel/Hardware/USB.pm | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/xpp/utils/zconf/Zaptel/Hardware/USB.pm b/xpp/utils/zconf/Zaptel/Hardware/USB.pm new file mode 100644 index 0000000..bbf00fe --- /dev/null +++ b/xpp/utils/zconf/Zaptel/Hardware/USB.pm @@ -0,0 +1,108 @@ +package Zaptel::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 Zaptel::Hardware; +use Zaptel::Xpp; +use Zaptel::Xpp::Xbus; + +my @idlist = qw( + e4e4:1130 + e4e4:1131 + e4e4:1132 + e4e4:1140 + e4e4:1141 + e4e4:1142 + e4e4:1150 + e4e4:1151 + e4e4:1152 + ); + + +$ENV{PATH} .= ":/usr/sbin:/sbin:/usr/bin:/bin"; +my $prog = 'lsusb'; + +# Accessors (miniperl does not have Class:Accessor) +our $AUTOLOAD; +sub AUTOLOAD { + my $self = shift; + my $name = uc($AUTOLOAD); + $name =~ s/.*://; # strip fully-qualified portion + if (@_) { + return $self->{$name} = shift; + } else { + return $self->{$name}; + } +} + +my @devices; +my @xbuses = Zaptel::Xpp::xbuses('SORT_CONNECTOR'); + +sub usb_sorter() { + return + sprintf("%03d/%03d", $a->bus, $a->dev) cmp + sprintf("%03d/%03d", $b->bus, $b->dev); +} + +sub xbus_of_usb($$) { + my $bus = shift; + my $dev = shift; + + my ($wanted) = grep { + my $b = $_->usb_bus; + my $d = $_->usb_dev; + defined($b) && $b == $bus && + defined($d) && $d == $dev + } @xbuses; + return $wanted; +} + +sub new($$) { + my $pack = shift or die "Wasn't called as a class method\n"; + my $self = { @_ }; + bless $self, $pack; + my $xbus = xbus_of_usb($self->bus, $self->dev); + if(defined $xbus) { + $self->{XBUS} = $xbus; + $self->{DRIVER} = 'xpp_usb'; + } + my $hardware_name = sprintf("usb:%03d/%03d", $self->{BUS}, $self->{DEV}); + $self->{HARDWARE_NAME} = $hardware_name; + Zaptel::Hardware::device_detected($self, $hardware_name); + return $self; +} + +sub devices($) { + my $pack = shift or die "Wasn't called as a class method\n"; + return sort usb_sorter @devices; +} + +sub scan_devices($) { + my $pack = shift || die; + open(F, "$prog|") || die "$0: Failed running $prog: $!"; + while(<F>) { + chomp; + my ($bus,$dev,$id) = (split(/\s+/))[1,3,5]; + $dev =~ s/://; + $bus =~ s/^0*//; + $dev =~ s/^0*//; + next unless grep { lc($id) eq $_ } @idlist; + my($vendor,$product) = split(/:/, $id); + my $d = Zaptel::Hardware::USB->new( + BUS => $bus, + DEV => $dev, + VENDOR => $vendor, + PRODUCT => $product, + ); + push(@devices, $d); + } + close F; +} + +1; |