"The.Noonings" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > 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" > Nope, same error. I would have been really irked though had that worked.
