diff --git a/smart-status/CHANGELOG b/smart-status/CHANGELOG index 564493299..00c0bbd8b 100644 --- a/smart-status/CHANGELOG +++ b/smart-status/CHANGELOG @@ -6,3 +6,5 @@ Added a Module Config option to force ATA mode for SATA disks that appear as SCS Added a Module Config option for extra smartctl command-line args, like -d 3ware,0 ---- Changes since 1.380 ---- ATA mode is now used by default on CentOS and Redhat Enterprise versions 5 and above. +---- Changes since 1.440 ---- +SCSI drives are visible in the System and Server Status module. diff --git a/smart-status/status_monitor.pl b/smart-status/status_monitor.pl index f430f3a21..f67b16cb9 100644 --- a/smart-status/status_monitor.pl +++ b/smart-status/status_monitor.pl @@ -42,24 +42,23 @@ else { sub status_monitor_dialog { local $rv; -$rv = " $text{'monitor_drive'}\n"; -$rv .= ""; -local @drives = grep { $_->{'type'} eq 'ide' } &fdisk::list_disks_partitions(); +local @drives = grep { $_->{'type'} eq 'ide' || + $_->{'type'} eq 'scsi' } &fdisk::list_disks_partitions(); @drives = sort { $a->{'device'} cmp $b->{'device'} } @drives; local ($inlist) = grep { $_->{'device'} eq $_[1]->{'drive'} } @drives; $inlist = 1 if (!$_[1]->{'drive'}); -$rv .= &ui_select("drive", !$_[1]->{'drive'} ? $drives[0]->{'device'} : +$rv .= &ui_table_row($text{'monitor_drive'}, + &ui_select("drive", !$_[1]->{'drive'} ? $drives[0]->{'device'} : $inlist ? $_[1]->{'drive'} : undef, [ (map { [ $_->{'device'}, $_->{'desc'}.($_->{'model'} ? " ($_->{'model'})" : "") ] } @drives), - [ "", $text{'monitor_other'} ] ]); -$rv .= &ui_textbox("other", $inlist ? "" : $_[1]->{'drive'}, 15); -$rv .= " \n"; + [ "", $text{'monitor_other'} ] ]). + &ui_textbox("other", $inlist ? "" : $_[1]->{'drive'}, 15), 3); -$rv .= " $text{'monitor_errors'}\n"; -$rv .= "".&ui_radio("errors", $_[1]->{'errors'} || 0, - [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ])." \n"; +$rv .= &ui_table_row($text{'monitor_errors'}, + &ui_radio("errors", $_[1]->{'errors'} || 0, + [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ])); return $rv; }