Re: -d switch erroring out on Windows XP

[the.noonings]

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: $!";

 

Can you get a more stripped down script that will duplicate the problem 
on another user's machine.  That is, without having to have your 
msqupd.exe or any other files?
Did
Search and replace "Program Files" with "Program\ Files"
and
Search and replace "MIMS Open Enterprise" with "MIMS\ Open\ Enterprise"
work for you?
Thanks