Jump to content


Photo

Ajuda Por Favor!

Started By aniram, 17/08/2009, 10:03

  • Faça o login para participar
Nenhuma resposta neste tópico

#1 aniram

aniram

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 17/08/2009, 10:03

Primeiramente, bom dia a todos!

Preciso da ajuda de vocês com uma certa urgencia, se for possível. Eu vim trabalhar numa escola, onde dou aulas e cuido do site da escola. O site foi feito por uma outra pessoa. A área restrita é CGI e HTML. Como nunca tinha visto esse tipo de código, passei a estudá-lo pois a área restrita estava cheia de erros. Consegui arrumar estes erros, porém tenho que inserir 2 coisas, que são ocorrências e tarefas. Não faço a menor idéia de como fazer isso, se alguém puder me ajudar...

Informações de "Ocorrências": são 3 campos, onde um é para a data, outro para a disciplina e outro para as ocorrências. Tem que aparecer em forma de lista, pois vai aparecer na tela do usuário todas a informações do ano letivo.

Informações de "Tarefas": são 3 campos, onde um é para a data, outro para a disciplina e outro para as tarefas. Também tem que aparecer em forma de lista, pois vai aparecer na tela do usuário todas a informações do ano letivo.

Vou colocar aqui alguns códigos que eu corrigi alguma coisa...

classes.cgi

#!/usr/bin/perl
print "Content-type: text/html\n\n";
require "../config.cgi";
use CGI;
$cgi = new CGI;
$acao = $cgi->param("acao");
include("cima.lay");
#####################
if(!$admincookie){ print "Sem acesso a administração!"; include("baixo.lay"); redir("index.html"); exit; }
######################
if(!$acao || !$acao eq "inicial" || $acao eq "cadastrar"){
print qq~
Para cadastrar o novo aluno, preencha o formulário abaixo:
<form method="POST">
Classe: <input type="text" name="nome" size="20"><br>
Escolha as matérias:<br>
~;
open(DICIPLINAS,"../dados/diciplinas.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
print qq~<input type="checkbox" name="diciplina" value="$nomed">$nomed<br>~;
}

print qq~
<input type="hidden" name="acao" value="addclasse">
<p><input type="submit" value="Criar Classe"></p>
</form>
~;
}
##################
if($acao eq "listar"){
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
print qq~<b>$nomed</b> [<img src="../img/remover.gif"><a href="?acao=delclasses&classe=$idd">Remover</a>] [<img src="../img/ver.gif"><a href="?acao=detalhes&classe=$idd&titulo=$nomed">Detalhes</a>]<br>~;
}
if(!@diciplinas){ print "<b>Nenhuma classe cadastrada até o momento!</b>"; }
}
######################
if($acao eq "delclasses"){
$materia = $cgi->param("classe");
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS); $n="0";
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
if($materia eq $idd){ $n++;
unlink("../dados/classes/$idd.dat");
}else{
push(@bd,"$idd|$nomed");
}
}

