#!/usr/local/bin/perl 
########################################################
#                     Quirex 1.3                       #
#               By Thomas Tsoi 11.8.99                 #
#                webmaster@cgi.com.hk                  #
########################################################
#                                                      #
# CGI.com.hk:                                          #
#   http://www.cgi.com.hk/                             #
#                                                      #
# #################################################### #
#                                                      #
# You can distribute this script and use it freely as  #
# long as this header is not edited in the script.     #
#                                                      #
########################################################
##############################

# mg33
# mg33

$data_questions  = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_ques.txt";
# The database of questions, one question per line
# chmod 644

##############################
$data_choices    = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_choices.txt";
# The database of multiple choices
# chmod 644

##############################
$data_answers    = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_ans.txt";
# The database of answers
# chmod 644

##############################
$data_desc       = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_desc.txt";
# The database of additional information to the questions or answers
# chmod 644

##############################
$data_last       = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_last.txt";
# The file to store the data of challengers
# chmod 666

##############################
$html_head       = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_head.txt";
# HTML template of the header
# chmod 644

##############################
$html_foot       = "/home/people/ibch/mariuszj/CBB/PXQ/quiz_foot.txt";
# HTML template of the footer
# chmod 644

##############################
$url             = "http://users.man.poznan.pl/mariuszj/CBB/htbins/quiz.cgi";
# URL of this CGI script

###############################
# $num_questions   = 210;
# Number of questions in the question database
# Not necessary if you use admin.cgi to add questions

###############################
$least_questions = 1;
# The smallest number of questions a challenger has to take
# i.e. If you set this to 10, no one can take only 5 or 8 questions

###############################
$last_num        = 15;
# Number of recent challengers to display

#################################
$remote_host1="$ENV{REMOTE_HOST}";
$remote_addr1="$ENV{REMOTE_ADDR}";
$http_referer1="$ENV{ HTTP_REFERER}";
##########################################################
# Do not edit the following unless you know what you are doing
# require 'cookie.lib';
require ("cgi-lib.pl");
&ReadParse(*form);

$name   = $form{'name'};
$email  = $form{'email'};
$action = $form{'action'};
if (! $num_questions > 0) {
	open(QUES, "$data_questions");
	@questions = <QUES>;
	close(QUES);
	$num_questions = $#questions + 1;
	}

$num_display = defined($form{'number'})? $form{'number'}: $least_questions;
if ($form{'number'} =~ /^all$/i) {$num_display = $num_questions;}
if ($num_display < $least_questions) {$num_display = $least_questions;}
if ($num_display > $num_questions) {$num_display = $num_questions;}

if ($ENV{'QUERY_STRING'} eq "last" || $action eq "last") {
	&Last;
	}
elsif ($action eq "submit") {
# if (exists $ENV{'HTTP_COOKIE'}) {

##########-MJ-18-12-2012-##########
# modification to skip COOKIE checking
#

if (true) {

##########-MJ-18-12-2012-##########
# modification to skip COOKIE checking
#

&DisplayAnswer;

}
else {
&NoLast;
}
}
else {

&DisplayQuiz;
	}

