From 068d599562888a36a50e5bbdeb8b70f83fa7c287 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 7 Aug 2001 17:40:36 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'v_webmin_0_87'.

---
 perl-install/unused/cdrom.pm | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 perl-install/unused/cdrom.pm

(limited to 'perl-install/unused/cdrom.pm')

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;
-}
-
-- 
cgit v1.2.1