Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.34 KB	-rw-r--r--
action.cgi	810 B	-rwxr-xr-x
config	41 B	-rw-r--r--
config-CentOS-Linux-5.0-6.9	41 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	41 B	-rw-r--r--
config.info	221 B	-rw-r--r--
config.info.ca	257 B	-rw-r--r--
config.info.ca.UTF-8	264 B	-rw-r--r--
config.info.cz	0 B	-rw-r--r--
config.info.de	265 B	-rw-r--r--
config.info.de.UTF-8	265 B	-rw-r--r--
config.info.es	174 B	-rw-r--r--
config.info.es.UTF-8	174 B	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.ms_MY	245 B	-rw-r--r--
config.info.ms_MY.UTF-8	245 B	-rw-r--r--
config.info.nl	259 B	-rw-r--r--
config.info.nl.UTF-8	259 B	-rw-r--r--
config.info.no	234 B	-rw-r--r--
config.info.no.UTF-8	234 B	-rw-r--r--
config.info.ru.UTF-8	360 B	-rw-r--r--
config.info.ru_RU	238 B	-rw-r--r--
config.info.ru_RU.UTF-8	360 B	-rw-r--r--
config.info.ru_SU	238 B	-rw-r--r--
index.cgi	4.37 KB	-rwxr-xr-x
install_check.pl	343 B	-rwxr-xr-x
module.info	195 B	-rw-r--r--
module.info.ca	136 B	-rw-r--r--
module.info.ca.UTF-8	148 B	-rw-r--r--
module.info.cz	25 B	-rw-r--r--
module.info.cz.UTF-8	32 B	-rw-r--r--
module.info.de	156 B	-rw-r--r--
module.info.de.UTF-8	168 B	-rw-r--r--
module.info.es	37 B	-rw-r--r--
module.info.es.UTF-8	43 B	-rw-r--r--
module.info.ms_MY	123 B	-rw-r--r--
module.info.ms_MY.UTF-8	135 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.nl.UTF-8	33 B	-rw-r--r--
module.info.no	25 B	-rw-r--r--
module.info.no.UTF-8	31 B	-rw-r--r--
module.info.ru.UTF-8	52 B	-rw-r--r--
module.info.ru_RU	34 B	-rw-r--r--
module.info.ru_RU.UTF-8	55 B	-rw-r--r--
module.info.ru_SU	34 B	-rw-r--r--
module.info.sk	26 B	-rw-r--r--
module.info.sk.UTF-8	32 B	-rw-r--r--
smart-status-lib.pl	12.72 KB	-rwxr-xr-x
status_monitor.pl	4.03 KB	-rwxr-xr-x

Code Editor : status_monitor.pl

do 'smart-status-lib.pl';

# status_monitor_list()
# Just one type is supported
sub status_monitor_list
{
if (&has_command($config{'smartctl'})) {
	return ( [ "smart", $text{'monitor_type'} ],
		 [ "wearout", $text{'monitor_type2'} ] );
	}
else {
	return ( );
	}
}

