diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 41 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 13 |
2 files changed, 43 insertions, 11 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 131f57cd8..5d8915ea4 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -43,7 +43,13 @@ sub dvdroms { grep { isDvdDrive($_) } cdroms() } sub raw_zips { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() } #-sub jazzs { grep { member($_->{media_type}, 'fd', 'hd') && isJazzDrive($_) } get() } sub ls120s { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() } -sub zips { map { $_->{device} .= 4; $_ } raw_zips() } +sub zips { + map { + $_->{device} .= 4; + $_->{devfs_device} = $_->{devfs_prefix} . '/part4'; + $_; + } raw_zips(); +} sub cdroms__faking_ide_scsi { my @l = cdroms(); @@ -78,9 +84,9 @@ sub floppies() { require modules; eval { modules::load("floppy") }; my @fds = map { - my $info = (!dev_is_devfs() || -e "/dev/$_") && c::floppy_info(devices::make($_)); - if_($info && $info ne '(null)', { device => $_, media_type => 'fd', info => $info }) - } qw(fd0 fd1); + my $info = (!dev_is_devfs() || -e "/dev/fd$_") && c::floppy_info(devices::make("fd$_")); + if_($info && $info ne '(null)', { device => "fd$_", devfs_device => "floppy/$_", media_type => 'fd', info => $info }) + } qw(0 1); my @ide = ls120s() and eval { modules::load("ide-floppy") }; eval { modules::load("usb-storage") } if usbStorage(); @@ -120,6 +126,17 @@ sub get_sys_cdrom_info { } } +sub get_devfs_devices { + my (@l) = @_; + + my %h = (cdrom => 'cd', hd => 'disc'); + + foreach (@l) { + my $t = $h{$_->{media_type}} or next; + $_->{devfs_device} = $_->{devfs_prefix} . '/' . $t; + } +} + sub isBurner { my ($e) = @_; $e->{capacity} =~ /burner/ and return 1; @@ -155,10 +172,12 @@ sub getSCSI() { $first =~ /^Attached devices:/ or $err->($first); @l = map_index { - my ($id) = /^Host:.*?Id: (\d+)/ or $err->($_); + my ($host, $channel, $id, $lun) = /^Host: scsi(\d+) Channel: (\d+) Id: (\d+) Lun: (\d+)/ or $err->($_); my ($vendor, $model) = /^\s*Vendor:\s*(.*?)\s+Model:\s*(.*?)\s+Rev:/m or $err->($_); my ($type) = /^\s*Type:\s*(.*)/m or $err->($_); - { info => "$vendor $model", id => $id, channel => 0, device => "sg$::i", raw_type => $type, bus => 'SCSI' }; + { info => "$vendor $model", channel => $channel, id => $id, lun => $lun, + device => "sg$::i", devfs_prefix => sprintf('scsi/host%d/bus%d/target%d/lun%d', $host, $channel, $id, $lun), + raw_type => $type, bus => 'SCSI' }; } @l; each_index { @@ -178,6 +197,7 @@ sub getSCSI() { put_in_hash $_, { media_type => 'scanner' }; } grep { $_->{raw_type} =~ /Scanner/ } @l; + get_devfs_devices(@l); get_sys_cdrom_info(@l); @l; } @@ -228,8 +248,15 @@ sub getIDE() { if_($info =~ /^$_\b\s*(.*)/, $eide_hds{$_}, $1); } keys %eide_hds; - push @idi, { media_type => $type, device => basename($d), info => $info, channel => $num/2, id => $num%2, bus => 'ide', Vendor => $vendor, Model => $model }; + my ($channel, $id) = ($num / 2, $num % 2); + my $devfs_prefix = sprintf('ide/host0/bus%d/target%d/lun0', $channel, $id); + + push @idi, { media_type => $type, device => basename($d), + devfs_prefix => $devfs_prefix, + info => $info, channel => $channel, id => $id, bus => 'ide', + Vendor => $vendor, Model => $model }; } + get_devfs_devices(@idi); get_sys_cdrom_info(@idi); @idi; } diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 2feb0faf3..0c1fd482c 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -343,18 +343,23 @@ sub assign_device_numbers { log::l("PPC: found a hole on $hd->{prefix} before $_->{start}, skipping device..."); $i++; } - $_->{device} = $hd->{prefix} . $i++; + $_->{device} = $hd->{prefix} . $i; + $_->{devfs_device} = $hd->{devfs_prefix} . '/part' . $i; $start = $_->{start} + $_->{size}; + $i++; } } else { foreach (@{$hd->{primary}{raw}}) { - my $dev = $hd->{prefix} . $i++; - $_->{device} = $dev; + $_->{device} = $hd->{prefix} . $i; + $_->{devfs_device} = $hd->{devfs_prefix} . '/part' . $i; + $i++; } foreach (map { $_->{normal} } @{$hd->{extended} || []}) { - my $dev = $hd->{prefix} . $i++; + my $dev = $hd->{prefix} . $i; push @{$hd->{partitionsRenumbered}}, [ $_->{device}, $dev ] if $_->{device} && $dev ne $_->{device}; $_->{device} = $dev; + $_->{devfs_device} = $hd->{devfs_prefix} . '/part' . $i; + $i++; } } |