รหัสต้นฉบับเพื่อการศึกษา

File : evalsave.pl. ID : 0708

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

#!/usr/bin/perl
require 'parse.pl';
&parse_form;
$mainf="evalresult.txt";
print "Content-type: text/html\n\n";
print "<html><body bgcolor=#fffffd>";
print "แบบประเมิน : รหัส $v{'id'} วิชา ",substr($v{'subj'},0,6);
print " ตอนที่ ",substr($v{'subj'},6,2),"<br>";
if ($v{'q11'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 1<br>"; }
if ($v{'q12'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 2<br>"; }
if ($v{'q13'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 3<br>"; }
if ($ok ne "Error") {
  open(STDIN,$mainf); 	
  @ar = <STDIN>;
  close(STDIN);
  foreach $r(@ar)	{  
    @rg = split (',',$r);    
    if ($rg[0] eq $v{'id'} and $rg[1] eq $v{'subj'}) { $ok='found'; }
  }   			
} 
if ($ok eq "found") { 
  print "<hr>วิชานี้ถูกประเมินไปแล้ว"; 
} else {
  $v{'qopen'} =~ s/,/./g;
  open (keepf,">>$mainf");
  print keepf "$v{'id'},$v{'subj'},$v{'q11'},$v{'q12'},$v{'q13'},$v{'qopen'}\n";  
  close(keepf); 
  print "<hr>การประเมินวิชานี้ เสร็จสิ้นสมบูรณ์";		
}
print "</body></html>";