init

1 files changed, 949 insertions, 0 deletions

diff --git a/boca-1.5.0/src/frun.php b/boca-1.5.0/src/frun.php
new file mode 100644
index 0000000..fcf05c0
--- /dev/null
+++ b/boca-1.5.0/src/frun.php
@@ -0,0 +1,949 @@
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//BOCA Online Contest Administrator
+//    Copyright (C) 2003-2012 by BOCA Development Team (bocasystem@gmail.com)
+//
+//    This program is free software: you can redistribute it and/or modify
+//    it under the terms of the GNU General Public License as published by
+//    the Free Software Foundation, either version 3 of the License, or
+//    (at your option) any later version.
+//
+//    This program is distributed in the hope that it will be useful,
+//    but WITHOUT ANY WARRANTY; without even the implied warranty of
+//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//    GNU General Public License for more details.
+//    You should have received a copy of the GNU General Public License
+//    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+////////////////////////////////////////////////////////////////////////////////
+// Last modified 21/jul/2012 by cassio@ime.usp.br
+
+function DBDropRunTable() {
+	 $c = DBConnect();
+	 $r = DBExec($c, "drop table \"runtable\"", "DBDropRunTable(drop table)");
+}
+function DBCreateRunTable() {
+	 $c = DBConnect();
+	 $conf = globalconf();
+	 if($conf["dbuser"]=="") $conf["dbuser"]="bocauser";
+	 $r = DBExec($c, "
+CREATE TABLE \"runtable\" (
+\"contestnumber\" int4 NOT NULL,	-- (id do concurso)
+\"runsitenumber\" int4 NOT NULL,	-- (local de origem da submissao)
+\"runnumber\" int4 NOT NULL,		-- (numero da submissao)
+\"usernumber\" int4 NOT NULL,		-- (numero do time)
+\"rundate\" int4 NOT NULL,		-- (dia/hora da submissao no local de origem)
+\"rundatediff\" int4 NOT NULL,		-- (diferenca entre inicio da competicao e dia/hora da submissao em seg)
+\"rundatediffans\" int4 NOT NULL,	-- (diferenca entre inicio da competicao e dia/hora da correcao em seg)
+\"runproblem\" int4 NOT NULL,		-- (id do problema)
+\"runfilename\" varchar(200) NOT NULL,	-- (nome do arquivo submetido)
+\"rundata\" oid NOT NULL,		-- (codigo fonte do arquivo submetido)
+\"runanswer\" int4 DEFAULT 0 NOT NULL,	-- (resposta dada no julgamento)
+\"runstatus\" varchar(20) NOT NULL,	-- (status da submissao: openrun, judging, judged, deleted, judged+)
+\"runjudge\" int4 DEFAULT NULL,		-- (juiz que esta julgando)
+\"runjudgesite\" int4 DEFAULT NULL,	-- (juiz que esta julgando)
+\"runanswer1\" int4 DEFAULT 0 NOT NULL, -- (resposta dada no julgamento)                                                    
+\"runjudge1\" int4 DEFAULT NULL,                -- (juiz que esta julgando)                                                 
+\"runjudgesite1\" int4 DEFAULT NULL,    -- (juiz que esta julgando)                                                         
+\"runanswer2\" int4 DEFAULT 0 NOT NULL, -- (resposta dada no julgamento)                                                    
+\"runjudge2\" int4 DEFAULT NULL,                -- (juiz que esta julgando)                                                 
+\"runjudgesite2\" int4 DEFAULT NULL,    -- (juiz que esta julgando)                                                         
+\"runlangnumber\" int4 NOT NULL,	-- (linguagem do codigo fonte)
+
+\"autoip\" varchar(20) DEFAULT '',  -- os campos auto... sao para a correcao automatica
+\"autobegindate\" int4 DEFAULT NULL,
+\"autoenddate\" int4 DEFAULT NULL,
+\"autoanswer\" text DEFAULT '',
+\"autostdout\" oid DEFAULT NULL,
+\"autostderr\" oid DEFAULT NULL,
+
+\"updatetime\" int4 DEFAULT EXTRACT(EPOCH FROM now()) NOT NULL, -- (indica a ultima atualizacao no registro)
+CONSTRAINT \"run_pkey\" PRIMARY KEY (\"contestnumber\", \"runsitenumber\", \"runnumber\"),
+CONSTRAINT \"user_fk\" FOREIGN KEY (\"contestnumber\", \"runsitenumber\", \"usernumber\")
+	REFERENCES \"usertable\" (\"contestnumber\", \"usersitenumber\", \"usernumber\")
+	ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY IMMEDIATE,
+CONSTRAINT \"problem_fk\" FOREIGN KEY (\"contestnumber\", \"runproblem\")
+	REFERENCES \"problemtable\" (\"contestnumber\", \"problemnumber\")
+	ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY IMMEDIATE,
+CONSTRAINT \"answer_fk\" FOREIGN KEY (\"contestnumber\", \"runanswer\")
+	REFERENCES \"answertable\" (\"contestnumber\", \"answernumber\")
+	ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY IMMEDIATE,
+CONSTRAINT \"lang_fk\" FOREIGN KEY (\"contestnumber\", \"runlangnumber\")
+	REFERENCES \"langtable\" (\"contestnumber\", \"langnumber\")
+	ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY IMMEDIATE
+)", "DBCreateRunTable(create table)");
+        $r = DBExec($c, "REVOKE ALL ON \"runtable\" FROM PUBLIC", "DBCreateRunTable(revoke public)");
+	$r = DBExec($c, "GRANT ALL ON \"runtable\" TO \"".$conf["dbuser"]."\"", "DBCreateRunTable(grant bocauser)");
+	$r = DBExec($c, "CREATE UNIQUE INDEX \"run_index\" ON \"runtable\" USING btree ". 
+		"(\"contestnumber\" int4_ops, \"runsitenumber\" int4_ops, \"runnumber\" int4_ops)", 
+		"DBCreateRunTable(create run_index)");
+	$r = DBExec($c, "CREATE INDEX \"run_index2\" ON \"runtable\" USING btree ". 
+	        "(\"contestnumber\" int4_ops, \"runsitenumber\" int4_ops, \"usernumber\" int4_ops)",
+		"DBCreateRunTable(create run_index2)");
+}
+
+///////////////////////////////funcoes de runs///////////////////////////////////////////////////////
+//responde uma run. Recebe o numero do contest, site do usuario, num do usuario, site da run,
+//numero da run, numero da resposta, (notifyuser e updatescore).
+//tenta alterar o status para 'judged'.
+function DBChiefUpdateRun($contest, $usersite, $usernumber, $runsite, $runnumber, $answer) {
+	return DBUpdateRunC($contest, $usersite, $usernumber, $runsite, $runnumber, $answer, 1);
+}
+function DBUpdateRunO($contest, $usersite, $usernumber, $runsite, $runnumber, $answer, $c) {
+	return DBUpdateRunC($contest, $usersite, $usernumber, $runsite, $runnumber, $answer, 1, $c);
+}
+function DBUpdateRun($contest, $usersite, $usernumber, $runsite, $runnumber, $answer) {
+	return DBUpdateRunC($contest, $usersite, $usernumber, $runsite, $runnumber, $answer, 0);
+}
+function DBUpdateRunC($contest, $usersite, $usernumber, $runsite, $runnumber, $answer, $chief, $c=null) {
+	$a = DBGetRow("select * from answertable where answernumber=$answer and contestnumber=$contest",0,null,
+                      "DBUpdateRunC(get answer)");
+	if ($a == null) {
+		MSGError("Problem with the answer table. Contact an admin now!");
+		LogLevel("Unable to judge a run because the answer was not found (run=$runnumber, site=$runsite, ".
+			"contest=$contest, answer=$answer).",0);
+		return false;
+	}
+	if ($a["fake"] == 't') {
+		MSGError("You must choose a valid answer.");
+		LogLevel("Unable to judge a run because of the fake answer (run=$runnumber, site=$runsite, ".
+			"contest=$contest, answer=$answer).",0);
+		return false;
+	}
+	$yes = $a["yes"];
+	$b = DBSiteInfo($contest, $runsite);
+	if ($b == null) {
+		exit;
+	}
+
+	$bw = 0;
+	if($c==null) {
+		$bw = 1;
+		$c = DBConnect();
+		DBExec($c, "begin work", "DBUpdateRunC(transaction)");
+	}
+
+	$sql = "select * from runtable as r where r.contestnumber=$contest and " .
+		"r.runsitenumber=$runsite and r.runnumber=$runnumber";
+	if ($chief != 1) {
+		$sql .= " and (r.runstatus='judging' or r.runstatus='judged+') and " .      
+			"((r.runjudge1=$usernumber and r.runjudgesite1=$usersite) or " . 
+			" (r.runjudge2=$usernumber and r.runjudgesite2=$usersite))";
+		$tx = "Judge";
+	} else $tx = "Chief";
+	$r = DBExec ($c, $sql . " for update", "DBUpdateRunC(get run for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		if($bw == 1) {
+			DBExec($c, "rollback work", "DBUpdateRunC(rollback)");
+			LogLevel("Unable to judge a run (maybe it was already judged or catched by a chief) " .
+				"(run=$runnumber, site=$runsite, contest=$contest).",2);
+			MSGError("Unable to judge the run (maybe it was already judged or catched by a chief)");
+		}
+		return false;
+	}
+	$temp = DBRow($r,0);
+	$t = $b["currenttime"]; 
+
+	$team=$temp["usernumber"];
+        if ($temp["runanswer"] != "")
+		$tinhabalao = DBBalloon($contest, $runsite, $temp["usernumber"], $temp["runproblem"], ($bw==1));
+	else	$tinhabalao = false;
+
+        if($temp["runjudge1"]==$usernumber && $temp["runjudgesite1"]==$usersite) {
+  	  DBExec($c, "update runtable set runanswer1=$answer, updatetime=".time()." " .
+		"where contestnumber=$contest and runnumber=$runnumber and runsitenumber=$runsite",
+               "DBUpdateRunC(update run judge1)");
+          $outra = $temp["runanswer2"];
+        }
+        if($temp["runjudge2"]==$usernumber && $temp["runjudgesite2"]==$usersite) {
+  	  DBExec($c, "update runtable set runanswer2=$answer, updatetime=".time()." " .
+		"where contestnumber=$contest and runnumber=$runnumber and runsitenumber=$runsite",
+               "DBUpdateRunC(update run judge2)");
+          $outra = $temp["runanswer1"];
+        }
+        $newstatus = 'judging';
+        if($chief == 1 || ($outra != 0 && $outra == $answer && $temp["runstatus"] != "judged+") || 
+           ($outra != 0 && $outra == $answer && $temp["runanswer"]==$answer)) {
+          $newstatus = 'judged';
+  	  DBExec($c, "update runtable set runstatus='judged', " .
+	        "runjudge=$usernumber, runjudgesite=$usersite, " . 
+		"runanswer=$answer, rundatediffans=$t, updatetime=".time()." " .
+		"where contestnumber=$contest and runnumber=$runnumber and runsitenumber=$runsite",
+               "DBUpdateRunC(update run)");
+
+	$tembalao = DBBalloon($contest, $runsite, $temp["usernumber"], $temp["runproblem"], ($bw==1));
+
+//	if ($runsite==$usersite) {
+ 	  if (!$tinhabalao && $tembalao) {
+	        if (($b = DBSiteInfo($contest, $runsite)) == null)
+                	return true;
+        	$ta = $b["currenttime"]; 
+                $tf = $b["sitelastmileanswer"];
+		if ($ta < $tf) {
+			$u = DBUserInfo ($contest, $runsite, $team);
+			if($u['usertype']=='team') {
+			$p = DBGetProblemData ($contest, $temp["runproblem"]);
+			DBNewTask_old ($contest, $runsite, $team, 
+         			escape_string("\"" . $u["username"] ."\" must have a balloon for problem " . 
+           			$p[0]["problemname"] . ": " . $p[0]["fullname"]), 
+				"", "", "t", $p[0]["color"], $p[0]["colorname"], $c);
+			}
+		}
+	  } else if ($tinhabalao && !$tembalao) {
+		$u = DBUserInfo ($contest, $runsite, $team);
+		if($u['usertype']=='team') {
+		$p = DBGetProblemData ($contest, $temp["runproblem"]);
+		DBNewTask_old ($contest, $runsite, $team, escape_string("\"" . 
+         		$u["username"] ."\" must have _NO_ balloon for problem " . $p[0]["problemname"] . 
+                	": " . $p[0]["fullname"]). ". Please verify and remove it, if needed.", "", "", 
+			"t", $p[0]["color"], $p[0]["colorname"], $c);
+	  }
+	  }
+//	}
+	}
+
+	if($bw == 1) {
+		DBExec($c, "commit work", "DBUpdateRunC(commit)");
+		LOGLevel("Run updated (run=$runnumber,site=$runsite,user=$team,contest=$contest,newstatus=$newstatus,".
+			"judge=$usernumber(site=$usersite),answer=$answer(".$a["runanswer"].")).", 3);
+	}
+	return true;
+}
+//devolve uma run que estava sendo respondida. Recebe o numero da run, o numero do site da run e o numero do contest.
+//tenta alterar o status para 'openrun'. Se nao conseguir retorna false
+function DBChiefRunGiveUp($number,$site,$contest) {
+	return DBRunGiveUp($number,$site,$contest,-1,-1);
+}
+function DBRunGiveUp($number,$site,$contest,$usernumber,$usersite) {
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBRunGiveUp(transaction)");
+	$sql = "select * from runtable as r where r.contestnumber=$contest and " .
+		 "r.runsitenumber=$site and r.runnumber=$number";
+	if ($usernumber != 1 && $usersite != -1) {
+		$sql .= " and (r.runstatus='judging' or r.runstatus='judged+') and " .
+		        "((r.runjudge1=$usernumber and r.runjudgesite1=$usersite) or " .
+		        " (r.runjudge2=$usernumber and r.runjudgesite2=$usersite))";
+		$tx = "Judge";
+	} else $tx = "Chief";
+	$r = DBExec ($c, $sql . " for update", "DBRunGiveUp(get run for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		DBExec($c, "rollback work", "DBRunGiveUp(rollback)");
+		LogLevel("Unable to return a run (maybe the timeout or a chief returned it first). ".
+			"(run=$number, site=$site, contest=$contest)",2);
+		return false;
+	}
+	$temp = DBRow($r, 0);
+
+	$tinhabalao = DBBalloon($contest, $site, $temp["usernumber"], $temp["runproblem"]);
+
+	$outra = -1;
+	if($temp["runjudge1"]==$usernumber && $temp["runjudgesite1"]==$usersite) {
+		DBExec($c, "update runtable set runjudge1=NULL, runjudgesite1=NULL, runanswer1=0 " .
+			   " where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+			   "DBRunGiveUp(update run judge1)");
+		$outra = $temp['runanswer2'];
+	}
+	if($temp["runjudge2"]==$usernumber && $temp["runjudgesite2"]==$usersite) {
+		DBExec($c, "update runtable set runjudge2=NULL, runjudgesite2=NULL, runanswer2=0 " .
+			   " where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+               "DBRunGiveUp(update run judge1)");
+		$outra = $temp['runanswer1'];
+	}
+
+	$newstatus="judging";
+	if($temp["runstatus"]=="judged" || $temp["runstatus"]=="judged+") {
+   	    DBExec($c, "update runtable set runstatus='judged+', " .
+			   ($tx=="Chief" ? "runanswer1=0, runanswer2=0, runjudge1=NULL, runjudge2=NULL, runjudgesite1=NULL, runjudgesite2=NULL, ": "") .
+			   " updatetime=" .
+			   time()." where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+			   "DBRunGiveUp(update run)");
+		$newstatus='judged+';
+	} else {
+		if($outra == 0 || $tx=="Chief") {
+			DBExec($c, "update runtable set runstatus='openrun', runanswer=0, runjudge=NULL, runjudgesite=NULL, ".
+				   "runanswer1=0, runanswer2=0, runjudge1=NULL, runjudge2=NULL, runjudgesite1=NULL, runjudgesite2=NULL, ".
+				   "updatetime=" .
+		   time()." where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+	       "DBRunGiveUp(update run)");
+            $newstatus='openrun';
+		}
+        }
+        $tembalao = DBBalloon($contest, $site, $temp["usernumber"], $temp["runproblem"]);
+	if ($tinhabalao && !$tembalao) {
+		$u = DBUserInfo ($contest, $site, $temp["usernumber"]);
+		if($u['usertype']=='team') {
+		$p = DBGetProblemData ($contest, $temp["runproblem"]);
+		DBNewTask_old ($contest, $site, $temp["usernumber"], escape_string("\"" . 
+      $u["username"] ."\" must have _NO_ balloon for problem " . $p[0]["problemname"] . 
+      ": " . $p[0]["fullname"]), "", "", "t", $p[0]["color"], $p[0]["colorname"], $c);
+		}
+	}
+
+	DBExec($c, "commit work", "DBRunGiveUp(commit)");
+	LOGLevel("Run returned (run=$number, site=$site, contest=$contest, user=$usernumber(site=$usersite)), ".
+           "newstatus=$newstatus", 3);
+	return true;
+}
+function DBRunDelete($number,$site,$contest,$user,$usersite) {
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBRunDelete(transaction)");
+	$sql = "select * from runtable as r where r.contestnumber=$contest and " .
+		 "r.runsitenumber=$site and r.runnumber=$number";
+	$r = DBExec ($c, $sql . " for update", "DBRunDelete(get run for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		DBExec($c, "rollback work", "DBRunDelete(rollback)");
+		LogLevel("Unable to delete a run. ".
+			"(run=$number, site=$site, contest=$contest)",1);
+		return false;
+	}
+	$temp = DBRow($r, 0);
+
+        $tinhabalao = DBBalloon($contest, $site, $temp["usernumber"], $temp["runproblem"]);
+
+	DBExec($c, "update runtable set runstatus='deleted', runjudge=$user, runjudgesite=$usersite, updatetime=" . 
+		   time()." where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		"DBRunDelete(update run)");
+
+        $tembalao = DBBalloon($contest, $site, $temp["usernumber"], $temp["runproblem"]);
+	if ($tinhabalao && !$tembalao) {
+		$u = DBUserInfo ($contest, $site, $temp["usernumber"]);
+		if($u['usertype']=='team') {
+		$p = DBGetProblemData ($contest, $temp["runproblem"]);
+		DBNewTask_old ($contest, $site, $temp["usernumber"], escape_string("\"" . 
+           $u["username"] . "\" must have _NO_ balloon for problem " . $p[0]["problemname"] . 
+            ": " . $p[0]["fullname"]), "", "", "t", $p[0]["color"], $p[0]["colorname"], $c);
+		}
+	}
+
+	DBExec($c, "commit work", "DBRunDelete(commit)");
+	LOGLevel("Run deleted (run=$number, site=$site, contest=$contest, user=$user(site=$usersite)).", 3);
+	return true;
+}
+
+//pega uma run para julgar. Recebe o numero da run, o numero do site e o numero do contest.
+//tenta alterar o status para 'judging' e se conseguir, devolve um array com dados da run. Se nao conseguir,
+//retorna false
+//Retorna no array: contestnumber, sitenumber, number, timestamp (em segundos), problemname, 
+//			problemnumber, language, sourcename, sourceoid, (langscript, infiles, solfiles)
+function DBChiefGetRunToAnswer($number,$site,$contest) {
+	return DBGetRunToAnswerC($number,$site,$contest,1);
+}
+function DBGetRunToAnswer($number,$site,$contest) {
+	return DBGetRunToAnswerC($number,$site,$contest,0);
+}
+function DBGetRunToAnswerC($number,$site,$contest,$chief) {
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBGetRunToAnswerC(transaction)");
+	$sql = "select r.contestnumber as contestnumber, r.runsitenumber as sitenumber, r.runanswer as answer, " .
+         "r.runanswer1 as answer1, r.runanswer2 as answer2, " .
+	 "r.runjudge as judge, r.runjudgesite as judgesite, " . 
+         "r.runjudge1 as judge1, r.runjudgesite1 as judgesite1, r.runjudge2 as judge2, r.runjudgesite2 as judgesite2, " .
+                 "r.runnumber as number, r.rundatediff as timestamp, r.runstatus as status, " .
+		 "r.rundata as sourceoid, r.runfilename as sourcename, l.langnumber as langnumber, " .
+                 "p.problemname as problemname, p.problemnumber as problemnumber, l.langname as language, l.langextension as extension, " .
+		 "r.autoip as autoip, r.autobegindate as autobegin, r.autoenddate as autoend, r.autoanswer as autoanswer, ".
+		 "r.autostdout as autostdout, r.autostderr as autostderr ".
+
+                   "from runtable as r, problemtable as p, langtable as l " .
+                   "where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+                        "r.runproblem=p.problemnumber and r.runsitenumber=$site and " .
+	   	        "r.runlangnumber=l.langnumber and r.contestnumber=l.contestnumber and " .
+			"r.runnumber=$number";
+	if ($chief != 1) {
+		$sql .= " and (r.runstatus='openrun' or " .
+		     	    "(r.runstatus='judged+' and r.runjudge is NULL) or " .
+			    "((r.runstatus='judging' or r.runstatus='judged+') and " .
+			    " (r.runjudge1 is null or r.runjudge2 is null or " .
+			    " ((r.runjudge1=" . $_SESSION["usertable"]["usernumber"] . " and " .
+			    "   r.runjudgesite1=" . $_SESSION["usertable"]["usersitenumber"] . ") or " .
+			    " (r.runjudge2=" . $_SESSION["usertable"]["usernumber"] . " and " .
+			    "  r.runjudgesite2=" . $_SESSION["usertable"]["usersitenumber"] . ")))))";
+		$tx = "Judge";
+	} else $tx = "Chief";
+	$r = DBExec ($c, $sql . " for update", "DBGetRunToAnswerC(get run/prob/lang for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		DBExec($c, "rollback work", "DBGetRunToAnswerC(rollback)");
+		LogLevel("Unable to get a run (maybe other judge got it first). (run=$number, site=$site, ".
+			"contest=$contest)",2);
+		return false;
+	}
+	$a = DBRow($r,0);
+
+	if ($chief != 1) {
+                $upd="";
+	   	if($a["status"]=="openrun") $upd="runstatus='judging',";
+		
+		if(($a["judge1"]!=$_SESSION["usertable"]["usernumber"] || 
+                   $a["judgesite1"]!=$_SESSION["usertable"]["usersitenumber"]) &&
+                   ($a["judge2"]!=$_SESSION["usertable"]["usernumber"] ||
+                    $a["judgesite2"]!=$_SESSION["usertable"]["usersitenumber"])) {
+		    if($a["judge1"]=='' && $a['judgesite1']=='') {
+		    	DBExec($c, "update runtable set runjudge1=" . $_SESSION["usertable"]["usernumber"] . 
+				   ",$upd updatetime=".time().", " .
+			          "runjudgesite1=" . $_SESSION["usertable"]["usersitenumber"] . " " .
+			    "where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		            "DBGetRunToAnswerC(update run judge1)");
+		    } else {
+		    	DBExec($c, "update runtable set runjudge2=" . $_SESSION["usertable"]["usernumber"] . 
+				   ",$upd updatetime=".time().", " .
+			          "runjudgesite2=" . $_SESSION["usertable"]["usersitenumber"] . " " .
+			    "where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		            "DBGetRunToAnswerC(update run judge2)");
+		    }
+                }
+	}
+
+	DBExec($c, "commit work", "DBGetRunToAnswerC(commit)");
+	LOGLevel("User got a run (run=$number, site=$site, contest=$contest, user=". 
+                $_SESSION["usertable"]["usernumber"].
+		"(site=".$_SESSION["usertable"]["usersitenumber"] .")).", 3);
+	return $a;
+}
+function DBGetRunToAutojudging($contest, $ip) {
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBGetRunToAnswerC(transaction)");
+	$sql = "select r.contestnumber as contest, r.runsitenumber as site, r.runanswer as answer, " .
+		"r.runanswer1 as answer1, r.runanswer2 as answer2, " .  
+		"r.runnumber as number, r.rundatediff as timestamp, r.runstatus as status, " .
+		"r.rundata as sourceoid, r.runfilename as sourcename, l.langnumber as langnumber, " .
+		"p.problemname as problemname, p.problemnumber as problemnumber, l.langextension as extension, l.langname as language, " .
+		"p.problembasefilename as basename, p.problemtimelimit as timelimit, ".
+		"p.probleminputfilename as inputname, p.probleminputfile as inputoid, " .
+		"p.problemsolfilename as solname, p.problemsolfile as soloid, " .
+		"r.autoip as autoip, r.autobegindate as autobegin, r.autoenddate as autoend, r.autoanswer as autoanswer, ".
+		"r.autostdout as autostdout, r.autostderr as autostderr ".
+		"from runtable as r, problemtable as p, langtable as l " .
+		"where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+		"r.runproblem=p.problemnumber and r.runlangnumber=l.langnumber and ".
+		"r.contestnumber=l.contestnumber and " .
+		"r.autoip='' order by r.runnumber for update limit 1";
+	$r = DBExec ($c, $sql, "DBGetRunToAutoJudging(get run/prob/lang for update)");
+	$n = DBnlines($r);
+	if ($n < 1) {
+		DBExec($c, "rollback work", "DBGetRunToAutoJudging(rollback)");
+		return false;
+	}
+	$a = DBRow($r,0);
+        $t = time();
+
+	DBExec($c, "update runtable set autoip='" . $ip . "', " . 
+			"autobegindate=$t, autoenddate=null, autoanswer=null, autostdout=null, autostderr=null, " .
+			"updatetime=$t " .
+			"where contestnumber=${a["contest"]} and runnumber=${a["number"]} and runsitenumber=${a["site"]}",
+		      "DBGetRunToAutojudging(update run)");
+
+	DBExec($c, "commit work", "DBGetRunToAutojudging(commit)");
+	LOGLevel("Autojudging got a run (run=${a["number"]}, site=${a["site"]}, contest=${a["contest"]})", 3);
+	return $a;
+}
+function DBUpdateRunAutojudging($contest, $site, $number, $ip, $answer, $stdout, $stderr, $retval=0) {
+	if($retval=="") $retval=0;
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBUpdateRunAutojudging(transaction)");
+	$sql = "select * from runtable as r " .
+                   "where r.contestnumber=$contest and r.runnumber=$number and r.runsitenumber=$site and " .
+			"r.autoip='$ip'";
+	$r = DBExec ($c, $sql . " for update", "DBUpdateRunAutoJudging(get run for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		DBExec($c, "rollback work", "DBUpdateRunAutoJudging(rollback)");
+		LogLevel("Unable to get a run for autojudging (run=$number, site=$site, contest=$contest)",1);
+		return false;
+	}
+	$a = DBRow($r,0);
+	$b = DBSiteInfo($contest, $site, $c);
+        $t = time();
+
+	if (($oid1 = DB_lo_import($c, $stdout)) === false) {
+		DBExec($c, "rollback work", "DBUpdateRunAutojudging(rollback-stdout)");
+		LOGError("Unable to create a large object for file $stdout.");
+		return false;
+	}
+
+	if (($oid2 = DB_lo_import($c, $stderr)) === false) {
+		DBExec($c, "rollback work", "DBUpdateRunAutojudging(rollback-stderr)");
+		LOGError("Unable to create a large object for file $stderr.");
+		return false;
+	}
+
+	if($answer=="") $answer="null";
+	else $answer="'$answer'";
+	DBExec($c, "update runtable set autoenddate=$t, autoanswer=$answer, autostdout=$oid1, autostderr=$oid2, " .
+		   "updatetime=$t " .
+		   "where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		   "DBUpdateRunAutojudging(update run)");
+
+	$b = DBSiteInfo($contest, $site, $c);
+
+	if($b["siteautojudge"]!="t") {
+		DBExec($c, "commit work", "DBUpdateRunAutojudging(commit)");
+		LOGLevel("Autojudging answered a run (run=$number, site=$site, contest=$contest, answer='$answer', retval=$retval)", 3);
+		return true;
+	}
+
+	echo "DEBUG: $contest, $site, " .$a["usernumber"].", $site, $number, $retval\n";
+	if(DBUpdateRunO($contest, $site, $a["usernumber"], $site, $number, $retval, $c)==false) {
+		DBExec($c, "rollback work", "DBUpdateRunAutoJudging(rollback)");
+		LOGError("Unable to automatically update a run answer (run=$number, site=$site, ".
+			"contest=$contest, answer='$answer', retval=$retval)");
+		return false;
+	}
+	DBExec($c, "commit work", "DBUpdateRunAutojudging(commit)");
+	LOGLevel("Autojudging automatically answered a run (run=$number, site=$site, contest=$contest, retval=$retval, answer='$answer')", 3);
+	return true;
+}
+function DBGiveUpRunAutojudging($contest, $site, $number, $ip="", $ans="") {
+	$c = DBConnect();
+	DBExec($c, "begin work", "DBGiveUpRunAutojudging(transaction)");
+	$sql = "select * from runtable as r " .
+                   "where r.contestnumber=$contest and r.runnumber=$number and r.runsitenumber=$site";
+	$r = DBExec ($c, $sql . " for update", "DBGiveUpRunAutoJudging(get run for update)");
+	$n = DBnlines($r);
+	if ($n != 1) {
+		DBExec($c, "rollback work", "DBGiveUpRunAutoJudging(rollback)");
+		LogLevel("Unable to giveup a run from autojudging (run=$number, site=$site, contest=$contest)",1);
+		return false;
+	}
+	$a = DBRow($r,0);
+        $t = time();
+
+        if($ip=="") {
+  	     DBExec($c, "update runtable set autoenddate=null, autoanswer=null, autostdout=null, autostderr=null, " .
+			"updatetime=$t, autobegindate=null, autoip='' " .
+			"where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		      "DBGiveUpRunAutojudging(update run)");
+        } else {
+  	     DBExec($c, "update runtable set autoenddate=$t, autoanswer='$ans', autostdout=null, ".
+			"autostderr=null, updatetime=$t, autoip='$ip' " .
+			"where contestnumber=$contest and runnumber=$number and runsitenumber=$site",
+		      "DBGiveUpRunAutojudging(update run-withip)");
+        }
+	DBExec($c, "commit work", "DBGiveUpRunAutojudging(commit)");
+	LOGLevel("Run gaveup from Autojudging (run=$number, site=$site, contest=$contest)", 3);
+	return true;
+}
+function DBAllRuns($contest) {
+	return DBOpenRunsSNS($contest,"x",-1);
+}
+function DBAllRunsInSites($contest,$site,$order='run') {
+	return DBOpenRunsSNS($contest,$site,-1,$order);
+}
+//function DBOpenRuns($contest) {
+//	return DBOpenRunsSNS($contest,"x",1);
+//}
+function DBOpenRunsInSites($contest,$site) {
+	return DBOpenRunsSNS($contest,$site,1);
+}
+function DBOpenRunsSNS($contest,$site,$st,$order='run') {
+	$c = DBConnect();
+	$sql = "select distinct r.runnumber as number, r.rundatediff as timestamp, r.usernumber as user, " .
+		"p.problemname as problem, r.runstatus as status, l.langname as language, l.langextension as extension, " .
+		"a.yes as yes, p.problemcolor as color, p.problemcolorname as colorname, " .
+		"r.runsitenumber as site, r.runjudge as judge, r.runjudgesite as judgesite, " .
+		"r.runjudge1 as judge1, r.runjudgesite1 as judgesite1, " .
+		"r.runjudge2 as judge2, r.runjudgesite2 as judgesite2, " .
+		"a.runanswer as answer, r.runfilename as filename, " .
+		"r.runanswer1 as answer1, r.runanswer2 as answer2, " .
+		"r.autobegindate as autobegin, r.autoenddate as autoend, r.autoanswer as autoanswer ".
+		"from runtable as r, problemtable as p, langtable as l, answertable as a " .
+		"where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+		"r.runproblem=p.problemnumber and l.contestnumber=r.contestnumber and " .
+		"l.langnumber=r.runlangnumber and a.answernumber=r.runanswer and " .
+		"a.contestnumber=r.contestnumber";
+	if ($site != "x") {
+	        $str = explode(",", $site);
+        	$sql .= " and (r.runsitenumber=-1";
+	        for ($i=0;$i<count($str);$i++) {
+			if (is_numeric($str[$i])) $sql .= " or r.runsitenumber=".$str[$i];
+	        }
+        	$sql .= ")";
+	}
+
+	if ($st == 1) {
+	   $sql .= " and (not (r.runjudge1=". $_SESSION["usertable"]["usernumber"] . " and " .
+                   "r.runjudgesite1=". $_SESSION["usertable"]["usersitenumber"] . " and r.runanswer1!=0)) and ";
+	   $sql .= " (not (r.runjudge2=". $_SESSION["usertable"]["usernumber"] . " and " .
+                   "r.runjudgesite2=". $_SESSION["usertable"]["usersitenumber"] . " and r.runanswer2!=0)) and " .
+
+		   "(not ((r.runjudge1!=". $_SESSION["usertable"]["usernumber"] . " or " .
+                   "r.runjudgesite1!=". $_SESSION["usertable"]["usersitenumber"] . ") and " .
+	   	   " (r.runjudge2!=". $_SESSION["usertable"]["usernumber"] . " or " .
+                   "r.runjudgesite2!=". $_SESSION["usertable"]["usersitenumber"] . ") and " .
+		   " (not (r.runjudge1 is null)) and (not (r.runjudge2 is null))))";
+		$sql .= " and (not r.runstatus = 'judged') " .
+		     " and not r.runstatus ~ 'deleted' order by ";
+	} else $sql .= " order by ";
+
+	if($order == "site")
+		$sql .= "r.runsitenumber,";
+	else if ($order == "status")
+		$sql .= "r.runstatus,";
+  	else if ($order == "judge")
+		$sql .= "r.runjudge,r.runjudgesite,";
+        else if ($order == "problem")
+	        $sql .= "p.problemname,";
+        else if ($order == "language")
+		$sql .= "l.langname,";
+	else if ($order == "answer")
+		$sql .= "a.runanswer,";
+	else if ($order == "user")
+		$sql .= "r.usernumber,r.runsitenumber,";
+
+	if ($st == 1 || $order == "normal")
+		$sql .= "r.runnumber";
+	else
+		$sql .= "r.rundatediff desc";
+
+	$r = DBExec($c, $sql, "DBOpenRunsSNS(get run/prob/lang/ans)");
+
+	$n = DBnlines($r);
+	$a = array();
+	for ($i=0;$i<$n;$i++)
+		$a[$i] = DBRow($r,$i);
+	return $a;
+}
+function DBNewRun($param,$c=null) {
+	if(isset($param['contestnumber']) && !isset($param['contest'])) $param['contest']=$param['contestnumber'];
+	if(isset($param['sitenumber']) && !isset($param['site'])) $param['site']=$param['sitenumber'];
+	if(isset($param['usernumber']) && !isset($param['user'])) $param['user']=$param['usernumber'];
+	if(isset($param['number']) && !isset($param['runnumber'])) $param['runnumber']=$param['number'];
+	if(isset($param['runlangnumber']) && !isset($param['lang'])) $param['lang']=$param['runlangnumber'];
+	if(isset($param['runproblem']) && !isset($param['problem'])) $param['problem']=$param['runproblem'];
+
+	$ac=array('contest','site','user','problem','lang','filename','filepath');
+	$ac1=array('runnumber','rundate','rundatediff','rundatediffans','runanswer','runstatus','runjudge','runjudgesite',
+			   'runjudge1','runjudgesite1','runanswer1','runjudge2','runjudgesite2','runanswer2',
+			   'autoip','autobegindate','autoenddate','autoanswer','autostdout','autostderr','updatetime');
+	$type['contest']=1;
+	$type['autobegindate']=1;
+	$type['autoenddate']=1;
+	$type['problem']=1;
+	$type['updatetime']=1;
+	$type['site']=1;
+	$type['user']=1;
+	$type['runnumber']=1;
+	$type['rundatediffans']=1;
+	$type['rundatediff']=1;
+	$type['rundate']=1;
+	$type['runanswer']=1;
+	$type['runjudge']=1;
+	$type['runjudgesite']=1;
+	$type['runjudge1']=1;
+	$type['runjudgesite1']=1;
+	$type['runanswer1']=1;
+	$type['runjudge2']=1;
+	$type['runjudgesite2']=1;
+	$type['runanswer2']=1;
+	foreach($ac as $key) {
+		if(!isset($param[$key]) || $param[$key]=="") {
+			MSGError("DBNewRun param error: $key not found");
+			return false;
+		}
+		if(isset($type[$key]) && !is_numeric($param[$key])) {
+			MSGError("DBNewRun param error: $key is not numeric");
+			return false;
+		}
+		$$key = sanitizeText($param[$key]);
+	}
+	$t = time();
+	$autoip='';
+	$autobegindate='NULL';
+	$autoenddate='NULL';
+	$autoanswer='';
+	$autostdout='';
+	$autostderr='';
+	$runjudge='NULL';
+	$runjudgesite='NULL';
+	$runjudge1='NULL';
+	$runjudgesite1='NULL';
+	$runanswer1=0;
+	$runjudge2='NULL';
+	$runjudgesite2='NULL';
+	$runanswer2=0;
+	$runnumber=-1;
+	$updatetime = -1;
+	$rundatediff = -1;
+	$rundate = $t;
+	$runanswer=0;
+	$rundatediffans = 999999999;
+	$runstatus='openrun';
+	foreach($ac1 as $key) {
+		if(isset($param[$key])) {
+			$$key = sanitizeText($param[$key]);
+			if(isset($type[$key]) && !is_numeric($param[$key])) {
+				MSGError("DBNewRun param error: $key is not numeric");
+				return false;
+			}
+		}
+	}
+	if($updatetime < 0)
+		$updatetime=$t;
+
+	$cw = false;
+	if($c == null) {
+		$cw = true;
+		$c = DBConnect();
+		DBExec($c, "begin work", "DBNewRun(transaction)");
+	}
+	$insert=true;
+	$oid1 = '';
+	$oid2 = '';
+	$oldold1='';
+	$oldold2='';
+	$sql = "select sitenextrun as nextrun from " .
+		"sitetable where sitenumber=$site and contestnumber=$contest for update";
+	$r = DBExec($c, $sql, "DBNewRun(get site for update)");
+	if (DBnlines($r) != 1) {
+		DBExec($c, "rollback work", "DBNewRun(rollback-site)");
+		LOGError("Unable to find a unique site/contest in the database. SQL=(" . $sql . ")");
+		MSGError("Unable to find a unique site/contest in the database.");
+		exit;
+	}
+	$a = DBRow($r,0);
+	$n = $a["nextrun"] + 1;
+	if($runnumber > 0) {
+		$sql = "select * from runtable as t where t.contestnumber=$contest and " .
+			"t.runsitenumber=$site and t.runnumber=$runnumber";
+		$r = DBExec ($c, $sql . " for update", "DBNewRun(get run for update)");
+		$n = DBnlines($r);
+		if ($n > 0) {
+			$insert=false;
+			$lr = DBRow($r,0);
+			$t = $lr['updatetime'];
+			if(isset($lr['autostdout']))
+				$oid1 = $lr['autostdout'];
+			if(isset($lr['autostderr']))
+				$oid2 = $lr['autostderr'];
+		}
+		$n = $runnumber;
+	} else
+		$runnumber = $n;
+
+	if($rundatediff < 0) {
+		$b = DBSiteInfo($contest, $site, $c);
+		$dif = $b["currenttime"]; 
+		$rundatediff = $dif;
+		if ($dif < 0) {
+			DBExec($c, "rollback work", "DBNewRun(rollback-started)");
+			LOGError("Tried to submit a run but the contest is not started. SQL=(" . $sql . ")");
+			MSGError("The contest is not started yet!");
+			return false;
+		}
+		if (!$b["siterunning"]) {
+			DBExec($c, "rollback work", "DBNewRun(rollback-over)");
+			LOGError("Tried to submit a run but the contest is over. SQL=(" . $sql . ")");
+			MSGError("The contest is over!");
+			return false;
+		}
+	} else {
+		$dif = $rundatediff;
+	}
+
+	if($updatetime > $t || $insert) {
+		DBExec($c, "update sitetable set sitenextrun=$runnumber, updatetime=".$t.
+			   " where sitenumber=$site and contestnumber=$contest and sitenextrun<$runnumber", "DBNewRun(update site)");
+
+//	LOGError($autostdout);
+		if(substr($autostdout,0,7)=="base64:") {
+			$autostdout = base64_decode(substr($autostdout,7));
+			$oldoid1 = $oid1;
+			if (($oid1 = DB_lo_import_text($c, $autostdout)) == null) {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import stdout)");
+				LOGError("Unable to create a large object for file stdout (run=$runnumber,site=$site,contest=$contest).");
+				MSGError("problem importing stdout to database. Contact an admin now!");
+				exit;
+			}
+		} else {
+			if($autostdout != '') {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import stderr)");
+				LOGError("Unable to create a large object for file stdout that is not BASE64 (run=$runnumber,site=$site,contest=$contest).");
+				MSGError("problem importing stdout (not BASE64) to database. Contact an admin now!");
+				exit;
+			}
+			$oid1 = 'NULL';
+		}
+		if(substr($autostderr,0,7)=="base64:") {
+//		LOGError($autostderr);
+			$autostderr = base64_decode(substr($autostderr,7));
+			$oldoid2 = $oid2;
+			if (($oid2 = DB_lo_import_text($c, $autostderr)) == null) {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import stderr)");
+				LOGError("Unable to create a large object for file stderr (run=$runnumber,site=$site,contest=$contest).");
+				MSGError("problem importing stderr to database. Contact an admin now!");
+				exit;
+			}
+		} else {
+			if($autostderr != '') {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import stderr)");
+				LOGError("Unable to create a large object for file stderr that is not BASE64 (run=$runnumber,site=$site,contest=$contest).");
+				MSGError("problem importing stderr (not BASE64) to database. Contact an admin now!");
+				exit;
+			}
+			$oid2 = 'NULL';
+		}
+	}
+	$ret=1;
+	if($insert) {
+		if(substr($filepath,0,7)!="base64:") {
+			if (($oid = DB_lo_import($c, $filepath)) === false) {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import)");
+				LOGError("DBNewRun: Unable to create a large object for file $filepath.");
+				MSGError("problem importing file $filepath to database. Contact an admin now!");
+				exit;
+			}
+		} else {
+			$filepath = base64_decode(substr($filepath,7));
+			if (($oid = DB_lo_import_text($c, $filepath)) == null) {
+				DBExec($c, "rollback work", "DBNewRun(rollback-import)");
+				LOGError("DBNewRun: Unable to create a large object for file.");
+				MSGError("problem importing file to database. Contact an admin now!");
+				exit;
+			}
+		}
+		DBExec($c, "INSERT INTO runtable (contestnumber, runsitenumber, runnumber, usernumber, rundate, " .
+			   "rundatediff, rundatediffans, runproblem, runfilename, rundata, runanswer, runstatus, runlangnumber, " .
+			   "runjudge, runjudgesite, runanswer1, runjudge1, runjudgesite1, runanswer2, runjudge2, runjudgesite2, ".
+			   "autoip, autobegindate, autoenddate, autoanswer, autostdout, autostderr, updatetime) " . 
+			   "VALUES ($contest, $site, $n, $user, $rundate, $rundatediff, $rundatediffans, $problem, '$filename', $oid, $runanswer, " .
+			   "'$runstatus', $lang, $runjudge, $runjudgesite, $runanswer1, $runjudge1, $runjudgesite1, $runanswer2, $runjudge2, " .
+			   "$runjudgesite2, '$autoip', $autobegindate, $autoenddate, '$autoanswer', $oid1, $oid2, $updatetime)",
+			   "DBNewRun(insert run)");
+		if($cw) {
+			DBExec($c, "commit work", "DBNewRun(commit)");
+			LOGLevel("User $user submitted a run (#$n) on site #$site " .
+					 "(problem=$problem,filename=$filename,lang=$lang,contest=$contest,date=$t,datedif=$dif,oid=$oid).",2);
+		}
+		$ret=2;
+	} else {
+		if($updatetime > $t) {
+			$ret=2;
+			DBExec($c, "update runtable set rundate=$rundate, rundatediff=$rundatediff, " .
+				   "rundatediffans=$rundatediffans, runanswer=$runanswer, runanswer1=$runanswer1, runanswer2=$runanswer2, runstatus='$runstatus', ".
+				   "runjudge1=$runjudge1, runjudgesite1=$runjudgesite1, runjudge2=$runjudge2, runjudgesite2=$runjudgesite2, " .
+				   "runjudge=$runjudge, runjudgesite=$runjudgesite, updatetime=$updatetime, ".
+				   "autoip='$autoip', autobegindate=$autobegindate, autoenddate=$autoenddate, autoanswer='$autoanswer', " .
+				   "autostdout=$oid1, autostderr=$oid2 " .
+				   "where runnumber=$runnumber and contestnumber=$contest and runsitenumber=$site", "DBNewRun(update run)");
+
+			if(is_numeric($oldoid1)) DB_lo_unlink($c,$oldoid1);
+			if(is_numeric($oldoid2)) DB_lo_unlink($c,$oldoid2);
+		}
+		if($cw) DBExec($c, "commit work", "DBNewRun(commit-update)");
+	}
+	return $ret;
+/* // isso gera problemas de portabilidade e de seguranca (quando outros usuarios tambem tem shell
+   // no servidor e podem construir paginas web. Eles podem usar essas paginas para acessar esses arquivos,
+   // pois os mesmos ficaram com dono apache/www-data/etc)
+	umask(0077);
+	@mkdir("/tmp/boca");
+        if (!move_uploaded_file ($filepath,
+		"/tmp/boca/contest${contest}.site${site}.run${n}.user${user}.problem${problem}.time${t}.${filename}"))
+		LOGLevel("Run not saved as file (run=$n,site=$site,contest=$contest", 1);
+*/
+}
+//recebe o numero do contest, o numero do site e o numero do usuario
+//devolve um array, onde cada linha tem os atributos
+//  number (numero da run)
+//  timestamp (hora da criacao da run)
+//  problem (nome do problema)
+//  status (situacao da run)
+//  answer (texto com a resposta)
+function DBUserRuns($contest,$site,$user) {
+	$b = DBSiteInfo($contest, $site);
+	if ($b == null) {
+		exit;
+	}
+	$t = $b["currenttime"]; 
+
+	$c = DBConnect();
+	$r = DBExec($c, "select distinct r.runnumber as number, r.rundatediff as timestamp, " .
+	     		"r.runfilename as filename, r.rundata as oid, " .
+				"p.problemcolorname as colorname, p.problemcolor as color, a.yes as yes, " .
+				"p.problemname as problem, r.runstatus as status, l.langname as language, l.langextension as extension, " .
+				"a.runanswer as answer, a.fake as ansfake, r.rundatediffans as anstime, " .
+				"r.runanswer1 as answer1, r.runanswer2 as answer2 " .
+				"from runtable as r, problemtable as p, answertable as a, langtable as l " .
+				"where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+				"l.contestnumber=r.contestnumber and l.langnumber=r.runlangnumber and " .
+				"r.contestnumber=a.contestnumber and r.runproblem=p.problemnumber and " .
+				"r.runsitenumber=$site and r.usernumber=$user and not r.runstatus ~ 'deleted' and " .
+				"(r.rundatediffans<=$t or (r.runstatus != 'judged' and r.rundatediff<=$t)) and " .
+				"a.answernumber=r.runanswer order by r.runnumber",
+				"DBUserRuns(get run/prob/ans/lang)");
+	$n = DBnlines($r);
+
+	$a = array();
+	for ($i=0;$i<$n;$i++) {
+		$a[$i] = DBRow($r,$i);
+		if ($a[$i]["timestamp"] >= $b["sitelastmileanswer"])
+			$a[$i]["answer"] = "";
+	}
+	return $a;
+}
+function DBUserRunsYES($contest,$site,$user) {
+	$b = DBSiteInfo($contest, $site);
+	if ($b == null) {
+		exit;
+	}
+	$t = $b["currenttime"]; 
+	$c = DBConnect();
+	$r = DBExec($c, "select distinct p.problemcolorname as colorname, p.problemcolor as color, " .
+				"r.rundatediff as timestamp, p.problemnumber as number " .
+                             "from runtable as r, problemtable as p, answertable as a " .
+                             "where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+                                    "r.contestnumber=a.contestnumber and r.runproblem=p.problemnumber and " .
+	                            "r.runsitenumber=$site and r.usernumber=$user and not r.runstatus ~ 'deleted' and " .
+                                    "(r.rundatediffans<=$t or (r.runstatus != 'judged' and r.rundatediff<=$t)) and " .
+                                    "a.answernumber=r.runanswer and a.yes='t' order by r.rundatediff",
+		    "DBUserRunsYES(get run/prob/ans/lang)");
+	$n = DBnlines($r);
+
+	$a = array(); $j=0;
+        $p = array();
+	for ($i=0;$i<$n;$i++) {
+		$aa = DBRow($r,$i);
+		if ($aa["timestamp"] < $b["sitelastmileanswer"]) {
+                    if(!isset($p[$aa["number"]])) {
+                        $p[$aa["number"]] = 1;
+			$a[$j] = $aa;
+			$j++;
+                    }
+		}
+	}
+	return $a;
+}
+//recebe o numero do contest, o numero do site do juiz e o numero do juiz
+//devolve um array, onde cada linha tem os atributos
+//  number (numero da run)
+//  timestamp (hora da criacao da run)
+//  problem (nome do problema)
+//  status (situacao da run)
+//  answer (texto com a resposta)
+function DBJudgedRuns($contest,$site,$user) {
+	$c = DBConnect();
+	$r = DBExec($c, "select distinct r.runsitenumber as site, r.runnumber as number, r.rundatediff as timestamp, " .
+				"p.problemname as problem, r.runstatus as status, l.langname as language, l.langextension as extension, " .
+				"a.runanswer as answer, r.updatetime, r.runanswer1 as answer1, r.runanswer2 as answer2 " .
+				"from runtable as r, problemtable as p, answertable as a, langtable as l " .
+				"where r.contestnumber=$contest and p.contestnumber=r.contestnumber and " .
+				"l.contestnumber=r.contestnumber and l.langnumber=r.runlangnumber and " .
+				"r.contestnumber=a.contestnumber and r.runproblem=p.problemnumber and " .
+				"a.answernumber=r.runanswer and " .  
+				"((r.runjudgesite=$site and r.runjudge=$user) or ".
+				" (r.runjudgesite1=$site and r.runjudge1=$user) or ".
+				" (r.runjudgesite2=$site and r.runjudge2=$user)) ".
+				" order by r.updatetime",
+				"DBJudgedRuns(get run/prob/ans/lang)");
+	$n = DBnlines($r);
+
+	$a = array();
+	for ($i=0;$i<$n;$i++) {
+		$a[$i] = DBRow($r,$i);
+	}
+	return $a;
+}
+// eof
+?>