###########################################################
###########################################################
sub DisplayQuiz {
 print "Content-type: text/html\n";
# mg33
### Create, update, or delete the cookie

   $exists = 0;                                # any cookies?
   $cookies = '';                              # cookies
   $cookie = 0;                                # our cookie?
   $visit = 0;                                 # default counter
   if (exists $ENV{'HTTP_COOKIE'}) {
      $exists  = 1;
      $cookies = $ENV{'HTTP_COOKIE'};
      @cookies = split(';',$ENV{'HTTP_COOKIE'});
      foreach (@cookies) {
         ($k,$v) = split('=',$_);
         $k =~ s/ //g;
         if ($k eq 'VISIT') {
            $cookie = 1;
            $visit = $v;
         }
      }
   }



$newvisit = 1; 

      $set = "Set-Cookie: " .
             "VISIT=$newvisit; " .
              "path=/mariuszj/CBB/htbins; " .
#              "path=/CBB/PXQ; " .
             "expires=Tuesday, 28-Dec-2090 23:59:40 GMT";   # future
   print "$set" ,                              # set cookie
         "\n\n";                               # end of header
# mg33
print &header;
print "<p>\n";
print "<form action=\"$url\" method=\"post\">\n";

open(CHOICES, $data_choices);
@choices = <CHOICES>;
close(CHOICES);

open(QUES, $data_questions);
@questions = <QUES>;
close(QUES);

for ($i=0; $i<$num_display; $i++) {
	$sequence[$i] = -1;
	}
for ($i=0; $i<$num_display; $i++) {
	do {
		$sequence[$i] = int(rand($num_questions));
		$repeated = 0;
		for ($j=0; $j<$num_display; $j++) {
			if ($sequence[$i] == $sequence[$j] && $i != $j) {
				$repeated = 1;
				}
			}
		} while ($repeated == 1);
	}

for ($i=0; $i<$num_display; $i++) {
	print "<font face=\"Arial\"><b>";
	print ($i+1);
	chomp($questions[$sequence[$i]]);
	print ". $questions[$sequence[$i]]</b></font><br>\n";

	chomp($choices[$sequence[$i]]);

	print "<font face=\"Arial\">";

	if ($choices[$sequence[$i]] ne "") {
		@temps = split(/\|/, $choices[$sequence[$i]]);
		foreach $temp (@temps) {
			print "<input type=\"radio\" name=\"$sequence[$i]\" value=\"$temp\"> $temp <br>";
			}
		}
	else {
		print "Answer: <input type=\"text\" name=\"$sequence[$i]\" size=30>";
		}

	print "</font>\n";
	print "<p>\n";
	}

print "<font face=\"Arial\" size=2>";
print "Name: ";
print (defined($name)? "<input type=\"text\" name=\"name\" value=\"$name\"><br>\n": "<input type=\"text\" name=\"name\"><br>\n");
print "E-mail: ";
print (defined($email)? "<input type=\"text\" name=\"email\" value=\"$email\">": "<input type=\"text\" name=\"email\">");
print "</font>\n<p>\n";

$" = "\|";

print <<END_OF_HTML;
<input type="hidden" name="action" value="submit">
<input type="hidden" name="number" value="$num_display">
<input type="hidden" name="sequence" value="@sequence">
<input type="submit" value="Check the answers">

</form>

<p>
<hr width="400" size="1" color="#91A7DB" align="left">
<font face="Arial" size=4><i>
<a href="$url?last">Last $last_num Challengers</a>
</i></font>
END_OF_HTML

print &footer;

}