if($n eq "0"){
print "Classe não pode ser excluida!";
}else{
open(DICIPLINA,">../dados/classes.dat");
foreach $linha(@bd){ chomp;
print DICIPLINA "$linha\n";
} close(DICIPLINA);
print "Classe foi removida com sucesso!";
}
}
##################
if($acao eq "detalhes"){
$id = $cgi->param("classe");
$nome = $cgi->param("titulo");

print "Exibindo detalhes da sala <b>$nome</b>.<br>Matérias cadastradas:<br><br><i>";
open(CLAS,"../dados/classes/$id.dat");
@classes=<CLAS>;
close(CLAS);
$disci="";
foreach (@classes) { chomp;
$disci .= "<option value=\"$_\">$_</option>";
#print qq~ <b>$_</b> [<a href="?acao=removermateria&classe=$id&materia=$_"><img src="../img/remover.gif" border="0">Remover matéria</a>]<br>~; }

print qq~ <b>$_</b><br>~; }

print qq~ <br><br>Remover matéria:
<form method="POST">
<input type="hidden" name="acao" value="delmateria">
<input type="hidden" name="classe" value="$id">
<select name="materia">$disci</select><br>
<input type="checkbox" name="atualiza" value="sim" checked>Atualizar boletim dos alunos desta classe ?<br>
<input type="submit" value="Remover">
</form> ~;

open(DICIPLINAS,"../dados/diciplinas.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
print qq~
<br><br>Adicionar nova matéria:
<form method="POST">
<input type="hidden" name="acao" value="addmateria">
<input type="hidden" name="classe" value="$id">
<select name="materia"> ~;
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
print qq~<option value="$nomed">$nomed</option>~;
}
print qq~
</select><br>
<input type="checkbox" name="atualiza" value="sim" checked>Atualizar boletim dos alunos desta classe ?<br>
<input type="submit" value="Adicionar">
</form>
~;

print qq~</i><br><br><img src="../img/remover.gif"><a href="?acao=delclasses&classe=$id">Remover está classes</a>~;

}
##################
if($acao eq "delmateria"){
$id = $cgi->param("classe");
$materia = $cgi->param("materia");
$atualiza = $cgi->param("atualiza");

open(CLAS,"../dados/classes/$id.dat");
@classes=<CLAS>; close(CLAS); $x="0";

foreach (@classes){ chomp;
if($materia eq $_){ $x++; }else{ push(@nbd,"$_"); }
}

if($x eq "0"){ print "Matéria não pode ser removida desta classe";
}else{
open(CLASS,">../dados/classes/$id.dat");
foreach $linha(@nbd){ chomp;
print CLASS "$linha\n";
} close(CLASS);
print "Matéria foi removida com sucesso da classe !<br><br>";
}
##
if($atualiza eq "sim"){
open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";
foreach (@alunos){ chomp;
($idd,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
if($id eq $idclasse){ $n++;
#code de remover da sala aqui

$linhax="";
open(BOLETIM,"../dados/notas/$ano/$matricula.dat");
@boletim=<BOLETIM>; close(BOLETIM);
foreach $bole(@boletim){ chomp($bole);
($xmateria,$resto) = split(/\|/,$bole,2);
if($materia ne $xmateria){ $linhax .= "$xmateria|$resto\n"; }else{ print "Removido $materia de $nome<br>"; }
}

open(BOLETI,">../dados/notas/$ano/$matricula.dat");
print BOLETI "$linhax";
close(BOLETI);

# fim do code aqui
}
}
print "<br><br>A matéria foi removida de <b>$n</b> aluno(s) que estão cadastrados nessa classe!";
}
##
}
##################
if($acao eq "addmateria"){
$id = $cgi->param("classe");
$materia = $cgi->param("materia");
$atualiza = $cgi->param("atualiza");

open(CLAS,">>../dados/classes/$id.dat");
print CLAS "$materia\n";
close(CLAS);
print "A matéria <b>$materia</b> foi cadastrada com sucesso na classe!";
##
if($atualiza eq "sim"){
open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";
foreach (@alunos){ chomp;
($idd,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
if($id eq $idclasse){ $n++;
open(BOLETIM,">>../dados/notas/$ano/$matricula.dat");
print BOLETIM "$materia||||||||\n";
close(BOLETIM);
}
}
print "<br><br>A matéria foi adicionada em <b>$n</b> aluno(s) que estão cadastrados nessa classe!";

}
##
}
##################
if($acao eq "addclasse"){
$id = time();
$nome = $cgi->param("nome");
@diciplina = $cgi->param('diciplina');

open(CLA,">>../dados/classes.dat");
print CLA "$id|$nome\n";
close(CLA);

open(CLAS,">../dados/classes/$id.dat");
foreach (@diciplina) {
print CLAS "$_\n";
print "$_<br>";
} close(CLAS);

print "Classe cadastrada com sucesso!";
}
###################
include("baixo.lay");

alunos.cgi

#!/usr/bin/perl
print "Content-type: text/html\n\n";
require "../config.cgi";
use CGI;
$cgi = new CGI;
$acao = $cgi->param("acao");
include("cima.lay");
#####################
if(!$admincookie){ print "Sem acesso a administração!"; include("baixo.lay"); redir("index.html"); exit; }
######################
if(!$acao || !$acao eq "inicial" || $acao eq "cadastrar"){
$classes = "";
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes .= qq~<option value="$idd|$nomed">$nomed</option>~;
}

print qq~
<form method="POST">
<p>Para cadastrar um novo aluno, apenas preencha o formulário abaixo corretamente:<br>
Nome do aluno:<input type="text" name="nome" size="40"><br>
Nº da matrícula:<input type="text" name="matricula" size="13"><br>
Classe do aluno: <select size="1" name="classes">$classes
</select><br>
Data de nascimento: <input type="text" name="nasc" size="10"><br>
E-mail: <input type="text" name="email" size="47"><br>
Senha de acesso: <input type="password" name="senha" size="12"><br>
<input type="submit" value="Cadastrar aluno"></p>
<input type="hidden" name="acao" value="add">
</form>
~;
}
##################
if($acao eq "add"){
$id = time();
$nome = $cgi->param("nome");
$matricula = $cgi->param("matricula");
$classe = $cgi->param("classes");
($idd,$nomed) = split(/\|/,$classe);
$nasc = $cgi->param("nasc");
$email = $cgi->param("email");
$senha = $cgi->param("senha");

open(ALUNOS,">>../dados/alunos.dat");
print ALUNOS "$id|$matricula|$nome|$idd|$nasc|$email|$senha\n";
close(ALUNOS); $n="0";

$materias=""; $materia="";
open(CLAS,"../dados/classes/$idd.dat"); @classes=<CLAS>; close(CLAS);
foreach (@classes) { chomp; $materias .= "$_||||||||||\n"; $materia.="$_<br>"; }
open(BOLETIM,">../dados/notas/$ano/$matricula.dat");
print BOLETIM "$materias";
close(BOLETIM);

print qq~
O(A) aluno(a) <b>$nome</b> foi cadastrado(a) com sucesso na $nomed!<br>
Matérias cadastradas:<br>
<i>$materia</i>
~;
}
##################
if($acao eq "remover"){
$aluno = $cgi->param("aluno");

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0"; $x="0";

foreach (@alunos){ chomp;
($idx,$matriculax,$nomex,$idclassex,$nascx,$emailx,$senhax) = split(/\|/,$_);
if($aluno eq $idx){ $n++;
unlink("faltas/$matriculax.dat");
unlink("notas/$ano/$matriculax.dat");
unlink("ocorrencias/$matriculax.dat");
}else{
push(@bd,"$idx|$matriculax|$nomex|$idclassex|$nascx|$emailx|$senhax");
}
}
if($n eq "0"){
print "Aluno(a) não pode ser removido!";
}else{
open(ALUNO,">../dados/alunos.dat");
foreach $linha(@bd){ chomp;
print ALUNO "$linha\n";
} close(ALUNO);

print "Aluno(a) foi removido com sucesso!!<br><br>";
}
}
##################
if($acao eq "editar"){
$aluno = $cgi->param("aluno");

$classes = "";
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes .= qq~<option value="$idd|$nomed">$nomed</option>~;
}

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
if($aluno eq $id){ $n++;
print qq~
<form method="POST">
<p>Use o formulário abaixo para editar o aluno:<br>
Nome do aluno:<input type="text" name="nome" size="40" value="$nome"><br>
Nº da matrícula: $matricula<br>
Classe do aluno: <select size="1" name="classes"><option value="$idclasse|">Manter atual</option>\n$classes
</select><br>
<font color="red"><b>*Atenção:</b> Ao ser trocado de classe, será zerada todas as notas ja cadastradas no aluno.</font><br><br>
Data de nascimento: <input type="text" name="nasc" size="10" value="$nasc"><br>
E-mail: <input type="text" name="email" size="47" value="$email"><br>
Senha de acesso: <input type="password" name="senha" size="12" value="$senha"><br>
<input type="submit" value="Editar aluno"></p>
<input type="hidden" name="matricula" value="$matricula">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="acao" value="salvaedicao">
</form>
~;
last;
}
}

