4 supp () { s="$s --redaction $* --suppress"; }
12 supp 0xffbc 88 0xffbc 00
18 evdevs="$(perl </proc/bus/input/devices -ne '
20 if ($v{"N: Name"} eq "\"MLK Ebuyer 2.4GHz\"" and
21 $v{"S: Sysfs"} =~ m,^/class/input/input\d+$, and
22 $v{"H: Handlers"} =~ m,\b(event\d+)\b,) {
23 print "--evdev /dev/input/$1\n" or die $!;
25 #print STDERR "$v{\"N: Name\"}|$v{\"P: Phys\"}|$v{\"S: Sysfs\"}<\n";
29 m/^(\w+\: \w+)\=(.*)$/ or die;
33 evdev-manip --redact $s "$@" $evdevs --hiddev /dev/hiddev0