###########################################################
###########################################################
sub DisplayAnswer {
#  &send_mail;
 print "Content-type: text/html\n";
# mg33
### Create, update, or delete the cookie

   $exists = 0;                                # any cookies?
   $cookies = '';                              # cookies
   $cookie = 0;                                # our cookie?
   $visit = 0;                                 # default counter
   if (exists $ENV{'HTTP_COOKIE'}) {
      $exists  = 1;
      $cookies = $ENV{'HTTP_COOKIE'};
      @cookies = split(';',$ENV{'HTTP_COOKIE'});
      foreach (@cookies) {
         ($k,$v) = split('=',$_);
         $k =~ s/ //g;
         if ($k eq 'VISIT') {
            $cookie = 1;
            $visit = $v;
         }
      }
   }


$newvisit = 1; 
      $set = "Set-Cookie: " .
             "VISIT=; " .
  
             "path=/mariuszj/CBB/htbins; " .
#           "path=/CBB/PXQ; " .
             "expires=Wednesday, 03-Jan-2096 23:12:40 GMT";   # past
   print "$set" , "\n\n";                              # set cookie
                                       # end of header
# mg33
 print &header;

print <<END_OF_HTML;
<font face=\"Arial\" size=2>
Name: $name<br>
Email: $email
</font>
<p>

END_OF_HTML

@sequence = split(/\|/, $form{'sequence'});

open(QUES, "$data_questions");
@questions = <QUES>;
close(QUES);

open(CHOICE, "$data_choices");
@choices = <CHOICE>;
close(CHOICE);

open(ANS, "$data_answers");
@answers = <ANS>;
close(ANS);

open(DESC, "$data_desc");
@desc = <DESC>;
close(DESC);

$correct = 0;

for ($i=0; $i<$num_display; $i++) {
	print "<font face=\"Arial\"><b>";
	print ($i+1);
	chomp($questions[$sequence[$i]]);
	print ". $questions[$sequence[$i]]</b> </font><br>\n";

	chomp($answers[$sequence[$i]]);
	chomp($choices[$sequence[$i]]);

	$tick = 0;

	if ($choices[$sequence[$i]] ne "") {
		print "<font face=\"Arial\">Your answer is: <font color=\"#7092D1\">$form{\"$sequence[$i]\"}</font></font><br>\n";
		print "<font face=\"Arial\">Correct answer: <font color=\"#ff0000\">$answers[$sequence[$i]]</font></font><br>\n";
		}
	else {
		@valid_answers = split(/\|/, $answers[$sequence[$i]]);
		foreach $ans (@valid_answers) {
			if ($ans =~ /^$form{$sequence[$i]}$/i) {
				$ans = "<b>$ans</b>";
				$tick = 1;
				}
			}
		$valid_ans = join(", ", @valid_answers);

		print "<font face=\"Arial\">Your answer: <font color=\"#7092D1\">$form{\"$sequence[$i]\"}</font></font><br>\n";
		print "<font face=\"Arial\">Accepted answer(s): <font color=\"#ff0000\">$valid_ans</font></font><br>\n";
		}

	chomp($desc[$sequence[$i]]);
	if ($desc[$sequence[$i]] ne "") {
		print "<font face=\"Arial\" size=2><b>(Note: $desc[$sequence[$i]])</b></font><br>\n";
		}

	print "<p>\n";

	if ($form{"$sequence[$i]"} eq $answers[$sequence[$i]] || $tick == 1) {
		$correct++;
		}
	}

print <<END_OF_HTML;
<p>
<font style="font: italic bold 14pt Arial">
You have got $correct correct out of the $num_display questions.
</font>

<p>
<form action="$url" method="post">
<font style="font: italic bold 13pt Arial">
<input type="submit" value="Try Again"> and you will get different questions
<input type="hidden" name="name" value="$name">
<input type="hidden" name="email" value="$email">
<input type="hidden" name="number" value="$num_display">
</font>
</form>

<p>
<hr width="400" size="1" color="#91A7DB" align="left">
<font face="Arial" size=4><i>
<a href="$url?last">Last $last_num Challengers</a>
</i></font>
END_OF_HTML


print &footer;

open(READ, "$data_last");
@last = <READ>;
close(READ);

open(LAST, ">$data_last");
print LAST "$num_display|$correct|$name|$email|$remote_host1|remote_addr1|$http_referer1\n";
print LAST @last;
close(LAST);
}

