home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Javascript / InteractiveWebDesignJavascript / Scripting / cgi1 / perl / cgi-bin / quiz.pl < prev    next >
Encoding:
Perl Script  |  2001-07-18  |  6.7 KB  |  221 lines
  1. #!/usr/local/bin/perl
  2. #
  3. #
  4. # Quiz.pl
  5. # by Leif M. Wright
  6. # http://www.conservatives.net/atheist/scripts/
  7. # scripts@conservatives.net
  8. # 
  9. #################################################################
  10. # Quiz.pl is a simple little quiz script that lets you put an
  11. # unlimited number of quizzes on your site for your users to 
  12. # take. Operation is simple.
  13. # 
  14. # You only have to modify two variables in the script itself, and
  15. # they are defined below in the USER CONFIGURATION section.
  16. # 
  17. # Each quiz is a separate html document with several hidden
  18. # inputs, some of which are required. (they're explained below)
  19. # 
  20. # Each quiz gets its answers from a pipe-delimited database that 
  21. # looks like this:
  22. #         
  23. #         1|yes|The answer to this question is obviously yes, you dolt
  24. # 
  25. # The first item is the question number, which should match
  26. # the question number in your html form. The second item is the answer
  27. # to the question. The third item is a description that explains
  28. # the answer to the user once they've either gotten it wrong or right.
  29. # 
  30. # Each answer should take up one line in your answer file, which
  31. # should end with an ".an" extension. For example, if your first 
  32. # quiz was called "FirstQuiz", the answer file would be "FirstQuiz.an"
  33. # 
  34. # Your html form will need some hidden inputs:
  35. # 
  36. #      <input type=hidden name=Quiz value="1">
  37. #      This contains the name of the quiz (which also will correspond
  38. #      to the name of the answer database). In this case, my quiz is named 
  39. #      "1" If you use numerals for your quiz names, the script has a 
  40. #      nifty feature that looks for the next quiz (in this case it would
  41. #      be quiz number 2. If that quiz exists, the script will provide a 
  42. #      link to it. If it doesn't exist, the script will provide a link to home.
  43. #      
  44. #      <input type=hidden name=QuestionCount value="10">
  45. #      This contains the number of questions in the quiz. It allows the 
  46. #      script to count the number of questions that should be answered, and
  47. #      inform the user if they didn't answer all the questions
  48. #      
  49. #      <input type=hidden name=required value="1|4|7">
  50. #      The character separating the numbers is a pipe (|).
  51. #      This tells the script which questions to require answers to.
  52. #      It only works on inputs of the text and select box type.You cannot
  53. #      require answers to radio box-inputs or checkbox inputs.
  54. #      
  55. # You can put an unlimited number of questions in a quiz, just be 
  56. # sure to change the "QuestionCount" hidden input value to reflect
  57. # the number of questions you use.
  58. #
  59. #################################################################
  60. #      USER CONFIGURATION SECTION
  61. #################################################################
  62. # This should be a web url to your home page. It SHOULD NOT contain
  63. # a trailing slash "/".
  64. $baseurl = "http://localhost/quiz.html";
  65.  
  66. # $basedir is the UNIX directory that contains your output file. Again,
  67. # It should point to a directory only, not a file, and it SHOULD NOT
  68. # contain a trailing slash "/"
  69. $basedir = "C:\Certificate\Scripting\cgi1\perl\cgi-bin";
  70.  
  71. #That's it! You're done!
  72.  
  73. #################################################################
  74. #      END OF USER CONFIGURATION SECTION      #
  75. #################################################################
  76. #reads form data
  77. &parse;
  78. $answersfile = "$basedir/" . "$contents_by_name{'Quiz'}" . ".an";
  79. print "Content-type: text/html\n\n";
  80.  
  81.   if ($contents_by_name{'name'} eq '') {
  82.       print "<body bgcolor=red><font color=white><h1>You must tell us your name! Please go back and try again!</h1>\n";
  83.       exit;
  84.   }
  85.   
  86.   
  87.   @required = split(/\|/, $contents_by_name{'required'});
  88. foreach $required (@required) {
  89.     for ($i = 0; $i < $count; $i++)
  90.     {
  91.         
  92.     if (($fieldnames{$i} eq $required) && ($contents{$i} eq '')) {
  93. #    print "Content-type: text/html\n\n";
  94.         print "<body bgcolor=white><h1>Error</h1>\n";
  95.         print "<font size=4>You must answer question number <b>$fieldnames{$i}</b>\n";
  96.         print "<br> Please go back and complete the form\n";
  97.     exit;
  98.     
  99.     }
  100.     }
  101. }
  102.  
  103.   
  104. &grade;
  105.   
  106.  
  107.  
  108. sub grade
  109. {
  110. open(ANSWERS, "$answersfile");
  111. @answers = <ANSWERS>;
  112. close (ANSWERS);
  113.     
  114.     print "<body bgcolor=white><font face=\"Verdana,Arial,Helvetica,Geneva\" size=4><h1>Score for $contents_by_name{'name'}</h1>\n";
  115.  
  116. #print OUTFILE "<HTML><BODY>";
  117. for ($i = 0; $i < $count; $i++)
  118. {
  119.     if (($fieldnames{$i} eq 'Quiz') || ($fieldnames{$i} eq 'QuestionCount') || ($fieldnames{$i} eq 'name') || ($fieldnames{$i} eq 'required'))
  120.     {
  121.         next;
  122.     }
  123.     
  124.     &CompareAnswers;
  125.     
  126.     
  127. }
  128.  
  129. #print "<hr noshade size=1>\n";
  130.     print "<hr noshade size=1>\n";
  131.     if ($rightcount + $wrongcount != $contents_by_name{'QuestionCount'}) {
  132.         $TotalAnswered = $rightcount + $wrongcount;
  133.         
  134.         print "You did not answer all $contents_by_name{'QuestionCount'} questions.<Br>";
  135.         print "Of the $TotalAnswered questions you answered, you got $rightcount correct and $wrongcount incorrect.<p>";
  136.     &checkifnext;
  137.     
  138.     }
  139.     
  140.         
  141.     print "You got <b>$rightcount</b> answers right.<br>You got <b>$wrongcount</b> answers wrong.<p>\n";
  142.     &checkifnext;
  143.     
  144.     
  145. sub checkifnext {
  146.     
  147.         $nextquiz = $contents_by_name{'Quiz'} +1;
  148.     $nextcomplete = "$basedir/" . "$nextquiz" . ".an";
  149.  
  150.     
  151.     open(NEXTER, "$nextcomplete") || &done;
  152.     close (NEXTER);
  153.         
  154.     print "<a href=quiz$nextquiz.html>Take the next quiz</a>";
  155.     exit;
  156.     
  157. }
  158.  
  159.     
  160.     
  161.  
  162. }
  163.  
  164. sub done {
  165.     print "<a href=$baseurl>Home</a>";
  166.     exit;
  167. }
  168.  
  169.  
  170.  
  171. sub CompareAnswers {
  172.   
  173.  
  174.  
  175.  
  176.    foreach $answers (@answers) {
  177.         ($QuestionNumber,$AnswerDetail,$AnswerExplain) = split(/\|/, $answers);
  178.     $AnswerDisplay = $AnswerDetail;
  179.     
  180. #    chop($AnswerDetail);
  181.     
  182.         if ($QuestionNumber eq $fieldnames{$i}) {
  183.             if ($AnswerDetail eq $contents{$i}) {
  184.                 print "Your answer for question $fieldnames{$i}, <b>$contents{$i},</b> is CORRECT! <i>$AnswerExplain</i><p>\n";
  185.         $rightcount++;
  186.         
  187.         
  188.             } else {
  189.         print "<font color=red>Your answer for question $fieldnames{$i},</font><b> $contents{$i},</b><font color=red> is <b>WRONG!</b></font>";
  190.         print " <i><b>$AnswerExplain</b></i><p>\n";
  191.         $wrongcount++;
  192.         
  193.             }
  194.         }
  195.         
  196. }
  197. }
  198.  
  199.  
  200.  
  201. sub parse
  202. {
  203. if ($ENV{'REQUEST_METHOD'} eq 'POST')
  204. {
  205.     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  206.     @pairs = split(/&/, $buffer);
  207.     $count = 0;
  208.     foreach $pair (@pairs)
  209.     {
  210.         ($name, $value) = split(/=/, $pair);
  211.         $value =~ tr/+/ /;
  212.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  213.         $contents_by_name{$name} = $value;
  214.         $contents{$count} = $value;
  215.         $fieldnames{$count} = $name;
  216.         $count++;
  217.     }
  218.  
  219. }
  220. }
  221.