display more data about hard disks (geometry, number of primary/extended

partitions)

1 files changed, 14 insertions, 0 deletions

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 9afdcf78a..76aac7220 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -44,12 +44,14 @@ my %fields =
                          N("new dynamic device name generated by core kernel devfs") ],
 #-PO Translators, here "module" is the "jargon term" for a kernel driver
      "driver" => [ N("Module"), N("the module of the GNU/Linux kernel that handles the device") ],
+     "extended_partitions" => [ N("Extended partitions"), N("the number of extended partitions") ],
      "flags" => [ N("Flags"), N("CPU flags reported by the kernel") ],
      "fdiv_bug" => [ N("Fdiv bug"), 
                      N("Early Intel Pentium chips manufactured have a bug in their floating point processor which did not achieve the required precision when performing a Floating point DIVision (FDIV)") ],
      "fpu" => [ N("Is FPU present"), N("yes means the processor has an arithmetic coprocessor") ],
      "fpu_exception" => [ N("Whether the FPU has an irq vector"), N("yes means the arithmetic coprocessor has an exception vector attached") ],
      "f00f_bug" => [N("F00f bug"), N("early pentiums were buggy and freezed when decoding the F00F bytecode")],
+     "geometry" => [N("Geometry"), N("Cylinder/head/sectors geometry of the disk")],
      "hlt_bug" => [ N("Halt bug"), 
                     N("Some of the early i486DX-100 chips cannot reliably return to operating mode after the \"halt\" instruction is used") ],
 
@@ -63,6 +65,7 @@ my %fields =
      "name" => [ N("Name"), N("the name of the CPU") ],
      "port" => [N("Port"), N("network printer port")],
      "processor" => [ N("Processor ID"), N("the number of the processor") ],
+     "primary_partitions" => [ N("Primary partitions"), N("the number of the primary partitions") ],
      "stepping" => [ N("Model stepping"), N("stepping of the cpu (sub model (generation) number)") ],
      "type" => [ N("Type"), N("the type of bus on which the mouse is connected") ],
      "Vendor" => [ N("Vendor"), N("the vendor name of the device") ],
@@ -264,6 +267,9 @@ foreach (@classes) {
 
     my $parent_iter = $tree_model->append_set(undef, [ 0 => gtkcreate_pixbuf($icon), 1 => $title, 2 => -1 ]);
 
+    my $all_hds;
+    $all_hds = fsedit::get_hds() if $Ident eq "HARDDISK";
+
     # Fill the graphic tree with a "tree leaf" widget per device
     foreach (@devices) {
         # we really should test for $title there:
@@ -302,6 +308,14 @@ foreach (@classes) {
             my $alternative_drivers = join(':', @$alter) if $alter->[0] ne 'unknown';
             $_->{alternative_drivers} = $alternative_drivers if $alternative_drivers;
         }
+        if ($Ident eq "HARDDISK") {
+            my $hd = $_;
+            my $info = find { $_->{device} eq $hd->{device} } @{$all_hds->{hds}};
+            $hd->{geometry} = join('/', map { $info->{geom}{$_} } qw(cylinders heads sectors)) . (" (CHS)");
+            $hd->{primary_partitions} = @{$info->{primary}{normal}};
+            $hd->{extended_partitions} = @{$info->{extended}};
+            delete $hd->{extended_partitions} if $hd->{extended_partitions} eq '0';
+        }
         rename_field($_, 'usb_description', 'description');
         rename_field($_, 'vendor_name', 'Vendor');
         rename_field($_, 'usb_driver', 'driver');