| Server IP : 195.201.23.43 / Your IP : 3.17.179.163 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/status/ |
Upload File : |
# raid-monitor.pl
# Check if some RAID device is reporting errors
sub get_raid_status
{
return { 'up' => -1 } if (!&foreign_check("raid"));
&foreign_require("raid", "raid-lib.pl");
local $conf = &raid::get_raidtab();
local ($raid) = grep { $_->{'value'} eq $_[0]->{'device'} } @$conf;
if ($raid) {
if (ref($raid->{'errors'})) {
local ($bad) = grep { $_ eq "_" } @{$raid->{'errors'}};
if ($bad) {
return { 'up' => 0,
'desc' => $text{'raid_bad'} };
}
else {
return { 'up' => 1 };
}
}
elsif ($raid->{'resync'}) {
return { 'up' => 0,
'desc' => $text{'raid_resync'} };
}
else {
return { 'up' => 1 };
}
}
else {
return { 'up' => -1,
'desc' => &text('raid_notfound', $_[0]->{'device'}) };
}
}
sub show_raid_dialog
{
&foreign_require("raid", "raid-lib.pl");
local $conf = &raid::get_raidtab();
local @opts;
foreach my $c (@$conf) {
local $lvl = &raid::find_value('raid-level', $c->{'members'});
push(@opts, [ $c->{'value'},
$c->{'value'}." - ".
($lvl eq 'linear' ? $raid::text{'linear'}
: $raid::text{"raid$lvl"}) ]);
}
local ($got) = grep { $_->[0] eq $_[0]->{'device'} } @opts;
if (!@opts) {
print &ui_table_row($text{'raid_device'},
&ui_textbox("other", $_[0]->{'device'}, 10));
}
else {
push(@opts, [ "", $text{'raid_other'} ]);
print &ui_table_row($text{'raid_device'},
&ui_select("device", !$_[0]->{'device'} ? $opts[0]->[0] :
!$got ? "" : $_[0]->{'device'}, \@opts).
" ".&ui_textbox("other", $got ? "" : $_[0]->{'device'}, 10));
}
}
sub parse_raid_dialog
{
&depends_check($_[0], "raid");
$_[0]->{'device'} = $in{'device'} || $in{'other'};
$_[0]->{'device'} =~ /^\S+$/ || &error($text{'raid_edevice'});
}
Private