new confused and bogged down.

deadpan · Oct 5, 1999

Hello All. 
I am new to perl and have been trying to get an autoresponding script with sendmail on a Linux box at first i got the script to work but it would only work with web-based mail and kept sending the emails back in an unreadable html format on non-web based mail (see below) 
 
You wrote: 
 
>This is a multi-part message in MIME format. 
> 
>------=_NextPart_000_0099_01BF09C2.F1DF9390 
>Content-Type: text/plain; 
> charset="utf-7" 
>Content-Transfer-Encoding: 7bit 
> 
>test 
> 
>------=_NextPart_000_0099_01BF09C2.F1DF9390 
>Content-Type: text/html; 
> charset="utf-7" 
>Content-Transfer-Encoding: quoted-printable 
> 
><!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN"> 
><HTML> 
><HEAD> 
> 
><META content=text/html;charset=utf-7 = 
>http-equiv=Content-Type> 
><META content='"MSHTML 4.72.3110.7"' = 
>name=GENERATOR> 
></HEAD> 
><BODY bgColor=#ffffff> 
><DIV>
>size=2>test</DIV></BODY></HTML> 
> 
>------=_NextPart_000_0099_01BF09C2.F1DF9390-- 
 
the problem here being it would send back what the sender had written but the respond message was not there. So after much searching i found a module that would allow me to create email messages in MIME format i thought great problem solved. I managed to install the module after bumbling about and then set to work on trying to mdify the script. Firstly i perl could not find the object method which i managed to solve through trial and error, but once again i have run into a brick wall with this error 
 
Can't modify concatenation in scalar assignment at /usr/local/mailback/mailback.pl line 100, near &quot

;" 
Execution of /usr/local/mailback/mailback.pl aborted due to compilation errors. 
554 "¦ perl /usr/local/mailback/mailback.pl"... unknown mailer error 255 
 
can anyone help me with this or at least point me in the direction of something on the web that might help me with writing an autoresponder of my own 
Thanks in advance for any help

robman · Oct 19, 1999

Sounds like a syntax problem but without seeing line 100 in context it's difficult to say. 
You can hunt around at perl.com, webmonkey.com, devshed.com.

AndyBo · Oct 25, 1999

Sounds like you're getting two errors, the second one (554 error) from sendmail being caused by the perl syntax error. It sounds like line 100 (or 99, 98, 97...) may look something like: 
 
$MyScalar . = $ThingToConcat; 
 
ie, a space between the "." and "=". Like robman says, without seeing it, it's a bit difficult to say. Post the section of code if you're still having problems.

deadpan · Oct 26, 1999

Ok this is what i was originally working on its a script called mailback.pl by Derek Vadala it worked well on its own for web-based mail but would not work for other mail interfaces like outlook express so i hunted around and found a module and tried to arrange it so it would. I am using a primitive script in which i do not return the senders message and print out each line so every response has to have a seperate script.. i tried to include the orignal message but again kept getting it scrambled into a html format.. what im using now servers its purpose but id like to be able to extend its use.. heres what i came up with.. 
 
#/usr/bin/perl -w 
 
#get the data from the message and store it for use. 
 
$header = ''; #store header content 
$body = ''; #store body content 
 
#parse each line in the header 
 
while (<&gt

{ 
last if /^$/; 
$header.= $_; 
($field, $value) = /^(\S*)\s*(.*)/; 
if (length($field) > 1) { $fields($field) = $value; } 
else { $fields($field) .= " $value"; } 
} 
 
while (<&gt

{ $body.= $_; } #body is stored here 
 
#reply to mail 
 
open (MAIL, "¦usr/bin/sendmail); 
print MAIL "From: $fields{'To:'}\n"; 
print MAIL "To: $fields{'From:'}\n; 
print MAIL "Subject: Re: $fields{'Subject:'}\n; 
print MAIL "\n\n"; 
#print MAIL "$body"; #this causes the message to return in #html format 
print MAIL "Thank you for contacting mycompany,\n" 
print MAIL "Your mail has been recieved and\n"; 
print MAIL "automatically forwarded to our technical\n"; print MAIL "dept. You will be contacted by one of \n"; 
print MAIL "our staff as soon as possible.\n"; 
close MAIL; 
} 
 
I also tried to store the reply message seperately with 
 
 
open MESSAGE, "usr/local/mailback/message-$id"; 
$mail{'Message'} = <MESSAGE>; 
close MESSAGE; 
 
and placing it into the script but this too returned a html format mail to my non web email programs. 
 
Thanks for any help 
kelly

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

new confused and bogged down.

deadpan

MIS

robman

Programmer

AndyBo

MIS

deadpan

MIS

Similar threads

Part and Inventory Search

Sponsor