Gecko [ www.thearyasamaj.org ]

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

Code Editor : view_raid.cgi

#!/usr/bin/perl
# view_raid.cgi
# Display information about a raid device

require './raid-lib.pl';
&foreign_require("mount");
&foreign_require("lvm");
&ReadParse();

print "Refresh: $config{'refresh'}\r\n"
	if ($config{'refresh'});
&ui_print_header(undef, $text{'view_title'}, "");
$conf = &get_raidtab();
$raid = $conf->[$in{'idx'}];

print &ui_form_start("save_raid.cgi");
print &ui_hidden("idx", $in{'idx'});
print &ui_table_start($text{'view_header'}, undef, 2);

# Device name
print &ui_table_row($text{'view_device'}, "<tt>$raid->{'value'}</tt>");

# UUID
$uuid = &find_value('array-uuid', $raid->{'members'});
print &ui_table_row($text{'view_uuid'}, $uuid);

# RAID level
$lvl = &find_value('raid-level', $raid->{'members'});
print &ui_table_row($text{'view_level'},
	$lvl eq 'linear' ? $text{'linear'} : $text{"raid$lvl"});

# Current status
@st = &device_status($raid->{'value'});
print &ui_table_row($text{'view_status'},
 $st[1] eq 'lvm' ? &text('view_lvm', "<tt>$st[0]</tt>") :
 $st[1] eq 'iscsi' ? &text('view_iscsi', "<tt>$st[0]</tt>") :
 $st[2] ? &text('view_mounted', "<tt>$st[0]</tt>") :
 @st ? &text('view_mount', "<tt>$st[0]</tt>") :
 $raid->{'active'} ? $text{'view_active'} :
			 $text{'view_inactive'});

if ($raid->{'size'}) {
	print &ui_table_row($text{'view_size'},
		&text('view_blocks', $raid->{'size'})." ".
	        "(".&nice_size($raid->{'size'}*1024).")");
	}
if ($raid->{'resync'}) {
	print &ui_table_row($text{'view_resync'},
		$raid->{'resync'} eq 'delayed' ? $text{'view_delayed'}
					       : "$raid->{'resync'} \%");
	}

# Superblock?
$super = &find_value('persistent-superblock', $raid->{'members'});
print &ui_table_row($text{'view_super'},
	$super ? $text{'yes'} : $text{'no'});

# Layout
if (($lvl eq '5') || ($lvl eq '6') || ($lvl eq '10')) {
	$layout = &find_value('parity-algorithm', $raid->{'members'});
	print &ui_table_row($text{'view_parity'}, $layout || $text{'default'});
	}

# Chunk size
$chunk = &find_value('chunk-size', $raid->{'members'});
print &ui_table_row($text{'view_chunk'},
	$chunk ? "$chunk kB" : $text{'default'});

# Current errors
if (ref($raid->{'errors'})) {
	for($i=0; $i<@{$raid->{'errors'}}; $i++) {
		if ($raid->{'errors'}->[$i] ne "U") {
			push(@badlist, $raid->{'devices'}->[$i]);
			}
		}
	if (@badlist) {
		print &ui_table_row($text{'view_errors'},
			"".
			&text('view_bad', scalar(@badlist)).
			"");
		}
	}

# Current state
if ($raid->{'state'}) {
	print &ui_table_row($text{'view_state'}, $raid->{'state'});
	}

# Rebuild percent
if ($raid->{'rebuild'} ne '') {
	print &ui_table_row($text{'view_rebuild'},
		$raid->{'rebuild'}." \% (".$raid->{'remain'}." min, ".
		int($raid->{'speed'} / 1024)." MB/s)");
	}

# Display partitions in RAID
$rp = undef;
@devs = sort { $a->{'value'} cmp $b->{'value'} }
	 &find('device', $raid->{'members'});
foreach $d (@devs) {
	if (&find('raid-disk', $d->{'members'}) ||
 &find('parity-disk', $d->{'members'})) {
		local $name = &mount::device_name($d->{'value'});
		$rp .= $name."\n";
		if (!&indevlist($d->{'value'}, $raid->{'devices'}) &&
		 $raid->{'active'}) {
			$rp .= "$text{'view_down'}\n";
			}
		$rp .= " \n";
		push(@rdisks, [ $d->{'value'}, $name ]);
		push(@datadisks, [ $d->{'value'}, $name ]);
		}
	}

$raidcnt = @rdisks;

print &ui_table_row($text{'view_disks'}, $rp);

# Display spare partitions
$sp = undef;
$sparescnt = 0;
$newdisks = @rdisks;
@spares = ( );
foreach $d (@devs) {
	if (&find('spare-disk', $d->{'members'})) {
		local $name = &mount::device_name($d->{'value'});
		$sp .= "$name \n";
		push(@rdisks, [ $d->{'value'}, $name ]);
		push(@sparedisks, [ $d->{'value'}, $name ]);
		$sparescnt++;
		$newdisks++;
		push(@spares, [ "$newdisks", "+ $sparescnt" ]);
		}
	}
