Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	2.21 KB	-rw-r--r--	2026-07-17 21:17
backup_config.pl	721 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	243 B	-rwxr-xr-x	2026-07-17 21:17
config	63 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-3.1-ALL	69 B	-rw-r--r--	2026-07-17 21:17
config.info	219 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	382 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	243 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	232 B	-rw-r--r--	2026-07-17 21:17
config.info.de	247 B	-rw-r--r--	2026-07-17 21:17
config.info.es	265 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	271 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	222 B	-rw-r--r--	2026-07-17 21:17
config.info.no	227 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	76 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	147 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	76 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	78 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	140 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	62 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	72 B	-rw-r--r--	2026-07-17 21:17
create_raid.cgi	2.75 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	3.72 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	428 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	1.52 KB	-rwxr-xr-x	2026-07-17 21:17
mkfs.cgi	957 B	-rwxr-xr-x	2026-07-17 21:22
module.info	180 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	117 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.de	107 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	181 B	-rw-r--r--	2026-07-17 21:17
module.info.es	22 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	100 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	173 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	131 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	19 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	114 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	20 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	23 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	98 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.no	19 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	25 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	96 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	22 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	19 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	19 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	19 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	96 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	102 B	-rw-r--r--	2026-07-17 21:17
raid-lib.pl	22.25 KB	-rwxr-xr-x	2026-07-17 21:17
raid_form.cgi	3.88 KB	-rwxr-xr-x	2026-07-17 21:22
save_mdadm.cgi	939 B	-rwxr-xr-x	2026-07-17 21:22
save_raid.cgi	4.15 KB	-rwxr-xr-x	2026-07-17 21:22
view_raid.cgi	7.15 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Display all RAID devices

require './raid-lib.pl';

# Check if raid is installed
if (&has_command("mdadm")) {
	# Using mdadm commands
	$raid_mode = "mdadm";
	$raid_ver = &get_mdadm_version();
	}
elsif (&has_command('mkraid') && &has_command('raidstart')) {
	# Using raid tools commands
	$raid_mode = "raidtools";
	}
else {
	&error_exit($text{'index_eprogs'});
	}
&open_tempfile(MODE, ">$module_config_directory/mode");
&print_tempfile(MODE, $raid_mode,"\n");
&close_tempfile(MODE);

&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("raid", "man", "doc"),
	undef, undef, &text('index_'.$raid_mode, $raid_ver));

# Display configured raid devices
$conf = &get_raidtab();
if (@$conf) {
	print &ui_columns_start([ $text{'index_name'},
				$raid_mode eq "raidtools" ? $text{'index_active'} : $text{'index_status'},
				$text{'index_level'},
				$text{'index_size'},
				$text{'index_members'} ]);
	foreach $c (@$conf) {
		$lvl = &find_value('raid-level', $c->{'members'});
		@mems = ( );
		foreach $d (&find('device', $c->{'members'})) {
			if (&find('raid-disk', $d->{'members'}) ||
			 &find('parity-disk', $d->{'members'})) {
				push(@mems, $d->{'value'});
				}
			}
		my @errors = grep { $_ ne "U" } @{$c->{'errors'}};
		print &ui_columns_row([
			&ui_link("view_raid.cgi?idx=$c->{'index'}",
				 &html_escape($c->{'value'})),
			$raid_mode eq "raidtools" ?
			 $c->{'active'} ?
			 "$text{'yes'}" :
			 "$text{'no'}" :
			$c->{'state'} =~ /resyncing/ ||
			 $c->{'state'} =~ /recovering/ ||
			 $c->{'state'} =~ /reshaping/ ||
			 $c->{'state'} =~ /degraded/ ||
			 $c->{'state'} =~ /FAILED/ ?
			 $c->{'rebuild'} ne '' ?
			 "".$c->{'state'}."(".$c->{'rebuild'}."%, ".int($c->{'remain'})."min)" :
			 "".$c->{'state'}."" :
			 @errors ?
			 "$text{'index_errors'}" :
			 "".$c->{'state'}."",
			$lvl eq 'linear' ? $text{'linear'} : $text{'raid'.$lvl},
			$c->{'size'} ? &nice_size($c->{'size'}*1024) : "",
			&ui_links_row(\@mems),
			]);
		}
	print &ui_columns_end();
	}
else {
	print "$text{'index_none'}\n";
	}
&show_button();

# Form for mdadm monitoring options
if ($raid_mode eq "mdadm") {
	$notif = &get_mdadm_notifications();
	print &ui_hr();
	print &ui_form_start("save_mdadm.cgi", "post");
	print &ui_table_start($text{'index_header'}, undef, 2, [ "width=30%" ]);

# Is monitoring enabled?
	if (&get_mdadm_action()) {
		print &ui_table_row($text{'index_monitor'},
		   &ui_yesno_radio("monitor", &get_mdadm_monitoring() ? 1 : 0));
		}

# Notification address
	print &ui_table_row($text{'index_mailaddr'},
		&ui_opt_textbox("mailaddr", $notif->{'MAILADDR'}, 40,
				$text{'index_mailaddrnone'}));

# Notification sender
	print &ui_table_row($text{'index_mailfrom'},
		&ui_opt_textbox("mailfrom", $notif->{'MAILFROM'}, 40,
				$text{'index_mailfromnone'}));

# Program to call for problems
	print &ui_table_row($text{'index_program'},
		&ui_opt_textbox("program", $notif->{'PROGRAM'}, 40,
				$text{'index_programnone'}));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'save'} ] ]);
	}

&ui_print_footer("/", $text{'index'});

sub show_button
{
print &ui_form_start("raid_form.cgi");
print &ui_submit($text{'index_add'});
local @levels = &get_raid_levels();
print &ui_select("level", "linear",
		 [ [ "linear", $text{'linear'} ],
		   map { [ $_, $text{'raid'.$_} ] } @levels ]),"\n";
print &ui_form_end();
}

sub error_exit
{
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("raid", "man", "doc"));
print "",@_,"\n";
&ui_print_footer("/", $text{'index'});
exit;
}