#!/usr/bin/perl use strict; use CGI qw/:standard/; my $qdata = '/vol/www/oefiles/quiz'; my $cgi = CGI->new(); my $quiz = $cgi->param('quiz'); my $id = $cgi->param('id'); my $answer = $cgi->param('answer'); my $lines = 0; open(QZ, "$qdata/$quiz/questions.txt"); if ($id) { while (my $line = ) { next unless $line =~ /^($id)::/; chomp($line); my ($cid,$pic,$solution) = split('::', $line); $solution =~ tr/a-zA-Z0-9//dc; $answer =~ tr/a-zA-Z0-9//dc; if (lc($solution) eq lc($answer)) { print header,"2:$id"; last; } else { print header,"1:$id"; last; } } } else { while (my $line = ) { next unless $line =~ /^q\d+::/; $lines++; } print header,"0:$lines"; } close(QZ);