summaryrefslogtreecommitdiffstats
path: root/perl-install/unused/cdrom.pm
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2001-08-07 17:40:36 +0000
committerMystery Man <unknown@mandriva.org>2001-08-07 17:40:36 +0000
commit068d599562888a36a50e5bbdeb8b70f83fa7c287 (patch)
tree18f5eed8353b3af647412875d438b55ef8c07670 /perl-install/unused/cdrom.pm
parentbe838931607e1ab14c8c699e20dd807b55579f7b (diff)
downloaddrakx-topic/v_webmin_0_87.tar
drakx-topic/v_webmin_0_87.tar.gz
drakx-topic/v_webmin_0_87.tar.bz2
drakx-topic/v_webmin_0_87.tar.xz
drakx-topic/v_webmin_0_87.zip
This commit was manufactured by cvs2svn to create branchtopic/v_webmin_0_87
'v_webmin_0_87'.
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;
-}
-