if($n eq "0"){ print "Aluno não encontrado!"; }
}
##################
if($acao eq "salvaedicao"){
$id = $cgi->param("id");
$nome = $cgi->param("nome");
$matricula = $cgi->param("matricula");
$classe = $cgi->param("classes");
($idd,$nomed) = split(/\|/,$classe);
$nasc = $cgi->param("nasc");
$email = $cgi->param("email");
$senha = $cgi->param("senha");

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0"; $x="0";

foreach (@alunos){ chomp;
($idx,$matriculax,$nomex,$idclassex,$nascx,$emailx,$senhax) = split(/\|/,$_);
if($id eq $idx){ $n++;

if($idd ne $idclassex){ $x++;
$materias=""; $materia="";
open(CLAS,"../dados/classes/$idd.dat"); @classes=<CLAS>; close(CLAS);
foreach (@classes) { chomp; $materias .= "$_||||||||||\n"; $materia.="$_<br>"; }
open(BOLETIM,">../dados/notas/$ano/$matricula.dat");
print BOLETIM "$materias";
close(BOLETIM);
}


push(@bd,"$idx|$matriculax|$nome|$idd|$nasc|$email|$senha");
}else{
push(@bd,"$idx|$matriculax|$nomex|$idclassex|$nascx|$emailx|$senhax");
}
}

if($n eq "0"){
print "Aluno não pode ser editado!";
}else{

open(ALUNO,">../dados/alunos.dat");
foreach $linha(@bd){ chomp;
print ALUNO "$linha\n";
} close(ALUNO);

print "Aluno <B>$nome</b> foi editado com sucesso!<br><br>";
if($x ne "0"){ print "O aluno foi trocado com sucesso para a classe <b>$nomed</b>"; }
}
}
##################
if($acao eq "listar"){
open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";
$total=scalar(@alunos);
$todos = $total;

print "Listando os alunos cadastrados no sistema:<br>[<img src=\"../img/lupa.jpg\"><a href=\"?acao=buscar\">Pesquisar aluno</a>]<br><br>";

$vendo = $cgi->param("pag");
$porpagina = "10";
if ($vendo eq "") { $vendo = "$porpagina"; }
$dim = $vendo - $porpagina;
$valor=$dim+1;
if ($vendo > $todos){$vendo = $todos;}
$inicio = 0;

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);

