Command: "
. &html_escape($cmd)
. "\nOutput:\n"
. &html_escape($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: " . &html_escape( $entry->{$k} ) . "\n";
}
print " },\n";
}
print "]\n";
}
else {
print "$key: " . &html_escape( $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: "
. &html_escape($cmd)
. "\nOutput:\n"
. &html_escape($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: "
. &html_escape( $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, &html_escape($part_name) );
my $part_label =
$part_info
? $part_info->{'label'}
: ( $entry->{'label'} eq "(null)" ? "-" : $entry->{'label'} );
push( @cols, &html_escape($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, &html_escape($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, &html_escape( $format_type || '-' ) );
push( @cols, &html_escape( $usage || $text{'part_nouse'} ) );
push( @cols, &html_escape( $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, &html_escape( $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 "