#!/usr/bin/perl
#
# (void) faq program
# Harl/06/04/1999/GPL/1.0
#
# First prints out html contained in header file. Then creates an index
# based on available question and answer files.
#
# For each question make a subdirectory called void_faq_qx where x is
# a number. Put the question into a file called question.txt in that
# directory and the answers in seperate files. They can be called
# anything as long as each filename is unique and has a .dat extension
#
# This has been a production by The Wrong People
#

$header_file = "header.dat";


#
# Get random answer for current question
#
sub show_random_answer {
    $len = @the_masses = <$dir_name/*.dat>;
    $chosen_one = @the_masses[rand $len];
    open(ANSWER, $chosen_one) or die "Can't open $chosen_one\n";
    while (<ANSWER>) {
        print "  ";
        print;
    }
}


#
# Print header
#
#print "Content-type: text/html\n\n";
open(INTRO, $header_file) or die "Can't open $header_file\n";
while (<INTRO>) {
    print;
}


#
# Print index
#
print "  <h3>Contents</h3>\n";
@dir_list = <faq-q*>;
$q_num = 0;
foreach $dir_name (@dir_list) {
    $q_num++;
    print "  <a href=\"#Q$q_num\"><b>$q_num\) ";
    open(QUESTION, "$dir_name/question.txt");
    $q_str = <QUESTION>;
    chomp $q_str;
    print $q_str;
    print "</b></a><br>\n";
}
print "  <p>\n  <hr>\n  <p>\n";


#
# Print full question and answer
#
$q_num = 0;
foreach $dir_name (@dir_list) {
    $q_num++;
    print "  <a name=\"Q$q_num\">\n";
    print "  <b>Question $q_num</b><br>\n";
    open(QUESTION, "$dir_name/question.txt");
    $q_str = <QUESTION>;
    chomp $q_str;
    print "  <b>$q_str</b><br>\n";
    show_random_answer;
    print "  <p>\n\n";
}


#
# Print footer
#
print " <!--// This is a dynamic FAQ. It is rarely the same twice //-->\n";
print " </body>\n";
print "</html>\n";