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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...