77 lines
1.8 KiB
PHP
Executable File
77 lines
1.8 KiB
PHP
Executable File
<?php
|
|
|
|
// Diretorio de entrada ( o original é /home/soap/pacotescorrecao )
|
|
|
|
$diretorioentrada="submissoes/";
|
|
$diretoriosaida="questoesseparadas/";
|
|
$arqshell="transfarqs.sh";
|
|
$fc= fopen($arqshell,'w');
|
|
|
|
fwrite($fc, "#!/bin/sh \n # Script para transferir tarefas do SOAP para diretorio de avaliacao automatica \n");
|
|
|
|
// Para cada tarefa
|
|
|
|
$ponteiro1 = opendir($diretorioentrada);
|
|
|
|
|
|
if (!(file_exists($diretoriosaida)))
|
|
{
|
|
mkdir($diretoriosaida);
|
|
}
|
|
// Para cada subdiretorio de submissoes (isto é, as tarefas), verifique se diretorio da questao já foi normalizado. Se não, envia
|
|
// endereço do diretorio para ser normalizado
|
|
|
|
while (($nometarefa = readdir($ponteiro1)))
|
|
{
|
|
|
|
if (($nometarefa<>".") && ($nometarefa<>".."))
|
|
{
|
|
$arquivoindex= $diretorioentrada.$nometarefa."/index.htm";
|
|
if (file_exists($arquivoindex))
|
|
{
|
|
unlink($arquivoindex);
|
|
}
|
|
|
|
$ponteiro2 = opendir($diretorioentrada.$nometarefa);
|
|
|
|
while ($submissao = readdir($ponteiro2))
|
|
{
|
|
|
|
if (($submissao<>".") && ($submissao<>".."))
|
|
{
|
|
|
|
$nomedirsubmissao = explode('-',$submissao);
|
|
|
|
$ns = count($nomedirsubmissao);
|
|
|
|
$codigo = $nomedirsubmissao[$ns - 1];
|
|
|
|
$partecodigo = explode('_', $codigo);
|
|
|
|
$npc= count($partecodigo);
|
|
|
|
$codigo = "A".$partecodigo[$npc-1]."-".$codigo;
|
|
|
|
$endereco = $diretoriosaida.$codigo."/";
|
|
|
|
if (!(file_exists($endereco)))
|
|
{
|
|
mkdir($endereco);
|
|
}
|
|
|
|
$comando = "cp -r $diretorioentrada".$nometarefa."/".$submissao." ".$endereco."\n";
|
|
|
|
fwrite($fc,$comando);
|
|
|
|
unset($partecodigo);
|
|
|
|
unset($nomedirsubmissao);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
fclose($fc);
|
|
?>
|