diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 77 |
1 files changed, 68 insertions, 9 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 37267f493..5066f785f 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -50,6 +50,14 @@ my %fields = "primary_partitions" => [ N("Primary partitions"), N("the number of the primary partitions") ], "type" => [ N("Type"), N("the type of bus on which the mouse is connected") ], "Vendor" => [ N("Vendor"), N("the vendor name of the device") ], + "pci_bus" => [ N("Bus PCI #"), N("") ], + "pci_device" => [ N("PCI device #"), N("") ], + "pci_function" => [ N("PCI function #"), N("") ], + "vendor" => [ N("Vendor ID"), N("") ], + "id" => [ N(""), N("Device ID") ], + "subvendor" => [ N("Sub vendor ID"), N("") ], + "subid" => [ N("Sub device ID"), N("") ], + "usb_pci_device" =>, [ N("Device USB ID"), N("") ], }, CPU => { @@ -91,6 +99,29 @@ my %fields = } ); +my %groups = ( + generic => + { + N("Identification") => [ qw(Vendor vendor model description info media_type) ], + N("Connection") => [ qw(pci_bus pci_device pci_function bus vendor id subvendor subid) ], + }, + CPU => + { + N("Identification") => [ qw(processor vendor_id), "model name", "cpu family", qw(model level stepping) ], + N("Performances") => [ "cpu MHz", "cache size", "bogomips" ], + N("Bugs") => [ qw(fdiv_bug coma_bug f00f_bug hlt_bug) ], + N("FPU") => [ qw(fpu fpu_exception) ], + }, + HARDDISK => + { + N("Identification") => [ qw(Vendor Model description info) ], + N("Device") => [ qw(device devfs_device) ], + N("Partitions") => [ qw(primary_partitions extended_partitions) ], + }, + ); + +$groups{$_} = $groups{HARDDISK} foreach qw(BURNER CDROM DVDROM); + my ($in, $pid, $w); @@ -233,18 +264,39 @@ $tree->get_selection->signal_connect('changed' => sub { if ($idx ne -1) { use Gtk2::Pango; - gtktext_insert($text, [ map { + my %device_fields = map { # The U+200E character is to force LTR display, as what what follows the colon is always in LTR (device names, paths, etc), # this ensures proper displaying of names like /dev/fd0 (otherwise it gets 'dev/fd0/'). # it must come *after* the space, as the space must follow the colon following the direction of writting. my $field = lookup_field($_); - if_($_ && $field->[0], [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD } ], + if_($_ && $field->[0], $_ => + [ + [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD } ], [ ($current_device->{$_} =~ /^(unknown)/ ? N("unknown") : $current_device->{$_} =~ /^(Unknown)/ ? N("Unknown") : $current_device->{$_} eq 'yes' ? N("Yes") : $current_device->{$_} eq 'no' ? N("No") : - $current_device->{$_}) . "\n\n", if_($_ eq 'driver' && $current_device->{$_} =~ /^unknown|^Bad:/, { foreground => 'indian red' }) ]) - } sort keys %$current_device ]); + $current_device->{$_}) . "\n\n", if_($_ eq 'driver' && $current_device->{$_} =~ /^unknown|^Bad:/, { foreground => 'indian red' }) ] + ]) + } sort keys %$current_device; + my ($grouped, $ungrouped) = partition { + my $field = $_; + member($field, map { @$_ } map { values %$_ } @groups{$current_class, 'generic'}); + } keys %device_fields; + my @formated; + foreach my $class ($current_class, 'generic') { + my $class_groups = $groups{$class}; + foreach my $group (keys %$class_groups) { + my @fields = @{$class_groups->{$group}}; + # have we at least a member in that group? + next unless any { member($_, @fields) } @$grouped; + + push @formated, titleFormat($group); + push @formated, map { if_(ref $_, @$_) } $device_fields{$_} foreach @fields; + }; + }; + push @formated, if_(@formated && @$ungrouped, titleFormat(N("Misc"))), map { @{$device_fields{$_}} } @$ungrouped; + gtktext_insert($text, \@formated); foreach (keys %$current_device) { print qq(Warning: skip "$_" field => "$current_device->{$_}"\n\n) unless (lookup_field($_))[0]; @@ -297,9 +349,6 @@ foreach (@classes) { foreach (@devices) { # we really should test for $title there: if ($_->{bus} && $_->{bus} eq "PCI") { - my $i = $_; - $_->{bus_id} = join ':', map { if_($i->{$_} ne "65535", sprintf("%lx", $i->{$_})) } qw(vendor id subvendor subid); - $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(pci_bus pci_device pci_function); # do not display unknown driver for system bridges that're managed by kernel core: delete $_->{driver} if $_->{driver} eq "unknown" && ($Ident =~ /^ATA_STORAGE|BRIDGE|SMB_CONTROLLER$/ || $_->{description} =~ /3Com.*5610/); } @@ -339,11 +388,16 @@ foreach (@classes) { $hd->{extended_partitions} = @{$info->{extended}}; delete $hd->{extended_partitions} if $hd->{extended_partitions} eq '0'; } + rename_field($_, 'usb_bus', 'bus'); rename_field($_, 'usb_description', 'description'); - rename_field($_, 'vendor_name', 'Vendor'); rename_field($_, 'usb_driver', 'driver'); + rename_field($_, 'usb_id', 'id'); rename_field($_, 'usb_media_type', 'media_type'); - foreach my $i (qw(EMULATEWHEEL MOUSETYPE XMOUSETYPE auxmouse devfs_prefix id pci_bus pci_device pci_function subid subvendor unsafe usb_bus usb_pci_bus usb_pci_device usb_vendor usb_id val vendor wacom)) { delete $_->{$i} }; + rename_field($_, 'usb_pci_bus', 'bus'); + rename_field($_, 'usb_vendor', 'vendor'); + rename_field($_, 'vendor_name', 'Vendor'); + + foreach my $i (qw(EMULATEWHEEL MOUSETYPE XMOUSETYPE auxmouse devfs_prefix unsafe val vendor wacom)) { delete $_->{$i} }; my $custom_id = harddrake::data::custom_id($_, $title); foreach my $field (qw(devfs_device device)) { @@ -407,6 +461,11 @@ sub lookup_field { $fields{$class}{$field}; } +sub titleFormat { + my ($title) = @_; + [ $title . "\n", { 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD, size => 14 * Gtk2::Pango->PANGO_SCALE } ]; +} + sub rename_field { my ($dev, $field, $new_field) = @_; if ($dev->{$field}) { |