summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-02 19:26:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-02 19:26:34 +0000
commit65693d70b34cb6c9983253d3eba5a345587f04a4 (patch)
tree07ee895a16bab3697096fedd5312c9360aa16ccc /perl-install/detect_devices.pm
parentcea0dde9a2c5b0c5f69ed4ebb9ed2a0e1e6bfbd8 (diff)
downloaddrakx-65693d70b34cb6c9983253d3eba5a345587f04a4.tar
drakx-65693d70b34cb6c9983253d3eba5a345587f04a4.tar.gz
drakx-65693d70b34cb6c9983253d3eba5a345587f04a4.tar.bz2
drakx-65693d70b34cb6c9983253d3eba5a345587f04a4.tar.xz
drakx-65693d70b34cb6c9983253d3eba5a345587f04a4.zip
move whatParport() to printer::detect
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm21
1 files changed, 0 insertions, 21 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 4d77e06ef..62e03e87d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -565,27 +565,6 @@ sub isLaptop {
matching_desc('ATI.*(Mobility|LT)'));
}
-sub whatParport() {
- my @res;
- foreach (0..3) {
- my $elem = {};
- my $F;
- open $F, "/proc/parport/$_/autoprobe" or open $F, "/proc/sys/dev/parport/parport$_/autoprobe" or next;
- {
- local $_;
- while (<$F>) {
- if (/(.*):(.*);/) { #-#
- $elem->{$1} = $2;
- $elem->{$1} =~ s/Hewlett[-\s_]Packard/HP/;
- $elem->{$1} =~ s/HEWLETT[-\s_]PACKARD/HP/;
- }
- }
- }
- push @res, { port => "/dev/lp$_", val => $elem };
- }
- @res;
-}
-
sub usbMice { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ ||
$_->{driver} =~ /Mouse:USB/ } usb_probe() }
sub usbWacom { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() }