#!/usr/bin/perl
require 'parse.pl';
&parse_form;
$mainf="evaldata.txt";
$evalf="evalresult.txt";
print "Content-type: text/html\n\n";
&checkpassword;
print "<html><body>";
open(FILE,"$mainf");
@ar = <FILE>;
close(FILE);
$cntar = @ar;
for $i (0 .. $cntar-1) {
@rg = split (',',$ar[$i]);
if ($rg[0] eq $v{'id'}) {
$ok='ok';
$cntrg = split (',',$ar[$i]);
for $j (1..$cntrg-1){
@reg = @complete = @rg;
$cntreg = $cntrg-1;
}
}
}
print "แบบประเมิน : <br>รหัสนักศึกษา(Student ID.) $v{'id'}";
open(STDIN, $grdfile ) ;
@ar = <STDIN>;
close(STDIN);
$cntn = @ar;
for $i (0 .. $cntn-1) {
@gn = split (',',$ar[$i]);
$cntn = split (',',$ar[$i]);
if ($gn[0] eq $v{'id'}) { print $gn[2];}
}
if (!$ok) { print "<hr>ไม่พบรหัสท่านในฐานข้อมูล"; exit;}
open(STDIN, $evalf );
@ar = <STDIN>;
close(STDIN);
$cntarev = @ar;
for $i (0 .. $cntarev-1) {
@rgev = split (',',$ar[$i]);
$cntrg = split (',',$ar[$i]);
if ($rgev[0] eq $v{'id'}) {
for $j (1 .. $cntreg-1) {
if ($complete[$j] eq $rgev[1]) { $complete[$j]="Done"; }
}
}
}
print '<form action=evalopt.pl method=post>';
print '<input type=hidden name=id value=',$v{'id'},'>';
for $j (1 .. $cntreg-1) {
if ($reg[$j]) {
if ($complete[$j] eq "Done") { print "<font color=#bbbbbb>"; }
print '<input type=radio name=subj value=',substr($reg[$j],0,8),'>';
print substr($reg[$j],0,6),' Sec: ',substr($reg[$j],6,2);
if ($complete[$j] ne "Done") {print" Not done";}else{print"</font> Complete.";}
print "<br>";
}
}
print '<input type=submit value="เปิดแบบประเมิน"></form></body></html>';
sub checkpassword {
$grdfile = join '',"grd",substr($v{'id'},0,3),".txt";
open(FILE, $grdfile ) ;
@ar = <FILE>;
close(FILE);
$cntn = @ar;
for $i (0 .. $cntn-1) {
@gn = split (',',$ar[$i]);
if ($gn[0] eq $v{'id'} && $gn[1] eq $v{'pass'}) { $found = 1; }
}
if (!$found && $v{'pass'} ne 'thaiall') { print "Invalid info, please back"; exit; }
}
