Javascript Desabilitado

Você está atualmente com o javascript desabilitado. Diversas funções não funcionarão. Por favor, habilite o javascript para ter acesso à todas as funcionalidades.

0

Receber dados POST CGI

Criado por Roberto Baggio, Nov 18 2009 12:28 PM

Por favor, faça o login para responder

2 respostas neste tópico

#1 Roberto Baggio

Membros
6 posts

Postado 18 November 2009 - 12:28 PM

Olá a todos,

Estou com uma dúvida... Coisa simples....
Eu tenho uma aplicação na empresa em que trabalho que me dá a opção de POST. O desenvolvedor da aplicação me disse que ela trabalha em CGI e o POST que ele executa é:

CODE

monitor name=<name>
group=<group>
status=<state>
sample=<sample>
time=<time>

Como crio uma página para receber esses dados ???
Já tentei criar página HTML, ASP e até RoR....
Como não manjo muito de programação, posso ter feito alguma coisa errada na hora de receber esses dados...

To fazendo isso por pura curiosidade. A aplicação me dá essa opção, quero usar !!!

Valeu !!!!!!!

Voltar para o topo

#2 Roberto Baggio

Membros
6 posts

Postado 19 November 2009 - 11:19 AM

Para melhor exemplificar, vou mandar umas telas aqui....

Nessa tela (abaixo) é a configuração para a aplicação enviar para a minha página.

O template default:

CODE

monitor name=<name>
group=<group>
status=<state>
sample=<sample>
time=<time>

Quando faço o teste ele diz que foi enviado com sucesso, porém não consigo "pegar" as informações....

Obrigado....

Voltar para o topo

#3 Roberto Baggio

Membros
6 posts

Postado 23 November 2009 - 03:40 PM

Galera, evolui pacas no CGI-Perl...
Mas ainda tem algumas questões que preciso de ajuda.
Por exemplo, consegui fazer um formulário. Uma página HTLM simples com um botão submit/input que manda para um formulario.pl e "printava" o que eu havia posto no formulário HTML.

Porém, quero fazer de outra forma, receber dados desse POST:

CODE

alert-postData: monitor name=1
group=ielo
status=running
sample=364
time=4:52 PM 11/19/09

Para receber esse cara, tentei assim:

CODE

#!C:\Perl64\bin\perl.exe
read(STDIN, $NAME, $GROUP{'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
print "<html><head><title>Resposta CGI</title></head>\n";
print "<body><h1>Console\n </h1>";
@Campo = split(/&/, $Status);
foreach $Campo1 (@Campo) {
   ($nome, $group) = split(/=/, $Campo1);
   $valor =~ tr/+/ /;
   $valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $valor =~ s///g;
   $Form{$nome} = $nome;
   $Form{$valor} = $group;
   print "$Nome{$name} = $Group{$group}", "
\n";
}
print "</body></html>\n";

Porém, não recebo os dados do alert-post !!!
O que estou fazendo de (muito) errado ???