++$inicio; if ($inicio > $dim) {
if ($inicio <= $vendo) {

print qq~<font size="2"><b>$nome</b><br><img src="../img/editar.gif"><a href="edita_boletim.cgi?aluno=$matricula">Editar notas</a> | <img src="../img/remover.gif"><a onclick=\"return confirm('Deseja realmente remover este aluno ?')\" href="?acao=remover&aluno=$id">Remover</a> | <img src="../img/editar.gif"><a href="?acao=editar&aluno=$id">Editar</a> | <img src="../img/ver.gif"><a href="?acao=ver&aluno=$matricula">Ver</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=ocorrencias&aluno=$matricula">Ocorrências</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=publicafaltas&aluno=$matricula">Faltas</a> | <a href="boletim.cgi?acao=imprimiraluno&aluno=$matricula" target="_blank">Imprimir boletim</a></font><br><br>~;
}}
}
##########
print "<center>";
if ($dim >= $porpagina){ print "<a href=\"?acao=listar&pag=$dim&\"> « Anterior</a> "; }else{ print " « "; }

$paginas = $todos / $porpagina;
for($i=0;$i<$paginas;$i++) {
$aaa = $i;
$aaa++;
$link = $aaa * $porpagina;
if($vendo eq "$link") {
print "[<a href=\"?acao=listar&pag=$link\"><b><u>$aaa</u></b></a>] ";
}else{
print "[<a href=\"?acao=listar&pag=$link\">$aaa</a>] ";
}}

if($vendo < $todos){ $acima = $vendo + $porpagina;
print "<a href=\"?acao=listar&pag=$acima\"> Próxima »</a>"; }else{ print " »"; }
print "</center>";
##########
}
##################
if($acao eq "ver"){
$aluno = $cgi->param("aluno");


open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
if($aluno eq $matricula){ $n++;
print qq~ Aluno(a): <b>$nome</b><br>
Matrícula: <b>$matricula</b><br>
Data de nascimento: $nasc<br>
E-mail: $email<br><br>
~; last; }
}

