Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	3.07 KB	-rw-r--r--
backup_config.pl	599 B	-rwxr-xr-x
cgi_args.pl	756 B	-rwxr-xr-x
config	40 B	-rw-r--r--
config.info	98 B	-rw-r--r--
config.info.ca	118 B	-rw-r--r--
config.info.de	110 B	-rw-r--r--
config.info.fr	123 B	-rw-r--r--
config.info.ms	66 B	-rw-r--r--
config.info.nl	63 B	-rw-r--r--
config.info.no	58 B	-rw-r--r--
edit_lv.cgi	10.44 KB	-rwxr-xr-x
edit_pv.cgi	2.48 KB	-rwxr-xr-x
edit_vg.cgi	1.5 KB	-rwxr-xr-x
feedback_files.pl	155 B	-rwxr-xr-x
index.cgi	7.42 KB	-rwxr-xr-x
init.cgi	448 B	-rwxr-xr-x
install_check.pl	517 B	-rwxr-xr-x
log_parser.pl	585 B	-rwxr-xr-x
lvm-lib.pl	26.52 KB	-rwxr-xr-x
mkfs.cgi	773 B	-rwxr-xr-x
mkfs_form.cgi	715 B	-rwxr-xr-x
module.info	203 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	128 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	253 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	203 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	248 B	-rw-r--r--
module.info.ca	123 B	-rw-r--r--
module.info.ca.auto	12 B	-rw-r--r--
module.info.cs	35 B	-rw-r--r--
module.info.cs.auto	107 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	135 B	-rw-r--r--
module.info.de	125 B	-rw-r--r--
module.info.de.auto	12 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	233 B	-rw-r--r--
module.info.es	37 B	-rw-r--r--
module.info.es.auto	114 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	134 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	167 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	143 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	155 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	180 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	144 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	159 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	134 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	178 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	143 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	131 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	142 B	-rw-r--r--
module.info.ms	130 B	-rw-r--r--
module.info.ms.auto	12 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	142 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.nl.auto	104 B	-rw-r--r--
module.info.no	36 B	-rw-r--r--
module.info.no.auto	99 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	150 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	145 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	154 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	143 B	-rw-r--r--
module.info.ru	65 B	-rw-r--r--
module.info.ru.auto	149 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	147 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	149 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	132 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	272 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	155 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	213 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	188 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	176 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	100 B	-rw-r--r--
module.info.zh_TW	30 B	-rw-r--r--
module.info.zh_TW.auto	82 B	-rw-r--r--
prefs.info	18 B	-rw-r--r--
pvmove.cgi	923 B	-rwxr-xr-x
raid_create.cgi	2.85 KB	-rwxr-xr-x
raid_form.cgi	2.3 KB	-rwxr-xr-x
save_lv.cgi	7.47 KB	-rwxr-xr-x
save_pv.cgi	1.95 KB	-rwxr-xr-x
save_vg.cgi	1.85 KB	-rwxr-xr-x
thin_create.cgi	913 B	-rwxr-xr-x
thin_form.cgi	1.13 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display a table of all volume groups and their physical and logical volumes.

require './lvm-lib.pl';
&ReadParse();

