#!/usr/local/bin/perl # tunefs_form.cgi # Display a form for entering filesystem tuning options require './format-lib.pl'; $access{'view'} && &error($text{'ecannot'}); &ReadParse(); &can_edit_disk($in{'dev'}) || &error($text{'tunefs_ecannot'}); &ui_print_header(undef, $text{'tunefs_title'}, ""); @stat = &device_status($in{dev}); $fs = &filesystem_type($in{dev}); print "