open(FALTAS,"../dados/faltas/$aluno.dat");
@faltas=<FALTAS>;
close(FALTAS);
$faltas="";
foreach (@faltas){ chomp;
($id,$date,$motivo) = split(/\|/,$_);
$faltas .= "$date - $motivo<br>";
}

open(OCORRENCIAS,"../dados/ocorrencias/$aluno.dat");
@ocorrencias=<OCORRENCIAS>;
close(OCORRENCIAS);
$ocorrencias="";
foreach (@ocorrencias){ chomp;
($id,$date,$motivo) = split(/\|/,$_);
$ocorrencias .= "$date - $motivo<br>";
}

open(BOLETIM,"../dados/notas/$ano/$aluno.dat");
@boletim=<BOLETIM>;
close(BOLETIM);

print qq~
<table border="0" cellpadding="0" cellspacing="0" style="border:1px dotted #C0C0C0; border-collapse: collapse; font-family: Verdana; font-size: 8 pt" bordercolor="#111111" width="550">
<tr>
<td colspan="11" height="19" width="535">
<p align="center" style="line-height: 150%"><b>Médias: </b></td>
</tr>
<tr>
<td height="32" align="center" width="100" rowspan="2">
<p style="line-height: 150%"><b>Disciplinas</b></td>
<td height="14" colspan="2" align="center" width="85">
<p style="line-height: 150%"><b>1º Trimestre</b></td>
<td height="14" colspan="2" align="center" width="85">
<p style="line-height: 150%"><b>2º Trimestre</b></td>
<td height="14" colspan="2" align="center" width="85">
<p style="line-height: 150%"><b>3º Trimestre</b></td>
<td height="14" align="center" width="54">
<p style="line-height: 150%"><b>Exame</b></td>
<td height="14" align="center" width="54">
<p style="line-height: 150%"><b>NF</b></td>
</tr>
<tr>
<td width="41" style="border: 1px dotted #C0C0C0" align="center" height="18">
Notas</td>
<td width="46" style="border: 1px dotted #C0C0C0" align="center" height="18">
Faltas</td>
<td width="39" style="border: 1px dotted #C0C0C0" align="center" height="18">
<p style="line-height: 150%">
Notas</td>
<td width="44" style="border: 1px dotted #C0C0C0" align="center" height="18">
Faltas</td>
<td width="39" style="border: 1px dotted #C0C0C0" align="center" height="18">
<p style="line-height: 150%">
Notas</td>
<td width="40" style="border: 1px dotted #C0C0C0" align="center" height="18">
Faltas</td>
<td width="55" style="border: 1px dotted #C0C0C0" align="center" height="18">
<p style="line-height: 150%">Nota</td>
<td width="55" style="border: 1px dotted #C0C0C0" align="center" height="18">
<p style="line-height: 150%">Nota</td>
</tr>
~;

foreach(@boletim){ chomp;
($materia,$t1n,$t1f,$t2n,$t2f,$t3n,$t3f,$texa,$tnota) = split(/\|/,$_);
print qq~
<tr>
<td height="1"><b>$materia</b></td>
<td height="1" align="center">$t1n</td>
<td height="1" align="center">$t1f</td>
<td height="1" align="center">$t2n</td>
<td height="1" align="center">$t2f</td>
<td height="1" align="center">$t3n</td>
<td height="1" align="center">$t3f</td>
<td height="1" align="center">$txa</td>
<td height="1" align="center">$tnota</td>
</tr>
~;
}

print qq~
</table>
<hr size="1">
Faltas:<br>
$faltas<hr>
Ocorrências em sala de aula:<br>
$ocorrencias
~;
}
##################
if($acao eq "buscar"){

open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes .= qq~<option value="$idd|$nomed">$nomed</option>~;
}

