From d31eb162d61ff7e7a5d68ab753912fce53f2b8f6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Feb 2002 11:15:54 +0000
Subject: add removable detection/display

---
 control-center | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/control-center b/control-center
index 4b92f539..0b9cad39 100755
--- a/control-center
+++ b/control-center
@@ -32,6 +32,7 @@ use lib qw(/usr/lib/libDrakX);
 use lib qw(/usr/lib/libDrakX);
 use common;
 use interactive;
+use detect_devices;
 use standalone;
 use my_gtk qw(:helpers :wrappers);
 use strict;
@@ -115,6 +116,27 @@ my @tree =
     [_("Mount Points"),'partition-mdk',
      [
       [_("Hard Drives"), 'diskdrake_hd'],
+      (map {
+	  my ($type, $name, $scan) = @$_;
+	  map_index { 
+	      my $full_name = $name . ($::i ? $::i + 1 : '');
+	      $exec_hash->{$full_name} = [ "diskdrake", "$_sbindir/diskdrake --removable=$_->{device}", 1 ];
+	      [ $full_name, "diskdrake_$type" ];
+	  } $scan->();
+      } do {
+	  my %cdroms_by_type;
+	  foreach (detect_devices::cdroms()) {
+	      my $type = detect_devices::isBurner($_) ? 'burner' : detect_devices::isDvdDrive($_) ? 'DVD' : 'cdrom';
+	      push @{$cdroms_by_type{$type}}, $_;
+	  }
+	  (
+	   [ 'cdrom', _("CD-ROM"), sub { @{$cdroms_by_type{cdrom} || []} } ],
+	   [ 'dvd', _("DVD"), sub { @{$cdroms_by_type{DVD} || []} } ],
+	   [ 'cdburner', _("CD Burner"), sub { @{$cdroms_by_type{burner} || []} } ],
+	   [ 'floppy', _("Floppy"), \&detect_devices::floppies ],
+	   [ 'zip', _("Zip"), \&detect_devices::zips ],
+	  ),
+      }),
       [_("Removable disks"), 'diskdrake_other'],
       [_("NFS mount points"), 'diskdrake_nfs'],
       [_("Samba mount points"), 'diskdrake_samba'],
-- 
cgit v1.2.1