#!/usr/bin/perl
sub fstypes {
  my $def = shift;
  my @choices = qw (ext3 ext2 swap);
  foreach my $choice (@choices) {
    if ( $def eq $choice ) {
      print "<OPTION SELECTED>$choice";
    } else {
      print "<OPTION>$choice";
    } 
  }
  print "</SELECT>";
}
print qq[
<INPUT TYPE="hidden" NAME="partdefs" VALUE="clearpart --all --initlabel
zerombr yes
skipx
bootloader --useLilo --linear">
<INPUT TYPE="hidden" NAME="vars" VALUE="mount size max grow fstype">
<TABLE BORDER=1>
  <TR><TH $thtag ROWSPAN=2><FONT $thfont>Mountpoint?</FONT></TH>
  <TH $thtag COLSPAN=4>Size/Type</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>
  <TH $thtag><FONT $thfont>FSType?</FONT></TH>
</TR>
<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount0" SIZE=20 VALUE="/boot"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size0" SIZE=10 VALUE="50M"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max0" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow0" TYPE="CHECKBOX" VALUE=YES></FONT></TD>
  <TD $tdtag><FONT $tdfont><SELECT NAME="fstype0">];
  &fstypes('ext2');
  print qq[</FONT></TD>
<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount2" SIZE=20 VALUE="swap"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size2" SIZE=10 VALUE="196M"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max2" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow2" TYPE="CHECKBOX" VALUE=YES></FONT></TD>
  <TD $tdtag><FONT $tdfont><SELECT NAME="fstype2">];
  &fstypes('swap');
  print qq[</FONT></TD>
</TR>
<TR>
  <TD $tdtag><FONT $tdfont><INPUT NAME="mount1" SIZE=20 VALUE="/"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="size1" SIZE=10 VALUE="1500M"></FONT></TD>
  <TD $tdtag><FONT $tdfont><INPUT NAME="max1" SIZE=10></FONT></TD>
  <TD $tdtag ALIGN=CENTER><FONT $tdfont><INPUT NAME="grow1" TYPE="CHECKBOX" VALUE=YES></FONT></TD>
  <TD $tdtag><FONT $tdfont><SELECT NAME="fstype1">];
  &fstypes('ext3');
  print qq[</FONT></TD>
</TR>
];
    foreach my $i (3..7) {
      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" VALUE=YES></FONT></TD>
  <TD $tdtag><FONT $tdfont><SELECT NAME="fstype$i">];
  &fstypes('ext3');
  print qq[</FONT></TD>
</TR>
];
}
print "</TABLE>\n";
