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