Command: $cmd\nOutput:\n$out\n"; print "
Disk Structure:\n";
foreach my $key (sort keys %$disk_structure) {
if ($key eq 'entries') {
print "entries: [\n";
foreach my $entry (@{$disk_structure->{'entries'}}) {
print " {\n";
foreach my $k (sort keys %$entry) {
print " $k: $entry->{$k}\n";
}
print " },\n";
}
print "]\n";
} else {
print "$key: $disk_structure->{$key}\n";
}
}
print "";
print "Raw GEOM output:\n";
print &html_escape(&backquote_command("geom disk list " . "e_path($device) . " 2>/dev/null"));
print "";
print "";
my $cmd = "zpool status 2>&1";
my $out = &backquote_command($cmd);
print "Command: $cmd\nOutput:\n$out\n";
print "";
print "Partition Details Mapping:\n";
foreach my $pnum (sort { $a <=> $b } keys %part_details) {
print " $pnum: {\n";
foreach my $k (sort keys %{$part_details{$pnum}}) {
print " $k: $part_details{$pnum}->{$k}\n";
}
print " },\n";
}
print "";
print "
", $scale * ($entry->{'start'} - 1);
$ext .= sprintf "", $scale * ($entry->{'size'});
$ext .= sprintf "", $scale * ($disk_blocks - $entry->{'start'} - $entry->{'size'});
push(@cols, $ext);
push(@cols, $start);
push(@cols, $end);
push(@cols, $entry->{'size_human'});
push(@cols, $text{'disk_free_space'});
push(@cols, $text{'disk_available'});
push(@cols, "-");
} else {
my $part_num = $entry->{'index'};
my $ext = "";
$ext .= sprintf "", $scale * ($entry->{'start'} - 1);
$ext .= sprintf "
", $scale * ($entry->{'size'});
$ext .= sprintf "", $scale * ($disk_blocks - $entry->{'start'} - $entry->{'size'});
my $url = "edit_slice.cgi?device=$device_url&slice=".&urlize($part_num);
push(@cols, "".&html_escape($part_num)."");
my $part_info = $part_details{$part_num};
my $part_name = $part_info ? $part_info->{'name'} : "-";
push(@cols, $part_name);
my $part_label = $part_info ? $part_info->{'label'} : ($entry->{'label'} eq "(null)" ? "-" : $entry->{'label'});
push(@cols, $part_label);
# Find sub-partitions if available
my ($slice) = grep { $_->{'number'} eq $part_num } @{$disk->{'slices'} || []};
my $sub_part_info = ($slice && scalar(@{$slice->{'parts'}||[]}) > 0) ?
join(", ", map { $_->{'letter'} } @{$slice->{'parts'}}) : "-";
push(@cols, $sub_part_info);
push(@cols, $ext);
push(@cols, $entry->{'start'});
push(@cols, $entry->{'start'} + $entry->{'size'} - 1);
push(@cols, $entry->{'size_human'});
# Classify format/use/role via library helper
my ($format_type, $usage, $role) = classify_partition_row(
base_device => $base_device,
scheme => ($disk_structure->{'scheme'} || ''),
part_num => $part_num,
part_name => $part_name,
part_label => $part_label,
entry_part_type => ($part_info ? $part_info->{'type'} : $entry->{'part_type'}),
entry_rawtype => ($part_info ? $part_info->{'rawtype'} : undef),
size_human => $entry->{'size_human'},
size_blocks => $entry->{'size'},
zfs_devices => $zfs_devices,
);
push(@cols, $format_type || '-');
push(@cols, $usage || $text{'part_nouse'});
push(@cols, $role || '-');
}
print &ui_columns_row(\@cols);
}
print &ui_columns_end();
} else {
if (@{$disk->{'slices'}||[]}) {
print &ui_links_row(\@links);
print &ui_columns_start([
$text{'disk_no'},
$text{'disk_type'},
$text{'disk_extent'},
$text{'disk_start'},
$text{'disk_end'},
$text{'disk_use'},
]);
foreach my $s (@{$disk->{'slices'}}) {
my @cols = ();
my $ext = "";
$ext .= sprintf "", $scale * ($s->{'startblock'} - 1);
$ext .= sprintf "
", ($s->{'extended'} ? "ext" : "use"), $scale * ($s->{'blocks'});
$ext .= sprintf "", $scale * ($disk_blocks - $s->{'startblock'} - $s->{'blocks'});
my $url = "edit_slice.cgi?device=$device_url&slice=".&urlize($s->{'number'});
push(@cols, "".&html_escape($s->{'number'})."");
push(@cols, &get_type_description($s->{'type'}) || $s->{'type'});
push(@cols, $ext);
push(@cols, $s->{'startblock'});
push(@cols, $s->{'startblock'} + $s->{'blocks'} - 1);
my @st = &fdisk::device_status($s->{'device'});
my $use = &fdisk::device_status_link(@st);
push(@cols, $use || $text{'part_nouse'});
print &ui_columns_row(\@cols);
}
print &ui_columns_end();
} else {
print "$text{'disk_none'}
\n"; } } print &ui_links_row(\@links); # Show SMART status link if available if (&has_command("smartctl")) { print &ui_hr(); print &ui_buttons_start(); print &ui_buttons_row("smart.cgi", $text{'disk_smart'}, $text{'disk_smartdesc'}, &ui_hidden("device", $device)); print &ui_buttons_end(); } # Debug: ZFS cache detail if ($in{'debug'}) { print "Pools: " . join(", ", keys %$zfs_pools) . "\n\nDevices:\n";
foreach my $device_id (sort keys %$zfs_devices) {
next if $device_id =~ /^_debug_/;
my $device_info = $zfs_devices->{$device_id};
print "$device_id => Pool: $device_info->{'pool'}, Type: $device_info->{'vdev_type'}, Mirrored: " .
($device_info->{'is_mirrored'} ? "Yes" : "No") . ", RAIDZ: " .
($device_info->{'is_raidz'} ? "Yes (Level: $device_info->{'raidz_level'})" : "No") .
", Single: " . ($device_info->{'is_single'} ? "Yes" : "No") .
", Striped: " . ($device_info->{'is_striped'} ? "Yes" : "No") . "\n";
}
print "";
print "