###########################################################
###########################################################
sub Last {
print "Content-type: text/html\n\n";
# print &header;
print <<END_OF_HTML;
<font face="Arial" size=4><i>Last $last_num Challengers</i></font>
<p>
<table border=0 cellspacing=10 width=400>
<tr bgcolor="#BBBBBB">
<td align=center><font style="font: normal bold 11pt Arial">Name</font></td>
<td align=center><font style="font: normal bold 11pt Arial">Questions Attemped</font></td>
<td align=center><font style="font: normal bold 11pt Arial">Score</font></td>
<td align=center><font style="font: normal bold 11pt Arial">Percentage</font></td>
<td align=center><font style="font: normal bold 11pt Arial">   From</font></td>
</tr>
END_OF_HTML

open(READ, "$data_last");
@last = <READ>;
close(READ);

$linenum = $#last;

if ($linenum <= $last_num) {
	foreach $line (@last) {
		chomp($line);
		($last_ttl, $last_score, $last_name, $last_email,$remote_host,$remote_addr,$http_referer) = split(/\|/, $line);
		
		print "<tr>\n";
		if ($last_email ne "" && $last_name ne "") {
			print "<td align=left><font face=\"Arial\"><a href=\"mailto\:$last_email\">$last_name</a></font></td>\n";
			}
		elsif ($last_name ne "") {
			print "<td align=left><font face=\"Arial\">$last_name</font></td>\n";
			}
		else {
			print "<td align=left><font face=\"Arial\">Anonymous</font></td>\n";
			}
		print "<td align=right><font face=\"Arial\">$last_ttl</font></td>\n";
		print "<td align=right><font face=\"Arial\">$last_score</font></td>\n";
		print "<td align=right><font face=\"Arial\">".(round($last_score/$last_ttl*100))."%</font></td>\n";
 print "<td align=right><font face=\"Arial\">$remote_host</font></td>\n";
# print "<td align=right><font face=\"Arial\">$remote_addr</font></td>\n";
# print "<td align=right><font face=\"Arial\">$http_referer</font></td>\n";
		print "</tr>\n";
		}
	}
else {
	$count = 0;
	foreach $line (@last) {
		chomp($line);
($last_ttl, $last_score, $last_name, $last_email,$remote_host,$remote_addr,$http_referer) = split(/\|/, $line);
		
		if ($count < $last_num) {
			print "<tr>\n";
			if ($last_email ne "" && $last_name ne "") {
				print "<td align=left><font face=\"Arial\"><a href=\"mailto\:$last_email\">$last_name</font></a></td>\n";
				}
			elsif ($last_name ne "") {
				print "<td align=left><font face=\"Arial\">$last_name</font></td>\n";
				}
			else {
				print "<td align=left><font face=\"Arial\">Anonymous</font></td>\n";
				}
			print "<td align=right><font face=\"Arial\">$last_ttl</font></td>\n";
			print "<td align=right><font face=\"Arial\">$last_score</font></td>\n";
			print "<td align=right><font face=\"Arial\">".(round($last_score/$last_ttl*100))."</font>%</td>\n";
print "<td align=right><font face=\"Arial\">$remote_host</font></td>\n";
# print "<td align=right><font face=\"Arial\">$remote_addr</font></td>\n";
# print "<td align=right><font face=\"Arial\">$http_referer</font></td>\n";

		print "</tr>\n";
			$count++;
			}
		}
	}

print "</table>\n";

print &footer;

}

###########################################################
###########################################################
sub header {
open(HTML, "$html_head");
my @lines = <HTML>;
close(HTML);
return @lines;
}

sub footer {
open(HTML, "$html_foot");
my @lines = <HTML>;
close(HTML);
return @lines;
}

sub round{
	local $num = @_[0];
	return int($num + 0.5);
}
###################################################################
##               Mg33                      ##
#################################################################
sub NoLast {

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if ($sec < 10) {
        $sec = "0$sec";
}
if ($min < 10) {
        $min = "0$min";
}
if ($hour < 10) {
        $hour = "0$hour";
}
if ($mon < 10) {
        $mon = "0$mon";
}
if ($mday < 10) {
        $mday = "0$mday";
}

if ($year>99) {
$year=$year+1900;
}
$month = $mon;
@months = ("January","February","March","April","May","June","July","August","September","October","November","December");
$date = "<td align=right>Time: $hour\:$min\:$sec </td><br> <td align=right>Date: $months[$month] $mday, $year </td>";


print "Content-type: text/html\n\n";
print <<END_OF_HTML;
<center>
<h2>
<table width=620 border=0 cellspacing=0>
<tr bgcolor="#E41B52">
	<td><font class="b"> PXQuiz Message<br> $date</font></td>
</tr>
</table>
<p>
<table border=0 cellspacing=0 width=600>
<tr bgcolor="#BBBBBB">
You already submitted this set of questions
before.<br> Please note that you have only one try
per set. 
<P>In order to get a new quiz form, go <a href="http://www.man.poznan.pl/CBB/PXQ/quiz.html">back</a> to 
the Quiz Top Page and access  "PXQuiz" again.



</tr>
END_OF_HTML


print "</table>\n";
print "<center>";
print &footer;
print "</center>";
}

