diff options
author | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
commit | 530a16ec071db0e24e6e949e265a96848864967c (patch) | |
tree | fe40cacd28d67b98186754c551b7fd339ebc7e17 /perl-install/unused/cdrom.pm | |
download | drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.gz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.bz2 drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.xz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.zip |
add mes5-2.6.33 branch
Diffstat (limited to 'perl-install/unused/cdrom.pm')
-rw-r--r-- | perl-install/unused/cdrom.pm | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm new file mode 100644 index 000000000..e77c97a9f --- /dev/null +++ b/perl-install/unused/cdrom.pm @@ -0,0 +1,41 @@ +package cdrom; # $Id: cdrom.pm 193259 2000-09-14 12:58:40Z prigaux $ + +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; +} + |