#!/usr/bin/perl
print qq[
<INPUT TYPE="hidden" NAME="partdefs" VALUE="zerombr yes
bootloader --location=mbr
clearpart --all --initlabel ">
<INPUT TYPE="hidden" NAME="vars" VALUE="mount size max grow type">
<INPUT TYPE="hidden" NAME="mount0" VALUE="/boot/efi">
<INPUT TYPE="hidden" NAME="size0" VALUE="100M">
<INPUT TYPE="hidden" NAME="max0" VALUE="">
<INPUT TYPE="hidden" NAME="grow0" VALUE="">
<INPUT TYPE="hidden" NAME="fstype0" VALUE="239">
<TABLE BORDER=1>
  <TR><TH $thtag ROWSPAN=2><FONT $thfont>Mountpoint?</FONT></TH>
  <TH $thtag COLSPAN=3>Size</FONT></TH>
</TR>
<TR>
  <TH $thtag><FONT $thfont>Min/Size</FONT></TH>
  <TH $thtag><FONT $thfont>Max</FONT></TH>
  <TH $thtag><FONT $thfont>Grow?</FONT></TH>
</TR>
<TR>
  <TD $tdtag><FONT $tdfont>/boot/efi - REQUIRED!!!</FONT></TD>
  <TD $tdtag><FONT $tdfont>100M</FONT></TD>
  <TD $tdtag><FONT $tdfont><BR></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont>NO</FONT></TD>
<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount1" SIZE=20 VALUE="swap"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size1" SIZE=10 VALUE="512M"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max1" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow1" TYPE="CHECKBOX"></FONT></TD>
</TR>
<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount2" SIZE=20 VALUE="/"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size2" SIZE=10 VALUE="500M"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max2" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow2" TYPE="CHECKBOX" CHECKED></FONT></TD>
</TR>
];
    foreach my $i (3..9) {
      print qq[<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount$i" SIZE=20></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size$i" SIZE=10></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max$i" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow$i" TYPE="CHECKBOX"></FONT></TD>
</TR>
];
}
print "</TABLE>\n";
