Cluster Server 7.3.1 エージェント開発者ガイド - AIX、Linux、Solaris、Windows

基本監視（レベル 1）と詳細監視（レベル 2）を持つエージェントのエントリポイントの監視

エージェントがエントリポイントを呼び出すと、エントリポイントは、リソース名を 1 つ目の引数として、さらにその後に残りの ArgList 属性の値が続くものとして予測します。

次の実装は、V51 として登録されているエージェントに対するものです。 実装は、エージェントが IMF 対応のエージェントの場合も同じです。

# Implementation of Monitor entry point, which does Level-1  
# and Level-2 monitoring.
# 

eval 'exec /opt/VRTSperl/bin/perl -I ${CLUSTER_HOME}/lib
 -S $0 ${1+"$@"}' 
        if 0;

use strict;
use warnings;

my ($Resource, $state) = ("", "ONLINE");

$Resource = $ARGV[0]; shift;

use ag_i18n_inc;
VCSAG_SET_ENVS ($Resource);

# Fetch the value of level-1 and level-2
my ($ret, $level_one, $level_two)=(0,0,0);
($ret, $level_one, $level_two) = VCSAG_GET_MONITOR_LEVEL();

# Check if level-1 monitoring need to be performed
if ( $level_one == 1 ) {
                # Do level-1 monitoring i.e. basic monitoring
                # This would return state as ONLINE or OFFLINE or 
                  unknown
                state = do_level_one_monitoring();
}

# Check if level-2 monitoring need to be performed
if ( ($state eq "ONLINE") && ($level_two != 0) ) {
                # Do level-2 monitoring i.e. detailed monitoring
                state = do_level_two_monitoring();
}

if ( $state -eq "ONLINE" ) {
                exit 110;
}

if ( $state -eq "OFFLINE" ) {
                exit 100;
}

# unknown state
exit 99;