You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tde-packaging/ubuntu/lucid_automake/kdebase/debian/usermap.pl

60 lines
1.9 KiB

#!/usr/bin/perl
# Copyright (C) 2005 Mandriva
# Olivier Blin
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
my %flags = (
idVendor => 0x0001,
idProduct => 0x0002,
);
sub parse_usermap_line {
local $_ = shift;
/^#/ and next;
my %match;
@match{module, match_flags, idVendor, idProduct} =
/^(\S+)\s+0x(\w{2,})\s+0x(\w{2,})\s+0x(\w{2,})\s+0x(\w{2,})\s+0x(\w{2,})\s+0x(\w{2})\s+0x(\w{2})\s+0x(\w{2})\s+0x(\w{2})\s+0x(\w{2})\s+0x(\w{2})(?:\s+0x(\w{2,}))?/
or die qq(unable to parse line "$_");
$match{match_flags} = hex($match{match_flags});
$match{driver_info} ||= 0;
my @rule;
while (my ($key, $flag) = each(%flags)) {
hex($match{match_flags}) & $flag and push @rule, qq(SYSFS{$key}=="$match{$key}",);
}
push @rule,
(
qq(MODE="660",),
);
push @rule,
(
qq(GROUP="plugdev"),
);
print join(' ', @rule) . "\n";
}
print "BUS!=\"usb\", GOTO=\"kcontrol_rules_end\"\n";
print "ACTION!=\"add\"\, GOTO=\"kcontrol_rules_end\"\n";
print "SUBSYSTEM!=\"usb_device\"\, GOTO=\"kcontrol_rules_end\"\n\n";
foreach my $usermap (@ARGV) {
open(my $IN, $usermap . (-x $usermap && "|")) or die "unable to open usermap $usermap";
parse_usermap_line($_) foreach <$IN>;
}
print "\nLABEL=\"kcontrol_rules_end\"\n";