Jump to content


Photo

Script Cgi

Started By Lucia, 01/05/2004, 17:34

  • Faça o login para participar
20 replies to this topic

#1 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 17:34

:o Oi pessoal...tudo bem?
Seguinte...eu to precisando de um script que envia através de um formulário a url de uma página...não é indicar site...é que tenho várias pages de poesias...reflexões...então eu queria q com "um" formulário o visitante do site enviasse a page q quisesse...obrigada pela atenção... :wacko:
www.educamor.net
www.educamor.com.br

#2 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 17:46

humm...deixe-me ver se eu entendi..... vc quer colocar um formulário em cada página de poesia pro cara enviá-la para algum amigo?

#3 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 19:06

:P Oi Stone...é isso mesmo...c sabe?
www.educamor.net
www.educamor.com.br

#4 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 19:12

Tem q saber né!!! rsrsrs

Crie um arquivo -> envia_poesia.cgi
Coloque o seguinte dentro dele:

#!/usr/bin/perl
print "Content-type:text/html\n\n";

$assunto = "Recomendação de Poesia";
$sendmail = "/usr/sbin/sendmail";

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
    @pairs=split(/&/, $buffer);
    foreach $pair (@pairs) {
        ($name, $value)=split(/=/, $pair);
        $value=~ tr/+/ /;
        $value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name}=$value;
    }



open (MAIL, "|$sendmail -t");
print MAIL "To: $FORM{emaildest}\n";
print MAIL "From: $FORM{seuemail}\n";
print MAIL "Subject: $assunto\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq|
<STYLE>
.font {font-family:Verdana; font-color:666666; font-weight:bold; font-size:9pt}
</STYLE>
<body bgcolor="#CCCCCC" link="333333" alink="333333" vlink="333333">
<font class="font">
Oi $FORM{nomedest}, <a href="$FORM{seuemail}">$FORM{seunome}</a> lhe recomendou uma de nossas poesias. <br>
<a href="$FORM{url}" target="_blank">Clique aqui para ler a poesia</a>.</font>
</body>|;
close (MAIL);


Você deve inserir em cada página das poesias o formulário:

<STYLE>
.texto {font-family:Verdana; font-color:#333333; font-size:7pt}
input {font-family:Verdana; color:#333333; font-size:7pt; background-color:#FFFFFF}
</STYLE>
<form method="post" action="cgi-bin/envia_poesia.cgi">
<input type="hidden" name="url" value="http://www.endereco.da.poesia/a.enviar">
  <table width="55%" border="0" bgcolor="#333333">
    <tr>
      <td><table width="100%" border="1" class="texto">
          <tr bgcolor="#FFFFFF">
            <td width="50%"><div align="center"><font color="#333333">Seu Nome:</font></div></td>
            <td> <div align="center">
                <input type="text" name="seunome">
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="50%"><div align="center"><font color="#333333">Seu E-mail:</font></div></td>
            <td> <div align="center">
                <input type="text" name="seuemail">
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="50%"><div align="center"><font color="#333333">Nome do
                Destinat&aacute;rio:</font></div></td>
            <td> <div align="center">
                <input type="text" name="nomedest">
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="50%"><div align="center"><font color="#333333">E-mail do Destinat&aacute;rio:</font></div></td>
            <td> <div align="center">
                <input type="text" name="emaildest">
              </div></td>
          </tr>
        </table>
        <div align="center">
          <input type="submit" value="Enviar">
        </div></td>
    </tr>
  </table>
  </form>


Vermelho: São os campos que você pode modificar.
Verde: Em cada página de poesia vc deve alterar isso para o endereço dela.

#5 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 20:03

Stone...o q tenho q mudar aqui: $assunto = "Recomendação de Poesia";
www.educamor.net
www.educamor.com.br

#6 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 20:07

^Nao é necessário mudança alguma nos campos em vermelho......

Se caso vc QUIZER alterar, isto é o assunto da mensagem q chegará ao destinatário

#7 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 20:31

:wacko: eitaa...tá dando erro 404...
www.educamor.net
www.educamor.com.br

#8 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 20:36

Deve ser no seu formulário.... tente colocar o caminho completo aqui:

<form method="post" action="cgi-bin/envia_poesia.cgi">

Mude para:

<form method="post" action="http://www.meusite.com.br/cgi-bin/envia_poesia.cgi">

#9 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 20:56

:( Deu erro 500...precisa dar chmod?...é q dei sem t perguntar...dei 755
www.educamor.net
www.educamor.com.br

#10 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 21:06

Dê CHMOD 755.... e execute o arquivo envia_poesia.cgi... se isso não resolver, adicione o seguinte na terceira linha dele:
use CGI::Carp(fatalsToBrowser);

Execute-o e poste aqui a mensagem q será exibida!

#11 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 21:30

:D Stone...to t devendo mais esta...funcionou legal !!!...enviou...recebi a mensagem...só aconteceu uma coisa diferente...qd a gente clica em enviar vai para uma página em branco...seria a página de confirmação?...devo criar esta página?...como crio um link para a page de confirmação?
www.educamor.net
www.educamor.com.br

#12 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 21:37

Isso é bem simples Lúcia..... após o código close(MAIL);
Você pode colocar assim:

print qq|


Sucesso no envio!!!



|;

#13 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 21:53

Stone...coloquei o q vc falou mas deu na mesma...mas agora eu reparei q esta página em branco na barra de endereço fica assim:
http://www.educamor....nvia_poesia.cgi
www.educamor.net
www.educamor.com.br

#14 Whitesnake

Whitesnake
  • Visitantes

Posted 01/05/2004, 22:02

Estranho... aqui deu certo lúcia.... eu coloquei assim:

...

open (MAIL, "|$sendmail -t");
print MAIL "To: $FORM{emaildest}\n";
print MAIL "From: $FORM{seuemail}\n";
print MAIL "Subject: $assunto\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq|
<STYLE>
.font {font-family:Verdana; font-color:666666; font-weight:bold; font-size:9pt}
</STYLE>
<body bgcolor="#CCCCCC" link="333333" alink="333333" vlink="333333">
<font class="font">
Oi $FORM{nomedest}, <a href="$FORM{seuemail}">$FORM{seunome}</a> lhe recomendou uma de nossas poesias. <br>
<a href="$FORM{url}" target="_blank">Clique aqui para ler a poesia</a>.</font>
</body>|;
close (MAIL);

print qq|

Email enviado

|;


#15 Lucia

Lucia

    24 Horas

  • Usuários
  • 436 posts
  • Sexo:Feminino
  • Localidade:Campo Grande MS

Posted 01/05/2004, 22:13

:P Stone deu certo...mais uma vez muito obrigada...vc é fera!!!...e o mais legal é q gosta de dividir o q sabe com outras pessoas...valeu mesmo tá!?!? (y)
www.educamor.net
www.educamor.com.br
Voltar para Dúvidas sobre Scripts Prontos de CGI/Perl


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → Outras Linguagens e Tecnologias
  4. → CGI/Perl
  5. → Dúvidas sobre Scripts Prontos de CGI/Perl
  6. Privacy Policy
  7. Regras ·
IPB Skin By Virteq