summaryrefslogtreecommitdiffstats
path: root/ubuntu/lucid_automake/kdebase/debian/usermap.pl
diff options
context:
space:
mode:
Diffstat (limited to 'ubuntu/lucid_automake/kdebase/debian/usermap.pl')
-rw-r--r--ubuntu/lucid_automake/kdebase/debian/usermap.pl59
1 files changed, 0 insertions, 59 deletions
diff --git a/ubuntu/lucid_automake/kdebase/debian/usermap.pl b/ubuntu/lucid_automake/kdebase/debian/usermap.pl
deleted file mode 100644
index 9c8c61f26..000000000
--- a/ubuntu/lucid_automake/kdebase/debian/usermap.pl
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/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";