#!/usr/local/bin/perl $mail_prog = '/usr/lib/sendmail' ; # This script was generated automatically by Perl Builder(tm): http://www.solutionsoft.com # ***ENDAUTOGEN:HEADER*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:INPUT*** Do NOT modify this line!! Do NOT enter custom code in this section. &GetFormInput; # The intermediate variables below make your script more readable # but somewhat less efficient since they are not really necessary. # If you do not want to use these variables, clear the # Intermediate Variables checkbox in the Tools | Options dialog box, CGI Wizard tab. $textfield = $field{'textfield'} ; $textfield2 = $field{'textfield2'} ; $Submit = $field{'Submit'} ; $message = "" ; $found_err = "" ; # ***ENDAUTOGEN:INPUT*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:VALIDATE*** Do NOT modify this line!! Do NOT enter custom code in this section. $errmsg = "

Please enter a valid email address

\n" ; if ($textfield2 !~ /.+\@.+\..+/) { $message = $message.$errmsg ; $found_err = 1 ; } if ($found_err) { &PrintError; } # ***ENDAUTOGEN:VALIDATE*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:LOGFILE*** Do NOT modify this line!! Do NOT enter custom code in this section. # ***ENDAUTOGEN:LOGFILE*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:EMAIL*** Do NOT modify this line!! Do NOT enter custom code in this section. $recip = "santuario\@ieg.com.br" ; open (MAIL, "|$mail_prog -t"); print MAIL "To: $recip\n"; print MAIL "Reply-to: $textfield2\n"; print MAIL "From: $textfield2\n"; print MAIL "Subject: Cadastro Personalizado\n"; print MAIL "\n\n"; print MAIL "\n\n"; close (MAIL); # ***ENDAUTOGEN:EMAIL*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:HTML*** Do NOT modify this line!! Do NOT enter custom code in this section. print "Content-type: text/html\n\n"; print "\n" ; print "\n" ; print "Untitled Document\n" ; print ''."\n" ; print "\n" ; print "\n" ; print '
Make your own free website on Tripod.com
'."\n" ; print '
'."\n" ; print "

 

\n" ; print "

nome \n" ; print ' '."\n" ; print "

\n" ; print "

mail \n" ; print ' '."\n" ; print "

\n" ; print "

 

\n" ; print "

\n" ; print ' '."\n" ; print "

\n" ; print "
\n" ; print "\n" ; print "\n" ; # ***ENDAUTOGEN:HTML*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:ERRPRINT*** Do NOT modify this line!! Do NOT enter custom code in this section. sub PrintError { print "Content-type: text/html\n\n"; print $message ; exit 0 ; return 1 ; } # ***ENDAUTOGEN:ERRPRINT*** Do NOT modify this line!! You may enter custom code after this line. # ***AUTOGEN:PARSE*** Do NOT modify this line!! Do NOT enter custom code in this section. sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; #if you want multi-selects to goto into an array change to: #$field{$name} .= "\0$val"; } } } return 1; } # ***ENDAUTOGEN:PARSE*** Do NOT modify this line!! You may enter custom code after this line.