mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
61 lines
1.5 KiB
Perl
Executable File
61 lines
1.5 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_vg.cgi
|
|
# Display a form for editing or creating a volume group
|
|
|
|
require './lvm-lib.pl';
|
|
&ReadParse();
|
|
|
|
if ($in{'vg'}) {
|
|
($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups();
|
|
$vg || &error($text{'vg_egone'});
|
|
&ui_print_header(undef, $text{'vg_edit'}, "");
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'vg_create'}, "");
|
|
}
|
|
|
|
print &ui_form_start("save_vg.cgi");
|
|
print &ui_hidden("vg", $in{'vg'});
|
|
print &ui_table_start($text{'vg_header'}, "width=100%", 4);
|
|
|
|
# VG name
|
|
print &ui_table_row($text{'vg_name'},
|
|
&ui_textbox("name", $vg->{'name'}, 20));
|
|
|
|
if ($in{'vg'}) {
|
|
# Details of existing VG
|
|
print &ui_table_row($text{'vg_size'},
|
|
&nice_size($vg->{'size'}*1024));
|
|
|
|
print &ui_table_row($text{'vg_petotal'},
|
|
&text('lv_petotals', $vg->{'pe_alloc'}, $vg->{'pe_total'}));
|
|
|
|
print &ui_table_row($text{'vg_pesize'},
|
|
&nice_size($vg->{'pe_size'}*1024));
|
|
|
|
print &ui_table_row($text{'vg_petotal2'},
|
|
&text('lv_petotals',
|
|
&nice_size($vg->{'pe_alloc'}*$vg->{'pe_size'}*1024),
|
|
&nice_size($vg->{'pe_total'}*$vg->{'pe_size'}*1024)));
|
|
}
|
|
else {
|
|
# Extent size for new VG
|
|
print &ui_table_row($text{'vg_pesize'},
|
|
&ui_opt_textbox("pesize", undef, 8, $text{'default'})." kB");
|
|
|
|
print &ui_table_row($text{'vg_device'},
|
|
&device_input(), 3);
|
|
}
|
|
|
|
print &ui_table_end();
|
|
if ($in{'vg'}) {
|
|
print &ui_form_end([ [ undef, $text{'save'} ],
|
|
[ 'delete', $text{'delete'} ] ]);
|
|
}
|
|
else {
|
|
print &ui_form_end([ [ undef, $text{'create'} ] ]);
|
|
}
|
|
|
|
&ui_print_footer("index.cgi?mode=vgs", $text{'index_return'});
|
|
|