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