print qq~
<p><b>Buscar Alunos</b></p>
<form method="POST">
<p>Buscar por nº de matrícula:<br>
<input type="text" name="matricula" size="20"> <input type="submit" value="Buscar"></p>
<input type="hidden" name="acao" value="buscamatricula">
</form>
<form method="POST">
<p>Buscar por classes:<br>
<select size="1" name="classes">$classes
</select> <input type="submit" value="Buscar"></p>
<input type="hidden" name="acao" value="buscaclasses">
</form>
<form method="POST">
<p>Buscar por nome<br>
<input type="text" name="nome" size="20"> <input type="submit" value="Buscar"></p>
<input type="hidden" name="acao" value="buscanome">
</form>
~;
}
##################
if($acao eq "buscanome"){
$nomex = $cgi->param("nome");

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";
$a = lc($nomex);

print "Resultado(s) obtido para busca por aluno com o termo <b>$nomex</b>:<br><br>";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
$b = lc($nome);
if($b =~ /$a/i){ $n++;
print qq~
<font size="2"><b>$nome</b><br><img src="../img/editar.gif"><a href="edita_boletim.cgi?aluno=$matricula">Editar notas</a> | <img src="../img/remover.gif"> <a onclick=\"return confirm('Deseja realmente remover este aluno ?')\" href="?acao=remover&aluno=$id">Remover</a> | <img src="../img/editar.gif"><a href="?acao=editar&aluno=$id">Editar</a> | <img src="../img/ver.gif"><a href="?acao=ver&aluno=$matricula">Ver</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=ocorrencias&aluno=$matricula">Ocorrências</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=publicafaltas&aluno=$matricula">Faltas</a> | <a href="boletim.cgi?acao=imprimiraluno&aluno=$matricula" target="_blank">Imprimir boletim</a></font><br><br>
~;
}
}

if($n eq "0"){ print "Não foi encontrado nenhum aluno para o termo buscado"; }
}

##################
if($acao eq "buscamatricula"){
$matriculax = $cgi->param("matricula");

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);

if($matriculax eq $matricula){ $n++;
print qq~
<font size="2"><b>$nome</b><br><img src="../img/editar.gif"><a href="edita_boletim.cgi?aluno=$matricula">Editar notas</a> | <img src="../img/remover.gif"> <a onclick=\"return confirm('Deseja realmente remover este aluno ?')\" href="?acao=remover&aluno=$id">Remover</a> | <img src="../img/editar.gif"><a href="?acao=editar&aluno=$id">Editar</a> | <img src="../img/ver.gif"><a href="?acao=ver&aluno=$matricula">Ver</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=ocorrencias&aluno=$matricula">Ocorrências</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=publicafaltas&aluno=$matricula">Faltas</a> | <a href="boletim.cgi?acao=imprimiraluno&aluno=$matricula" target="_blank">Imprimir boletim</a></font><br><br>
~;
}
}

if($n eq "0"){ print "Não foi encontrado nenhum aluno com esse numero de matrícula"; }
}
##################
if($acao eq "buscaclasses"){
$classe = $cgi->param("classes");
($idd,$nomed) = split(/\|/,$classe);

print "Exibindo alunos da classe <b>$nomed</b>:<br><br>";

open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);

if($idclasse ne $idd){ next; }else{ $n++; }
print qq~
<font size="2"><b>$nome</b><br><img src="../img/editar.gif"><a href="edita_boletim.cgi?aluno=$matricula">Editar notas</a> | <img src="../img/remover.gif"> <a onclick=\"return confirm('Deseja realmente remover este aluno ?')\" href="?acao=remover&aluno=$id">Remover</a> | <img src="../img/editar.gif"><a href="?acao=editar&aluno=$id">Editar</a> | <img src="../img/ver.gif"><a href="?acao=ver&aluno=$matricula">Ver</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=ocorrencias&aluno=$matricula">Ocorrências</a> | <img src="../img/alunos.gif"><a href="publicar.cgi?acao=publicafaltas&aluno=$matricula">Faltas</a> | <a href="boletim.cgi?acao=imprimiraluno&aluno=$matricula" target="_blank">Imprimir boletim</a></font><br><br>
~;
}

if($n eq "0"){ print "Nenhum aluno cadastrado nesta classe"; }
}
##################
include("baixo.lay");

publicar.cgi

