Jump to content


Photo

Recomenda (birdcast.cgi) Ajuda Para

Started By Limiar , 26/03/2005, 21:18

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

#1 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 26/03/2005, 21:18

Olá, :o

Uso esse script Recomenda (birdcast.cgi) há um bom tempo. Ele é excelente e funciona perfeitamente. Ao fazer as indicações, o script salva num arquivo texto o endereço da página recomendada, o emai do remetente e o email de cada destinatário.

Eu gostaria que, a cada recomendação, o script me enviasse um email com essas informações.

Agradeço qualquer ajuda. (y)

Edição feita por: Paulo Ricardo, 10/08/2007, 21:13.

#2 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 26/03/2005, 21:41

Você manja algo de Perl?

Caso, sim, o processo é bem simples:

1. procure a parte de envio de e-mails do script;
2. adicione algum código de envio de e-mail direcionado a você. Esse código, você encontra em vários lugares... CGiClube.net, aqui no fórum..
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#3 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 26/03/2005, 22:01

Olá,

Manjar mesmo, ainda não. Mas já olhei, destrinchei o script para saber como funciona, mexi, adaptei etc.

O script a que vc se refere seria o sendmail?

Edição feita por: Paulo Ricardo, 10/08/2007, 21:14.

#4 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 27/03/2005, 16:01

Olá,

Retificando: O script seia o FormMail.cgi?

Edição feita por: Paulo Ricardo, 10/08/2007, 21:14.

#5 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 27/03/2005, 18:01

não seria o script, e sim o trecho do script...


$progmail="/usr/sbin/sendmail";

$email="joaogabrielcas\@ig.com.br";
# e-mail do destinatário com uma \ antes do @

$eu="seuemail\@provedor.com.br";
# seu e-mail com uma \ antes do @

$titulo = "titulo do e-mail";
# titulo do e-mail a ser enviado

open(MAIL,"|$progmail -t");
print MAIL "Content-Type: text/html\n";
print MAIL "To: $email\n";
print MAIL "From: $eu\n";
print MAIL "Subject: $titulo\n\n";
print MAIL "<html>\n";
print MAIL qq~
<font face=verdana size="1">Aqui você pode usar HTML</font>
~;
close (MAIL);

print qq~
E-mail enviado
~;

Insere esse código no seu script (acerte o e-mail) e mude a mensagem.

Assim, quando indicarem seu site, vc receberá um alerta.

flw
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#6 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 27/03/2005, 21:20

jgcl,

Funcionou! Depois eu tive que retirar o trecho

print qq~
E-mail enviado
~;

para que o script retornasse à página normal.

Agora, como eu faço para inserir no texto html da mensagem o valor de variáveis como essas, que já estão definidas dentro do script?

$fields{send_email)
$fields{$recipemail}
$subject
$msgtxt)

Edição feita por: Paulo Ricardo, 10/08/2007, 21:14.

#7 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 28/03/2005, 21:53

Olá,

Ralei um bocado por aqui e acabei conseguindo um resultado relativo, conforme abaixo:

print MAIL "$date\n\n"; # data e hora
print MAIL "$JUMP_TO\n\n"; # página recomendada
print MAIL "$fields{send_name}\n\n"; # nome de quem recomenda
print MAIL "$fields{send_email}\n\n"; # email de quem recomenda
print MAIL "$fields{$recipname}\n\n"; # nome do destinatário
print MAIL "$fields{$recipemail}\n\n"; # email do destinatário
print MAIL "$fields{'message'}\n\n"; # texto enviado com a recomendaçào


Duas coisas:

1- funciona mas, estranhamente, sai tudo numa linha só, sem quebra de linha
2- não sei como seria formatar essas informaçòes em html

Qualquer ajuda... agradeço! (y)

Edição feita por: Paulo Ricardo, 10/08/2007, 21:15.

#8 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 28/03/2005, 22:11

print MAIL qq~
$date <br>
$JUMP_TO <br>
$fields{send_name} <br>
$fields{send_email} <br>
$fields{$recipname} <br>
$fields{$recipemail} <br>
$fields{'message'} <br>
~;
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#9 Whitesnake

Whitesnake
  • Visitantes

Posted 29/03/2005, 16:04

Se não der, testa assim q vai....

print MAIL "To: $email\n";
print MAIL "From: $eu\n";
print MAIL "Subject: $titulo\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "<html><br>\n";
print MAIL "$date<br><br>\n\n"; # data e hora
print MAIL "$JUMP_TO<br><br>\n\n"; # página recomendada
print MAIL "$fields{send_name}<br><br>\n\n"; # nome de quem recomenda
print MAIL "$fields{send_email}<br><br>\n\n"; # email de quem recomenda
print MAIL "$fields{$recipname}<br><br>\n\n"; # nome do destinatário
print MAIL "$fields{$recipemail}<br><br>\n\n"; # email do destinatário
print MAIL "$fields{'message'}<br><br>\n\n"; # texto enviado com a recomendaçào


Falow!

#10 Limiar

Limiar

    Que alerta é esse aí embaixo?

  • Usuários
  • 118 posts
  • Sexo:Masculino
  • Localidade:Alto Paraíso -- GO
  • Interesses:música, belezas naturais, esperanto, fotografia, informática, webdesign, photoshop, dreamweaver, CGI, PHP

Posted 30/03/2005, 07:55

Olá,

Só tenho a agradecer. As duas soluções funcionaram. Com isso, "meu" birdcast já faz algumas coisas a mais:

