From 09134766cd1ce6d19fc77807bd52a899dde2eb05 Mon Sep 17 00:00:00 2001 From: cassiopc Date: Fri, 25 Sep 2015 10:50:00 +0100 Subject: minor fixes --- src/private/autojudging.php | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) (limited to 'src/private/autojudging.php') diff --git a/src/private/autojudging.php b/src/private/autojudging.php index d4f9719..bda7d38 100755 --- a/src/private/autojudging.php +++ b/src/private/autojudging.php @@ -456,7 +456,7 @@ if($retval != 0) { $answer = "(WHILE RUNNING) " . $answer; break; } - + $ncor = 0; if(is_file($dir . $ds . 'output' . $ds . $file)) { @unlink($dir . $ds . 'compout'); $ex = escapeshellcmd($scriptcomp) ." ". @@ -485,26 +485,27 @@ if($retval != 0) { if($localretval < 4 || $localretval > 6) { // contact staff $retval = 7; - $answer='(Contact staff)' . $answertmp; + $answer='(Contact staff)' . $answertmp . ' (' . $ncor . '/' . $ninputlist . ' OKs)'; break; } if($localretval == 6) { $retval=$localretval; - $answer='(Wrong answer)'. $answertmp; + $answer='(Wrong answer)'. $answertmp . ' (' . $ncor . '/' . $ninputlist . ' OKs)'; break; } if($localretval == 5) { $retval=$localretval; - $answer='(Presentation error)'. $answertmp; + $answer='(Presentation error)'. $answertmp . ' (' . $ncor . '/' . $ninputlist . ' OKs)'; } else { if($localretval != 4) { $retval = 7; - $answer='(Contact staff)' . $answertmp; + $answer='(Contact staff)' . $answertmp . ' (' . $ncor . '/' . $ninputlist . ' OKs)'; break; } - if($retval == 0) { + $ncor++; + if($retval == 0 || $retval == 1) { // YES! - $answer='(YES)' . $answertmp; + $answer='(YES)' . $answertmp . ' (' . $ncor . '/' . $ninputlist . ' OKs)'; $retval = 1; } } @@ -594,6 +595,14 @@ if($retval != 0) { } */ } +if($retval >= 7 && $retval <= 9) { + $ans = file("allout"); + $anstmp = trim(escape_string($ans[count($ans)-1])); + unset($ans); + $answer = "(probably runtime error - unusual code: $retval) " . $anstmp; + // runtime error + $retval = 3; +} if($retval == 0 || $retval > 9) { $ans = file("allout"); $anstmp = trim(escape_string($ans[count($ans)-1])); -- cgit v1.2.3