Dear Mark and all I test the CGI with these form had these form and doesnt work. Could somebody help me' Thanks Ignacio
<html> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/1999/REC-html401-19991224";> <head> <title>undefefined</title> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"> <style type="text/css"> <!-- #first { font-family:verdana; font-size:12px; color:#fff; background:#000; } //--> </style> <script type="text/javascript"> <!-- var parrafo1 = new Array("a1", "a2"); var parrafo2 = new Array("b1", "b2"); var parrafo3 = new Array("c1", "c2"); function RandomTitle(nameform) { a = Math.floor(Math.random() * parrafo1.length); b = Math.floor(Math.random() * parrafo2.length); c = Math.floor(Math.random() * parrafo3.length); nameform.first.value=parrafo1[a] + parrafo2[b] + parrafo3[c]; document.forms[0].submit(); } //--> </script> </head> <body> <form action="cgi-bin/forma.cgi" method="post"> <table><tr> <td height="31" width="278"> <input type="submit" name="generate" value="abrir" onclick="RandomTitle(this.form)"> </td> </tr><tr> <td> <textarea id="first" name="first" cols="30" rows="4" ></textarea> </td> </tr></table> </form> </html> #!/usr/bin/perl # Enter the location of sendmail. $mailprogram = "/usr/sbin/sendmail -t -i [EMAIL PROTECTED]"; # Enter your e-mail address. Be sure to put a \ in front of the @. # ([EMAIL PROTECTED] becomes [EMAIL PROTECTED]) $youremail = "[EMAIL PROTECTED]"; 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,"|$mailprogram"); print MAIL "To: $youremail\n"; print MAIL "$FORM{'linea1'}\n"; print MAIL "$FORM{'linea2'}\n"; print MAIL "$FORM{'linea3'}\n"; print MAIL "$FORM{'linea4'}\n"; print MAIL "$FORM{'linea5'}\n"; print MAIL "$FORM{'linea6'}\n"; > On 2006-01-13, Ignacio Nieto > <[EMAIL PROTECTED]> wrote: > > Hello > > > > I had a the following script. Is there any > posibility > > to send mail to another emails account that belong > to > > other domains? > > > > > > thank you > > Ignacio > > > > #!/usr/bin/perl > > # Enter the location of sendmail. > > $mailprogram = "/usr/sbin/sendmail -t -i > > [EMAIL PROTECTED]"; > > > > # Enter your e-mail address. Be sure to put a \ > in > > front of the @. > > # ([EMAIL PROTECTED] becomes [EMAIL PROTECTED]) > > $youremail = "[EMAIL PROTECTED]"; > > > > 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,"|$mailprogram"); > > print MAIL "To: $youremail\n"; > > print MAIL "$FORM{'linea1'}\n"; > > print MAIL "$FORM{'linea2'}\n"; > > print MAIL "$FORM{'linea3'}\n"; > > print MAIL "$FORM{'linea4'}\n"; > > print MAIL "$FORM{'linea5'}\n"; > > print MAIL "$FORM{'linea6'}\n"; > > > > > > close MAIL; > > Certainly. You are allowing the query string to > become part of your > header. So simply: > > script.cgi?linea1=Bcc:[EMAIL PROTECTED],[EMAIL PROTECTED] > > Even for simple web to emails, I might still use > CGI.pm for the query > processing, MIME::Lite for the e-mail building, and > HTML::Template > to seperate the design from the program. > (HTML::Template works fine for > e-mail templates despite the name. > > Mark > > > --------------------------------------------------------------------- > Web Archive: > http://www.mail-archive.com/[email protected]/ > > http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2 > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] > > ______________________________________________ LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com --------------------------------------------------------------------- Web Archive: http://www.mail-archive.com/[email protected]/ http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2 To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