if (!&has_command("vgdisplay")) {
	&lvm_header();
	print &text('index_ecommands', "<tt>vgdisplay</tt>"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}
($lvm_version, $out) = &get_lvm_version();
if ($lvm_version && $lvm_version < 2) {
	# /proc/lvm doesn't exist in LVM 2
	if (!-d $lvm_proc) {
		system("modprobe lvm-mod >/dev/null 2>&1");
		}
	if (!-d $lvm_proc) {
		&lvm_header();
		print &text('index_emodule', "<tt>$lvm_proc</tt>",
				 "<tt>lvm-mod</tt>"),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}
if (!$lvm_version) {
	&lvm_header();
	print &text('index_eversion', "<tt>vgdisplay --version</tt>",
			 "<pre>$out</pre>"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}
&lvm_header();

@vgs = &list_volume_groups();
if (@vgs) {
	# Start tabs for volume groups, physical volumes and logical volumes
	@tabs = ( [ 'vgs', $text{'index_vgs'}, 'index.cgi?mode=vgs' ],
		  [ 'pvs', $text{'index_pvs'}, 'index.cgi?mode=pvs' ],
		  [ 'lvs', $text{'index_lvs'}, 'index.cgi?mode=lvs' ] );
	print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || 'vgs', 1);

# Show volume groups
	print &ui_tabs_start_tab("mode", "vgs");
	print $text{'index_vgsdesc'},"\n";
	@vgs = sort { $a->{'number'} <=> $b->{'number'} } @vgs;
	@links = ( &ui_link("edit_vg.cgi",$text{'index_add'}) );
	if ($config{'show_table'}) {
		# As table
		print &ui_links_row(\@links);
		print &ui_columns_start([ $text{'index_vgname'},
					 $text{'index_vgsize'},
					 $text{'index_vgtotal'},
					 $text{'index_vgtotal2'} ], 100);
		foreach $v (@vgs) {
			print &ui_columns_row([
			 &ui_link(
			 "edit_vg.cgi?vg=".&urlize($v->{'name'}),
			 &html_escape($v->{'name'})),
			 &nice_size($v->{'size'}*1024),
			 &text('lv_petotals', $v->{'pe_alloc'},
					 $v->{'pe_total'}),
			 &text('lv_petotals',
			 &nice_size($v->{'pe_alloc'}*$v->{'pe_size'}*1024),
			 &nice_size($v->{'pe_total'}*$v->{'pe_size'}*1024))
			 ]);
			}
		print &ui_columns_end();
		}
	else {
		# As icons
		print &ui_links_row(\@links);
		foreach $v (@vgs) {
			push(@vgicons, "edit_vg.cgi?vg=".&urlize($v->{'name'}));
			push(@vgtitles, &html_escape($v->{'name'}).
					" ".&nice_size($v->{'size'}*1024));
			push(@vglinks, "images/vg.gif");
			}
		&icons_table(\@vgicons, \@vgtitles, \@vglinks);
		}
	print &ui_links_row(\@links);
	print &ui_tabs_end_tab();

# Show physical volumes
	print &ui_tabs_start_tab("mode", "pvs");
	print $text{'index_pvsdesc'},"\n";
	foreach $v (@vgs) {
		push(@allpvs, &list_physical_volumes($v->{'name'}));
		}
	@allpvs = sort { $a->{'name'} cmp $b->{'name'} } @allpvs;
	@links = ( );
	foreach $v (@vgs) {
		push(@links, &ui_link("edit_pv.cgi?vg=".&urlize($v->{'name'}),
				 &text('index_addpv2', $v->{'name'})));
		}
	if (!@allpvs) {
		# None yet
		print "$text{'index_nopvs2'}\n";
		}
	elsif ($config{'show_table'}) {
		# Show table of PVs
		print &ui_links_row(\@links);
		print &ui_columns_start([ $text{'index_pvname'},
					 $text{'index_pvvg'},
					 $text{'index_pvsize'},
					 $text{'index_pvtotal'},
					 $text{'index_pvtotal2'} ], 100);
		foreach $p (@allpvs) {
			($v) = grep { $_->{'name'} eq $p->{'vg'} } @vgs;
			print &ui_columns_row([
			 &ui_link(
			 "edit_pv.cgi?vg=".&urlize($v->{'name'}).
		 "&pv=".&urlize($p->{'name'}), $p->{'name'}),
			 $v->{'name'},
			 &nice_size($p->{'size'}*1024),
			 &text('lv_petotals', $p->{'pe_alloc'},
					 $p->{'pe_total'}),
			 &text('lv_petotals',
			 &nice_size($p->{'pe_alloc'}*$p->{'pe_size'}*1024),
			 &nice_size($p->{'pe_total'}*$p->{'pe_size'}*1024)),
			 ]);
			}
		print &ui_columns_end();
		}
	else {
		# Show PV icons
		print &ui_links_row(\@links);
		foreach $p (@allpvs) {
			($v) = grep { $_->{'name'} eq $p->{'vg'} } @vgs;
			push(@pvicons, "edit_pv.cgi?vg=".&urlize($v->{'name'}).
				 "&pv=".&urlize($p->{'name'}));
			push(@pvtitles, &html_escape($p->{'name'}).
					" ".&nice_size($p->{'size'}*1024));
			push(@pvlinks, "images/vg.gif");
			}
		&icons_table(\@pvicons, \@pvtitles, \@pvlinks);
		}
	print &ui_links_row(\@links);
	print &ui_tabs_end_tab();

# Show logical volumes
	print &ui_tabs_start_tab("mode", "lvs");
	print $text{'index_lvsdesc'},"\n";
	foreach $v (@vgs) {
		push(@alllvs, &list_logical_volumes($v->{'name'}));
		}
	@alllvs = sort { $a->{'name'} cmp $b->{'name'} } @alllvs;
	@links = ( );
	foreach $v (@vgs) {
		push(@links, &ui_link("edit_lv.cgi?vg=".&urlize($v->{'name'}),
				 &text('index_addlv2', $v->{'name'})));
		@lvsin = grep { $_->{'vg'} eq $v->{'name'} } @alllvs;
		if (@lvsin) {
			push(@links, &ui_link(
			 "edit_lv.cgi?vg=".&urlize($v->{'name'})."&snap=1",
			 &text('index_addlv2s', $v->{'name'})));
			push(@links, &ui_link(
			 "thin_form.cgi?vg=".&urlize($v->{'name'}),
			 &text('index_addlv3', $v->{'name'})));
			}
		push(@links, &ui_link("raid_form.cgi?vg=".&urlize($v->{'name'}),
				 &text('index_addlv4', $v->{'name'})));
		}
	if (!@alllvs) {
		# None yet
		print "$text{'index_nolvs2'}\n";
		}
	elsif ($config{'show_table'}) {
		# Show table of LVs
		print &ui_links_row(\@links);
		print &ui_columns_start([ $text{'index_lvname'},
					 $text{'index_lvvg'},
					 $text{'index_lvsize'},
					 $text{'index_lvused'},
					 $text{'index_lvuse'} ], 100);
		foreach $l (@alllvs) {
			($v) = grep { $_->{'name'} eq $l->{'vg'} } @vgs;
			my @thinc;
			if ($l->{'thin'}) {
				@thinc = grep { $_->{'thin_in'} eq
						$l->{'name'} } @alllvs;
				}
			if ($lv->{'is_snap'}) {
				($snapof) = grep {
					$_->{'size'} == $l->{'size'} &&
					$_->{'vg'} eq $l->{'vg'} &&
					$_->{'has_snap'} } @alllvs;
				}
			else {
				$snapof = undef;
				}
			@stat = &device_status($l->{'device'});
			$usedmsg = "";
			if (@stat[2]) {
				($total, $free) = &mount::disk_space(
					$stat[1], $stat[0]);
				if ($total) {
					$usedmsg = &nice_size(
						($total-$free)*1024);
					}
				}
			print &ui_columns_row([
			 &ui_link(
			 "edit_lv.cgi?vg=".&urlize($v->{'name'}).
		 "&lv=".&urlize($l->{'name'}),
			 $l->{'name'}),
			 $v->{'name'},
			 &nice_size(($l->{'cow_size'} || $l->{'size'})*1024),
			 $usedmsg,
			 (@stat ? &device_message(@stat) :
			 $l->{'thin'} ? &text('index_thin', scalar(@thinc)) :
					 undef).
			 ($snap ? " ".&text('index_snapof', $snap->{'name'})
				 : ""),
			 ]);
			}
		print &ui_columns_end();
		}
	else {
		# Show LV icons
		print &ui_links_row(\@links);
		foreach $l (@alllvs) {
			($v) = grep { $_->{'name'} eq $l->{'vg'} } @vgs;
			push(@lvicons, "edit_lv.cgi?vg=".&urlize($v->{'name'}).
				 "&lv=".&urlize($l->{'name'}));
			push(@lvtitles, &html_escape($l->{'name'}).
					" ".&nice_size(($l->{'cow_size'} || $l->{'size'})*1024));
			push(@lvlinks, "images/lv.gif");
			}
		&icons_table(\@lvicons, \@lvtitles, \@lvlinks);
		}
	print &ui_links_row(\@links);
	print &ui_tabs_end_tab();

print &ui_tabs_end(1);
	}
else {
	print "$text{'index_none'} \n";
	@tab = &list_lvmtab();
	if (@tab) {
		# Maybe LVM needs to be re-started
		print &text('index_init', "init.cgi"),"\n";
		}
	print &ui_links_row([
		&ui_link("edit_vg.cgi",$text{'index_add'}) ]);
	}

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

sub lvm_header
{
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("lvm", "man", "doc", "google"), undef, undef,
	$lvm_version ? &text('index_version', $lvm_version) : undef);
}

${this.title}

Code Editor : index.cgi