Hope this helps!!


-bash-3.00$ more monitor_active_recips.pl
#!/usr/bin/perl

##### Perl script to monitor log usage on 2 hosts ######
use CGI;

open STDERR, ">/dev/null";

######### Set threshold for active recipients ########
$exp_active_recips =1000;

######### Add hosts that need to be monitored ########
@host = ( "iron1.com", "iron2.com" );

for ($i = 0; $i < @host; $i++) {
##################### Get Stats for hosts #########################
$val = `curl -k https://$host[$i]/xml/status -u admin:ironport`;
$trigger = 0;
if ($val =~ /active_recips\" current=\"(\d+)\"/s) {
$active_recips = $1;
}

if ($active_recips > $exp_active_recips) {
$trigger += 1;
}

if ( $trigger == 1) {

open(MAIL, "| /usr/lib/sendmail -oi -n -t");
print MAIL <To:user1\@domain.com
From:LOG_MONITOR\@ironport.com
Subject: Critical Resource Utilization Values Exceeded

STATUS SUMMARY OF $host[$i]

active_recips = $active_recips

EMAIL_TO_USER
close MAIL;
}
}