summaryrefslogtreecommitdiffstats
path: root/ubuntu/raring/tdebase/debian/usermap.pl
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2013-03-28 14:13:18 -0500
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2013-03-28 14:13:18 -0500
commit4bc22e8b188aa26df8b1a23c39bb0f3c5b05b8b6 (patch)
treec6f53decaabed9678523a8bbd6a1000a9f3bf78f /ubuntu/raring/tdebase/debian/usermap.pl
parent211d261d7778de1d9a773e7ec43a4e97b4bd7e57 (diff)
downloadtde-packaging-4bc22e8b188aa26df8b1a23c39bb0f3c5b05b8b6.tar.gz
tde-packaging-4bc22e8b188aa26df8b1a23c39bb0f3c5b05b8b6.zip
Split raring packaging into new directory due to defoma changes
Diffstat (limited to 'ubuntu/raring/tdebase/debian/usermap.pl')
-rw-r--r--ubuntu/raring/tdebase/debian/usermap.pl59
1 files changed, 59 insertions, 0 deletions
diff --git a/ubuntu/raring/tdebase/debian/usermap.pl b/ubuntu/raring/tdebase/debian/usermap.pl
new file mode 100644
index 000000000..9c8c61f26
--- /dev/null
+++ b/ubuntu/raring/tdebase/debian/usermap.pl
@@ -0,0 +1,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";