format/fsck_form.cgi

   1 #!/usr/local/bin/perl
   2 # fsck_form.cgi
   3 # Display a form asking for fsck options
   4
   5 require './format-lib.pl';
   6 $access{'view'} && &error($text{'ecannot'});
   7 &ReadParse();
   8 &can_edit_disk($in{'dev'}) || &error($text{'fsck_ecannot'});
   9 &ui_print_header(undef, $text{'fsck_title'}, "");
  10
  11 $fs = &filesystem_type($in{'dev'});
  12 print "<form action=fsck.cgi>\n";
  13 print "<input type=hidden name=dev value=\"$in{dev}\">\n";
  14 print &text('fsck_desc', &fstype_name($fs), "<tt>$in{'dev'}</tt>"),"<p>\n";
  15
  16 print "<input type=radio name=mode value=\"-m\">\n";
  17 print "$text{'fsck_mode0'}<br>\n";
  18
  19 print "<input type=radio name=mode value=\"-n\">\n";
  20 print "$text{'fsck_mode1'}<br>\n";
  21
  22 print "<input type=radio name=mode value=\"-y\" checked>\n";
  23 print "$text{'fsck_mode2'}<br><p>\n";
  24
  25 print "<div align=center><input type=submit ",
  26       "value=\"$text{'fsck_repair'}\"></div>\n";
  27 print "</form>\n";
  28
  29 &ui_print_footer("", $text{'index_return'});
  30