Re: [Webmasters] CGI perl e java

["Guilherme Mendes" <menndes@xxxxxxxxxx>]

Olá Victor,

Para chamar uma página automaticamente, adpte o código abaixo em seu script. Este teria que ter no botão de ação do formulário, um atributo "hidden" com o nome ".thanks_url". Eu tirei este do web2mail , mas eu já daptei para outros tipos e deu certo. acho que você não vai encontrar dificuldades:

### Return an acknowledgement page.
### Look first for a matching custom response url, 
### then for a thanks page, or send the default acknowledgement page.
### 
sub acknowledge_page {
    local($i, @triples);
    ## search for a match among custom responses
    if ( $in{'.custom_response_url'} ) {
        ## for each custom response, the triple is:
        ## form tag name :: triggering value :: response url
        @triples = split( /::/, $in{'.custom_response_url'} );
        for ($i=0; $i < $#triples; $i+=3) {
            ## if name matches value
            if ( $in{"$triples[$i]"} eq $triples[$i+1] ) {  
                ## print URL
                if ( $in{'.test'} ) {    # test mode
                    print "The acknowledgement page that would be returned is:
                           <A HREF=\"$triples[$i+2]\">$triples[$i+2]</A>";
                } else { 
                    print "Location:  $triples[$i+2]\n\n"; 
                }
                exit;
            }
        }
    }
    ## if no custom response matches, return the supplied 
    ## base thanks page, if any
    if ( $in{'.thanks_url'} ) {
        if ( $in{'.test'} ) {  # test mode
            print "The acknowledgement page that would be returned is:
                   <A HREF=\"$in{'.thanks_url'}\">$in{'.thanks_url'}</A>";
        } else { 
            print "Location:  $in{'.thanks_url'}\n\n";
        }
    ## or just return the built-in default
    } else {       
        print &thanks_page;
    }
}   

##############################
É isso aí, qualquer problema, mande-me um e-mail.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Guilherme Mendes                                                 
menndes@sti.com.br
Servidor gratuito de scripts Perl, cgi, apples. 
Suporte completo a Cgi e Perl. 
Sistema de banners e uma web ring. 
http://www.interserv.he.com.br 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-----Mensagem original-----
De: Victor Vargas de Andrade <victor@cbj.g12.br>
Para: webmasters@neting.com <webmasters@neting.com>
Data: Quinta-feira, 8 de Outubro de 1998 00:27
Assunto: [Webmasters] CGI perl e java


>Olá pessoal da lista!
>
>Sou novato em programação CGI. Uso a linguagem perl por ser mais
>acessível a mim (fiz um curso na internet, site da DMU), mas tenho tido
>algumas dificuldades para manipular applets java e scripts CGI perl.
>
>Primeiro: como faço para trabalhar com o método POST se minhas
>informações (dados de campos) estão num applet Java? Com o método GET eu
>consigo.
>
>Segundo: Tenho um programa cgi escrito em perl e preciso chamar um
>arquivo html ao final de sua execução. Esta chamada deve ser automática,
>ou seja, sem uso de controls (botões ou link).
>
>Alguém pode me ajudar?
>
>Obrigado pela atenção.
>
>
>