Hello,
It seems that when I reply to someone's par@perl.org email, everything gets sent as normal. However, I also keep getting these returned "cannot deliver" emails do a certain "develooper.com" as though I sent them email, too. I don't.


---------------------paste of "returned" email
From: [EMAIL PROTECTED]


Hi. This is the qmail-send program at la.mx.develooper.com. I'm afraid I wasn't able to deliver your message to the following addresses. This is a permanent error; I've given up. Sorry it didn't work out.

<par@perl.org>:
This message is looping: it already has my Delivered-To line. (#5.4.6)

--- Below this line is a copy of the message.

Return-Path: <[EMAIL PROTECTED]>
Received: (qmail 13225 invoked by alias); 7 Feb 2005 16:02:40 -0000
X-Spam-Status: No, hits=-1.0 required=8.0
        tests=BAYES_00,DNS_FROM_RFC_POST
X-Spam-Check-By: la.mx.develooper.com
Received-SPF: neutral (x1.develooper.com: 63.251.223.186 is neither permitted 
nor denied by domain of [EMAIL PROTECTED])
Received: from x6.develooper.com (HELO lists.develooper.com) (63.251.223.186)
   by la.mx.develooper.com (qpsmtpd/0.28) with SMTP; Mon, 07 Feb 2005 08:02:38 
-0800
Received: (qmail 28167 invoked by uid 515); 7 Feb 2005 16:02:36 -0000
To: par@perl.org, Robert <[EMAIL PROTECTED]>
Mailing-List: contact [EMAIL PROTECTED]; run by ezmlm
Delivered-To: mailing list par@perl.org
Received: (qmail 20417 invoked from network); 7 Feb 2005 15:35:40 -0000
Received: from x1a.develooper.com (HELO x1.develooper.com) (216.52.237.111)
 by lists.develooper.com with SMTP; 7 Feb 2005 15:35:40 -0000
Received: (qmail 6465 invoked by uid 225); 7 Feb 2005 15:35:40 -0000
Delivered-To: par@perl.org
Received: (qmail 6459 invoked by alias); 7 Feb 2005 15:35:40 -0000
Received-SPF: pass (x1.develooper.com: domain of [EMAIL PROTECTED] designates 
206.46.170.141 as permitted sender)
Received: from out002pub.verizon.net (HELO out002.verizon.net) (206.46.170.141)
   by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 07 Feb 2005 07:35:37 
-0800
Received: from [192.168.1.47] ([151.201.15.200]) by out002.verizon.net
         (InterMail vM.5.01.06.06 201-253-122-130-106-20030910) with ESMTP
         id <[EMAIL PROTECTED]>;
         Mon, 7 Feb 2005 09:35:35 -0600
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 07 Feb 2005 10:35:39 -0500
User-Agent: Mozilla Thunderbird 0.9 (Windows/20041103)
X-Accept-Language: en-us, en
MIME-Version: 1.0
CC: par@perl.org
Subject: Re: -d switch erroring out on Windows XP
References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Authentication-Info: Submitted using SMTP AUTH at out002.verizon.net from 
[151.201.15.200] at Mon, 7 Feb 2005 09:35:34 -0600
Approved: [EMAIL PROTECTED]
From: [EMAIL PROTECTED] (The.Noonings)
X-Posted-By: 193.108.162.34
X-Old-Spam-Check-By: la.mx.develooper.com
X-Old-Spam-Status: No, hits=-1.0 required=8.0
        tests=BAYES_00,DNS_FROM_RFC_POST

Robert wrote:


Here is the script:

use strict;
use warnings;
use Mail::Sender;

# run the program
my @run1 = ( "M:\\Program Files\\Mincom\\MIMS Open Enterprise\\5.2.3.2\\bin\\msqupd.exe ", "ellprd" );
my @run2 = ( "M:\\Program Files\\Mincom\\MIMS Open Enterprise\\5.2.3.2\\bin\\msqupd.exe ", "elltst" );


print "==================================\n";
print " Running popup updates for ELLPRD \n";
print "==================================\n\n";
system(@run1);

print "==================================\n";
print " Running popup updates for ELLTST \n";
print "==================================\n";
system(@run2);

my $file = "M:\\Program Files\\Mincom\\ParadoxMaster\\msqupd.log";
my $uname = $ENV{'COMPUTERNAME'};
my $text;

{
   open FILE, $file || die "Ooops $!";
   local $/;    # slurp mode, local only
   $text = <FILE>;
   close FILE;
}

my $sender = new Mail::Sender {
   smtp => 'mailout.uscg.mil',
   from => '[EMAIL PROTECTED]',
};

$sender->MailMsg(
   {
       to      => '[EMAIL PROTECTED]',
       subject => "$uname: Nightly Popups Report",
       msg     => $text,
   }
);

my $timestamp = time;
rename( $file, "$file." . $timestamp ) || die "Couldn't rename: $!";







Just a guess, but try this:
Search and replace "Program Files" with "Program\ Files"
Search and replace "MIMS Open Enterprise" with "MIMS\ Open\ Enterprise"







Reply via email to