################################################
sub send_mail {

$dokogo="mariusz\@leucine.ibch.poznan.pl";
$temat="quiz test.";
$odkogo="mirek\@krystal.amu.edu.pl";
$text= "test mail from quiz.";

open (MAIL, "|/usr/lib/sendmail -f $odkogo -t $dokogo") || die "sendmail: $!"; 

# print MAIL "From: $odkogo\n"; 
# print MAIL "To: $dokogo\n";
# print MAIL "Subject: $temat\n\n";

# print MAIL "Content-type: text/html\n\n";
print MAIL &header;
#####################




print  MAIL <<END_OF_HTML;
<font face=\"Arial\" size=2>
Name: $name<br>
Email: $email
</font>
<p>

END_OF_HTML

@sequence = split(/\|/, $form{'sequence'});

open(QUES, "$data_questions");
@questions = <QUES>;
close(QUES);

open(CHOICE, "$data_choices");
@choices = <CHOICE>;
close(CHOICE);

open(ANS, "$data_answers");
@answers = <ANS>;
close(ANS);

open(DESC, "$data_desc");
@desc = <DESC>;
close(DESC);

$correct = 0;

for ($i=0; $i<$num_display; $i++) {
	print  MAIL "<font face=\"Arial\"><b>";
	print  MAIL ($i+1);
	chomp($questions[$sequence[$i]]);
	print  MAIL ". $questions[$sequence[$i]]</b> </font><br>\n";

	chomp($answers[$sequence[$i]]);
	chomp($choices[$sequence[$i]]);

	$tick = 0;

	if ($choices[$sequence[$i]] ne "") {
		print  MAIL "<font face=\"Arial\">Your answer is: <font color=\"#7092D1\">$form{\"$sequence[$i]\"}</font></font><br>\n";
		print  MAIL "<font face=\"Arial\">Correct answer: <font color=\"#ff0000\">$answers[$sequence[$i]]</font></font><br>\n";
		}
	else {
		@valid_answers = split(/\|/, $answers[$sequence[$i]]);
		foreach $ans (@valid_answers) {
			if ($ans =~ /^$form{$sequence[$i]}$/i) {
				$ans = "<b>$ans</b>";
				$tick = 1;
				}
			}
		$valid_ans = join(", ", @valid_answers);

		print  MAIL "<font face=\"Arial\">Your answer: <font color=\"#7092D1\">$form{\"$sequence[$i]\"}</font></font><br>\n";
		print  MAIL "<font face=\"Arial\">Accepted answer(s): <font color=\"#ff0000\">$valid_ans</font></font><br>\n";
		}

	chomp($desc[$sequence[$i]]);
	if ($desc[$sequence[$i]] ne "") {
		print  MAIL "<font face=\"Arial\" size=2><b>(Note: $desc[$sequence[$i]])</b></font><br>\n";
		}

	print  MAIL "<p>\n";

	if ($form{"$sequence[$i]"} eq $answers[$sequence[$i]] || $tick == 1) {
		$correct++;
		}
	}

print  MAIL <<END_OF_HTML;
<p>
<font style="font: italic bold 14pt Arial">
You have got $correct correct out of the $num_display questions.
</font>

<p>
END_OF_HTML



##################
print MAIL &footer;
 close (MAIL);

}