#!/usr/bin/perl -w

$i = 0;

open(PARTS, "parts/index") || die("Couldn't open index file ``parts/index''\n");
open(ALL, "> FAQ-java-linux.sgml") ||
	 die("Couldn't open assemble file ``FAQ-java-linux.sgml''\n");
while (<PARTS>) {
   next if (/^$|^#/);
   if ($i < 10) {
     $prefix = "0" . $i++;
   } else {
     $prefix = $i++;
   }
   chomp;
   $file =  "parts/" . $prefix . "-" .  $_ . ".sgml";
   open(P, $file) || die("Couldn't open section file ``$file''\n");
   while (<P>) {
      print ALL;
   }
   close(P)
}

close(PARTS);
close(ALL);