- Fórum WMO
- → Viewing Profile: Posts: Seraphim
PostagensCommunity Stats
- Group Usuários
- Active Posts 5
- Profile Views 1901
- Member Title Novato no fórum
- Age 52 years old
- Birthday April 28, 1973
-
Sexo
Não informado
0
Neutral
User Tools
Friends
Seraphim hasn't added any friends yet.
Latest Visitors
-
Guest
04/11/2007, 02:57
Posts I've Made
In Topic: Envio De Senha
08/04/2008, 11:01
Obrigado pela ajuda Whitesnake. Vou tentar, qualquer problema eu aviso. Muito obrigado pela ajuda, valeu mesmo.
In Topic: Ajax+cgi
29/01/2008, 15:29
Prezado Whitesnake, estou tentando começar a programar com Perl+Ajax, comecei a pesquisar na web e encontrei este tópico, porém notei que a forma que você cria o seu arquivo .cgi (no meu caso .pl), é um pouco diferente, é claro que a forma como está o programa funciona e é correta, porém tenho mais facilidade da seguinte forma (É o ActivePerl 5.8.8, no Windows Vista, com Apache e modperl):
#!/usr/local/bin/perl -w
$|=1;
use strict;
use CGI qw/:standard :html3/;
use lib '../lib';
use global;
print header;
#--------------------#
# Variáveis globais. #
#--------------------#
my ($operacao);
my ($coddepart,$codpesq);
#----------------------------------#
# Variáveis de conexão e operação. #
#----------------------------------#
$operacao = param('operacao');
$coddepart = param('coddepart');
$codpesq = param('codpesq');
sub CabecalhoHTML {
#-----------------------------------------#
# Apresentação da primeira parte da tela. #
#-----------------------------------------#
print <<Bloco;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1250">
<title>Relatórios e Avaliações - Departamento de Pesquisa</title>
<link rel=STYLESHEET href="../css/pesqdocente.css" type="text/css">
<script language="JavaScript">
<font class="fCor02">
<font class="fCor01"><b> Nome da Página</b></font><br>
</font>
</p>
Bloco
} # Fim do CabecalhoHTML.
sub MontaTela {
#-------------------------------------#
# Declaração das variáveis da rotina. #
#-------------------------------------#
my ($cont);
$cont = 0;
print <<Bloco;
<center>
<form name="monta" method="POST" action="pesquisaDocente.pl">
<input type="hidden" name="operacao" value="verifica">
<table width="59%" height="408" border="0" align="center">
<tr>
<td colspan="2">____________________________________________________________________________________</td>
</tr>
<tr>
<td width="50%">
<span class="fCor03">
Código do Departamento
</span>
<input type="text" name="coddepart" value="$coddepart" maxlength="6" size="6">
</td>
<td width="50%">
<div align="left">
<span class="fCor03">
Código da Pesquisa
</span>
<input type="text" name="codpesq" value="$codpesq" maxlength="6" size="6">
</div>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="button" name="prossegue" value="Prosseguir" onclick="document.forms[1].action='pesquisaDocente.pl';document.forms[1].submit();">
<input type="button" name="voltar" value="Voltar" onclick="history.back(-1)">
</td>
</tr>
</table>
</form>
</center>
Bloco
} # Fim do MontaTela.
#---------------------#
# Programa Principal. #
#---------------------#
&CabecalhoHTML;
if ($operacao eq ''){
&MontaTela;
} elsif ($operacao eq 'verifica'){
&VerificaDados;
} elsif ($operacao eq 'envia'){
&EnviaEmail;
}
#---------------#
# Fecha o HTML. #
#---------------#
print <<Bloco;
</body>
</html>
Bloco
Tentei usar da forma como você ensina, mas sou limitado e não consigo entender algumas coisas, na prática, peço que se for possível, gostaria da sua ajuda, para que eu possa implementar programas em Perl+Ajax, nessa forma como crio os programas. Aliás não é necessário declarar a biblioteca CGI:Ajax; nem instalar? Desde já te agradeço pela compreensão e pela ajuda.
#!/usr/local/bin/perl -w
$|=1;
use strict;
use CGI qw/:standard :html3/;
use lib '../lib';
use global;
print header;
#--------------------#
# Variáveis globais. #
#--------------------#
my ($operacao);
my ($coddepart,$codpesq);
#----------------------------------#
# Variáveis de conexão e operação. #
#----------------------------------#
$operacao = param('operacao');
$coddepart = param('coddepart');
$codpesq = param('codpesq');
sub CabecalhoHTML {
#-----------------------------------------#
# Apresentação da primeira parte da tela. #
#-----------------------------------------#
print <<Bloco;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1250">
<title>Relatórios e Avaliações - Departamento de Pesquisa</title>
<link rel=STYLESHEET href="../css/pesqdocente.css" type="text/css">
<script language="JavaScript">
<font class="fCor02">
<font class="fCor01"><b> Nome da Página</b></font><br>
</font>
</p>
Bloco
} # Fim do CabecalhoHTML.
sub MontaTela {
#-------------------------------------#
# Declaração das variáveis da rotina. #
#-------------------------------------#
my ($cont);
$cont = 0;
print <<Bloco;
<center>
<form name="monta" method="POST" action="pesquisaDocente.pl">
<input type="hidden" name="operacao" value="verifica">
<table width="59%" height="408" border="0" align="center">
<tr>
<td colspan="2">____________________________________________________________________________________</td>
</tr>
<tr>
<td width="50%">
<span class="fCor03">
Código do Departamento
</span>
<input type="text" name="coddepart" value="$coddepart" maxlength="6" size="6">
</td>
<td width="50%">
<div align="left">
<span class="fCor03">
Código da Pesquisa
</span>
<input type="text" name="codpesq" value="$codpesq" maxlength="6" size="6">
</div>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="button" name="prossegue" value="Prosseguir" onclick="document.forms[1].action='pesquisaDocente.pl';document.forms[1].submit();">
<input type="button" name="voltar" value="Voltar" onclick="history.back(-1)">
</td>
</tr>
</table>
</form>
</center>
Bloco
} # Fim do MontaTela.
#---------------------#
# Programa Principal. #
#---------------------#
&CabecalhoHTML;
if ($operacao eq ''){
&MontaTela;
} elsif ($operacao eq 'verifica'){
&VerificaDados;
} elsif ($operacao eq 'envia'){
&EnviaEmail;
}
#---------------#
# Fecha o HTML. #
#---------------#
print <<Bloco;
</body>
</html>
Bloco
Tentei usar da forma como você ensina, mas sou limitado e não consigo entender algumas coisas, na prática, peço que se for possível, gostaria da sua ajuda, para que eu possa implementar programas em Perl+Ajax, nessa forma como crio os programas. Aliás não é necessário declarar a biblioteca CGI:Ajax; nem instalar? Desde já te agradeço pela compreensão e pela ajuda.
- Fórum WMO
- → Viewing Profile: Posts: Seraphim
- Privacy Policy
- Regras ·
