lvm/edit_vg.cgi

   1 #!/usr/local/bin/perl
   2 # edit_vg.cgi
   3 # Display a form for editing or creating a volume group
   4
   5 require './lvm-lib.pl';
   6 &ReadParse();
   7
   8 if ($in{'vg'}) {
   9         ($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups();
  10         $vg || &error($text{'vg_egone'});
  11         &ui_print_header(undef, $text{'vg_edit'}, "");
  12         }
  13 else {
  14         &ui_print_header(undef, $text{'vg_create'}, "");
  15         }
  16
  17 print &ui_form_start("save_vg.cgi");
  18 print &ui_hidden("vg", $in{'vg'});
  19 print &ui_table_start($text{'vg_header'}, "width=100%", 4);
  20
  21 # VG name
  22 print &ui_table_row($text{'vg_name'},
  23         &ui_textbox("name", $vg->{'name'}, 20));
  24
  25 if ($in{'vg'}) {
  26         # Details of existing VG
  27         print &ui_table_row($text{'vg_size'},
  28                 &nice_size($vg->{'size'}*1024));
  29
  30         print &ui_table_row($text{'vg_petotal'},
  31                 &text('lv_petotals', $vg->{'pe_alloc'}, $vg->{'pe_total'}));
  32
  33         print &ui_table_row($text{'vg_pesize'},
  34                 &nice_size($vg->{'pe_size'}*1024));
  35
  36         print &ui_table_row($text{'vg_petotal2'},
  37                 &text('lv_petotals',
  38                         &nice_size($vg->{'pe_alloc'}*$vg->{'pe_size'}*1024),
  39                         &nice_size($vg->{'pe_total'}*$vg->{'pe_size'}*1024)));
  40         }
  41 else {
  42         # Extent size for new VG
  43         print &ui_table_row($text{'vg_pesize'},
  44                 &ui_opt_textbox("pesize", undef, 8, $text{'default'})." kB");
  45
  46         print &ui_table_row($text{'vg_device'},
  47                 &device_input(), 3);
  48         }
  49
  50 print &ui_table_end();
  51 if ($in{'vg'}) {
  52         print &ui_form_end([ [ undef, $text{'save'} ],
  53                              [ 'delete', $text{'delete'} ] ]);
  54         }
  55 else {
  56         print &ui_form_end([ [ undef, $text{'create'} ] ]);
  57         }
  58 print "</tr></table>\n";
  59
  60 &ui_print_footer("index.cgi?mode=vgs", $text{'index_return'});
  61