#!/usr/local/bin/perl # fsck_form.cgi # Display a form asking for fsck options require './format-lib.pl'; $access{'view'} && &error($text{'ecannot'}); &ReadParse(); &can_edit_disk($in{'dev'}) || &error($text{'fsck_ecannot'}); &ui_print_header(undef, $text{'fsck_title'}, ""); $fs = &filesystem_type($in{'dev'}); print "
\n"; &ui_print_footer("", $text{'index_return'});