#! /usr/local/bin/perl -- ################################################################ # qtba.pl Questions to be Answered Version 4.1 January 22, 1997 # Copyright (c) 1996-1997 Matthew J. Walker # Written for the UCLA Virtual Office Hours Project # Code can be freely distributed for educational use, as long as header # remains intact. See included Copyright and Licensing information. # For info send email to voh@chem.ucla.edu # # Check all paths!! "/" for UNIX/NT ":" for Mac ################################################################ require 'voh-lib.pl'; &SetupVOH; opendir(QUESTIONS, "$questions_path") || (&Failure(11)) ; @questions = sort { $b <=> $a } (grep(!/^\.\.?$/, readdir(QUESTIONS))); foreach $question (@questions) { open(QUESTION, "$questions_path/$question") || (&Failure(12)) ; while() { $html .= $_ ; } close(QUESTION); } closedir(QUESTIONS) ; $output = <<"EOS"; $HTTP_header $HTML_title // Unanswered Questions $lecture

Unanswered Questions $lecture
$instructor


$html $HTML_footer EOS if ($system_type eq "Mac") { MacPerl::Reply($output); } else { print($output); } #End