summaryrefslogtreecommitdiffstats
path: root/perl-install/unused/cdrom.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/unused/cdrom.pm')
-rw-r--r--perl-install/unused/cdrom.pm41
1 files changed, 0 insertions, 41 deletions
diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm
deleted file mode 100644
index 040ac7e98..000000000
--- a/perl-install/unused/cdrom.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-package cdrom; # $Id$
-
-use diagnostics;
-use strict;
-
-use detect_devices;
-
-
-my %transTable = ( cm206 => 'cm206cd', sonycd535 => 'cdu535');
-
-1;
-
-
-sub setupCDdevicePanel {
- my ($type) = @_;
-}
-
-sub findAtapi {
- my $ide = ideGetDevices();
- foreach (@$ide) { $_->{type} eq 'cdrom' and return $_->{device} }
- error();
-}
-
-sub findSCSIcdrom {
- detect_devices::isSCSI() or return error();
- my $scsi = detect_devices::getSCSI();
- foreach (@$scsi) { $_->{type} eq 'cdrom' and return $_->{device} }
- error();
-}
-
-sub setupCDdevice {
- my ($cddev, $dl) = @_;
- #-TODO
-}
-
-sub removeCDmodule {
- #- this wil fail silently if no CD module has been loaded
- removeDeviceDriver('cdrom');
- 1;
-}
-