lvm/edit_lv.cgi

   1 #!/usr/local/bin/perl
   2 # Display a form for editing an existing logical volume
   3
   4 require './lvm-lib.pl';
   5 &ReadParse();
   6 ($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups();
   7 $vg || &error($text{'vg_egone'});
   8 @lvs = &list_logical_volumes($in{'vg'});
   9
  10 $vgdesc = &text('lv_vg', $vg->{'name'});
  11 if ($in{'lv'}) {
  12         ($lv) = grep { $_->{'name'} eq $in{'lv'} } @lvs;
  13         $lv || &error($text{'lv_egone'});
  14         &ui_print_header($vgdesc, $lv->{'is_snap'} ? $text{'lv_edit_snap'}
  15                                  : $text{'lv_edit'}, "");
  16         @stat = &device_status($lv->{'device'});
  17         }
  18 else {
  19         &ui_print_header($vgdesc, $in{'snap'} ? $text{'lv_create_snap'} : $text{'lv_create'},"");
  20         $lv = { 'perm' => 'rw',
  21                 'alloc' => 'n',
  22                 'is_snap' => $in{'snap'},
  23                 'size' => ($vg->{'pe_total'} - $vg->{'pe_alloc'})*
  24                           $vg->{'pe_size'} };
  25         $lv->{'size'} = &nice_round($lv->{'size'});
  26         }
  27
  28 print &ui_form_start("save_lv.cgi");
  29 print &ui_hidden("vg", $in{'vg'});
  30 print &ui_hidden("lv", $in{'lv'});
  31 print &ui_hidden("snap", $in{'snap'});
  32 print &ui_table_start($text{'lv_header'}, "width=100%", 4);
  33
  34 if (!&can_resize_lv_stat(@stat)) {
  35         # Current status
  36         print &ui_table_row($text{'lv_name'}, $lv->{'name'});
  37
  38         print &ui_table_row($text{'lv_size'}, &nice_size($lv->{'size'}*1024));
  39         }
  40 else {
  41         # Details for new LV
  42         if ($stat[2]) {
  43                 print &ui_table_row($text{'lv_name'}, $lv->{'name'},
  44                                     undef, [ "", "valign=top" ]);
  45                 print &ui_hidden("name", $lv->{'name'});
  46                 }
  47         else {
  48                 print &ui_table_row($text{'lv_name'},
  49                                     &ui_textbox("name", $lv->{'name'}, 20));
  50                 }
  51
  52         if (!$in{'lv'}) {
  53                 # Can show nice size chooser for absolute or relative size
  54                 @pvopts = map { $_->{'name'} }
  55                               &list_physical_volumes($in{'vg'});
  56                 print &ui_table_row($text{'lv_size'},
  57                         &ui_radio_table("size_mode", 0,
  58                           [ [ 0, $text{'lv_size0'},
  59                               &ui_bytesbox("size", $lv->{'size'}*1024, 8) ],
  60                             [ 1, $text{'lv_size1'},
  61                               &ui_textbox("vgsize", undef, 4)."%" ],
  62                             [ 2, $text{'lv_size2'},
  63                               &ui_textbox("freesize", undef, 4)."%" ],
  64                             [ 3, $text{'lv_size3'},
  65                               &text('lv_size3a',
  66                                 &ui_textbox("pvsize", undef, 4)."%",
  67                                 &ui_select("pvof", undef, \@pvopts)) ],
  68                           ]), 3);
  69                 }
  70         else {
  71                 # Check if size is exactly some number of TB, GB or MB, less
  72                 # than 10240
  73                 $div = 1024*1024*1024;
  74                 $size = $lv->{'size'}*1024;
  75                 $nice = 0;
  76                 while($div >= 1024) {
  77                         $frac = $size*1.0 / $div;
  78                         if ($frac == int($frac) && $frac < 1024*10) {
  79                                 $nice = 1;
  80                                 last;
  81                                 }
  82                         $div /= 1024;
  83                         }
  84                 if ($nice) {
  85                         # Show nicely
  86                         print &ui_table_row($text{'lv_size'},
  87                                 &ui_bytesbox("size", $size, 8));
  88                         }
  89                 else {
  90                         # Show in exactly kB
  91                         print &ui_table_row($text{'lv_size'},
  92                                 &ui_radio_table("size_mode", 4,
  93                                     [ [ 4, $text{'lv_sizeabs'},
  94                                         &ui_textbox("sizekb", $lv->{'size'}, 8).
  95                                         " kB" ],
  96                                       [ 0, $text{'lv_sizesimple'},
  97                                         &ui_bytesbox("size", $size, 8) ] ]));
  98                         }
  99                 }
 100         }
 101
 102 # Number of physical extents
 103 print &ui_table_row($text{'lv_petotal'},
 104         &text('lv_petotals', $vg->{'pe_alloc'}, $vg->{'pe_total'}));
 105
 106 # Extent size
 107 print &ui_table_row($text{'lv_pesize'},
 108         &nice_size($vg->{'pe_size'}*1024));
 109
 110 if ($in{'lv'}) {
 111         # Device file and current status
 112         print &ui_table_row($text{'lv_device'}, "<tt>$lv->{'device'}</tt>");
 113
 114         print &ui_table_row($text{'lv_status'},
 115                 @stat ? &device_message(@stat) : $text{'lv_notused'});
 116         }
 117
 118 if ($lv->{'is_snap'}) {
 119         if ($in{'lv'}) {
 120                 # Show which LV this is a snapshot of
 121                 local @snapof;
 122                 if ($lv->{'snap_of'}) {
 123                         @snapof = grep { $_->{'name'} eq $lv->{'snap_of'}} @lvs;
 124                         }
 125                 else {
 126                         @snapof = grep { $_->{'size'} == $lv->{'size'} &&
 127                                          $_->{'has_snap'} } @lvs;
 128                         }
 129                 if (@snapof == 1) {
 130                         $snapsel = "<tt>$snapof[0]->{'name'}</tt>";
 131                         }
 132                 else {
 133                         $snapsel = "<i>$text{'lv_nosnap'}</i>";
 134                         }
 135                 }
 136         else {
 137                 # Allow selection of snapshot source
 138                 $snapsel = &ui_select("snapof", undef,
 139                     [ map { $_->{'name'} } grep { !$_->{'is_snap'} } @lvs ]);
 140                 }
 141         print &ui_table_row($text{'lv_snapof'}, $snapsel);
 142
 143         # Show snapshot percentage used
 144         if ($lv->{'snapusage'}) {
 145                 print &ui_table_row($text{'lv_snapusage'},
 146                         $lv->{'snapusage'}."%");
 147                 }
 148         }
 149 elsif (!&can_resize_lv_stat(@stat)) {
 150         # Display current permissons and allocation method
 151         print &ui_table_row($text{'lv_perm'},
 152                 $text{"lv_perm".$lv->{'perm'}});
 153
 154         print &ui_table_row($text{'lv_alloc'},
 155                 $text{"lv_alloc".$lv->{'alloc'}});
 156         }
 157 else {
 158         # Allow editing of permissons and allocation method
 159         print &ui_table_row($text{'lv_perm'},
 160                 &ui_radio("perm", $lv->{'perm'},
 161                           [ [ 'rw', $text{'lv_permrw'} ],
 162                             [ 'r', $text{'lv_permr'} ] ]));
 163
 164         print &ui_table_row($text{'lv_alloc'},
 165                 &ui_radio("alloc", $lv->{'alloc'},
 166                           [ [ 'y', $text{'lv_allocy'} ],
 167                             [ 'n', $text{'lv_allocn'} ] ]));
 168         }
 169
 170 if (!$in{'lv'} && !$lv->{'is_snap'}) {
 171         # Allow selection of striping
 172         print &ui_table_row($text{'lv_stripe'},
 173                 &ui_opt_textbox("stripe", undef, 4, $text{'lv_nostripe'},
 174                                 $text{'lv_stripes2'}), 3);
 175
 176         # And strip size
 177         print &ui_table_row($text{'lv_stripesize'},
 178                 &ui_select("stripesize", undef,
 179                            [ [ undef, $text{'default'} ],
 180                              map { [ $_, $_." kB" ] }
 181                                  map { 2**$_ } (2 .. 9) ]));
 182         }
 183 elsif (!$lv->{'is_snap'}) {
 184         # Show current striping
 185         print &ui_table_row($text{'lv_stripe'},
 186                 $lv->{'stripes'} > 1 ? &text('lv_stripes', $lv->{'stripes'})
 187                                      : $text{'lv_nostripe'});
 188
 189         if ($lv->{'stripes'} && $lv->{'stripesize'}) {
 190                 print &ui_table_row($text{'lv_stripesize'},
 191                         &nice_size($lv->{'stripesize'}*1024));
 192                 }
 193         }
 194
 195 if (!$lv->{'is_snap'}) {
 196         # Allow selection of readahead sectors
 197         print &ui_table_row($text{'lv_readahead'},
 198                 &ui_select("readahead", $lv->{'readahead'},
 199                            [ [ "auto", "Auto" ], [ 0, "None" ],
 200                              map { [ $_, $_."" ] }
 201                                  map { 2**$_ } ( 7 .. 16) ]));
 202         }
 203
 204
 205
 206 # Show free disk space
 207 if (@stat && $stat[2]) {
 208         ($total, $free) = &mount::disk_space($stat[1], $stat[0]);
 209
 210         print &ui_table_row($text{'lv_freedisk'},
 211                 &nice_size($free*1024));
 212
 213         print &ui_table_row($text{'lv_free'},
 214                 int($total ? 100 * $free / $total : 0)." %");
 215         }
 216
 217 # Show extents on PVs
 218 if ($in{'lv'}) {
 219         @pvinfo = &get_logical_volume_usage($lv);
 220         if (@pvinfo) {
 221                 @pvs = &list_physical_volumes($in{'vg'});
 222                 foreach $p (@pvinfo) {
 223                         ($pv) = grep { $_->{'name'} eq $p->[0] } @pvs;
 224                         push(@pvlist, "<a href='edit_pv.cgi?vg=$in{'vg'}&pv=$pv->{'name'}'>$pv->{'name'}</a> ".&nice_size($p->[1]*$pv->{'pe_size'}*1024));
 225                         }
 226                 print &ui_table_row($text{'lv_pvs'}, join(" , ", @pvlist), 3);
 227                 }
 228         }
 229
 230 print &ui_table_end();
 231 if (!&can_resize_lv_stat(@stat)) {
 232         # In use - cannot be edited
 233         print &ui_form_end();
 234         print "<b>$text{'lv_cannot'}</b><p>\n";
 235         }
 236 elsif ($stat[2]) {
 237         # Mounted, but can be resized
 238         print &ui_form_end([ [ undef, $text{'save'} ] ]);
 239         }
 240 elsif ($in{'lv'}) {
 241         # Can be resized or deleted
 242         print &ui_form_end([ [ undef, $text{'save'} ],
 243                              [ 'delete', $text{'delete'} ] ]);
 244         }
 245 else {
 246         # Can be created
 247         print &ui_form_end([ [ undef, $text{'create'} ] ]);
 248         }
 249
 250 if ($in{'lv'} && !$stat[2] && !$lv->{'is_snap'}) {
 251         # Show button for creating filesystems
 252         print &ui_hr();
 253         print &ui_buttons_start();
 254
 255         if ($stat[1]) {
 256                 # Use FS from fstab
 257                 print &ui_buttons_row("mkfs_form.cgi", $text{'lv_mkfs2'},
 258                               &text('lv_mkfsdesc2', uc($stat[1])),
 259                               &ui_hidden("dev", $lv->{'device'}),
 260                               &ui_hidden("fs", $stat[1]));
 261                 }
 262         else {
 263                 # Can select FS
 264                 print &ui_buttons_row("mkfs_form.cgi", $text{'lv_mkfs'},
 265                               $text{'lv_mkfsdesc'},
 266                               &ui_hidden("dev", $lv->{'device'}),
 267                               &ui_select("fs", "ext3",
 268                                 [ map { [ $_, $fdisk::text{"fs_".$_}." ($_)" ] }
 269                                       &fdisk::supported_filesystems() ]));
 270                 }
 271
 272         if (!@stat) {
 273                 # Show button for mounting
 274                 $type = $config{'lasttype_'.$lv->{'device'}} || "ext2";
 275                 print &ui_buttons_row("../mount/edit_mount.cgi",
 276                                       $text{'lv_newmount'},
 277                                       $text{'lv_mountmsg'},
 278                                       &ui_hidden("type", $type).
 279                                       &ui_hidden("newdev", $lv->{'device'}),
 280                                       &ui_textbox("newdir", "", 20));
 281                 }
 282
 283         print &ui_buttons_end();
 284         }
 285
 286 &ui_print_footer("index.cgi?mode=lvs", $text{'index_return'});
 287