#!/usr/local/bin/perl

# update_faq.pl
#
# Reads the text files of disciplinary questions and answers
# (gen.qna bio.qna geo.qna phys.qna chem.qna)
# and parses each question into a disciplinary table of questions, 
# as well as a separate disciplinary page that juxtaposes 
# the questions with their answers. 

# OPEN THE TOC BODY FILE
open (TOC, ">toc.html") || die "Can't open TOC outfile\n";

# Read thru the input file, creating disciplinary outfiles and 
# feeding the questions into them, as well as a TOC.

# Begin general section...
print TOC "<a name=gen>\n";
print TOC "<h3>General Oceanography</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<gen.qna") || die "Can't open gen infile\n";
open (OUT, ">body.html") || die "Can't open gen outfile\n";
while (<IN>) {
        chop;
        print TOC "  <li> <a href=\"gen.html#q$i\">$_</a><br>\n\n";
        print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer
        chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line
        $i=$i+1;
}
print TOC "</ul>\n\n";
`cat genhead.html body.html tail.html > gen.html`;
close(OUT);
close(IN);
#'rm body.html'


# Begin atmo section...
print TOC "<a name=atmo>\n";
print TOC "<h3>Atmospheric questions</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<atmo.qna") || die "Can't open atmo infile\n";
open (OUT, ">body.html") || die "Can't open atmo outfile\n";
while (<IN>) {
        chop;
        print TOC "  <li> <a href=\"atmo.html#q$i\">$_</a><br>\n\n";
        print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer
        chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line
        $i=$i+1;
}
print TOC "</ul>\n\n";
`cat atmohead.html body.html tail.html > atmo.html`;
close(OUT);
close(IN);
#'rm body.html'

print TOC "<a name=bio>\n";
print TOC "<h3>Biological Oceanography</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<bio.qna") || die "Can't open bio infile\n";
open (OUT, ">body.html") || die "Can't open bio outfile\n";
while (<IN>) {
	chop;
	print TOC "  <li> <a href=\"bio.html#q$i\">$_</a><br>\n\n";
	print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer 
 	chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line 
	$i=$i+1;
}
print TOC "</ul>\n\n";
`cat biohead.html body.html tail.html > bio.html`;
close(OUT);
close(IN);
#'rm body.html'


# Begin chem section...
print TOC "<a name=chem>\n";
print TOC "<h3>Chemical Oceanography</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<chem.qna") || die "Can't open chem infile\n";
open (OUT, ">body.html") || die "Can't open chem outfile\n";
while (<IN>) {
        chop;
        print TOC "  <li> <a href=\"chem.html#q$i\">$_</a><br>\n\n";
        print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer
        chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line
        $i=$i+1;
}
print TOC "</ul>\n\n";
`cat chemhead.html body.html tail.html > chem.html`;
close(OUT);
close(IN);
#'rm body.html'


# Begin geo section...
print TOC "<a name=geo>\n";
print TOC "<h3>Geological Oceanography</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<geo.qna") || die "Can't open geo infile\n";
open (OUT, ">body.html") || die "Can't open geo outfile\n";
while (<IN>) {
        chop;
        print TOC "  <li> <a href=\"geo.html#q$i\">$_</a><br>\n\n";
        print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer
        chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line
        $i=$i+1;
}
print TOC "</ul>\n\n";
`cat geohead.html body.html tail.html > geo.html`;
close(OUT);
close(IN);

# Begin phys section...
print TOC "<a name=phys>\n";
print TOC "<h3>Physical Oceanography</h3>\n\n<ul>\n\n";
$i=1;
open (IN, "<phys.qna") || die "Can't open phys infile\n";
open (OUT, ">body.html") || die "Can't open phys outfile\n";
while (<IN>) {
        chop;
        print TOC "  <li> <a href=\"phys.html#q$i\">$_</a><br>\n\n";
        print OUT "  <dt> <a name=\"q$i\"><b>$_</b>\n";
        $_=<IN>;  # READ in the answer
        chop;
        print OUT "  <dd> $_\n  <p>\n\n";
        $_=<IN>;  # SKIP the blank line
        $i=$i+1;
}
print TOC "</ul>\n\n";
`cat physhead.html body.html tail.html > phys.html`;
close(OUT); close(IN);

close(TOC);

`cat head.html toc.html tail.html > faq.html`;