#!/usr/bin/perl ###################################### # Autor: Leandro Gomes v. 1.0 # # FormGrátis # # # # Dúvidas Visite: # # www.cgiclube.net # ###################################### ########### Configuração! ############ $urlformmail = "http://www.cgiclube.net/FormMail.pl"; #Url do seu Formmail. $nomedosite = "Formulários Grátis"; #Nome do Seu Site $urldosite = "http://logout.atspace.com/orkut/community/asp/aspxcmm=26038727.html"; #Url do seu site $sendmail = "/usr/sbin/sendmail"; # PATH completo para o Sendmail, ou outro programa para envio de e-mails em seu servidor $seumail = "adriano_albuquerque\@yahoo.com.br"; # Seu e-mail (não esqueça da \ antes da @) $topcolor = "black"; #Cor da tabela $bgcolor = "white"; #Cor do Fundo $link = "red"; #Cor do Link $vlink = "darkblue"; #Cor do Link Visitado $header = ""; #Parte de cima de seu HTML caso tenha $footer = ""; #Parte de Baixo do seu HTML caso tenha ########### NÃO EDITE MAIS NADA DAQUI PARA BAIXO! ############ 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; } ########################################### # Enviando email para o indicado ########################################### open (MENSAGEM,"$mensagem"); @lines = ; close (MENSAGEM); open (MAIL,"|$sendmail"); print MAIL "To: $FORM{'receptor'}\n"; print MAIL "From: $seumail\n"; print MAIL "Subject: Código do meu Fórmulário Grátis\n"; print MAIL "Olá $FORM{'nome'} Seu Formulário Foi feito com sucesso \n"; print MAIL "\n"; print MAIL "Suas informações Foram:\n"; print MAIL "Nome: $FORM{'nome'}\n"; print MAIL "Email do Receptor: $FORM{'receptor'}\n"; print MAIL "URL de Obrigado: $FORM{'url'}\n"; print MAIL "\n"; print MAIL "Abaixo está o Código HTML de Seu Formulário\n"; print MAIL "Copie e cole em qualquer lugar de seu HTML\n"; print MAIL "\n"; print MAIL "
Nome:  
E-mail:
Home Page:
Assunto:
\n"; print MAIL "\n"; print MAIL "$nomedosite\n"; print MAIL "$urldosite"; close MAIL; print "Content-type: text/html\n\n"; print "$nomedosite\n"; print "\n"; print "
\n"; print "$header\n"; print "
$FORM{'nome'} Obrigado por usar nosso Formulário !
Nesse Momento Enviamos um email para
$FORM{'receptor'}
 com o Código HTML do Formulário.

\n"; print "
Suas Informações foram:

\n"; print "
Seu Nome: $FORM{'nome'}
Receptor: $FORM{'receptor'}
Url de Obrigado: $FORM{'url'}
\n"; print "
\n"; print "

\n"; print "

\n"; print "\n"; print "
Abaixo está o código HTML do Seu Formulário
\n"; print "
<!-- Fórmulário Grátis - Aqui começa o código -->
<form method="post" action="$urlformmail"> <input type="hidden" name="recipient" value="$FORM{'receptor'}"> <input type="hidden" name="redirect" value="$FORM{'url'}"> <table width="75%" border="0" cellspacing="0" cellpadding="0"><tr> <td width="18%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></td> <td width="38%"> <input type="text" name="nome" size="24"></td> <td width="44%" rowspan="5">&nbsp; <textarea name="Comentarios" rows="8" cols="20"></textarea></td> </tr><tr> <td width="18%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></td> <td width="38%"> <input type="text" name="email" size="24"></td></tr><tr> <td width="18%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Home Page:</font></td> <td width="38%"> <input type="text" name="HomePage" size="24"> </td> </tr><tr> <td width="18%" bordercolor="#CCCCCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Assunto:</font></td> <td width="38%"> <input type="text" name="subject" size="24"></td></tr> <tr> <td width="18%" height="20"></td> <td width="38%" height="20"> <input type="submit" name="Submit" value="Enviar"> <input type="reset" name="Submit" value="Limpar"></td></tr> </table> </form>
<!-- Formulário Grátis - Aqui termina o código -->

\n"; print "

\n"; print "$footer"; print "</html><noframes></noscript><!-- --></noscript></noscript><p>\n"; exit;