http://jk2.pcs.usp.br/cgi-bin/nome.cgi
Obs: como não deixo o computador 24 horas no ar, de preferência teste o script sexta-feira-17 à tarde.
O códgio deste CGI é:
------------------------------
#!/usr/bin/perl -w
use CGI qw(:standard);
my $nome = param("nome");
print header() . start_html("Exemplo de um CGI") . h1("Exemplo de CGI") ;
if ($nome) {
print p("boa tarde $nome");
} else {
print hr() . start_form();
print p("digite seu nome: " . textfield("nome", ""));
print end_form() . hr();
}
-----------------------------------
Teste este CGI em sua própria máquina colocando este código em /home/httpd/cgi-bin/
Sete-o como executável e experimente o script em sua máquina local como:
http://localhost/cgi-bin/nome.cgi
Na palestra neste sábado (http://www.pcs.usp.br/~jkinoshi/aula1.html) vou entrar em diversos detalhes de como partir do Linux que acabou de ser instalado até a execução de CGI-scripts. Vou apresentar também uma versão melhorada deste script onde o usuário preenche o seu email e um pequeno texto. O CGI envia então um email para o usuário com o texto preenchido. Não perca a palestra de sábado!
^JC