Select Code to Download

[Tue Jun 06 14:53:09 2006] [error] [client x.x.x.x] [Tue Jun  6 14:53:
+09 2006] bulkmailers-request.pl: Use of uninitialized value in concat
+enation (.) or string at /usr/lib/cgi-bin/bulkmailers-request.pl line
+ 56., referer: http://tangerine/cgi-bin/bulkmailers-request.pl
[Tue Jun 06 14:53:09 2006] [error] [client x.x.x.x] [Tue Jun  6 14:53:
+09 2006] bulkmailers-request.pl: readline() on unopened filehandle at
+ /usr/lib/cgi-bin/bulkmailers-request.pl line 57., referer: http://ta
+ngerine/cgi-bin/bulkmailers-request.pl

$filename=~m/^.*(\\|\/)(.*)/; # strip the remote path and keep the fil
+ename
my ($newfilename) = $1;

open(LOCAL, ">/var/www/html/upload/".$newfilename);

sub process_form
{

...

# Adjust subject and body message
my ($message_body) = "Request submission\rFrom: ".$from_address."\rRep
+ly_to: ".$reply_to_address."\rSubject: ".$subject."\rMessage:\r\r".$m
+essage."\r\rRecipients: ".$description."\r\rDate message is to be sen
+t: ".$msg_month."/".$msg_day."/".$msg_year;  # Create the multipart c
+ontainer my ($msg) = MIME::Lite->new (   From => $from_address2,   To
+ => $to_address,   Subject => $subject,   Type =>'multipart/mixed' ) 
+or die "Error creating multipart container: $!\n";  # Add the text me
+ssage part $msg->attach (   Type => 'TEXT',   Data => $message_body )
+ or die "Error adding the text message part: $!\n";  # Add the file $
+msg->attach (    Type => $res,    Path => '/var/www/html/upload',    
+Filename => $filename,    Disposition => 'attachment' ) or die "Error
+ adding $filename: $!\n";  # Send the Message MIME::Lite->send('smtp'
+, $mail_host, Timeout=>60); $msg->send;  print $query->header; print 
+"<b>Thank you!</b><br>Confirmation of your submission will be emailed
+ to you.";  } }