CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner:
FX in Perl?

 



joju
Deleted

May 17, 2001, 1:36 AM

Post #1 of 1 (279 views)
FX in Perl? Can't Post

Hi. I'm using a Perl Script in a Linux Red Hat 6.2.
When I send a little mail from a web page, my perl script work's fine (I'm using sendmail). But when I send a big message (3000 characters;) ) in the mail appears the symbol ! in some places.

Example:
...
MEZCLADOR MORTERO CO! LA M-120
...
GUANTE D! E ! PIEL-CONDUCTOR
...


My code is:

$recipient=$QUERY{'to'};
$recipient=~s/^(.*)\n$/\1/;
if($recipient)
{
open (MAIL, "|$mailprog $recipient") || die "No puedo abrir $mailprog!\n";
print MAIL "Reply-to: $recipient (No admite reply)\n";
print MAIL "To: $recipient\n";
print MAIL "Subject: $QUERY{'subject'}\n";
print MAIL "From: $QUERY{'from'}\n";
print MAIL "Content-type: text/html\n";
print MAIL "\n";
print MAIL "$QUERY{'mensaje'}\n";
close (MAIL);
}


Please some suggestions.

Thank's in advance


 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives