#!/usr/local/bin/perl # newfs_form.cgi # Display a form asking for new filesystem details require './format-lib.pl'; $access{'view'} && &error($text{'ecannot'}); &ReadParse(); &can_edit_disk($in{'dev'}) || &error("You are not allowed to format this disk"); &ui_print_header(undef, "Create Filesystem", ""); print "