Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Roberto Baggio

Receber dados POST CGI

Recommended Posts

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 é:

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 !!! :P

Valeu !!!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

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

60945070.jpg

O template default:

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....

Compartilhar este post


Link para o post
Compartilhar em outros sites

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:

 alert-postData: monitor name=1
group=ielo
status=running
sample=364
time=4:52 PM 11/19/09
Para receber esse cara, tentei assim:
#!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/<!--(.|\n) *-->//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 ??? :unsure:

Algum :ph34r: me ajuda aeeee

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×