burner/edit_mkisofs.cgi

   1 #!/usr/local/bin/perl
   2 # edit_mkisofs.cgi
   3 # Global (less common) mkisofs options
   4
   5 require './burner-lib.pl';
   6 $access{'global'} || &error($text{'mkiofs_ecannot'});
   7 &ui_print_header(undef, $text{'mkisofs_title'}, "");
   8
   9 print "<form action=save_mkisofs.cgi>\n";
  10 print "<table border width=100%>\n";
  11 print "<tr $tb> <td><b>$text{'mkisofs_header'}</b></td> </tr>\n";
  12 print "<tr $cb> <td><table width=100%>\n";
  13
  14 print "<tr> <td><b>$text{'mkisofs_novers'}</b></td>\n";
  15 printf "<td><input type=radio name=novers value=0 %s> %s\n",
  16         $config{'novers'} ? '' : 'checked', $text{'yes'};
  17 printf "<input type=radio name=novers value=1 %s> %s</td>\n",
  18         $config{'novers'} ? 'checked' : '', $text{'no'};
  19
  20 print "<td><b>$text{'mkisofs_notrans'}</b></td>\n";
  21 printf "<td><input type=radio name=notrans value=1 %s> %s\n",
  22         $config{'notrans'} ? 'checked' : '', $text{'yes'};
  23 printf "<input type=radio name=notrans value=0 %s> %s</td> </tr>\n",
  24         $config{'notrans'} ? '' : 'checked', $text{'no'};
  25
  26 print "<tr> <td><b>$text{'mkisofs_nobak'}</b></td>\n";
  27 printf "<td><input type=radio name=nobak value=1 %s> %s\n",
  28         $config{'nobak'} ? 'checked' : '', $text{'yes'};
  29 printf "<input type=radio name=nobak value=0 %s> %s</td>\n",
  30         $config{'nobak'} ? '' : 'checked', $text{'no'};
  31
  32 print "<td><b>$text{'mkisofs_fsyms'}</b></td>\n";
  33 printf "<td><input type=radio name=fsyms value=1 %s> %s\n",
  34         $config{'fsyms'} ? 'checked' : '', $text{'yes'};
  35 printf "<input type=radio name=fsyms value=0 %s> %s</td> </tr>\n",
  36         $config{'fsyms'} ? '' : 'checked', $text{'no'};
  37
  38 print "</table></td></tr></table>\n";
  39 print "<input type=submit value='$text{'save'}'></form>\n";
  40
  41 &ui_print_footer("", $text{'index_return'});
  42