lvm/mkfs_form.cgi

   1 #!/usr/local/bin/perl
   2 # mkfs_form.cgi
   3 # Display a form for creating a filesystem on a logical volume
   4
   5 require './lvm-lib.pl';
   6 &ReadParse();
   7 &ui_print_header(undef, $text{'mkfs_title'}, "");
   8
   9 print "<b>",&text('mkfs_desc', "<tt>$in{'fs'}</tt>",
  10         &fdisk::fstype_name($in{'fs'}),
  11         "<tt>$in{'dev'}</tt>"),"</b><br>\n";
  12
  13 print &ui_form_start("mkfs.cgi");
  14 print &ui_hidden("dev", $in{'dev'});
  15 print &ui_hidden("fs", $in{'fs'});
  16 print &ui_table_start($text{'mkfs_header'}, undef, 4);
  17 &fdisk::mkfs_options($in{'fs'});
  18 print &ui_table_end();
  19 print &ui_form_end([ [ undef, $text{'create'} ] ]);
  20
  21 &ui_print_footer("index.cgi?mode=lvs", $text{'index_return'});
  22