if ($sp) {
	print &ui_table_row($text{'view_spares'}, $sp);
	}

# Display spare group, if any
$sg = &find_value("spare-group", $raid->{'members'});
if ($sg) {
	print &ui_table_row($text{'view_sparegroup'}, "<tt>$sg</tt>");
	}

print &ui_table_end();

print &ui_hr();
@grid = ( );

if ($raid_mode eq "raidtools" && !$st[2]) {
	# Only classic raid tools can disable a RAID
	local $act = $raid->{'active'} ? "stop" : "start";
	push(@grid, &ui_submit($text{'view_'.$act}, $act),
		    $text{'view_'.$act.'desc'});
	}

if ($raid_mode eq "mdadm") {
	# Only MDADM can add or remove a device (so far)
	@disks = &find_free_partitions([ $raid->{'value'} ], 0, 1);
	if (@disks) {
		push(@grid, &ui_submit($text{'view_add'}, "add")." ".
			    &ui_select("disk", undef, \@disks),
			    $text{'view_adddesc'});
		}
	if (@rdisks > 1) {
		@rdisks = sort { $a->[0] cmp $b->[0] } @rdisks;
		push(@grid, &ui_submit($text{'view_remove'}, "remove")." ".
			    &ui_select("rdisk", undef, \@rdisks),
			    $text{'view_removedesc'});
		push(@grid, &ui_submit($text{'view_remove_det'}, "remove_det"),
			    $text{'view_remove_detdesc'});
		}
	if ($sparescnt > 0 && &get_mdadm_version() >= 3.3 && &supports_replace()) {
		@rdisks = sort { $a->[0] cmp $b->[0] } @rdisks;
		@spares = sort { $a->[0] cmp $b->[0] } @spares;
                push(@grid, &ui_submit($text{'view_replace'}, "replace")." ".
                            &ui_select("replacedisk", undef, \@datadisks)." with ".
                            &ui_select("replacesparedisk", undef, \@sparedisks),
                            $text{'view_replacedesc'});
		}
	if ($sparescnt > 0 && $lvl != 10) {
		@spares = sort { $a->[0] cmp $b->[0] } @spares;
		push(@grid, &ui_submit($text{'view_grow'}, "grow")." ".
			    &ui_select("ndisk_grow", undef, \@spares),
			    $text{'view_growdesc'});
		if ($lvl == 5 && &get_mdadm_version() >= 3.1) {
			push(@grid, &ui_submit($text{'view_convert_to_raid6'}, "convert_to_raid6")." ".
                        &ui_select("ndisk_convert", undef, \@spares)." ".&ui_hidden("oldcount", $raidcnt),
                        $text{'view_convert_to_raid6desc'});
			}
		}
	if ($lvl == 6 && &get_mdadm_version() >= 3.1) {
		push(@grid, &ui_submit($text{'view_convert_to_raid5'}, "convert_to_raid5")." ".&ui_hidden("oldcount", $raidcnt),
                       	$text{'view_convert_to_raid5desc'});
		}
	}

if ($raid->{'active'} && !$st[2]) {
	# Show buttons for creating filesystems
	$fstype = $st[1] || "ext3";
	push(@grid, &ui_submit($text{'view_mkfs2'}, "mkfs")." ".
	    &ui_select("fs", $fstype,
			[ map { [ $_, $fdisk::text{"fs_".$_}." ($_)" ] }
			      &fdisk::supported_filesystems() ]),
	    $text{'view_mkfsdesc'});
	}

if (!@st) {
	# Show button for mounting filesystem
	push(@grid, &ui_submit($text{'view_newmount'}, "mount")." ".
		    &ui_textbox("newdir", undef, 20),
		    $text{'view_mountmsg'});

# Show button for mounting as swap
	push(@grid, &ui_submit($text{'view_newmount2'}, "mountswap"),
		    $text{'view_mountmsg2'});
	}

if (!$st[2]) {
	push(@grid, &ui_submit($text{'view_delete'}, "delete"),
		    $text{'view_deletedesc'});
	}

if (@grid) {
	print &ui_grid_table(\@grid, 2, 100, [ "width=20% nowrap" ],
			 "cellpadding=5"),"\n";
	}
if ($st[2]) {
	print "$text{'view_cannot2'}\n";
	}
print &ui_form_end();

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

# indevlist(device, &list)
sub indevlist
{
local $d;
foreach $d (@{$_[1]}) {
	return 1 if (&same_file($_[0], $d));
	}
return 0;
}

${this.title}

Code Editor : view_raid.cgi