summaryrefslogtreecommitdiffstats
path: root/ubuntu/raring/tdebase/debian/usermap.pl
blob: 9c8c61f2640d0cc6ebf253b62d5114eb4ee50adb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/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";