#!/usr/bin/perl
print "Content-type: text/html\n\n";
require "../config.cgi";
use CGI;
$cgi = new CGI;
$acao = $cgi->param("acao");
include("cima.lay");
#####################
if(!$admincookie){ print "Sem acesso a administração!"; include("baixo.lay"); redir("index.html"); exit; }
######################
if(!$acao || !$acao eq "inicial"){
print qq~
Erro<br>
Ação não especificada!
~;
}
##################
if($acao eq "notas"){
print "<b>Publicar notas</b><br>Para publicar as notas dos alunos, apenas selecione a classe na lista abaixo!<br>";
$classe = $cgi->param("classe");

if(!$classe){
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes .= qq~<option value="$idd">$nomed</option>~;
}
print qq~ <form method="POST">
<p>Escolha a classe do aluno desejado:<br>
<select size="1" name="classe">$classes
</select> <input type="submit" value="Exibir"></p>
<input type="hidden" name="acao" value="notas">
</form> ~;
}else{


open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha,$materia) = split(/\|/,$_);
if($idclasse eq $classe){ $n++;
print qq~$nome | <img src="../img/editar.gif"><a href="edita_boletim.cgi?aluno=$matricula">Editar notas</a> | <a href="faltas.cgi?aluno=$matricula">Editar ocorrencias</a> | <a href="faltas.cgi?classes=$materia">Editar Tarefas</a><br>~;
}
}
if($n eq "0"){ print "Nenhum aluno encontrado"; }
}
}
##################
if($acao eq "faltas"){
print "<b>Publicar ocorrências</b><br>Para publicar as ocorrências dos alunos, apenas selecione o aluno na lista abaixo!<br>";
open(ALUNOS,"../dados/alunos.dat");
@alunos=<ALUNOS>;
close(ALUNOS); $n="0";
else ($acao eq "faltas"){
print "<b>Publicar tarefass</b><br>Para publicar as tarefas das classes, apenas selecione a classe na lista abaixo!<br>";
open(CLASSES,"../dados/classes.dat");
@classes=<CLASSESS>;
close(CLASSES); $n="0";

$classes = $cgi->param("classes");

if(!$classes){
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes = qq~<option value="$idd">$nomed</option>~;
}
print qq~ <form method="POST">
<p>Escolha a classe do aluno desejado:<br>
<select size="1" name="classe">$classes
</select> <input type="submit" value="Exibir"></p>
<input type="hidden" name="acao" value="notas">
</form> ~;
}else{

foreach (@alunos){ chomp;
($id,$matricula,$nome,$idclasse,$nasc,$email,$senha) = split(/\|/,$_);
if($idclasse eq $classe){ $n++;
print qq~$nome | <img src="../img/editar.gif"><a href="?acao=publicafaltas&aluno=$matricula">Faltas</a><br>~;
}
}
if($n eq "0"){ print "Nenhum aluno encontrado"; }
}
}
##################
if($acao eq "ocorrencias"){
$aluno = $cgi->param("aluno");

$faltas="";
open(FALTAS,"../dados/ocorrencias/$aluno.dat");
@faltas=<FALTAS>;
close(FALTAS);
$faltas="";
foreach (@faltas){ chomp;
($id,$date,$materia,$motivo) = split(/\|/,$_);
$faltas = "$date - $materia- $motivo<br>";
}

print qq~<form method="POST">
<p>Cadastrar nova ocorrência<br>
Data: <input type="text" name="data" size="11">
Matéria:<input type="text" name="materia" size="15">
Motivo: <input type="text" name="motivo" size="55"><br>
<input type="submit" value="Cadastrar ocorrencia"></p>
<input type="hidden" name="acao" value="cadocorrencia"><input type="hidden" name="aluno" value="$aluno">
</form><br><br>
Ocorrencias já cadastradas:<br>$faltas~;
}
##################
if($acao eq "cadocorrencia"){
$id = time();
$aluno = $cgi->param("aluno");
$date = $cgi->param("data");
$materia = $cgi->param("materia");
$motivo = $cgi->param("motivo");

if(!$date){ $date = $data; }
if(!$motivo){ print "Volte e digite um motivo válido da ocorrência do aluno!";
}else{
open(FALTAS,">>../dados/ocorrencias/$aluno.dat");
print FALTAS "$id|$date|$materia\$motivo\n";
close(FALTAS);

print "Ocorrencia foi cadastrada com sucesso.<br>";
}
}
##################
if($acao eq "publicafaltas"){
$classe = $cgi->param("classe");

$faltas="";
open(FALTAS,"../dados/faltas/$classes.dat");
@faltas=<TAREFA>;
close(FALTAS);
$faltas="";
foreach (@tarefa){ chomp;
($id,$date,$materia,$tarefa) = split(/\|/,$_);
$faltas = "$date - $materia - $tarefa<br>";
}

print qq~<form method="POST">
<p>Cadastrar nova tarefa<br>
Data: <input type="text" name="data" size="11">
Matéria:<input type="text" name="materia" size="15">
Tarefa: <input type="text" name="tarefa" size="55"><br>
<input type="submit" value="Cadastrar tarefa"></p>
<input type="hidden" name="acao" value="cadtarefa"><input type="hidden" name="classes" value="$classes">
</form><br><br>
Tarefas já cadastradas:<br>$faltas~;
}
##################
if($acao eq "cadfaltas"){
$id = time();
$aluno = $cgi->param("aluno");
$date = $cgi->param("data");
$materia = $cgi->param("materia");
$tarefa = $cgi->param("tarefa");

if(!$date){ $date = $data; }
if(!$tarefa){ print "Volte e digite uma tarefa!";
}else{
open(FALTAS,">>../dados/faltas/$classes.dat");
print FALTAS "$id|$date|$materia\$motivo\n";
close(FALTAS);

print "Tarefa foi cadastrada com sucesso.<br>";
}
}
##################
if($acao eq "calendario"){
$classe = $cgi->param("classe");

if(!$classe){
open(DICIPLINAS,"../dados/classes.dat");
@diciplinas=<DICIPLINAS>;
close(DICIPLINAS);
foreach (@diciplinas){ chomp;
($idd,$nomed) = split(/\|/,$_);
$classes .= qq~<option value="$idd">$nomed</option>~;
}
print qq~ <form method="POST">
<p>Escolha a classe desejada para manutenção do calendário escolar:<br>
<select size="1" name="classe">$classes
</select> <input type="submit" value="Exibir calendário"></p>
<input type="hidden" name="acao" value="calendario">
</form> ~;

}else{

print qq~
<form method="POST">
<p>Publicar novo evento no calendario escolar<br>
Evento: <input type="text" name="motivo" size="54"><br>
Data: <input type="text" name="data" size="11"> <input type="submit" value="Cadastrar evento"></p>
<input type="hidden" name="acao" value="cadevento">
<input type="hidden" name="classe" value="$classe">
</form><br>
Segue abaixo os eventos já cadastrados:<br>
~;

open(DIARIO,"../dados/diario/$classe.dat");
@diario=<DIARIO>;
close(DIARIO);
foreach (@diario){ chomp;
($id,$date,$msg) = split(/\|/,$_);
print "<b>$date</b>: $msg<br>";
}
if(!@diario){ print "Nenhum evento cadastrado até o momento!"; }
}
}
##################
if($acao eq "cadevento"){
$id = time();
$classes = $cgi->param("classes");
$date = $cgi->param("data");
$motivo = $cgi->param("motivo");

if(!$date){ $date = $data; }
if(!$motivo){ print "Volte e digite um evento!";
}else{
open(FALTAS,">>../dados/diario/$classes.dat");
print FALTAS "$id|$date|$motivo\n";
close(FALTAS);

print "Novo evento em nosso calendário foi cadastrada com sucesso.<br>";
print "<br><br><center><a href=\"?acao=calendario&classe=$classe\">Voltar ao calendário</a>";
}
}
##################
include("baixo.lay");

Bom acho que é isso, ainda tenho outros códigos: adm_principal.html, edita_boletim.cgi, boletim.cgi, materias.cgi, login.cgi, sair.cgi e adm.cgi. E os códigos da área restrita do usuário: boletim.cgi, calendario.cgi, login.cgi, config.cgi e faltas.cgi (este último não é necessário, então eu adaptei as tabelas de "Ocorrências e Tarefas")

Por Enquanto, obrigada!

Marina
Voltar para Dúvidas sobre Scripts Prontos de CGI/Perl


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → Outras Linguagens e Tecnologias
  4. → CGI/Perl
  5. → Dúvidas sobre Scripts Prontos de CGI/Perl
  6. Privacy Policy
  7. Regras ·
IPB Skin By Virteq