1- o arquivo log agora tb registra nomes de remetente e destinatários e o texto, se existir.
2- envia para mim um email com todos esses dados.

Minha próxima meta é enviar um email ao remetente agradecendo pela recomendação. Com a ajuda de vocês, aos poucos estou me familiarizando com o CGI.

Mais uma vez, muito grato. :lol:

Edição feita por: Paulo Ricardo, 10/08/2007, 21:15.

#11 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 30/03/2005, 08:57

Alterando o To para o email do From voce estara enviando um email para quem recomendou o site assim voce pode enviar um email de agradecimento.

$email_admin = 'seusite@voce.com.br';
$assunto = "Coloque aqui o assunto da mensagem";
print MAIL "To: $eu\n";
print MAIL "From: $email_admin\n";
print MAIL "Subject: $assunto\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "<html><br>\n";
print MAIL "Viemos atravez deste agradecer a voce pode ter recomendado o nosso site. <br>Obrigado, $fields{send_name}<br><br>\n\n";

Edição feita por: prix, 30/03/2005, 08:57.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#12 fjdigital

fjdigital

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 22/05/2006, 16:18

não seria o script, e sim o trecho do script...


$progmail="/usr/sbin/sendmail";

$email="joaogabrielcas\@ig.com.br";
# e-mail do destinatário com uma \ antes do @

$eu="seuemail\@provedor.com.br";
# seu e-mail com uma \ antes do @

$titulo = "titulo do e-mail";
# titulo do e-mail a ser enviado

open(MAIL,"|$progmail -t");
print MAIL "Content-Type: text/html\n";
print MAIL "To: $email\n";
print MAIL "From: $eu\n";
print MAIL "Subject: $titulo\n\n";
print MAIL "<html>\n";
print MAIL qq~
<font face=verdana size="1">Aqui você pode usar HTML</font>
~;
close (MAIL);

print qq~
E-mail enviado
~;

Insere esse código no seu script (acerte o e-mail) e mude a mensagem.

Assim, quando indicarem seu site, vc receberá um alerta.

flw


Ola naum consegui localizar estas linhas de comando no script do birdcast que baixei, vc poderia me ajudar ?

vlw

#13 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 22/05/2006, 18:52

esse já é o script.

basta alterar o e-mail (que por sinal tem um antigo e-mail meu nele) e salvar esse arquivo como recomenda.cgi.

ah!
coloque #!/usr/bin/perl na primeira linha do código.
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#14 fjdigital

fjdigital

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 23/05/2006, 11:48

esse já é o script.

basta alterar o e-mail (que por sinal tem um antigo e-mail meu nele) e salvar esse arquivo como recomenda.cgi.

ah!
coloque #!/usr/bin/perl na primeira linha do código.




Ok, mas posso colcar estas linha em qualquer parte do script ? ou qual o lugar verto para isso ?

vlw

fjdigital


esse já é o script.

basta alterar o e-mail (que por sinal tem um antigo e-mail meu nele) e salvar esse arquivo como recomenda.cgi.

ah!
coloque #!/usr/bin/perl na primeira linha do código.




Ok, mas posso colocar estas linha em qualquer parte do script ? ou qual o lugar certo para isso ?

vlw

fjdigital


#15 fjdigital

fjdigital

    Novato no fórum

  • Usuários
  • 3 posts
  • Sexo:Não informado

Posted 29/05/2006, 18:37

Se não der, testa assim q vai....

print MAIL "To: $email\n";
print MAIL "From: $eu\n";
print MAIL "Subject: $titulo\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "<html><br>\n";
print MAIL "$date<br><br>\n\n"; # data e hora
print MAIL "$JUMP_TO<br><br>\n\n"; # página recomendada
print MAIL "$fields{send_name}<br><br>\n\n"; # nome de quem recomenda
print MAIL "$fields{send_email}<br><br>\n\n"; # email de quem recomenda
print MAIL "$fields{$recipname}<br><br>\n\n"; # nome do destinatário
print MAIL "$fields{$recipemail}<br><br>\n\n"; # email do destinatário
print MAIL "$fields{'message'}<br><br>\n\n"; # texto enviado com a recomendaçào


Falow!



Se não der, testa assim q vai....

print MAIL "To: $email\n";
print MAIL "From: $eu\n";
print MAIL "Subject: $titulo\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "<html><br>\n";
print MAIL "$date<br><br>\n\n"; # data e hora
print MAIL "$JUMP_TO<br><br>\n\n"; # página recomendada
print MAIL "$fields{send_name}<br><br>\n\n"; # nome de quem recomenda
print MAIL "$fields{send_email}<br><br>\n\n"; # email de quem recomenda
print MAIL "$fields{$recipname}<br><br>\n\n"; # nome do destinatário
print MAIL "$fields{$recipemail}<br><br>\n\n"; # email do destinatário
print MAIL "$fields{'message'}<br><br>\n\n"; # texto enviado com a recomendaçào


Falow!



ola fiz as alterações acima , mas o meu script naum funcionou em 2 pontos:
1- no e-mail que ele me manda não vem o nome e o e-mail do destinatario, somente o nome, e-mail e texto de quem recomenda.
2- no arquivo reflog tambem naum registra os 2 dados acima e nem o texto enviado
Voltar para Dúvidas sobre Scripts Prontos de CGI/Perl


0 user(s) are reading this topic

0 membro(s), 0 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