i386/linux/linux-2.3.21/drivers/usb/procusb

   1 #!/usr/bin/perl
   2
   3 # Reads /proc/bus/usb/devices and selectively lists and/or
   4 # interprets it.
   5
   6 $DEVFILENAME = "/proc/bus/usb/devices";
   7 $PROGNAME = $0;
   8
   9 $TAGS = $ARGV[0];               # save user TAGS
  10 if (length ($TAGS) == 0)
  11 {
  12         print "usage: $PROGNAME tags\n";
  13         print "  where 'tags' can be any number of 'TDPCIE' or 'A(LL)'\n";
  14         exit 1;
  15 }
  16
  17 $ALL = ($TAGS =~ /all/i) || ($TAGS =~ /a/i);
  18
  19 # TBD: Check that $TAGS is valid.
  20 if (! $ALL)
  21 {
  22 }
  23
  24 if (! open (DEVNUM, "<$DEVFILENAME"))
  25 {
  26         print "$PROGNAME: cannot open '$DEVFILENAME'\n";
  27         exit 1;
  28 }
  29
  30 while ($line = <DEVNUM>)        # read a text line from DEVNUM
  31 {
  32         if (($ALL) || ($line =~ /^[$TAGS]:/i))  # any of TAGS at beg. of line?
  33         {
  34                 print "$line";  # still has newline char on it
  35                                 # TBD: add more/paging functionality.
  36         }
  37 } # end while DEVNUM
  38
  39 close (DEVNUM);
  40
  41 # END.