# status_monitor_status(type, &monitor, from-ui)
# Check the drive status
sub status_monitor_status
{
local ($type, $mon, $ui) = @_;

local @drives = &list_smart_disks_partitions();
local ($d) = grep { ($_->{'device'} eq $mon->{'drive'} ||
		     $_->{'id'} eq $mon->{'drive'}) &&
		    $_->{'subdisk'} eq $mon->{'subdisk'} } @drives;
if (!$d) {
	# Not in list?!
	return { 'up' => -1,
		 'desc' => $text{'monitor_nosuch'} };
	}
local $st = &get_drive_status($d->{'device'}, $d);

if (!$st->{'support'} || !$st->{'enabled'}) {
	# SMART not enabled on device
	return { 'up' => -1,
		 'desc' => $text{'monitor_nosmart'} };
	}

if ($type eq "wearout") {
	# Check SSD wear level
	local $wo;
	foreach my $a (@{$st->{'attribs'}}) {
		if ($a->[0] eq "Media Wearout Indicator") {
			$wo = $a;
			last;
			}
		}
	if (!$wo) {
		return { 'up' => -1,
		         'desc' => $text{'monitor_nowearout'} };
		}
	if ($wo->[3] < $mon->{'wearlevel'}) {
		return { 'up' => 0,
			 'desc' => &text('monitor_wornout', $wo->[3]),
			 'value' => $wo->[3] };
		}
	else {
		return { 'up' => 1,
			 'value' => $wo->[3] };
		}
	}
else {
	# Record number of errors since last time
	local %errors;
	local $errors_file = "$module_config_directory/last-errors";
	&read_file($errors_file, \%errors);
	local %lasterrors = %errors;
	$errors{$mon->{'drive'}} = $st->{'errors'};
	&write_file($errors_file, \%errors);

# Check for errors
	if (!$st->{'check'}) {
		# Check failed
		return { 'up' => 0 };
		}
	elsif ($st->{'errors'} && $mon->{'errors'} == 1) {
		# Errors found, and failing on any errors
		return { 'up' => 0,
			 'value' => $st->{'errors'},
			 'desc' => &text('monitor_errorsfound', $st->{'errors'}) };
		}
	elsif ($st->{'errors'} && $mon->{'errors'} == 2 &&
	       $st->{'errors'} > $lasterrors{$mon->{'drive'}}) {
		# Errors found and have increased
		return { 'up' => 0,
			 'value' => $st->{'errors'},
			 'desc' => &text('monitor_errorsinced', $st->{'errors'},
					 $lasterrors{$mon->{'drive'}}) };
		}
	else {
		# All OK!
		return { 'up' => 1,
			 'value' => $st->{'errors'} };
		}
	}
}

# status_monitor_dialog(type, &monitor)
# Return form for selecting a drive
sub status_monitor_dialog
{
local ($type, $mon) = @_;
local $rv;
local @drives = &list_smart_disks_partitions();
local ($inlist) = grep { ($_->{'device'} eq $mon->{'drive'} ||
			  $_->{'id'} eq $mon->{'drive'}) &&
		         $_->{'subdisk'} eq $mon->{'subdisk'} } @drives;
$inlist = 1 if (!$mon->{'drive'});
$rv .= &ui_table_row($text{'monitor_drive'},
      &ui_select("drive",
		 !$mon->{'drive'} ? $drives[0]->{'device'} :
		 $inlist ? ($inlist->{'id'} || $inlist->{'device'}).':'.
			     $inlist->{'subdisk'} :
			   undef,
		 [ (map { [ ($_->{'id'} || $_->{'device'}).':'.$_->{'subdisk'},
			   $_->{'desc'}.($_->{'model'} ?
				" ($_->{'model'})" : "") ] } @drives),
		   [ "", $text{'monitor_other'} ] ]).
      &ui_textbox("other", $inlist ? "" : $mon->{'drive'}, 15), 3);

if ($type eq "wearout") {
	$rv .= &ui_table_row($text{'monitor_wearlevel'},
		&ui_textbox("wearlevel", $mon->{'wearlevel'} || 10, 5)."%");
	}
else {
	$rv .= &ui_table_row($text{'monitor_errors'},
		&ui_radio("errors", $mon->{'errors'} || 0,
			[ [ 1, $text{'yes'} ], [ 0, $text{'no'} ],
			  [ 2, $text{'monitor_errorsinc'} ] ]));
	}
return $rv;
}

# status_monitor_parse(type, &monitor, &in)
# Parse form for selecting a rule
sub status_monitor_parse
{
local ($type, $mon, $in) = @_;
if ($in->{'drive'}) {
	($mon->{'drive'}, $mon->{'subdisk'}) = split(/:/, $in->{'drive'});
	}
else {
	$mon->{'drive'} = $in->{'other'};
	$mon->{'subdisk'} = undef;
	$mon->{'drive'} =~ /^\S+$/ || &error($text{'monitor_edrive'});
	}
if ($type eq "wearout") {
	$in->{'wearlevel'} =~ /^\d+(\.\d+)?$/ ||
		&error($text{'monitor_ewearlevel'});
	$mon->{'wearlevel'} = $in->{'wearlevel'};
	}
else {
	$mon->{'errors'} = $in->{'errors'};
	}
}

${this.title}

Code Editor : status_monitor.pl