Front page | perl.par |
Postings from February 2005
"The.Noonings" <the.noonings@verizon.net> wrote in message
news:42078ACB.8070905@verizon.net...
> 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 => 'bhicks@osc.uscg.mil',
>>};
>>
>>$sender->MailMsg(
>> {
>> to => 'bhicks@osc.uscg.mil',
>> 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.
Thread Previous
|
Thread Next