I am getting the following error when using use::send mail.
E:\sea621\siebsrvr\BIN\Perl\bin>outlook.pl
Global symbol "%mail" requires explicit package name at
E:\sea621\siebsrvr\BIN\P
erl\bin\outlook.pl line 21.
Global symbol "%mail" requires explicit package name at
E:\sea621\siebsrvr\BIN\P
erl\bin\outlook.pl line 26.
Execution of E:\sea621\siebsrvr\BIN\Perl\bin\outlook.pl aborted due to
compilati
on errors.
It is installed correctly and works with oter scripts with out a problem
could it be because of the number of levels it is down in the code?
#!/usr/bin/perl -w
use strict;
my $count = "";
open MAIL_LOG, ">> siebel_mail.log" or
die "can't append to siebl_mail.log: $!";
# do this 7 times
for (1 .. 7) {
open OUTPUT, '..\\..\\srvrmgr /g apollo.ts.checkpoint.com /e CHK_ENT_PRD
/s CHK_SBL_PRD /u xxxxx /p xxxxxxxx /c "list tasks for server CHK_SBL_PRD
component Email Manager" |' or
die "can't run srvrmgr: $!";
<OUTPUT> for 1 .. 22; # skip first 22 lines of output
my $line = substr <OUTPUT>, 106, 22;
close OUTPUT;
print "Count $count\n";
if ($count eq 3)
{
use Mail::Sendmail; #Send and email if there are
errors
%mail = ( To => [EMAIL PROTECTED]',
From => [EMAIL PROTECTED]',
Subject => '',
Message => 'Email Manager hung on Apollo'
);
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
}
else
{
if ($line eq "Sleeping for 10 second")
{
$count++;
}
else
{
print $line, "\n";
print MAIL_LOG $line, "\n";
}
sleep 10;
}
}
close MAIL_LOG;
# open MAIL_LOG to read to see how many times "sleeping for 10 seconds
occurs"
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
