ids-update.pl revision c35ddc5b69ef1911de39933329eda0b569cae4b9
5f5d1b4cc970b7f06ff8ef6526128e9a27303d88nduse warnings;
d5d794fc2f4cc9ca6d6da17cfa2cdcd8d244bacdnd "# Data imported and updated from: http://www.linux-usb.org/usb.ids\n");
d5d794fc2f4cc9ca6d6da17cfa2cdcd8d244bacdnd $line =~ s/\s+$//;
d5d794fc2f4cc9ca6d6da17cfa2cdcd8d244bacdnd if (defined $1) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz if (defined $1) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz print(OUT "usb:v" . $vendor . "p" . $product . "*\n");
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz print(OUT " ID_PRODUCT_FROM_DATABASE=" . $text . "\n");
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz "# Data imported and updated from: http://www.linux-usb.org/usb.ids\n");
43d99bfb458baee0a702c56a4ef4200e75c4dbb8yoshiki $line =~ s/\s+$//;
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz if (defined $1) {
35ffb30f57f777dbf3f17c5a5ddf706559942c16nd print(OUT " ID_USB_CLASS_FROM_DATABASE=" . $text . "\n");
35ffb30f57f777dbf3f17c5a5ddf706559942c16nd if (not defined $class) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz } elsif ($line =~ m/^$/) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz if (defined $1) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz print(OUT "usb:v*p*d*dc" . $class . "dsc" . $subclass . "*\n");
35ffb30f57f777dbf3f17c5a5ddf706559942c16nd print(OUT " ID_USB_SUBCLASS_FROM_DATABASE=" . $text . "\n");
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz if (defined $1) {
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz print(OUT "usb:v*p*d*dc" . $class . "dsc" . $subclass . "dp" . $protocol . "*\n");
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz print(OUT " ID_USB_PROTOCOL_FROM_DATABASE=" . $text . "\n");
d423a2cc6aa6f80d8783f1211a86c4140dc86ca0yoshiki "# Data imported and updated from: http://pci-ids.ucw.cz/v2.2/pci.ids\n");
f43ed9051a7f4db461d67ed4f7ece175b3dbca7cjerenkrantz $line =~ s/\s+$//;
print(OUT "pci:v0000" . $vendor . "d0000" . $device . "sv0000" . $sub_vendor . "sd0000" . $sub_device . "*\n");
close(INP);
close(OUTP);
sub pci_classes {
my $class;
my $subclass;
my $interface;
"# Data imported and updated from: http://pci-ids.ucw.cz/v2.2/pci.ids\n");
$line =~ s/\s+$//;
if (not defined $class) {
} elsif ($line =~ m/^$/) {
close(INP);
close(OUTP);
sub oui {
"# Data imported and updated from: http://standards.ieee.org/develop/regauth/oui/oui.txt\n");
$line =~ s/\s+$//;
close(INP);
close(OUTP);
usb_vendor();
usb_classes();
pci_vendor();
pci_classes();
oui();