Online Engine Test Script

Search Engine Optimization Techniques | Search Engine Optimization for dynamic pages | Free Perl CGI scripts | Online Test Engine

#!/usr/bin/perl
#####################################################
# Script by MP.Prakash R.Lewis                      #
# http://www.bestnetcraft.com                       #
# This script is offered in the same terms as Perl. #
# Inclusion of this copyright message is mandatory  #
# for using this script.		            #
# Comments and suggestions may be sent through      #
# http://www.bestnetcraft.com/contact.html          #
# No liability or damage will be accepted by the    # 
# author under any circumstances.                   #
#####################################################
# Check out the http://www.bestnetcraft.com/readme.html
# for installing the script 
# Version 2 : Integrated module
# needs external questions-answers text 
# Q & A text file's name needs to be passed as the query_string
# set up a 12 element array using raw.pl and invoke this script passing the text name
# as query_string
# For a working example - check out : http://www.bestnetcraft.com/resource.html
# Configuration - User defined variables

$pro="quest.cgi";
$lin=1; 
$debug=0;
$envy= $ENV{'QUERY_STRING'};
#parse the form
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
  @pairs=split(/&/,$temp);
  foreach $item(@pairs)
   {
    ($key,$content)=split(/=/,$item,2);
    $content=~tr/+/ /;
    $content=~s/%(..)/pack("c",hex($1))/ge;
    $content =~ s///g;
    $fields{$key}=$content;
    $i++;
    $item{$i}=$key;
    $response{$i}=$content;
   }
$envy =($envy ?$envy:$fields{'what'});
&nyet unless $envy;
$marks =($fields{'total'}?$fields{'total'}:0); 
#&nyet unless $fields{'action'};
	
if ($fields{'action'} eq "indi") {&quest1;}
&quest1 unless $fields{'action'};

#beginning of subs

sub quest1 {
print "Content-type: text/html\n\n";
print <<eof;
<html><head><title>Bestnetcraft -Test your Knowledge </title>
<style type=text/css>
b {font-family: Garamond, helvetica, sans-serif; color:#FFFF00;}
</style>
</head>
<body bgcolor=#000080 text=#FFFFFF>
<script language="JavaScript">
Browser = navigator.appName;
Version = parseInt(navigator.appVersion);
if((Browser == "Netscape" && 3 <= Version) || (Browser == "Microsoft Internet Explorer" && 4 <= Version))
{
button1on = new Image(53,37);button1on.src = "/exitm.gif";
button1of = new Image(53,37);button1of.src = "/exitn.gif";
}
function swap(Image,Toggle)
{

if((Browser == "Netscape" && 3 <= Version) || (Browser == "Microsoft Internet Explorer" && 4 <= Version))  
  {
    document[Image].src = eval(Image + Toggle + ".src");
  }
}
</script>
<p align="center"><img src="/questions.gif"></p>

eof

if ($fields{'ans'} =~/correct/i) {$marks++;}
$no=($fields{'number'}?$fields{'number'}:0);
if ($debug eq "1") {
print "Requested file: $envy <br>";
print " Question is :$ele[1]<br>";
print "Answer is : $fields{'ans'}<br>";
print "Number of Question: $no<br>";
print "marks scored is : $marks<br>";
			}
if ($fields{'ans'} ne "") {$no++;}
print "<b>Total Marks scored in this test : $marks </b><br><br>";
my $per=(($marks/31)*100);
my $perc=sprintf "%.2f",$per;
if ($perc >=75){
print <<endo;
 Congratulations ! Your score is $perc %<br>
Please take a moment to fill up <a
href="http://www.bestnetcraft.com/contact.html" target="_blank"><font
color="#FFFFFF">this</font></a> form to help serve you better.<br><br>

endo

}

#processing the input data
open (FILE, $envy) || &nyet;
if ($lin ==1){flock FILE, 2;}
@data =<FILE>;
if ($lin ==1){flock FILE, 8;}
close (FILE);
$number =$#data;
for ($i=0 ; $i<=$number ; $i++) 
	{
		@ele = split(/\|/,@data[$i]);

if ($ele[0] == $no){

#printing part

print <<eof;
<B>Question $no : </B>$ele[1]<br>
<form name="quest" method="POST" action="$pro">
  <p><input type="radio" value="$ele[6]" name="ans">$ele[2]</p>
  <p><input type="radio" value="$ele[7]" name="ans">$ele[3]</p>
 
eof

if ($ele[10] == 4) { 
print <<eof;
  <p><input type="radio" value="$ele[8]" name="ans">$ele[4]</p>
  <p><input type="radio" value="$ele[9]" name="ans">$ele[5]</p>

eof
			  }

print <<eof;

<input type="hidden" name="what" value=$envy>
<input type="hidden" name="action" value="indi">
<input type="hidden" name="number" value=$no>
<input type="hidden" name="total" value=$marks>
<input type="submit" value="Next">
</form>
<P align ="right"><a href = "http://www.bestnetcraft.com/contact.html"
onmouseout = "swap('button1','of');return true"   onmouseover =
"swap('button1','on');return true">   <img border="0" src="/exitn.gif"
name="button1" alt="Finish the Test" align="center"></a> </P>
<hr>
<font size=-2>
©  2000/2007 Bestnetcraft.com. 
</font>

<hr>

eof
last;
	}
	}
}

sub nyet {
print "Content-type: text/html\n\n";
print <<eof;

<html>
<head><title>Bestnetcraft - Test your Knowledge </title>
<style type=text/css> p,h2{font-family: Garamond, helvetica,
sans-serif; color:#FFFF00; }
</style>
</head>
<body bgcolor=#000080 text=#FFFFFF>
<p align=center><img src="/qq.jpg" alt="Quiz from Bestnetcraft.com"></p>
<br>
<p align=center><a href="http://www.bestnetcraft.com/content.html"
border=0><h2>Bestnetcraft for Total web solutions</h2></a></p>
<p>Finecrafts of the Net. For more of free
CGI/Perl/server scripts click on the name "Bestnetcraft". </p>
<font
face=Garamond color=#FFFFFF><b>N</b>ote: The next few pages will take you
through a series of questions.  This is an Online Question- Answer Session.
You have a running score visible always at the top. There is no time limit to
this test. If you have succesfully completed this test you can move on to
another test. Please complete the form at the end of the test which will
enable us to serve you better.
</font><br><br> <hr> <font size=-2> ©
2000 - 2007 Bestnetcraft.com. All rights Reserved. </font>

<hr>

eof

exit;
}