./ 0000755 0000000 0000000 00000000000 13320062025 007702 5 ustar root root ./pkgs/ 0000755 0000000 0000000 00000000000 13320062025 010646 5 ustar root root ./pkgs/VRTSsapnw04/ 0000555 0000000 0000000 00000000000 13320062025 012657 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/ 0000755 0000000 0000000 00000000000 13320062025 014674 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/ 0000755 0000000 0000000 00000000000 13320062025 015447 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017447 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 020037 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/ 0000755 0000000 0000000 00000000000 13320062025 020764 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/ 0000755 0000000 0000000 00000000000 13320062025 022020 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cmd 0000555 0000000 0000000 00000001626 13320062025 024574 0 ustar root root #!/bin/sh
hatype -add SAPNW04
hatype -modify SAPNW04 SourceFile "./SAPNW04Types.cf"
hatype -modify SAPWebAS71 AEPTimeout 1
hatype -modify SAPNW04 AgentFile "/opt/VRTSvcs/bin/Script50Agent"
hatype -modify SAPNW04 AgentDirectory "/opt/VRTSagents/ha/bin/SAPNW04"
hatype -modify SAPNW04 ArgList ResLogLevel State IState EnqSrvResName EnvFile InstName InstType MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID SecondLevelMonitor StartProfile
haattr -add SAPNW04 ResLogLevel -string INFO
haattr -add SAPNW04 EnqSrvResName -string
haattr -add SAPNW04 EnvFile -string
haattr -add SAPNW04 InstName -string
haattr -add SAPNW04 InstType -string
haattr -add SAPNW04 MonitorProgram -string
haattr -add SAPNW04 ProcMon -string
haattr -add SAPNW04 SAPAdmin -string
haattr -add SAPNW04 SAPMonHome -string
haattr -add SAPNW04 SAPSID -string
haattr -add SAPNW04 SecondLevelMonitor -integer 0
haattr -add SAPNW04 StartProfile -string
./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cf 0000555 0000000 0000000 00000001106 13320062025 024412 0 ustar root root type SAPNW04 (
static boolean AEPTimeout = 1
static str AgentDirectory = "/opt/VRTSagents/ha/bin/SAPNW04"
static str AgentFile = "/opt/VRTSvcs/bin/Script50Agent"
static str ArgList[] = { ResLogLevel, State, IState, EnqSrvResName, EnvFile, InstName, InstType, MonitorProgram, ProcMon, SAPAdmin, SAPMonHome, SAPSID, SecondLevelMonitor, StartProfile }
str ResLogLevel = INFO
str EnqSrvResName //OPT
str EnvFile
str InstName
str InstType = CENTRAL
str MonitorProgram //OPT
str ProcMon
str SAPAdmin
str SAPMonHome
str SAPSID
int SecondLevelMonitor = 0
str StartProfile
)
./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/main.cf 0000555 0000000 0000000 00000007150 13320062025 023262 0 ustar root root include "types.cf"
include "SAPNW04Types.cf"
cluster accsun1 (
UserNames = { admin = aHIaHChEIdIIgQIcHF }
Administrators = { admin }
CredRenewFrequency = 0
CounterInterval = 5
)
system nodeA (
)
system nodeB (
)
system nodeC (
)
group SAPERP_CI (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
)
DiskGroup SAPERP_CI_dg (
Critical = 0
DiskGroup = saperp_dg
)
IP SAPERP_C1_ip (
Critical = 0
Device = bge0
Address = "10.212.98.191"
NetMask = "255.255.254.0"
)
Mount SAPERP_CI_dvbgs_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/DVBGS01"
BlockDevice = "/dev/vx/dsk/saperp_dg/dvbgs-vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_CI_ci (
Critical = 0
EnvFile = "/home/erpadm/.cshrc"
InstName = DVBGS01
ProcMon = "dw se"
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/rfcsdk/bin"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/usr/sap/ERP/SYS/profile/START_DVBGS01_sunabap"
)
Share SAPERP_SCS_share (
Critical = 0
PathName = "/usr/sap/ERP"
Options = "rw,root=nodeA:nodeB:sunabap:sunjava:sunmmp"
)
SAPERP_CI_ci requires SAPERP_CI_dvbgs_mnt
SAPERP_CI_ci requires SAPERP_SCS_share
SAPERP_CI_dvbgs_mnt requires SAPERP_CI_dg
SAPERP_SCS_share requires SAPERP_C1_ip
// resource dependency tree
//
// group SAPERP_CI
// {
// SAPNW04 SAPERP_CI_ci
// {
// Share SAPERP_SCS_share
// {
// IP SAPERP_C1_ip
// }
// Mount SAPERP_CI_dvbgs_mnt
// {
// DiskGroup SAPERP_CI_dg
// }
// }
// }
group SAPERP_REP (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
PreOnline = 1
)
DiskGroup SAPERP_REP_dg (
Critical = 0
DiskGroup = erp_sysdg
)
IP SAPERP_REP_ip (
Critical = 0
Device = bge0
Address = "10.212.98.195"
NetMask = "255.255.254.0"
)
Mount SAPERP_REP_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/REP02"
BlockDevice = "/dev/vx/dsk/erp_sysdg/ENQREP"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_REP_rep (
EnqSrvResName = SAPERP_SCS_enq
EnvFile = "/home/erpadm/.cshrc"
InstName = REP02
InstType = ENQREP
ProcMon = er
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/SYS/exe/run"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/sapmnt/ERP/profile/START_REP02_sunreps"
)
SAPERP_REP_mnt requires SAPERP_REP_dg
SAPERP_REP_rep requires SAPERP_REP_ip
SAPERP_REP_rep requires SAPERP_REP_mnt
// resource dependency tree
//
// group SAPERP_REP
// {
// SAPNW04 SAPERP_REP_rep
// {
// IP SAPERP_REP_ip
// Mount SAPERP_REP_mnt
// {
// DiskGroup SAPERP_REP_dg
// }
// }
// }
group SAPERP_SCS (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
PreOnline = 1
)
DiskGroup SAPERP_SCS_dg (
Critical = 0
DiskGroup = ababenqdg
)
IP SAPERP_SCS_ip (
Critical = 0
Device = bge0
Address = "10.212.98.202"
NetMask = "255.255.254.0"
)
Mount SAPERP_SCS_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/ASCS02"
BlockDevice = "/dev/vx/dsk/ababenqdg/ababpscs-vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_SCS_enq (
EnvFile = "/home/erpadm/.cshrc"
InstName = ASCS02
InstType = ENQUEUE
ProcMon = "en ms se co"
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/SYS/exe/run"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/usr/sap/ERP/SYS/profile/START_ASCS02_sunascs"
)
SAPERP_SCS_enq requires SAPERP_SCS_mnt
SAPERP_SCS_mnt requires SAPERP_SCS_dg
// resource dependency tree
//
// group SAPERP_SCS
// {
// SAPNW04 SAPERP_SCS_enq
// {
// Mount SAPERP_SCS_mnt
// {
// DiskGroup SAPERP_SCS_dg
// }
// }
// IP SAPERP_SCS_ip
// }
./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.hpux.xml 0000555 0000000 0000000 00000013416 13320062025 025614 0 ustar root root
1
/opt/VRTSagents/ha/bin/SAPNW04
/opt/VRTSvcsone/bin/Script50Agent
"ResLogLevel"
"State"
"IState"
"EnqSrvResName"
"EnvFile"
"InstName"
"InstType"
"MonitorProgram"
"ProcMon"
"SAPAdmin"
"SAPMonHome"
"SAPSID"
"SecondLevelMonitor"
"StartProfile"
1
"5.1.0.0"
0
1
55009
"5.1.0.0"
0
1
1
2
INFO
1
3
0
1
4
1
1
5
1
1
6
CENTRAL
1
7
0
1
8
1
1
9
1
1
10
1
1
11
1
1
12
0
1
13
1
./pkgs/VRTSsapnw04/VRTSsapnw04/etc/VRTSagents/ha/conf/SAPNW04/preonline 0000555 0000000 0000000 00000013033 13320062025 023737 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Author: vchappav $
# $Date: 2009/04/06 09:44:07 $
# $Revision: 1.6 $
#------------------------------------------------------------------
# preonline
# preonline is invoked just before onlining the group.
# preonline is invoked on the node where group is to be onlined.
#
# A group level configurable parameter PreOnline controls whether this
# trigger should be invoked or not. By default, PreOnline is not set.
# PreOnline can be set in one of two ways:
# a) In configuration file, define
# PreOnline=1
# in the group description to set PreOnline to 1 for the group.
# b) While cluster is running, and in writable state, do
# hagrp -modify PreOnline 1
# to set PreOnline to 1 for group .
#
# preonline gives user the control to take appropriate action depending on
# whether group is being manually onlined, or group is in the process of failover.
# In failover case, for example, preonline can be used to determine whether the
# group can be brought online on this node in the cluster.
#
# In any case, user can give control back to engine by doing:
# hagrp -online -nopre -sys .
# This will let engine continue with online process.
#
# ------------------------------------------------------------------
# Usage:
# preonline
#
# : is the name of the system where group is to be onlined.
# : is the name of the group that is to be onlined.
# : is either "FAULT" or "MANUAL". "MANUAL" corresponds to
# both manual online as well as manual switch.
# : When preonline is invoked due to failover
# this argument is the name of the system where group
# was online before.
# When preonline is invoked due to group online
# command issued with -checkpartial option,
# this argument is the name of system specified
# for this option.
# ------------------------------------------------------------------
# ------------------------------------------------------------------
# Invoke the perl processor
# ------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
use strict;
use vars;
my $vcs_home = $ENV{"VCS_HOME"};
if (!defined ($vcs_home)) {
$vcs_home="/opt/VRTSvcs";
}
use ag_i18n_inc;
VCSAG_SET_ENVS();
if (!defined $ARGV[0]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined system name", 15028);
exit;
} elsif (!defined $ARGV[1]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined group name", 15031);
exit;
}
#
# SAPNW04 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPNW04/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPNW04ExitCode = undef;
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPNW04ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPNW04ExitCode]", 15031);
}
#
# SAPNW04 specific preonline code: STOP
#
#
# SAPWebAS71 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPWebAS71/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPWebAS71ExitCode = undef; # Reset..
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPWebAS71ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPWebAS71ExitCode]", 15031);
}
#
# SAPWebAS71 specific preonline code: STOP
#
#--------------------------------
# Decide if we have to exit now..
#--------------------------------
exit 0 unless ( $iSAPNW04ExitCode );
exit 0 unless ( $iSAPWebAS71ExitCode );
# give control back to HAD.
if (defined $ARGV[3]) {
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0] -checkpartial $ARGV[3]");
exit;
}
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0]");
exit;
./pkgs/VRTSsapnw04/VRTSsapnw04/opt/ 0000755 0000000 0000000 00000000000 13320062025 015476 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017476 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 020066 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/bin/ 0000755 0000000 0000000 00000000000 13320062025 020636 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/bin/SAPNW04/ 0000755 0000000 0000000 00000000000 13320062025 021672 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.xml 0000555 0000000 0000000 00000035707 13320062025 023465 0 ustar root root
Veritas High Availability Agent for SAP NetWeaver - UNIX
UNIX
Script
4.0
Symantec
Specifies the logging detail performed by the agent for the resource. Valid values are:
ERROR - Only logs error messages.
WARN - Logs above plus warning messages.
INFO - Logs above plus informational messages.
TRACE - Logs above plus trace messages. This is very verbose and should only be used during initial configuration or for troubleshooting and diagnostic operations.
Example: INFO
Default Value: INFO
INFO
WARN
ERROR
TRACE
Description: The name of the standalone ENQUEUE server cluster resource. This attribute is only used by an ENQUEUE replication server. Using this attribute the replication server queries the ENQUEUE server resource state during a failover.
Example: SAP70_ERPASCS_SAPNW04
Default Value: ""
Description: The absolute path to the file that must be sourced within the UNIX shell. You must source this file to set the environment before executing SAP scripts for online, offline, monitor, and clean operations.
Supported shell environments are: ksh, sh, csh
Note: Ensure that the syntax of this file is in accordance with the user shell that the SAPAdmin attribute specifies.
Symantec recommends storing this file on shared disk directory to ensure the file is always available on the online system.
Example: /usr/sap/ERP/DVEBMGS00/saperp.env
Default Value: ""
Description: String identifier that uniquely identifies and describes a SAP server instance. Multiple server instances make up a single SAP system. Each instance has a unique id (integer between 00-96) and a unique instance name. It is also important to note that instance names take on a conventional form. Dialog instances begin with 'D', central instances are typically named DVEBMGS.
Note that the instance name will often include an instance ID suffix. For example, a central instance with an instance ID = 00 will have an instance name of DVEBMGS00. Also note that the SAPSID and InstName form a unique identifier that can help filter the list of processes running for the instance.
Example: DVEBMGS00
Description: String identifier that classifies and describes the SAP server instance type. The InstType values are not case sensitive.
---------------------------------------------
InstType Description
---------------------------------------------
CENTRAL Central Instance
DIALOG Dialog Instance
ENQUEUE Standalone Enqueue Server Instance
AENQUEUE ABAP Standalone Enqueue Server
JENQUEUE JAVA Standalone Enqueue Server
ENQREP Enqueue Replication Server
AENQREP ABAP Enqueue Replication Server
JENQREP JAVA Enqueue Replication Server
---------------------------------------------
Example: CENTRAL
Default Value: CENTRAL
CENTRAL
DIALOG
ENQUEUE
AENQUEUE
JENQUEUE
ENQREP
AENQREP
JENQREP
Description: Absolute path and file name of an external, user-supplied monitor program. If specified, the monitor entry point will execute this file to perform an additional server state check. There are no restrictions for what actions the external monitor program performs to determine the state of a SAP instance server. The only constraint is that the external monitor program must return one of the following integer values:
0 (server is online)
110 (server is online)
100 (server is offline)
1 (server is offline)
All other (server state is unknown)
Symantec recommends storing the external monitor utility on the shared disk directory to ensure the file is always available on the online system. Arguments are supported.
Example 1: /usr/sap/ERP/DVEBMGS00/work/myMonitor.sh
Example 1: /usr/sap/ERP/DVEBMGS00/work/myMonitor.sh arg1 arg2
Default Value: ""
Description: The list of SAP processes to monitor. The list of processes is space separated and can be specified in any order. Valid values are as follows:
-----------------------------------------------
Instance type ProcMon Values
-----------------------------------------------
Central Instance - ABAP dw ms* co se ig gwrd icman
Dialog Instance - ABAP dw se ig gwrd icman
Central Instance - Java jc ig
Dialog Instance - Java jc ig
Central Instance - AddIn dw jc ms* co se ig gwrd icman
Dialog Instance - AddIn dw jc se ig gwrd icman
Enqueue Server en ms
Enqueue Replication Server er
-----------------------------------------------
*ms will not be part ProcMon for Central Instance if Standalone Enqeue Server is created.
co,se,ig,gwrd and icman processes are optional.
Example: dw ig
Default Value: ""
Description: UNIX user name defined as the administrative owner of application directories and executables. This name is usually formed from a concatenation of the SAPSID and the string 'adm'.
This username is stored in one or more of the system naming services to include the local password and shadow files (e.g. /etc/passwd and /etc/shadow), NIS, NIS+, or an LDAP server. The online, offline, monitor, and clean scripts execute their core subroutines using this username.
Example: erpadm
Default Value: ""
Description: The location of the directory that contains the binary used for second level monitoring process. For different SAP Web AS Server instalations we use different binaries as given below:
----------------------------------------
Installation Type Binary used
----------------------------------------
SAP Web AS ABAP sapinfo
SAP Web AS JAVA jcmon
SAP Web AS JAVA Add-In sapinfo jcmon
----------------------------------------
In the case of ENQUEUE Server and ENQREP Server, ensmon is used.
Recommended values for SAPMonHome:
1. Web AS Add-In (JENQUEUE, JENQREP): /usr/sap/SAPSID/SYS/exe/runU
2. For all remaining installation types and intances : /usr/sap/SAPSID/SYS/exe/run
Example: /usr/sap/ERP/SYS/exe/runU
Default Value: ""
Description: SAP system name.
This attribute must be three characters in length, and must begin with an alphabet. The value of this attribute is defined during the SAP installation.
Example: ERP
Default Value: ""
Description: Used to enable second-level monitoring and specify how often it is run. Second-level monitoring is a deeper, more thorough state check of the configured SAP instance. The numeric value specifies how often that the second-level monitoring routines are run. Zero (0) means never run the second-level monitoring routines. One (1) would mean to run it every monitor interval. Two (2) means to run the second-level monitoring routines every second monitor interval, and so on.
Exercise caution while setting this attribute to large numbers. For example, if the MonitorInterval is set to 60 seconds, and the SecondLevelMonitor is set to 100, then the sapinfo command for this attribute would only get executed every 100 minutes, which may not be as often as intended. In order to provide maximum flexibility, the value set is not checked for an upper limit. Thus, you could cause the sapinfo command to run once a month, if that is what is desired.
Example: 1
Default Value: 0
Description: Specifies the full path to the instance StartProfile.
The StartProfile instance is found in /usr/sap/SAPSID/SYS/profile directory. The value of the instance is START_InstName_hostname. The hostname must resolve into a valid IP address that is used to cluster the virtual SAP instance.
Example: /usr/sap/ERP/SYS/profile/START_DVEBMGS00_saperpci
Default Value: ""
./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/bin/SAPNW04/monitor 0000555 0000000 0000000 00000050310 13320062025 023304 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/monitor.pl,v 1.41 2012/10/19 15:20:06 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2012/10/19 15:20:06 $
# $Revision: 1.41 $
#
# Provides: SAPNW04
# Author: vchappav
# Creation Date: 16 Feb, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
#---------------------------------------------------------
# Define the exact order to look for our agent framework..
#---------------------------------------------------------
BEGIN {
my $sVCSperl = undef;
my $sVCSagntfwHome = "/opt/VRTS/.ACCLib";
( my $sDirName = $0 ) =~ s#(.*)/.*$#$1#;
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCS One..
$sVCSperl = "$ENV{CLUSTER_HOME}/lib";
}
else { # VCS 4.x ..
$sVCSperl = "/opt/VRTSperl/lib/site_perl";
}
$ENV { VCS_LOG_AGENT_NAME } ||= "SAPNW04"; # export Agent name for PreOnline logging..
unshift ( @INC, $sDirName,
"$sVCSagntfwHome/vcs",
"$sVCSagntfwHome/system",
"$sVCSagntfwHome/network",
"$sVCSagntfwHome/compat",
$sVCSperl );
}
#------------
# Be strict..
#------------
use strict 'refs';
use strict 'vars';
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use ag_i18n_inc;
use Sys; # For call to RunCmdArgsAsUser
use Version; # ACC Library version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------------
# Include the required SAPNW04 module..
#--------------------------------------
use SAPNW04;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: monitor.pl,v 1.41 2012/10/19 15:20:06 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#----------------------------------------------------------------------
# If versions are requested, print all of the framework module versions
# to stdout, then exit 0..
#----------------------------------------------------------------------
if ( 1 == Version::CheckForVersionRequest ( $ARGV [0] ) ) {
#------------------------------------------------------------------
# Found the request to display all versions -- did that, now quit..
#------------------------------------------------------------------
exit 0;
}
#-----------------------------------
# Work out entry point information..
#-----------------------------------
my $sResourceName = $ARGV [0];
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = 'SAPNW04' if $sResourceType !~ /\w/;
#---------------------------------------------------------
# Set up the return code here (this gets over written once
# the entry point is called).
#---------------------------------------------------------
my $iAgentReturnCode = 0;
if ( $sEntryPointName eq "monitor" ) {
$iAgentReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEntryPointName eq "clean") {
$iAgentReturnCode = VCSDef_CleanExit::FAILED;
}
elsif ( $sEntryPointName eq "preonline" ) {
my $sResLogLevel = 'INFO'; # Default..
my $iPosn = 3;
#---------------------------------------------------
# Handle missing node name for MANUAL switch-over..
#---------------------------------------------------
if ( $ARGV [2] eq 'MANUAL' ) {
$iPosn = scalar @ARGV if $iPosn > scalar @ARGV;
splice ( @ARGV, $iPosn, 0, 'UNDEF' );
}
#---------------------------------
# Set ResLogLevel, if overridden..
#---------------------------------
if ( $ARGV [-1] =~ /^(TRACE|INFO|WARN|ERROR|CRITICAL)/o ) {
$sResLogLevel = pop @ARGV;
}
#----------------------------------
# Modify @ARGV to have..
# @ARGV..
#----------------------------------
unshift ( @ARGV, $ARGV [1], $sResLogLevel );
}
#------------------------------------
# Setup Category ID for UMI logging..
#------------------------------------
my $iCategoryID = 55009;
my $iCleanReason = undef;
#-----------------------------------------
# Use Script50Agent style attribute list..
#-----------------------------------------
my $iCnt = 0;
my ( $sKey, @lsArgVals, %hsAttribs ) = ();
my @lsAttrs =
qw ( ResLogLevel State IState EnqSrvResName EnvFile InstName
InstType MonitorProgram ProcMon SAPAdmin SAPMonHome
SAPSID SecondLevelMonitor StartProfile );
#------------------------------------------------------------------
# ArgList for type SAPNW04:
# ResLogLevel State IState EnqSrvResName EnvFile InstName InstType
# MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID
# SecondLevelMonitor StartProfile
#------------------------------------------------------------------
my ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..
$argIState, # Dummy attribute for FFDC..
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = ();
if ( $sEntryPointName ne "preonline" ) {
$sResourceName = shift;
$iCleanReason = shift if ( $sEntryPointName eq 'clean' );
if ( $ENV { CLUSTER_HOME } ) { # VCS One/VCS 5.0
#----------------------------------------
# Use Script50Agent style attribute list
# Code specific to VCS 5.0 and VCS One.
#----------------------------------------
#--------------
# Get vectors..
#--------------
do {
push @{ $hsAttribs { $ARGV [$iCnt] } },
@ARGV [ $iCnt + 2 .. $iCnt + 1 + $ARGV [$iCnt + 1] ];
} while ( ( $iCnt += $ARGV [$iCnt + 1] + 2 ) <= $#ARGV );
( $argResLogLevel,
$argState,
$argIState,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = @lsArgVals = map { @$_ } @hsAttribs { @lsAttrs };
}
else {
#----------------------------
# Get values VCS 4.1 style
#----------------------------
(@lsArgVals) = ( $argResLogLevel,
$argState,
$argIState,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = @ARGV;
}
unshift ( @lsArgVals, $iCleanReason ) if ( $sEntryPointName eq "clean" ); # Insert clean reason..
unshift ( @lsArgVals, $sResourceName ); # Insert resource name..
}
else {
@lsArgVals = @ARGV;
}
unless ( VCSagentFW::SetupEntry ( $sEntryPointName,
$iCategoryID,
\$iCleanReason,
\@lsArgVals ) ) {
#------------------------------------------------------------------
# Some number of the "Standard Agent" arguments failed the
# validation. Note that the validation subroutine has already
# logged the attributes that failed the validation criteria. Exit
# now with the earlier defined value of $iAgentReturnCode.
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-------------------
# Handle preonline..
#-------------------
if ( $sEntryPointName eq "preonline" ) {
&entryPointExit ( SAPNW04::OnlineENQGrp ( @lsArgVals )?0:1 ); # Toggle..
}
#---------------------------------
# Populate FFDC helper variables..
#---------------------------------
$::gsUser = $argSAPAdmin;
$::gsEnvFile = $argEnvFile;
#-------------------------------------
# Send the parameters for validation..
#-------------------------------------
if ( SAPNW04::ArgsValid ( $sEntryPointName,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) ) {
&logTrace ( 20302, "<%s> All arguments validated successfully!",
$sEntryPointName );
}
else {
#---------------------------------------------------------------
# Some number of the arguments failed the validation..
# Exit now with the earlier defined value of iAgentReturnCode..
#---------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-----------------------------------
# Args checked out ok, so continue..
#-----------------------------------
#------------------------------------------
# Declare routines to handle entry points..
#------------------------------------------
my %routines = ( "monitor" => \&MonitorEntryPoint,
"online" => \&OnlineEntryPoint,
"offline" => \&OfflineEntryPoint,
"clean" => \&CleanEntryPoint ,
"open" => \&OpenEntryPoint );
#----------------------------------------------------------
# Depending on our entry point, call the correct function..
#----------------------------------------------------------
if ( $routines{$sEntryPointName} ) {
$iAgentReturnCode = $routines{$sEntryPointName}->();
}
else { # Unknown entry pt..
&logError ( 20303,
"Agent called with unsupported entry point specification of [%s]",
$sEntryPointName );
++$iAgentReturnCode;
}
#------------------------------------------------------------------
# Exit the entry point, using the iAgentReturnCode we have set up..
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
#-------------------------------------------------------------
# End of &main(), IE: no more execution logic; only subroutine
# definitions follow..
#-------------------------------------------------------------
=pod
#-------------------------------------------------------------
Function : int MonitorEntryPoint ( void );
Description : Monitors resource of type SAP
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
#-------------------------------------------------------------
=cut
sub MonitorEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20304, "Subroutine <%s> called", $sMyName );
#-----------------------------------------
# Check if at least the processes are up..
#-----------------------------------------
my $SAP_Status = SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile );
#------------------------
# Discard partial cases..
#------------------------
unless ( ( $argState == 2 && $argIState == 3 ) || # State = ONLINE & IState = waiting to go offline
( $argState == 2 && $argIState == 4 ) || # State = ONLINE & IState = waiting to go offline (propagate)
( $argState == 2 && $argIState == 5 ) ) { # State = ONLINE & IState = waiting to go offline (path)
&logTrace ( 20305,
"<%s> Resource [%s] State [%s] IState [%s].", $sMyName, $sResourceName, $argState, $argIState);
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $SAP_Status ) {
$SAP_Status = VCSDef_MonitorExit::OFFLINE;
}
}
#------------------------------------------------
# Exit if, not online after a superficial check..
#------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $SAP_Status ) {
&logTrace ( 20306,
"<%s> Resource [%s] online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAP_Status );
}
else {
&logTrace ( 20307,
"<%s> Resource [%s] NOT online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAP_Status );
return $SAP_Status;
}
#--------------------------------
# Start monitoring the resource..
#--------------------------------
$SAP_Status = SAPNW04::Monitor ( $argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argSAPAdmin,
$argProcMon,
$argSAPMonHome,
$argSAPSID,
$argStartProfile,
$argSecondLevelMonitor );
return $SAP_Status;
}
=pod
#---------------------------------------------------------------
Function : int OnlineEntryPoint ( void );
Description : Attempts to online a resource of type SAP
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OnlineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20308, "Subroutine <%s> called", $sMyName );
my $iReturnCode = SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $iReturnCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
#------------------------
# Start only if offline..
#------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) {
if ( SAPNW04::Start ( $argEnvFile,
$argEnqSrvResName,
$argInstName,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argStartProfile,
$argSecondLevelMonitor ) ) {
&logInfo ( 20309, "<%s> Resource [%s] started up successfully.",
$sMyName, $sResourceName );
}
else {
#------------------------------------------------------------------
# Here, the SAPNW04::Start routine informed us that the online
# did not work; however, all we can do is to return zero,
# effectively telling the VCS engine not to wait at all before
# invoking the monitor Entry Point, which is THE mechanism used by
# VCS to determine a resource's state.
#------------------------------------------------------------------
&logError( 20310, "<%s> Failed to online resource", $sMyName );
}
}
elsif ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logError ( 20311, "<%s> Processes for resource instance already up", $sMyName );
}
else { # Unknown..
&logError ( 20312,
"<%s> Attempt to online resource instance in invalid state", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : int OfflineEntryPoint ( void );
Description : Attempts to offline a resource of type SAP
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OfflineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20313, "Subroutine <%s> called", $sMyName );
#----------------------------------------------
# Offline the resource if not offline already..
#----------------------------------------------
if ( VCSDef_MonitorExit::OFFLINE ==
SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile ) ) {
&logError ( 20314, "<%s> Processes for resource instance down already.",
$sMyName );
}
elsif ( SAPNW04::Stop ( $argEnvFile,
$argInstName,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile ) ) {
&logInfo ( 20315,
"<%s> Shutdown resource [%s] successfully.",
$sMyName, $sResourceName );
}
else {
&logError ( 20316, "<%s> Failed to offline resource", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : bool CleanEntryPoint ( void );
Description : Attempts to clean up a resource of type SAP
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub CleanEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20317, "Subroutine <%s> called", $sMyName );
#-----------------
# Clean resource..
#-----------------
if ( SAPNW04::Kill ( $argInstName,
$argInstType,
$argSAPAdmin,
$argSAPSID,
$argEnvFile,
$argProcMon,
$argStartProfile,
$iCleanReason ) ) {
#--------------
# Kill worked..
#--------------
return VCSDef_CleanExit::PASSED;
}
else {
#--------------
# Kill failed..
#--------------
&logError ( 20318, "<%s> Failed to clean resource", $sMyName );
return VCSDef_CleanExit::FAILED;
}
}
=pod
#---------------------------------------------------------------
Function : bool OpenEntryPoint ( void );
Description : Delete the version file if exists for the SAP resource
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub OpenEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20319, "Subroutine <%s> called", $sMyName );
#-----------------
# Delete the version file.
#-----------------
SAPNW04::DeleteVersionFile ( $argSAPSID,
$argInstName);
return 0;
}
./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.pm 0000555 0000000 0000000 00000637324 13320062025 023304 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/SAPNW04.pm,v 1.83 2013/02/20 14:39:22 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2013/02/20 14:39:22 $
# $Revision: 1.83 $
#
# Provides: SAPNW04
# Author: vchappav
# Creation Date: 16 Feb, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
#------------
# Be strict..
#------------
use strict;
#----------------------
# Declare the package..
#----------------------
package SAPNW04;
my ( $CLUS_HOME, $sPrefix ) = ();
#---------------------
# Setup VCS/VCSOne home..
#---------------------
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCSOne..
$CLUS_HOME = $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone";
}
else { # VCS
$CLUS_HOME = $ENV { VCS_HOME } ||= "/opt/VRTSvcs";
}
( $sPrefix ) = $CLUS_HOME =~ /.*(vcs(|one))$/;
if ( $sPrefix =~ /vcsone/ ) {
$sPrefix = "ha";
}
#-----------------------------------------
# Define module-vendor specific commands..
#-----------------------------------------
my $sCmdHares = "$CLUS_HOME/bin/hares";
my $sCmdHasys = "$CLUS_HOME/bin/hasys";
my $sCmdHagrp = "$CLUS_HOME/bin/hagrp";
my $sCmdHatype = "$CLUS_HOME/bin/hatype";
my $sCmdVcsDecrypt = "$CLUS_HOME/sbin/${sPrefix}decrypt";
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # Support generalized UNIX commands
use Proc; # For calls to the process routines
use Comms; # For calls to socket(3C) routines
use Version; # Version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------
# Include standard PERL modules..
#--------------------------------
use Fcntl;
use Socket;
use POSIX qw ( uname );
use POSIX qw ( strftime );
use File::Path qw ( mkpath );
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: SAPNW04.pm,v 1.83 2013/02/20 14:39:22 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#-----------------
# Define globals..
#-----------------
my ( $iSapStartSrv, $iCCMSX, $iCCMSR, $bSapStart, @liRunningProcs ) = (); # Global..
#-----------------------------
# Define SAPNW04 subroutines..
#-----------------------------
=pod
-------------------------------------------------------------------------
Function : bool ArgsValid ( IN String EntryPointName,
IN String EnqSrvResName,
IN String EnvFile,
IN String InstName,
IN String InstType,
IN String MonitorProgram,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPMonHome,
IN String SAPSID,
IN Integer SecondLevelMonitor,
IN String StartProfile );
Description : Validates the ArgList passed to the entry point.
Parameters :
$sEntryPointName Entry pt name
$localEnqSrvResName Name of the standalone ENQUEUE server VCS resource
$localEnvFile Full path to the environment file for SAP
$localInstName String identifier that uniquely identifies a SAP server instance
$localInstType String identifier that classifies the SAP server instance type
$localMonitorProgram Full path to external monitor program
$localProcMon List of SAP processes to monitor
$localSAPAdmin UNIX user dedicated for this instance of SAP
$localSAPMonHome Directory defining the location of the SAP monitoring utilities
$localSAPSID SAP system name defined during installation
$localSecondLevelMonitor Cycle count to run in-depth monitoring
$localStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ArgsValid {
#----------------------------------------
# Set up local vars from passed in ones..
#----------------------------------------
my ( $sEntryPointName,
$localEnqSrvResName,
$localEnvFile,
$localInstName,
$localInstType,
$localMonitorProgram,
$localProcMon,
$localSAPAdmin,
$localSAPMonHome,
$localSAPSID,
$localSecondLevelMonitor,
$localStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20001, "Subroutine <%s> called with:
EntryPointName [%s]
EnqSrvResName [%s]
EnvFile [%s]
InstName [%s]
InstType [%s]
MonitorProgram [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPMonHome [%s]
SAPSID [%s]
SecondLevelMonitor [%s]
StartProfile [%s]",
$sMyName, $sEntryPointName, $localEnqSrvResName, $localEnvFile,
$localInstName, $localInstType, $localMonitorProgram,
$localProcMon, $localSAPAdmin, $localSAPMonHome, $localSAPSID,
$localSecondLevelMonitor, $localStartProfile );
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my ( @lsMissing, %hsArgList ) = ();
my @lsArgs =
qw ( EntryPointName EnqSrvResName EnvFile InstName InstType
MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID
SecondLevelMonitor StartProfile );
@hsArgList { @lsArgs } = @_; # Assign..
#----------------------------------------
# Reqd. attributes based on entry point..
#----------------------------------------
my @lsOnlineArgs = qw ( EnvFile InstName InstType ProcMon SAPAdmin SAPSID StartProfile );
my @lsOfflineArgs = qw ( InstName InstType SAPAdmin SAPSID StartProfile );
my @lsMonitorArgs = qw ( InstName InstType ProcMon SAPAdmin SAPSID StartProfile );
my @lsCleanArgs = qw ( InstName InstType SAPAdmin SAPSID StartProfile );
my %hlsNeeded = ( 'online' => \@lsOnlineArgs,
'offline' => \@lsOfflineArgs,
'monitor' => \@lsMonitorArgs,
'clean' => \@lsCleanArgs );
my @lsReqdArgs = @{$hlsNeeded { $sEntryPointName }};
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20002,
"<%s> The following mandatory fields were not set [%s]. Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Remove SLM file, if exists..
#-----------------------------
VCSagentFW::RunSecondLevelMonitor ( 1 ) if ( $sEntryPointName ne 'monitor' );
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------------------
# Individual validation starts..
#-------------------------------
#--------------------------------------------------
# StartProfile must terminate in a valid hostname..
#--------------------------------------------------
( my $sHost = $localStartProfile ) =~ s#.*/.*?_[^_]+_##;
if ( $sEntryPointName eq 'online' ) {
if ( ! inet_aton ( $sHost ) ) {
&logError ( 20003,
"<%s> StartProfile [%s] not terminated with valid hostname [%s]",
$sMyName, $localStartProfile, $sHost );
$iReturnCode = 0; # Failure..
}
}
#-----------------------------------
# InstName. Last two chars 00 - 99..
#-----------------------------------
unless ( $localInstName =~ /(\d{2})$/o ) { # && $1 <= 99 )
&logError ( 20004,
"<%s> Last two characters of InstName [%s] not between 00-99",
$sMyName, $localInstName );
$iReturnCode = 0; # Failure..
}
#---------------------------
# Check if SAPAdmin exists..
#---------------------------
if ( $sEntryPointName =~ /^(online|offline|monitor)$/o ) {
if ( ! defined getpwnam $localSAPAdmin ) {
&logError ( 20005,
"<%s> SAPAdmin [%s] not a valid UNIX login",
$sMyName, $localSAPAdmin );
$iReturnCode = 0; # Failure..
}
}
#-----------------------------------------
# SAPSID.. must be three characters long..
#-----------------------------------------
if ( $localSAPSID !~ /^\S{3}$/o ) {
&logError ( 20006,
"<%s> SAPSID [%s] has to be exactly 3 non-white characters long",
$sMyName, $localSAPSID );
$iReturnCode = 0; # Failure..
}
if ( $localSAPSID !~ /^[a-z]/io ) {
&logError ( 20007,
"<%s> SAPSID [%s] has to begin with an alphabet",
$sMyName, $localSAPSID );
$iReturnCode = 0; # Failure..
}
#------------------
# Valid InstTypes..
#------------------
my @lsIntTypes = qw ( central dialog enqueue aenqueue jenqueue enqrep aenqrep jenqrep );
unless ( grep { /^$localInstType$/io } @lsIntTypes ) {
&logError ( 20008,
"<%s> InstType [%s] invalid. Has to be one of [%s]",
$sMyName, $localInstType, join ( ' ', @lsIntTypes ) );
$iReturnCode = 0; # Failure..
}
if ( $sEntryPointName =~ /^(online|monitor)$/o ) {
#---------------------------------------------
# Validate ProcMon after removing duplicates..
#--------------------------------------------
my $rslocalProcMon = \$_[6]; # Get reference to what's passed in..
my %hsProcMon = map { $_ => 1 } $localProcMon =~ /([^\s]+)/g;
my @lsProcMon = keys %hsProcMon;
my ( @lsBadProcs, %hsAllowed ) = ();
if ( $localInstType =~ /^(dialog|central)$/io ) {
if ( ! grep { /^(dw|jc)$/o } @lsProcMon ) { # Must have..
&logError ( 20009, "<%s> Incorrect value for ProcMon [%s].
Has to include at least one of [dw jc] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
if ( $localInstType =~ /^central$/io ) {
%hsAllowed = map { $_ => 1 } qw ( dw ms co se jc ig gwrd icman ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20010, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^dialog$/io ) {
%hsAllowed = map { $_ => 1 } qw ( dw se jc ig gwrd icman ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20011, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
}
elsif ( $localInstType =~ /^(|a|j)enqueue$/io ) {
if ( ! grep { /^en$/o } @lsProcMon ) {
&logError ( 20012, "<%s> Incorrect value for ProcMon [%s].
Has to include at least [en] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( co en ms se ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20013, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^(|a|j)enqrep$/io ) {
if ( ! grep { /^e(|n)r$/o } @lsProcMon ) {
&logError ( 20014, "<%s> Incorrect value for ProcMon [%s].
Has to include at least [er enr] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( er enr ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20015, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
#--------------------
# Re-create procmon..
#--------------------
$$rslocalProcMon = join ( ' ', @lsProcMon );
}
#--------------
# Online only..
#--------------
if ( $sEntryPointName eq 'online' ) {
#----------------------------------
# Check if EnqSrvResName is valid..
#----------------------------------
if ( $localEnqSrvResName =~ m/\S+/ && $localInstType =~ /^(|a|j)enqrep$/io &&
! SAPNW04::ChkResName ( $localEnqSrvResName,
$localSAPSID,
$localInstType ) ) {
&logError ( 20016,
"<%s> EnqSrvResName [%s] invalid resource of Type [SAPNW04]",
$sMyName, $localEnqSrvResName );
$iReturnCode = 0; # Failure..
}
#-----------------------
# EnvFile has to exist..
#-----------------------
if ( ! -e $localEnvFile ) {
&logError ( 20017,
"<%s> EnvFile [%s] does not exist", $sMyName, $localEnvFile );
$iReturnCode = 0; # Failure..
}
#----------------------------
# StartProfile has to exist..
#----------------------------
if ( ! -r $localStartProfile ) {
&logError ( 20018,
"<%s> StartProfile [%s] does not exist",
$sMyName, $localStartProfile );
$iReturnCode = 0; # Failure..
}
#-------------------
# Validate SAPHome..
#-------------------
if ( $localSecondLevelMonitor > 0 ) {
if ( ! ( $localSAPMonHome =~ /\S+/ ) ||
! ( -d $localSAPMonHome ) ) {
&logError ( 20019,
"<%s> SAPMonHome [%s] not a valid directory",
$sMyName, $localSAPMonHome );
$iReturnCode = 0; # Failure..
}
}
#--------------------------------------
# MonitorProgram has to be executable..
#--------------------------------------
if ( $localMonitorProgram =~ /(\S+)/ && # Defined..
! -x $1 ) { # And not executable..
&logError ( 20020,
"<%s> MonitorProgram [%s] not executable", $sMyName, $1 );
$iReturnCode = 0; # Failure..
}
}
$iReturnCode ||
&logWarn ( 20021,
"<%s> Some of the attributes could not be validated. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode ;
}
=pod
-------------------------------------------------------------------------
Function : bool Start ( IN String EnvFile,
IN String EnqSrvResName,
IN String InstName,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer SecondLevelMonitor );
Description : Start logic needed for online entry pt
Parameters :
$sEnvFile Full path to the environment file for SAP
$sEnqSrvResName Name of the standalone ENQUEUE server VCS resource
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Start {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sEnqSrvResName,
$sInstName,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20022, "Subroutine <%s> called with:
EnvFile [%s]
EnqSrvResName [%s]
InstName [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
SecondLevelMonitor [%s]",
$sMyName,
$sEnvFile, $sEnqSrvResName, $sInstName, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPMonHome, $sSAPSID, $sStartProfile,
$iSecondLevelMonitor );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $iTillWhen, $iTimeout, $sKillFile, $sCollLockFile,
$sSendLockFile, @lsFiles, @liPids ) = ();
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Starting up [$sResourceName]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20023,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20024,
"<%s> Could not log successfully", $sMyName );
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logTrace ( 20025,
"<%s> Confirmed no persistent processes exist before startup",
$sMyName );
}
else {
&logError ( 20026,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
return 0; # Failure..
}
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iTimeout = $iTillWhen - time;
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#----------------------
# Clean IPC resources..
#----------------------
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logTrace ( 20027,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
$iReturnCode = 0; # Failure..
&logError ( 20028,
"<%s> Failed to execute cleanipc. Returning with [%s]",
$sMyName, $iReturnCode );
}
}
else {
&logTrace ( 20029,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20030,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20031,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20032,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20033, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------------------------
# Attempt to start SAP OS collector..
#------------------------------------
my $sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/saposcol";
my $sCmdArgs = "";
my ( $iExitCode, @lsCmdOut ) = ();
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/hostctrl/exe/saposcol";
if ( ! -e $sCmd ) {
&logTrace ( 20034,
"<%s> SAP OS Collector binary [%s] does not exist",
$sMyName, $sCmd );
}
}
#-----------------------
# Execute if validated..
#-----------------------
if ( !-x $sCmd ) {
&logTrace ( 20035,
"<%s> SAP OS Collector binary [%s] is not executable",
$sMyName, $sCmd );
}
else {
$iTimeout = $iTillWhen - time; # Get time bearings..
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20036,
"<%s> Started SAP OS Collector [%s] successfully with exit code [%s]",
$sMyName, $sCmd, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20037,
"<%s> Cmd [%s] timed out in [%s] sec", $sMyName, $sCmd, $iTimeout );
return 0; # Failure. Get out..
}
elsif ( 255 == $iExitCode ) { # Up already..
&logTrace ( 20038,
"<%s> SAP OS Collector [%s] already up", $sMyName, $sCmd );
}
else { # Error..
&logError ( 20039,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
}
#---------------------------------------------
# Attempt to start SAP services for SAPNW04s..
#---------------------------------------------
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapstartsrv";
$sCmdArgs = "pf=$sStartProfile -D -u $sSAPAdmin";
( $iExitCode, @lsCmdOut ) = (); # Reset..
#-----------------------
# Execute if validated..
#-----------------------
if ( ! -e $sCmd ) {
&logTrace ( 20040,
"<%s> SAP services binary [%s] does not exist",
$sMyName, $sCmd );
}
elsif ( !-x $sCmd ) {
&logTrace ( 20041,
"<%s> SAP services binary [%s] is not executable",
$sMyName, $sCmd );
}
else {
$iTimeout = $iTillWhen - time; # Get time bearings..
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20042,
"<%s> Started SAP services [%s] successfully with exit code [%s]",
$sMyName, $sCmd, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20043,
"<%s> Cmd [%s] timed out in [%s] sec", $sMyName, $sCmd, $iTimeout );
return 0; # Failure. Get out..
}
else { # Error..
&logError ( 20044,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
}
#-------------------------
# Start the SAP instance..
#-------------------------
my %hsExitCode = ( 0 => 'Success',
1 => 'OS configuration error',
2 => 'Called with wrong Parameters',
3 => 'User not authorized to execute script',
4 => 'Environment not set',
5 => 'Database startup failed',
6 => 'Database on remote DB-Server not running',
7 => 'Startup of Instance failed',
8 => 'Start profile not found',
9 => 'User not authorized to start database' );
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
my $iSleepTime = 10; # Secs..
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ?">>& $sLogFile":
"1>> $sLogFile 2>&1";
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapstart";
$sCmdArgs = "pf=$sStartProfile $sRdStr";
( $iExitCode, @lsCmdOut ) = (); # Reset..
#-----------------------
# Execute if validated..
#-----------------------
if ( ! -e $sCmd ) {
&logError ( 20045,
"<%s> SAP start command [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( !-x $sCmd ) {
&logError ( 20046,
"<%s> SAP start command [%s] is not executable",
$sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20047,
"<%s> In-sufficient time [%s] to execute Cmd [%s] with Args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = 0; # Failure..
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20048,
"<%s> Started SAP instance [%s] successfully with exit code [%s]",
$sMyName, $sInstName, $iExitCode );
%hsExitCode = (); # Free..
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
&logTrace ( 20049,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout );
#------------------
# Check on status..
#------------------
if ( VCSDef_MonitorExit::ONLINE ==
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids, # Online after..
1 ) && ( # Running FFLM..
$iSecondLevelMonitor ? # If enabled..
VCSDef_MonitorExit::ONLINE == # Online after..
SAPNW04::SecondLevelMonitor ( $sEnvFile, # Running SLM..
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ):1 ) ) {
&logInfo ( 20050,
"<%s> Confirmed start-up of SAP Instance with PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
$iReturnCode = 1; # Success..
last; # Get out..
}
else {
&logTrace ( 20051,
"<%s> Could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
sleep $iSleepTime; # Sec..
}
}
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20052,
"<%s> Cmd [%s] with Args [%s] timed out in [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
$iReturnCode = 0; # Failure..
}
else { # Error..
$hsExitCode { $iExitCode } ||= 'undef'; # Prevent undefs..
&logError ( 20053,
"<%s> Cmd [%s] failed with exit code [%s]:[%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, $hsExitCode { $iExitCode },
join ( chr 012, @lsCmdOut ) );
$iReturnCode = 0; # Failure..
}
%hsExitCode = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Stop ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : Stop logic needed for offline entry pt
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Stop {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20054, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName, $sEnvFile, $sInstName, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPSID, $sStartProfile );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my ( $iSleepTime, $iTillWhen, $iTimeout, $sKillFile,
$sCollLockFile, $sSendLockFile, @lsFiles, @liPids ) = ();
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iSleepTime = 10; # Secs..
@liPids = $bSapStart ? shift @liRunningProcs : @liRunningProcs; # Global..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
#-----------------------------------------------
# Attempt to request sapstart to stop instance..
#-----------------------------------------------
if ( scalar @liPids ) {
&logInfo ( 20055, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 20 ) {
#-----------------------
# Wait before retrying..
#-----------------------
sleep $iSleepTime; # Secs..
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids,
0 );
#------------------------------
# Check for pending processes..
#------------------------------
if ( scalar @liPids ) {
#-----------------------------------------------
# Check if the last process is not sapstartsrv..
#-----------------------------------------------
if ( 1 == scalar @liPids && # Last remaining..
defined $iSapStartSrv && #
$iSapStartSrv == $liPids [0] ) {
last;
}
&logTrace ( 20056,
"<%s> Could not confirm shutdown. Retrying in [%s] sec.
Delaying kill with [%s] sec in hand",
$sMyName, $iSleepTime, $iTimeout );
}
else {
&logInfo ( 20057,
"<%s> Confirmed shutdown of SAP Instance [%s]",
$sMyName, $sInstName );
last; # Get out..
}
}
}
else {
&logWarn ( 20058,
"<%s> Failed to send SIGINT to PID [%s]",
$sMyName, join ( ' ', @liPids ) );
}
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logTrace ( 20059,
"<%s> Confirmed no persistent processes exist after shutdown",
$sMyName );
}
else {
&logError ( 20060,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
return 0; # Failure..
}
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20061,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20062,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20063,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20064, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#----------------------
# Clean IPC resources..
#----------------------
$iTimeout = $iTillWhen - ( time + 5 ); # Get bearings..
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logTrace ( 20065,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
$iReturnCode = 0; # Failure..
&logError ( 20066,
"<%s> Failed to execute cleanipc. Returning with [%s]",
$sMyName, $iReturnCode );
}
}
else {
&logTrace ( 20067,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Shutdown completed [$sResourceName]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20068,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20069,
"<%s> Could not log successfully", $sMyName );
}
SAPNW04::DeletePidFile ( $sResourceName );
SAPNW04::DeleteVersionFile ( $sSAPSID,$sInstName);
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Kill ( IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String SAPSID,
IN String EnvFile,
IN String ProcMon,
IN String StartProfile
IN Integer CleanCode );
Description : Forces shutdown of resource needed for clean entry point
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sEnvFile Full path to the environment file for SAP
$sProcMon List of SAP processes to monitor
$sStartProfile Specifies the full path to the start-profile for this instance
$iCleanCode Why clean was called
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Kill {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sEnvFile,
$sProcMon,
$sStartProfile,
$iCleanCode ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
#-----------------------------
# Figure out why were called..
#-----------------------------
my ( $sCleanReason, %hsCleanReasons ) = ();
my @lsCleanStrings = qw ( Offline_timed_out Offline_was_ineffective
Online_timed_out Online_was_ineffective
Found_offline_unexpectedly Monitor_timed_out );
@hsCleanReasons { 0 .. $#lsCleanStrings } = @lsCleanStrings; # Populate..
( $sCleanReason = $hsCleanReasons { $iCleanCode } || # Reason..
$iCleanCode ) =~ s/_/ /g;
&logTrace ( 20070, "Subroutine <%s> called with:
InstName [%s]
InstType [%s]
SAPAdmin [%s]
SAPSID [%s]
EnvFile [%s]
ProcMon [%s]
StartProfile [%s]
Clean reason [%s]",
$sMyName, $sInstName, $sInstType, $sSAPAdmin, $sSAPSID,
$sEnvFile, $sProcMon, $sStartProfile, $sCleanReason );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my $iSleepTime = 10; # Secs..
my ( $iTillWhen, $iTimeout, $sKillFile, $iSapStartPid,
$sCollLockFile, $sSendLockFile, $sMessage, @lsFiles, @liPids ) = ();
unless ( $hsCleanReasons { $iCleanCode } eq 'Offline_timed_out' ||
$hsCleanReasons { $iCleanCode } eq 'Offline_was_ineffective' ) {
&logInfo ( 20071,
"<%s> Attempting to shutdown SAP Instance [%s] normally",
$sMyName, $sInstName );
#---------------
# Get SAP PIDs..
#---------------
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids,
0 ); # Regular..
@liPids = $bSapStart ? shift @liRunningProcs : @liRunningProcs; # Global..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
if ( scalar @liPids ) {
&logInfo ( 20072, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
&logInfo ( 20073,
"<%s> Sucessfully sent SIGINT to PIDs [%s]. Waiting for [%s] sec",
$sMyName, join ( ' ', @liPids ), $iSleepTime );
sleep $iSleepTime; # Sleep..
}
else {
&logError ( 20074,
"<%s> Failed to give SIGINT to PIDs [%s]. Proceeding with SIGKILL",
$sMyName, join ( ' ', @liPids ) );
}
}
else {
&logError ( 20075,
"<%s> Proceeding with SIGKILL for SAP Instance [%s]",
$sMyName, $sInstName );
}
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logInfo ( 20076,
"<%s> Confirmed no processes exist for SAP instance [%s]",
$sMyName, $sInstName );
}
else {
&logError ( 20077,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
}
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iTimeout = $iTillWhen - time;
#----------------------
# Clean IPC resources..
#----------------------
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logInfo ( 20078,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
&logError ( 20079, "<%s> Failed to execute cleanipc.", $sMyName );
$iReturnCode = 0;
}
}
else {
&logTrace ( 20080,
"<%s> Skipping cleanipc for InstType [%s].", $sMyName, $sInstType );
}
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20081,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20082,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20083,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20084, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
}
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
$sMessage = "Clean called for [$sResourceName] [$sCleanReason]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20085,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20086,
"<%s> Could not log successfully", $sMyName );
}
SAPNW04::DeletePidFile ( $sResourceName );
SAPNW04::DeleteVersionFile ( $sSAPSID,$sInstName);
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetResourceState ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : First level monitor to determine state of resource.
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetResourceState {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20087, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID, $sStartProfile, );
my ( $sHost, @liDummyPids ) = ();
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##;
my $iReturnCode = SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
1 ); # Be fast..
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logTrace ( 20088,
"<%s> Found all required processes", $sMyName );
}
else {
&logTrace ( 20089,
"<%s> Did not find all required processes, returning [%s]",
$sMyName, $iReturnCode );
}
&logTrace ( 20090, "<%s> Returning [%s]", $sMyName, $iReturnCode );
return ( $iReturnCode );
}
=pod
-------------------------------------------------------------------------
Function : int GetProcState ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile,
OUT ListReference OnlinePids,
IN Boolean UseFFLM );
Description : Performs the actual first level monitoring
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$rliOnlinePids PIDs of relevant running processes
$bUseFFLM Flag to indicate if fast FLM is to be attempted
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 PARTIAL VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub GetProcState {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$rliOnlinePids,
$bUseFFLM ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20091, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]
rliOnlinePids [%s]
UseFFLM [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID,
$sStartProfile, $rliOnlinePids, $bUseFFLM );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-------------------------
# Define local variables..
#-------------------------
my ( $iUseRFLM, $iFound, $iPid, $iParent, $iJcFlag,
$iProcessCount, $iPosn, $iSleepTime, $iDwMaster,
$iSapstartPid, $bAddIn, $sKey, $sTemp, $sPidFile,
$sProc, $sOSVer, $sInstProfile, $sLang,
$sEntryPointName, $sSwitch, $rhlProc, @lsProcMon, @lsValues,
@lsUpdates, @hProcListHash, %hiDwPids, %hiProcPids,
%hsProcMonDetails, %hsProcMonCopy ) = ();
my $iUid = getpwnam $sSAPAdmin; # Should not fail..
#---------------------------------------------
# Derive instance profile from start profile..
#---------------------------------------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
my @lsOthers = ( "/usr/sap/$sSAPSID/$sInstName/igs",
"pf=.*$sSAPSID.*$sInstName.*", "${sSAPSID}_${sInstName}",
'sapstartsrv\s+' . "pf=.*$sSAPSID.*$sInstName.*");
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------------
# Check if we are ADD-IN..
#-------------------------
++ $bAddIn if ( 2 == grep { /^(jc|dw)$/o } $sProcMon =~ /([^\s]+)/g );
#-----------------------------------------------
# Insert sapstart, unless its a recursive call..
#-----------------------------------------------
if ( $sProcMon eq 'jlaunch' ) {
$sProc = $sProcMon;
}
elsif ( $sProcMon eq 'JC' ) {
$sProc = 'jc dw'; # ADD-IN for recursive call..
}
else {
$sProc = "sapstart $sProcMon";
}
@$rliOnlinePids = (); # Truncate..
#-------------------------------------
# Get details for each procmon value..
#-------------------------------------
if ( SAPNW04::GetProcMonDetails ( $sInstName,
$sSAPSID,
$sProc,
$sStartProfile,
\%hsProcMonDetails ) ) {
delete $hsProcMonDetails { dw } if $sProcMon eq 'JC'; # Remove dw in recursive..
$iUseRFLM = scalar keys %hsProcMonDetails; # Set to entire count..
%hsProcMonCopy = %hsProcMonDetails; # Backup..
#---------------------------------
# Check if we attempt to be fast..
#---------------------------------
if ( $sEntryPointName ne 'offline' && $bUseFFLM ) { # FFLM..
$iUseRFLM = 0; # Hopefully skip..
foreach $sKey ( sort keys %hsProcMonCopy ) { # Use copy..
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
$sTemp .= "\nSAP process [$sKey]\n"; # Display string..
while ( ( $sPidFile, $sProc ) =
splice ( @lsValues, 0, 2 ) ) {
#---------------
# Run fast FLM..
#---------------
$iFound = SAPNW04::FFLMStatus ( $sPidFile,
$sProc,
$iUid,
\$iPid );
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
$sTemp .= "PID File [$sPidFile]\n";
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FFLM Status [$iFound]\n\n";
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates;
#---------------------
# Handle exit status..
#---------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
if ( $sKey eq 'sapstart' ) {
$iSapstartPid = $iPid; # Store..
unshift ( @$rliOnlinePids, $iPid ); # Insert at the front..
}
else {
if ( $sKey eq 'dw' ) {
$iDwMaster = $iPid; # Store master..
&logTrace ( 20092,
"<%s> Found master dw process PID [%s] based on PID file",
$sMyName, $iDwMaster );
}
elsif ( $sKey eq 'jc' ) {
++ $iJcFlag; # Set flag..
}
push ( @$rliOnlinePids, $iPid ); # Insert at the end..
}
}
else {
++ $iUseRFLM; # Mark it for RFLM..
}
}
&logTrace ( 20093,
"<%s> SapInst [%s] ProcMon details ---%s\n\n",
$sMyName, $sInstName, $sTemp );
( $sTemp, $sPidFile, $sProc ) = (); # Release memory..
}
else { # Use regular FLM..
#-----------------------------------------
# Mark status of each service as offline..
#-----------------------------------------
$iFound = VCSDef_MonitorExit::OFFLINE; # Set to offline..
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
while ( scalar @lsValues ) {
push ( @lsUpdates, splice ( @lsValues, 0, 2 ), $iFound );
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates; # Update..
}
}
}
else {
&logError ( 20094,
"<%s> Failed to get details with ProcMon [%s]",
$sMyName, $sProcMon );
return VCSDef_MonitorExit::UNKNOWN;
}
#-----------------------
# Regular slow :-( FLM..
#-----------------------
if ( $iUseRFLM ) {
&logTrace ( 20095,
"<%s> Running regular first level monitor on [%s] processes",
$sMyName, $iUseRFLM );
#----------------------------------
# Set LANG for better performance..
#----------------------------------
$sLang = $ENV { LANG }; # Backup..
$ENV { LANG } = 'C'; # Now set..
#-----------------------------------
# Call processes and store in hash..
#-----------------------------------
$iProcessCount = Proc::GetLongProcessListHash ( \@hProcListHash );
#----------
# Restore..
#----------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG }; # Restore..
#----------------------
# Check if we got any..
#----------------------
if ( $iProcessCount ) {
&logTrace ( 20096,
"<%s> Got [%s] processes from proc table for filtering",
$sMyName, $iProcessCount );
}
else {
&logError ( 20097,
"<%s> Call to get process list did not return any processes",
$sMyName );
return VCSDef_MonitorExit::OFFLINE; # Offline..
}
#-------------------
# Solaris 10 zones..
#-------------------
$iParent = 1; # Set to init..
$sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '';
#-----------------------
# Search for processes..
#-----------------------
foreach $rhlProc ( @hProcListHash ) {
#--------------------------------------------------------------
# Each $rhlProc is a ref. to a hash with the following keys..
# "UID" =>
# "PID" =>
# "PPID" =>
# "COMMAND" =>
#--------------------------------------------------------------
&logTrace ( 20098, "<%s> Searching PID [%s] CMD [%s]",
$sMyName, $$rhlProc { PID }, $$rhlProc { COMMAND } );
next unless defined $$rhlProc { UID }; # Bug in Proc::GetLongProcessListHash..
$iPid = $$rhlProc { PID }; # Assign..
#--------------------------------
# Handle Solaris 10 local zones..
#--------------------------------
if ( $sOSVer eq '5.10' && # Solaris 10..
$$rhlProc { COMMAND } =~ m@/sbin/init$@ && # With init..
! kill ( 0, 1 ) ) { # In a non-global zone..
$iParent = $$rhlProc { PPID }; # Get actual PID..
}
#-----------------------------------------------
# Look for processes that were offline in FFLM..
#-----------------------------------------------
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
#--------------------------------------------------
# Should have details per three elements of array..
#
#--------------------------------------------------
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#--------------------------------------
# Verify if process is really offline..
#--------------------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iFound ) { # Earlier marked offline..
if ( $$rhlProc { UID } == $iUid && # Owned by SAPAdmin..
$$rhlProc { COMMAND } =~ /\b$sProc\b/ ) { # Was now found..
#-----------------------
# Handle dw separately..
#-----------------------
$iFound = VCSDef_MonitorExit::ONLINE unless $sKey eq 'dw';
&logTrace ( 20099,
"<%s> Found PID [%s] PPID [%s] CMD [%s] with filter [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND }, $sProc );
#-----------------------
# Handle special cases..
#-----------------------
$sSwitch = $sKey =~ /^(jc|jlaunch|dw|sapstart)$/o ? $sKey:
'default';
if("sapstart" eq $sSwitch) {
$iPosn = 0;
$iSapstartPid = $iPid; # Store..
}
elsif("jc" eq $sSwitch) {
$iPosn = 1;
++ $iJcFlag; # Set flag..
}
elsif("jlaunch" eq $sSwitch) {
$iPosn = 2;
}
elsif("dw" eq $sSwitch) {
$iPosn = 3;
$hiDwPids { $iPid } = $$rhlProc { PPID }; # Store..
}
else{
$iPosn = scalar @$rliOnlinePids;
}
#--------------------------------
# Insert into appropriate place..
#--------------------------------
$iPosn = scalar @$rliOnlinePids if $iPosn > scalar @$rliOnlinePids;
splice ( @$rliOnlinePids, $iPosn, 0, $iPid ); # Insert..
$hiProcPids { $sKey } = $iPid; # Store PID..
&logTrace ( 20100,
"<%s> Stored PID [%s] for proc [%s] at index [%s]",
$sMyName, $iPid, $sKey, $iPosn );
}
}
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates; # Update..
}
#---------------------------------
# Handle other related processes..
#---------------------------------
if ( ( ! grep { /^$iPid$/ } @$rliOnlinePids ) && # Not caught earlier..
$$rhlProc { UID } == $iUid && # Owned by SAPAdmin..
$sProcMon !~ /^(JC|jlaunch)$/o && # Not in recursive call..
map { $$rhlProc { COMMAND } =~ /$_/ } @lsOthers ) { # Was now found..
push ( @$rliOnlinePids, $iPid ); # Store..
#-----------------------------------------
# Populate dwindling sapstartsrv process..
#-----------------------------------------
if ( $$rhlProc { COMMAND } =~ /sapstartsrv/o ) {
$iSapStartSrv = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cm\.sap/o ) { # Note down sapccm4x process
$iCCMSX = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cs\.sap/o ) { # Note down sapccmsr process
$iCCMSR = $iPid; # Populate global..
}
&logTrace ( 20101,
"<%s> Matched process PID [%s] PPID [%s] CMD [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
}
}
}
#------------------------------------
# Set final status for each process..
#------------------------------------
my ( $i, $bSapstartFlag, $iOnline, $iOffline, @liDummyPids ) = ();
my @liDwPids = keys %hiDwPids;
$sTemp = ''; # Ensure..
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
$sTemp .= "\nProcess [$sKey]\n";
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#----------------------
# Set status for 'dw'..
#----------------------
if ( $sKey eq 'dw' && scalar @liDwPids ) {
#----------------------------
# Check if we the master dw..
#----------------------------
if ( $iSapstartPid && # Sapstart exists..
( ( $iDwMaster ) = # Get the master dw..
grep { # By finding..
$iSapstartPid == $hiDwPids { $_ } # sapstart as its parent..
} @liDwPids ) ) { # From all dw processes..
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logTrace ( 20102,
"<%s> Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $iSapstartPid );
}
elsif ( ( ( $iDwMaster ) = # A dw process..
grep { # Found..
$iParent == $hiDwPids { $_ } &&# With init as parent..
++ $i # Mark it..
} @liDwPids ) && 1 == $i ) { # If only one such exists..
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logWarn ( 20103,
"<%s> Missing sapstart process.
Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $hiDwPids { $iDwMaster } );
}
else { # Error..
&logTrace ( 20104,
"<%s> Missing dw master. Marking status as offline", $sMyName );
$iFound = VCSDef_MonitorExit::OFFLINE; # Ensure its offline..
#------------------------
# Delete PID, if stored..
#------------------------
if ( defined $hiProcPids { $sKey } ) {
delete $hiProcPids { $sKey };
}
}
}
#--------------------------
# Mark status of sapstart..
#--------------------------
if ( $sKey eq 'sapstart' &&
$iSapstartPid ) {
++ $bSapstartFlag; # Mark it found..
++ $bSapStart; # Mark global..
}
#--------------------------------
# If we are ADD-IN, validate jc..
#--------------------------------
if ( $sKey eq 'jc' && # Looking for jc..
$sEntryPointName eq 'monitor' && # in monitor..
$bAddIn && # dw and jc declared..
$iDwMaster ) { # dw master exists..
if ( ! $iJcFlag ) { # jc missing..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
$iSleepTime = SAPNW04::GetEngineTimeout ( 0 ) / 10;
&logWarn ( 20105,
"<%s> Missing process [%s], though 'dw' master [%s] exists.
Retrying in [%s] sec", $sMyName, $sKey, $iDwMaster, $iSleepTime );
sleep $iSleepTime; # Take a break..
#---------------------------
# Call ourselves with 'JC'..
#---------------------------
$iFound = SAPNW04::GetProcState ( $sInstName,
'JC', # In CAPS..
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
0 ); # Regular FLM..
#--------------------------------------------------------------------
# If we returned online, we know we found jc and at least one jaunch.
# PID of jc now is in first position..
#--------------------------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
&logTrace ( 20106,
"<%s> Found jc process with PID [%s] after recursive call",
$sMyName, $liDummyPids [0] );
$hiProcPids { $sKey } = shift @liDummyPids; # Store..
++ $iJcFlag; # Set flag..
#-----------------
# Update jlaunch..
#-----------------
$hiProcPids { jlaunch } = shift @liDummyPids; # Store..
${ $hsProcMonCopy { jlaunch } } [-1] = $iFound; # Mark online..
}
else {
&logError ( 20107, "<%s> Missing jc after recursive call", $sMyName );
}
}
}
#--------------------------------------------------
# Check if 'jlaunch' is missing and 'jc' is alive..
#--------------------------------------------------
if ( $sEntryPointName eq 'monitor' && # In monitor..
$sKey eq 'jlaunch' && # Jaunch,
$iJcFlag && # when jc, alive..
VCSDef_MonitorExit::OFFLINE == $iFound ) { # is not..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
$iSleepTime = SAPNW04::GetEngineTimeout ( 0 ) / 10;
&logWarn ( 20108,
"<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec",
$sMyName, $sKey, $iSleepTime );
sleep $iSleepTime; # Take a break..
#--------------------------------------
# Call ourselves again with 'jlaunch'..
#--------------------------------------
$iFound = SAPNW04::GetProcState ( $sInstName,
'jlaunch',
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
0 ); # Regular FLM..
#--------
# Store..
#--------
if ( scalar @liDummyPids ) {
push ( @$rliOnlinePids, @liDummyPids );
$hiProcPids { $sKey } = $liDummyPids [0];
&logTrace ( 20109,
"<%s> Found jlaunch process with PID [%s] after another attempt",
$sMyName, $liDummyPids [0] );
}
}
#-----------------------------------
# Create PID files for use in FFLM..
#-----------------------------------
if ( $iUseRFLM && # In RFLM..
$sEntryPointName =~ /^(monitor|online)$/o && # In monitor or online..
$hiProcPids { $sKey } && # PID populated..
SAPNW04::CreatePidFile ( $sPidFile, # Create file..
$hiProcPids { $sKey } ) ) {
}
#-------------
# Set status..
#-------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
$iOnline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound &&
$sKey ne 'sapstart') { # Ignore sapstart..
$iOffline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound ) {
$iOffline = $iFound;
}
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FLM Status [$iFound]\n\n";
}
$sTemp .= "--------------------";
}
#-------------------
# Set final status..
#-------------------
$iReturnCode = $iOnline && $iOffline?VCSDef_MonitorExit::PARTIAL_ONLINE:
$iOffline || $iOnline || VCSDef_MonitorExit::UNKNOWN;
#------------------------------------------------
# Reset status based on PIDs, if not in monitor..
#------------------------------------------------
if ( $sEntryPointName ne 'monitor' &&
( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) &&
scalar @$rliOnlinePids ) {
$iReturnCode = VCSDef_MonitorExit::PARTIAL_ONLINE;
&logTrace ( 20110,
"<%s> Found [%s] PIDs [%s] for SAP instance. Resetting return code to [%s]",
$sMyName, scalar @$rliOnlinePids, join ( ' ', @$rliOnlinePids ), $iReturnCode );
}
&logTrace ( 20111,
"<%s> SAP Instance [%s] ProcMon details ---\n%s
Return code is [%s]", $sMyName, $sInstName, $sTemp, $iReturnCode );
$sTemp = undef; # Release..
#---------------------
# Report on sapstart..
#---------------------
if ( ! $bSapstartFlag && # Missing sapstart..
$sEntryPointName eq 'monitor' && # In monitor..
$sProcMon !~ /^(JC|jlaunch)$/o && # Not in recursive call..
VCSDef_MonitorExit::OFFLINE != $iReturnCode ) { # Not offline..
&logWarn ( 20112,
"<%s> Missing sapstart process in first level monitor",
$sMyName );
}
#--------------------------------
# Populate the global PID array..
#--------------------------------
@liRunningProcs = @$rliOnlinePids;
&logTrace ( 20113,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int FFLMStatus ( IN String PidFile,
IN String Proc,
IN Integer Uid,
OUT RefInt Pid );
Description: Checks status of Process listed in PidFile, if running
Parameters :
$sPidFile Absolute path to PID file of service
$sProc Process string to search for in proc table
$iUid UNIX UID of owner
$riPid Reference to existing PID
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub FFLMStatus {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$sProc,
$iUid,
$riPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20114, "Subroutine <%s> called with:
PidFile [%s]
Proc [%s]
UID [%s]
riPid [%s]",
$sMyName, $sPidFile, $sProc, $iUid, $riPid );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$$riPid = 0; # Reset..
#-------------------------
# Define local variables..
#-------------------------
my ( $iPid, $rhlProc, @lProcessHash ) = ();
#----------------------------------
# Start by testing the attributes..
#----------------------------------
if ( $sProc !~ /\S/ ) {
&logError ( 20115, "<%s> Called with empty [%s] process string",
$sMyName, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -e $sPidFile ) {
&logTrace ( 20116, "<%s> PID file [%s] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -s $sPidFile ) {
&logWarn ( 20117, "<%s> PID file [%s] is of zero bytes",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
#---------------------
# Return, if offline..
#---------------------
return $iReturnCode unless VCSDef_MonitorExit::ONLINE == $iReturnCode;
if ( open ( PIDFILE, $sPidFile ) ) {
( $iPid ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iPid = '' unless defined $iPid; # Avoid undefs..
close ( PIDFILE ) || # Close file..
&logWarn ( 20118,
"<%s> Could not close PID file [%s] after read [%s]",
$sMyName, $sPidFile, $! );
}
else {
&logError ( 20119,
"<%s> Failed to open PID file [%s] for read: [%s]",
$sMyName, $sPidFile, $! );
return VCSDef_MonitorExit::OFFLINE; # Failure..
}
#------------------------
# Check if PID is valid..
#------------------------
if ( $iPid =~ /\d+/ && # If the valid number..
kill ( 0, $iPid ) ) { # is a PID that's alive..
&logTrace ( 20120,
"<%s> PID [%s] from PID file [%s] exists",
$sMyName, $iPid, $sPidFile );
#-----------------------
# Search in proc table..
#-----------------------
if ( SAPNW04::GetPidDetails ( $iPid,
\@lProcessHash ) ) {
#--------------
# Got details..
#--------------
foreach $rhlProc ( @lProcessHash ) {
&logTrace ( 20121,
"<%s> Process details: UID [%s] PID [%s] PPID [%s] ARGS [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
#--------------
# Now compare..
#--------------
if ( ( $$rhlProc { UID } == $iUid ) && # Owner match..
$$rhlProc { COMMAND } =~ /\b$sProc\b/ ) { # Filter match..
&logTrace ( 20122,
"<%s> PID [%s] owned by UID [%s] with ARGS [%s] contains [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$$riPid = $iPid; # Store..
}
else {
&logTrace ( 20123,
"<%s> Ignoring PID [%s] owned by UID [%s] with ARGS [%s] with string [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
}
else {
&logTrace ( 20124,
"<%s> Could not get details for PID [%s]",
$sMyName, $iPid );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
else {
&logTrace ( 20125, "<%s> PID [$iPid] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
@lProcessHash = (); # Truncate..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetProcMonDetails ( IN String InstName
IN String SAPSID
IN String ProcMon
IN String StartProfile
OUT RefHashList ProcMonDetails );
Description: Gives PID file and process string for each ProcMon value
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sSAPSID SAP system name defined during installation
$sProcMon List of SAP processes to monitor
$sStartProfile Specifies the full path to the start-profile
$rhlProcMonDetails Stores details of PID file and process string
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetProcMonDetails {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sSAPSID,
$sProcMon,
$sStartProfile,
$rhlProcMonDetails ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20126, "Subroutine <%s> called with:
InstName [%s]
SAPSID [%s]
ProcMon [%s]
StartProfile [%s]
rhlProcMonDetails [%s]",
$sMyName,
$sInstName, $sSAPSID, $sProcMon, $sStartProfile, $rhlProcMonDetails );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1; # Set to true..
#----------------------------------------------
# Derive our resource type and resource names..
#----------------------------------------------
my $sResourceType = ( $0 =~ m@([^/]+)@g ) [-2];
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
#-------------------------
# Define local variables..
#-------------------------
my ( $sProc, $sTmpProc, $sPidFile, $sInstProfile, %hsProcMon, $sHost ) = ();
my $sArch = 0;
my %hsArch = ( 0 => '',
1 => 'JAVA',
2 => 'ABAP',
3 => 'ADDIN' );
my @lsProcMon = $sProcMon =~ /([^\s]+)/g;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
map {
$sArch |= 1 if /^jc$/;
$sArch |= 2 if /^dw$/;
} @lsProcMon;
#----------------------------
# Insert jlaunch, if needed..
#----------------------------
push @lsProcMon, 'jlaunch' if ( $sArch & 1 ); # jc located..
my $sPIDDir = "/tmp/.VRTS$sResourceType/$sResourceName/PID";
#---------------------------------------------
# Derive instance profile from start profile..
#---------------------------------------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
#---------------------------------------------
# Derive virtual hostname from start profile..
#---------------------------------------------
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##; # Get hostname..
%$rhlProcMonDetails = (); # Truncate..
#------------------------------
# Create PID folder if needed..
#------------------------------
if ( -d $sPIDDir ) {
&logTrace ( 20127, "<%s> PID folder [%s] exists",
$sMyName, $sPIDDir );
}
elsif ( ! mkpath ( $sPIDDir, 0, 0700 ) ) {
&logWarn ( 20128, "<%s> Failed to create PID folder [%s]",
$sMyName, $sPIDDir );
return 0; # Cannot proceed..
}
#-----------------------------------------------
# Create PID file and process strings for each..
#-----------------------------------------------
foreach $sProc ( @lsProcMon ) {
$sPidFile = "$sPIDDir/pidfile.$sProc";
#----------------------------------------
# Handle sapstart and ADDIN differently..
#----------------------------------------
if ( $sProc eq 'sapstart' ) {
$sTmpProc = "$sProc pf=.*$sSAPSID.*$sInstName.*$sHost";
#$sTmpProc = "$sProc pf=$sStartProfile";
}
elsif ( $sProc eq 'jc' && # jc defined..
$hsArch { $sArch } eq 'ADDIN' ) { # in ADDIN..
$sTmpProc = "jcontrol pf=.*$sSAPSID.*$sInstName.*$sHost"; # look for jcontrol..
}
elsif ( $sProc eq 'jlaunch' ) {
$sTmpProc = "$sProc pf=.*$sSAPSID.*$sInstName.*$sHost.*server\\d";
}
elsif( $sProc eq 'gwrd' || $sProc eq 'icman' ){
$sTmpProc = "$sProc.*pf=.*$sSAPSID.*$sInstName.*$sHost";
}
else {
$sTmpProc = "$sProc.sap${sSAPSID}_${sInstName}.*pf=.*$sSAPSID.*$sInstName.*$sHost";
#$sTmpProc = "$sProc.sap${sSAPSID}_${sInstName}.*pf=$sInstProfile";
}
&logTrace ( 20129,
"<%s> Process [%s] Search Pattern [%s] PID file [%s]",
$sMyName, $sProc, $sTmpProc, $sPidFile );
push @{ $hsProcMon { $sProc } }, $sPidFile, $sTmpProc;
}
%$rhlProcMonDetails = %hsProcMon; # Now store..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int Monitor ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String MonitorProgram,
IN String SAPAdmin,
IN String ProcMon
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer SecondLevelMonitor );
Description: Performs the in-depth monitoring
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sMonitorProgram Full path to external monitor program
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sProcMon List of SAP processes to monitor
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub Monitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sMonitorProgram,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20130, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
MonitorProgram [%s]
SAPAdmin [%s]
ProcMon [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
SecondLevelMonitor [%s]",
$sMyName,
$sEnvFile, $sInstName, $sInstType, $sMonitorProgram,
$sSAPAdmin, $sProcMon, $sSAPMonHome, $sSAPSID, $sStartProfile,
$iSecondLevelMonitor );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-------------------------------------------------------
# Upper bound..
# Time in EPOCH when entry pt started + VCS time limit..
#-------------------------------------------------------
my $iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
#----------------------------------------------
# In-depth monitoring, if correct time to run..
#----------------------------------------------
if ( VCSagentFW::RunSecondLevelMonitor ( $iSecondLevelMonitor ) ) {
#--------------------------
# Just In Time Validation..
#--------------------------
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPNW04::DelayedAttributeCheck ( $sEnvFile,
$sSAPMonHome,
$sStartProfile ) ) ) {
&logTrace ( 20131,
"<%s> Delayed attribute check completed successfully",
$sMyName );
}
else {
&logError ( 20132,
"<%s> Attribute validation failed. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
&logTrace ( 20133,
"<%s> Proceeding with second level monitoring", $sMyName );
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPNW04::SecondLevelMonitor ( $sEnvFile,
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ) ) ) {
&logTrace ( 20134,
"<%s> SAP Instance [%s] online with status [%s] after SLM",
$sMyName, $sInstName, $iReturnCode );
}
else {
&logError ( 20135,
"<%s> SAP Instance [%s] NOT online. Status [%s]",
$sMyName, $sInstName, $iReturnCode );
return $iReturnCode; # Get out..
}
}
#------------------------------------------------
# Exit if external monitor has not been defined..
#------------------------------------------------
return $iReturnCode unless defined $sMonitorProgram;
#---------------------------------------
# MonitorProgram defined..
# Separate the executable and the args..
#---------------------------------------
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
if ( VCSDef_MonitorExit::ONLINE == # and found online..
( $iReturnCode = # by the status..
SAPNW04::ExternalMonitor ( $sSAPAdmin, # after execution..
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) ) {
&logTrace ( 20136,
"<%s> SAP Instance [%s] found online with status [%s]
after executing external monitor [%s] with args [%s]",
$sMyName, $sInstName, $iReturnCode, $sExtCmd, $sExtCmdArgs );
}
else {
&logError ( 20137,
"<%s> SAP Instance [%s] NOT online with external monitor
[%s] with args [%s]. Status [%s]",
$sMyName, $sInstName, $sExtCmd, $sExtCmdArgs, $iReturnCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ChkResName ( IN String ResName,
IN String SAPSID,
IN String InstType );
Description : Checks if resource has been configured
Parameters :
$sResName Resource Name to check
$sSAPSID SAP system name defined during installation
$sInstType String identifier that classifies the SAP server instance type
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ChkResName {
#----------------
# Get Arguments..
#----------------
my ( $sResName,
$sSAPSID,
$sInstType ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20138, "Subroutine <%s> called with:
ResName [%s]
SAPSID [%s]
InstType [%s]",
$sMyName, $sResName, $sSAPSID, $sInstType );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------------
# Validate string for resource..
#-------------------------------
return 0 unless ( $sResName =~ /\S/o ); # Must be a non-white string..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my $sCmdArgs = "-display $sResName -attribute InstType SAPSID";
#-----------------------
# Define valid matches..
#-----------------------
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE',
'AENQREP' => 'AENQUEUE',
'JENQREP' => 'JENQUEUE' );
my ( $iExitCode, @lsCmd ) = ();
&logTrace ( 20139,
"<%s> Executing Cmd [%s] with Args [%s]",
$sMyName, $sCmd, $sCmdArgs );
#--------------------------
# Fire command and verify..
#--------------------------
( @lsCmd ) = grep {
( s/\n// || 1 ) && # Chomp, and make true..
/InstType|SAPSID/ && # Contains these..
s/.*\s+// # Get last field..
} readpipe ( "$sCmd $sCmdArgs" ); # From output..
#--------------------
# Collect exit code..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20140,
"<%s> Cmd [%s] with Args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
$iReturnCode = 0; # Failure..
}
elsif ( ( 2 == scalar @lsCmd ) && # Got both values..
( $sSAPSID eq $lsCmd [-1] ) && # SAPSID is a match..
defined $hsInstMatch { uc $sInstType } && # InsType is defined..
$hsInstMatch { uc $sInstType } eq uc $lsCmd [0] ) { # And a correct pair..
&logTrace ( 20141,
"<%s> Resource [%s] defined in cluster with InstType [%s] SAPSID [%s]",
$sMyName, $sResName, $lsCmd [0], $lsCmd [-1] );
}
else {
&logError ( 20142,
"<%s> Resource [%s] not a matching ENQUEUE variant for this resource",
$sMyName, $sResName );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : Int DelayedAttributeCheck ( IN String EnvFile,
IN String SAPMonHome,
IN String StartProfile );
Description : Just In Time Validation
Parameters :
$sEnvFile Full path to the environment file for SAP
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sStartProfile Specifies the full path to the start-profile
Returns : Integer value as defined below:
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub DelayedAttributeCheck {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sSAPMonHome,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20143, "Subroutine <%s> called with:
EnvFile [%s]
SAPMonHome [%s]
StartProfile [%s]",
$sMyName, $sEnvFile, $sSAPMonHome, $sStartProfile );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-----------------------------------------
# Validate each of the attribute in turn..
#-----------------------------------------
#-----------------------
# EnvFile has to exist..
#-----------------------
if ( ! -e $sEnvFile ) {
&logError ( 20144,
"<%s> EnvFile [%s] does not exist", $sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
#-------------------
# Validate SAPHome..
#-------------------
if ( ! -d $sSAPMonHome ) {
&logError ( 20145,
"<%s> SAPMonHome [%s] not a valid directory", $sMyName, $sSAPMonHome );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
#----------------------------
# Startprofile has to exist..
#----------------------------
if ( ! -r $sStartProfile ) {
&logError ( 20146,
"<%s> StartProfile does not exist [%s]", $sMyName, $sStartProfile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool UpdateSAPLog ( IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile,
IN String MessageText );
Description : Update SAP log with passed message string..
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$sMessageText Message text for update
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub UpdateSAPLog {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessageText ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20147, "Subroutine <%s> called with:
InstName [%s]
InstType [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]
MessageText [%s]",
$sMyName, $sInstName, $sInstType, $sSAPAdmin, $sSAPSID,
$sStartProfile, $sMessageText );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my $sDate = strftime '%H:%M:%S %d %b %Y', localtime;
my $sHost = ( uname ) [1];
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
my $sCpyHeader = '+' . '-' x 75 . '+';
my $sCmnt = "|";
#------------------------
# Define logging format..
#------------------------
format SAPLOG =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
@ Date: @<<<<<<<<<<<<<<<<<<<<< Node: @<<<<<<<<<<<<<<<<<< @
$sCmnt, $sDate, $sHost, $sCmnt
@ InstName: @<<<<<<<<<<<< InstType: @<<<<<<<<<< SAPSID: @<<< @
$sCmnt, $sInstName, $sInstType, $sSAPSID, $sCmnt
@ Start profile: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sStartProfile, $sCmnt
@ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sMessageText, $sCmnt
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
.
#-----------------------
# Open file for update..
#-----------------------
if ( sysopen ( SAPLOG, $sLogFile, O_CREAT|O_WRONLY|O_APPEND|O_SYNC, 0644 ) ) {
&logTrace ( 20148,
"<%s> Opened log file [%s] succesfully for update", $sMyName, $sLogFile );
write SAPLOG; # Update..
unless ( close ( SAPLOG ) ) {
&logError ( 20149,
"<%s> Failed to close log file [%s] after update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
}
else {
&logError ( 20150,
"<%s> Failed to open log file [%s] for update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
#----------------
# Set ownership..
#----------------
my ( $iUid, $iGid ) = ( getpwnam $sSAPAdmin ) [2, 3]; # Should not fail..
if ( chown ( $iUid, $iGid, $sLogFile ) ) {
&logTrace ( 20151,
"<%s> Set ownership of [%s] to UID [%s] GID [%s]",
$sMyName, $sLogFile, $iUid, $iGid );
}
else {
&logError ( 20152,
"<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s]",
$sMyName, $sLogFile, $iUid, $iGid, $! );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CleanIPC ( IN String SAPAdmin,
IN String EnvFile,
IN String SAPSID,
IN String InstName,
IN Integer Timeout );
Description : Cleans IPC resources for given SAPSID
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sSAPSID SAP system name defined during installation
$sInstName String identifier that uniquely identifies a SAP server instance
$iTimeout Timeout in seconds
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CleanIPC {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20153, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
SAPSID [%s]
InstName [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sSAPSID, $sInstName, $iTimeout );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $iInstId, $iExitCode, @lsCmdOut ) = ();
( $iInstId ) = $sInstName =~ /(\d{2})$/o; # Get the last two..
my $sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/cleanipc";
my $sCmdArgs = "$iInstId remove";
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
#---------------
# Validate Cmd..
#---------------
if ( ! -e $sCmd ) {
&logError ( 20154,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$sCmd = "/usr/sap/$sSAPSID/$sInstName/exe/cleanipc";
if ( ! -e $sCmd ) {
&logError ( 20155,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
}
if ( ! -x $sCmd ) {
&logError ( 20156,
"<%s> Command [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------
# Execute command..
#------------------
&logTrace ( 20157,
"<%s> Executing Cmd [%s] with args [%s] within [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20158,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! $iExitCode ) {
&logError ( 20159,
"<%s> Command [%s] with args [%s] timed out in [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
$iReturnCode = 0; # Failure..
}
else {
&logError ( 20160,
"<%s> Command [%s] with args [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
$iReturnCode = 0; # Failure..
}
#------------------
# Update log file..
#------------------
if ( scalar @lsCmdOut ) {
if ( sysopen ( SAPLOG, $sLogFile,
O_CREAT|O_WRONLY|O_APPEND|O_SYNC, 0644 ) ) {
&logTrace ( 20161,
"<%s> Opened log file [%s] succesfully for update",
$sMyName, $sLogFile );
#------------------------------
# Put information for message..
#------------------------------
unshift ( @lsCmdOut, "Cleanipc command output:\n" );
print SAPLOG "$_\n" foreach ( @lsCmdOut ); # Update..
unless ( close ( SAPLOG ) ) {
&logError ( 20162,
"<%s> Failed to close log file [%s] after update: [%s]",
$sMyName, $sLogFile, $! );
}
}
else {
&logError ( 20163,
"<%s> Failed to open log file [%s] for update: [%s]",
$sMyName, $sLogFile, $! );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetEngineTimeout ( IN Bool UseMargin );
Description : Calculates engine timeout for entry point
Parameters :
$bUseMargin Flag to indicate if safety margin is requested
boolean value in the set of {0,1} where
0 No safety margin needed
1 Safety margin to be used
Returns: Time in secs.
-------------------------------------------------------------------------
=cut
sub GetEngineTimeout {
#----------------
# Get Arguments..
#----------------
my ( $bUseMargin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20164, "Subroutine <%s> called with:
UseMargin [%s]",
$sMyName, $bUseMargin );
#-------------------------
# Define local variables..
#-------------------------
my ( $sAttribute, $sCommand, $sCommandArgs,
$iEngineTimeout, $iExitCode ) = ();
#----------------------------------
# Grace margins from VCS timeouts..
#----------------------------------
my %hiGraceMargin = ( 'MonitorTimeout', 10, # Seconds..
'OnlineTimeout', 10,
'OfflineTimeout', 10,
'CleanTimeout', 10 );
#--------------------------------------------------
# Attempt to get resource level overridden values..
#--------------------------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sCommand = $sCmdHares; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sCommandArgs = "-value $sResourceName $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs 2>/dev/null" ) )
=~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20165,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
}
elsif ( ! $iEngineTimeout ) { # Undefined value..
&logTrace ( 20166, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
}
else { # Success..
&logTrace ( 20167, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
unless ( $iEngineTimeout ) {
$sCommand = $sCmdHatype; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sResourceType = 'SAPNW04' if $sResourceType !~ /\w/; # Ensure..
$sCommandArgs = "-value $sResourceType $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs" ) ) =~ s/\n//;
$iExitCode = $? >> 8; # Get exit status..
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode ) {
&logTrace ( 20168,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
elsif ( ! $iEngineTimeout ) { # Empty value..
&logTrace ( 20169, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
else { # Success..
&logTrace ( 20170, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
}
else {
&logTrace ( 20171, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#----------------------------
# Apply margin if requested..
#----------------------------
if ( $bUseMargin && # Margin requested..
$iEngineTimeout >= $hiGraceMargin { $sAttribute } ) { # And valid..
$iEngineTimeout -= $hiGraceMargin { $sAttribute }; # Apply..
&logTrace ( 20172,
"<%s> Setting up [%s] sec margin. Returning [%s]",
$sMyName, $hiGraceMargin { $sAttribute }, $iEngineTimeout );
}
return ( $iEngineTimeout ); # Secs..
}
=pod
-------------------------------------------------------------------------
Function : bool KillSAPProcs ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : Kills processes for a given SAP instance..
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub KillSAPProcs {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20173, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID, $sStartProfile );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#----------------------
# Set local variables..
#----------------------
my ( @liGoners, @liUnDead ) = ();
#-------------------------------------
# If called during online or offline..
#-------------------------------------
if ( ( caller 1 )[3] eq 'SAPNW04::Start' || # Start logic..
( caller 1 )[3] eq 'SAPNW04::Stop' ) { # Stop logic..
@liGoners = @liRunningProcs; # Get global..
}
else {
#----------------------------
# Get processes for killing..
#----------------------------
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liGoners,
0 ); # Use regular..
}
#------------------------------------------------------------------
# We do a two level kill. The SIGINQ ensures that the PID is a
# valid process before we actually issue the SIGKILL. We don't want
# to report a failure for SIGKILL in case of defunct or missing
# processes.
#------------------------------------------------------------------
if ( scalar @liGoners ) {
#----------------------
# Failed to kill some..
#----------------------
if ( @liUnDead = grep {
kill ( 0, $_ ) && # Valid..
! kill ( 9, $_ ) # and could NOT be killed..
} @liGoners ) { # From what's found..
&logError ( 20174,
"<%s> PIDs not killed [%s] Total not killed [%s]",
$sMyName, join ( ' ', @liUnDead ), scalar @liUnDead );
$iReturnCode = 0; # Failure..
}
else { # All killed..
&logInfo ( 20175,
"<%s> Killed PIDs [%s] Total killed: [%s]",
$sMyName, join ( ' ', @liGoners ), scalar @liGoners );
}
}
else {
&logTrace ( 20176,
"<%s> Could not locate any process for SAP Instance [%s]",
$sMyName, $sInstName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int SecondLevelMonitor ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String ProcMon,
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer TillWhen );
Description : Does in-depth monitoring, if enabled.
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sProcMon List of SAP processes to monitor
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$iTillWhen Represents the upper limit set by engine in EPOCH
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub SecondLevelMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20177, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
SAPAdmin [%s]
ProcMon [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
TillWhen [%s]",
$sMyName,
$sEnvFile, $sInstName, $sInstType, $sSAPAdmin, $sProcMon,
$sSAPMonHome, $sSAPSID, $sStartProfile, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my %hsArch = ( 1 => 'JAVA',
2 => 'ABAP',
3 => 'ADDIN' );
my $sArch = 0;
my ( $sCmd, $sCmdArgs, $sSwitch, $sHost, $sInstProfile,
$iRetCode, $iInstId, $iTimeout ) = ();
my $bNotOnlineFlag = 0;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
map {
$sArch |= 1 if /^jc$/;
$sArch |= 2 if /^dw$/;
} $sProcMon =~ /([^\s]+)/g;
if ( $hsArch { $sArch } ) {
$sSwitch = $hsArch { $sArch };
&logTrace ( 20178,
"<%s> Identified SAP Architecture [%s] from ProcMon [%s]",
$sMyName, $sSwitch, $sProcMon );
}
else {
&logTrace ( 20179,
"<%s> Could not identify SAP Architecture from ProcMon [%s]",
$sMyName, $sProcMon );
$sSwitch = 'DEFAULT'; # Mark it default..
}
#----------------
# Assign values..
#----------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##; # Get hostname..
( $iInstId ) = $sInstName =~ /(\d{2})$/o; # Get the last two..
#-----------------------
# Do the correct stuff..
#-----------------------
if("JAVA" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
$iTimeout = $iTillWhen - time;
my $iVersion = ();
$iReturnCode = GetVersionInfo($sSAPSID,$sInstName,$sSAPAdmin,$sEnvFile,$iTimeout,\$iVersion);
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/jcmon";
if ($iVersion >= 720) {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
y
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
else {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecJCMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
&logError ( 20180,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("ABAP" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/dpmon";
$sCmdArgs = "-info pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecDpMon ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
$sCmd = "$sSAPMonHome/sapinfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapcontrol";
$sCmdArgs =" -nr $iInstId -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecGetProcList ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
$sCmdArgs = "ashost=$sHost sysnr=$iInstId";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecSAPInfo ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20181,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("ADDIN" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/dpmon";
$sCmdArgs = "-info pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecDpMon ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
$sCmd = "$sSAPMonHome/sapinfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapcontrol";
$sCmdArgs =" -nr $iInstId -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecGetProcList ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
$sCmdArgs = "ashost=$sHost sysnr=$iInstId";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecSAPInfo ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
}
$iTimeout = $iTillWhen - time;
my $iVersion = ();
$iReturnCode = GetVersionInfo($sSAPSID,$sInstName,$sSAPAdmin,$sEnvFile,$iTimeout,\$iVersion);
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
#--------------------------
# Re-set command and args..
#--------------------------
if ( -x "/usr/sap/$sSAPSID/$sInstName/j2ee/os_libs/jcmon" ) { # SAPNW04..
$sCmd = "/usr/sap/$sSAPSID/$sInstName/j2ee/os_libs/jcmon";
}
elsif ( -x "/usr/sap/$sSAPSID/SYS/exe/run/jcmon" ) { # SAPNW04s..
$sCmd = "$sSAPMonHome/jcmon";
}
if ($iVersion >= 720) {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
y
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
else{
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
$iTimeout = $iTillWhen - time;
$iRetCode = SAPNW04::ExecJCMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout );
#-------------------------------------------
# Update, status only when it's not online..
#-------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iRetCode ) {
$iReturnCode = $iRetCode;
}
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20182,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
if ( $sInstType !~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/ensmon";
$sCmdArgs = "pf=$sInstProfile 2";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecEnsMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
}
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20183,
"<%s> Encountered unsupported InstType [%s]. Has to be one of
[enqueue aenqueue jenqueue enqrep aenqrep jenqrep]",
$sMyName, $sInstType );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExternalMonitor ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer TillWhen );
Description : Handles user defined external monitor program
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Absolute path to external monitor program
$sCmdArgs Command line arguments, if any, for Cmd
$iTillWhen Represents the upper limit set by engine in EPOCH
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExternalMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20184, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
TillWhen [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my ( $iExitCode, $iTimeout, @lsCmdOut ) = ();
my $iBuf = 5; # Secs..
#-------------------------
# Handled exit code hash..
#-------------------------
my %hiExitCodes = ( 0, VCSDef_MonitorExit::ONLINE,
110, VCSDef_MonitorExit::ONLINE,
1, VCSDef_MonitorExit::OFFLINE,
100, VCSDef_MonitorExit::OFFLINE );
#---------------------------------------------
# Check if command can be found and executed..
#---------------------------------------------
if ( ! -e $sCmd ) {
&logError ( 20185,
"<%s> External monitor [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20186,
"<%s> External monitor [%s] not executable.",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ( $iTimeout = $iTillWhen - ( time + $iBuf ) ) <= 5 ) { # Lack of time..
&logError ( 20187,
"<%s> Insufficient time to proceed with external monitor [%s].
Short by [%s] sec", $sMyName, $sCmd, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
#--------------------------------------------
# Return if validation failed at this point..
#--------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
return $iReturnCode;
}
&logTrace ( 20188,
"<%s> Executing external monitor with Command [%s] Args [%s] in [%s] secs",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
#----------------------
# Execute the command..
#----------------------
SAPNW04::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
#------------------------
# Report on exit status..
#------------------------
if ( ! defined $iExitCode ) {
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20189,
"<%s> Command [%s] with args [%s] timed out",
$sMyName, $sCmd, $sCmdArgs );
$iExitCode = 'undef';
}
elsif ( $hiExitCodes { $iExitCode } &&
VCSDef_MonitorExit::ONLINE ==
$hiExitCodes { $iExitCode } ) {
&logTrace ( 20190,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
else {
&logWarn ( 20191,
"<%s> Command [%s] with args [%s] execution failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
#--------------------------------
# Setup appropriate return code..
#--------------------------------
$iReturnCode = $hiExitCodes { $iExitCode } ||
VCSDef_MonitorExit::UNKNOWN;
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ExecLocalCmd ( IN String User,
IN String EnvFile,
IN String Command,
IN String CommandArgs,
OUT RefInt ExitCode,
IN Integer Timeout,
OUT ListReference CmdOut );
Description : Wrapper function for
Sys::RunWithEnvCmdWithOutputWithTimeOut to collect output
of the command.
Parameters :
$sUser UNIX user to run the command as
$sEnvFile Absolute path to location of EnvFile to source
$sCommand Absolute path to location of command
$sCommandArgs Arguments to command
$riExitCode Reference to collect exit code of command
$iTimeout Time limit to execute the command
$rlsCmdOut Stores o/p from command if successful
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ExecLocalCmd {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
$riExitCode,
$iTimeout,
$rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20192, "Subroutine <%s> called with:
User [%s]
EnvFile [%s]
Command [%s]
CommandArgs [%s]
riExitCode [%s]
Timeout [%s]
rlsCmdOut [%s]",
$sMyName,
$sUser, $sEnvFile, $sCommand, $sCommandArgs, $riExitCode,
$iTimeout, $rlsCmdOut );
#---------------------------------------
# Setup return code to hopeful success..
#---------------------------------------
my $iReturnCode = 1;
#-------------------
# Set up arguments..
#-------------------
my $bSourceUserEnv = 0; # Do not source..
my $bTimedOut = 0; # Timeout variable..
@$rlsCmdOut = (); # Reset..
#-----------------------------------
# Verify timeout is greater than 1..
#-----------------------------------
if ( $iTimeout <= 1 ) {
&logError ( 20193,
"<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s].",
$sMyName, $iTimeout, $sCommand, $sCommandArgs );
return 0;
}
#----------------------
# Set LOGNAME to user..
#----------------------
my $sOldLogName = $ENV { LOGNAME }; # Backup..
$ENV { LOGNAME } = $sUser; # Now set..
&logTrace ( 20194,
"<%s> Executing Command [%s] with Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
$iReturnCode = Sys::RunWithEnvCmdWithOutputWithTimeOut ( $sEnvFile,
$bSourceUserEnv,
$sCommand,
$sCommandArgs,
$riExitCode,
$sUser,
$rlsCmdOut,
\$bTimedOut,
$iTimeout );
#---------------------------
# Remove trailing newlines..
#---------------------------
chomp @$rlsCmdOut;
#--------------------
# Check return code..
#--------------------
if ( $iReturnCode ) { # No error with command execution..
if ( $$riExitCode ) { # Failure..
&logTrace ( 20195,
"<%s> Command [%s] with args [%s] returned exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20196,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
}
}
else { # Execution error..
@$rlsCmdOut = (); # Reset..
if ( $bTimedOut ) { # We timed out..
&logError ( 20197,
"<%s> Command [%s] with args [%s] did not complete within [%s] seconds",
$sMyName, $sCommand, $sCommandArgs, $iTimeout );
$$rlsCmdOut [0] = 'timeout'; # Timeout..
}
else { # Failure due to something else..
&logError ( 20198,
"<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut",
$sMyName );
}
}
#----------
# Restore..
#----------
defined $sOldLogName ? $ENV { LOGNAME } = $sOldLogName:delete $ENV { LOGNAME };
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetPidDetails ( IN Integer Pid,
OUT RefList ProcList );
Description : Gets long process details for a known Pid if running
Parameters :
$iPid PID whose details are requested
$rlProcList Ref to List to store details
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetPidDetails {
#----------------
# Get Arguments..
#----------------
my ( $iPid,
$rlProcList ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20199, "Subroutine <%s> called with:
Pid [%s]
rlProcList [%s]",
$sMyName, $iPid, $rlProcList );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------
# Validate PID..
#---------------
unless ( defined $iPid && # Catch undefs..
$iPid =~ /^\d+$/ && # And invalid PIDs..
kill ( 0, $iPid ) ) { # And defunct ones..
&logError ( 20200,
"<%s> PID [%s] is invalid", $sMyName, $iPid );
return 0;
}
#-------------------------
# Define local variables..
#-------------------------
my ( $sPsCmd, $sPsCmdArgs, $sLang, $sFmt, $sUnix95, $sSwitch, $iExitCode,
%hsProc ) = ();
$sSwitch = $^O; # Get OS..
@$rlProcList = (); # Truncate..
#-------------
# Store LANG..
#-------------
$sLang = $ENV { LANG };
$ENV { LANG } = 'C';
#---------------------------
# Switch to the correct OS..
#---------------------------
if("solaris" eq $sSwitch) {
$sPsCmd = "/usr/ucb/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("hpux" eq $sSwitch) {
#-----------------------
# Force XPG4 behaviour..
#-----------------------
$sUnix95 = $ENV { UNIX95 };
$ENV { UNIX95 } = 'XPG4';
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "-p $iPid -xxlo uid,pid,ppid,args";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
elsif("aix" eq $sSwitch) {
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("linux" eq $sSwitch) {
$sPsCmd = "/bin/ps";
$sPsCmdArgs = "wwo uid,pid,ppid,args $iPid";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
&logTrace ( 20201, "<%s> OS [%s] PsCmd [%s] PsCmdArgs [%s]",
$sMyName, $sSwitch, $sPsCmd, $sPsCmdArgs );
#-------------------
# Validate command..
#-------------------
if ( ! -x $sPsCmd ) {
&logError ( 20202,
"<%s> ps(1b) command [%s] is not executable", $sMyName, $sPsCmd );
return 0; # Failure..
}
#-------------------------------
# Fire command and get details..
#-------------------------------
@hsProc { qw ( UID PID PPID COMMAND ) } =
map {
s/\n//; # Chomp..
s/^\s+//; # Strip leading spaces..
/^$sFmt$/o; # Extract fields..
} readpipe ( "$sPsCmd $sPsCmdArgs" ); # From the command..
$iExitCode = $? >> 8; # Get exit code..
#------------------------
# Restore env variables..
#------------------------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG };
defined $sUnix95 ? $ENV { UNIX95 } = $sUnix95:delete $ENV { UNIX95 };
#------------------
# Check exit code..
#------------------
if ( $iExitCode ) {
&logError ( 20203,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sPsCmd, $sPsCmdArgs, $iExitCode );
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
&logWarn ( 20340,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
SAPNW04::DeletePidFile ( $sResourceName );
%hsProc = (); # Truncate..
return 0;
}
#---------------------
# Fill up the bucket..
#---------------------
push ( @$rlProcList, \%hsProc ); # Update..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CreatePidFile ( IN String PidFile,
In Integer Pid );
Description : Creates PID file with given PID
Parameters :
$sPidFile File to create
$iPid PID to store
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CreatePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$iPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20204, "Subroutine <%s> called with:
PidFile [%s]
Pid [%s]",
$sMyName, $sPidFile, $iPid );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------
# Check against undefs..
#-----------------------
unless ( defined $iPid && $iPid =~ /^\d+$/o) {
$iPid ||= 'undef'; # Prevent undefs.
&logError ( 20205, "<%s> PID [%s] is not a valid positive number",
$sMyName, $iPid );
return 0; # Proceed no further..
}
#------------------
# Create PID file..
#------------------
&logTrace ( 20206,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
if ( sysopen ( PIDFILE, $sPidFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print PIDFILE $iPid, "\n"; # Update..
unless ( close ( PIDFILE ) ) {
&logWarn ( 20207,
"<%s> Failed to close PidFile [%s] after update: [%s]",
$sMyName, $sPidFile, $! );
$iReturnCode = 0;
}
}
else {
&logWarn ( 20208,
"<%s> Failed to create PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
$iReturnCode = 0;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool DeletePidFile ( IN String ResourceName );
Description : Deletes PID files for the VCS resource.
Parameters :
$sResourceName ResourceName for which the PID files needs to be deleted.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeletePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sResourceName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20319, "Subroutine <%s> called with:
ResourceName [%s]",
$sMyName, $sResourceName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sPidFileDir, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20320,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
$sPidFileDir = "/tmp/.VRTSSAPNW04/" . $sResourceName . "/PID" ;
if ( -d $sPidFileDir ) {
$iRet = system("/bin/rm -rf $sPidFileDir") ;
if ( $iRet == 0 ) {
&logTrace ( 20321,
"<%s> Successfully deleted PID files in the directory [%s].",
$sMyName, $sPidFileDir );
$iReturnCode = 0;
}
else {
&logWarn ( 20322,
"<%s> Failed to delete PID files in directory [%s]. Remove the files manually.",
$sMyName, $sPidFileDir );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20323,
"<%s> PID files for VCS resource [%s] doesn't exist.",
$sMyName, $sResourceName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecJCMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on jcmon command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to jcmon binary
$sCmdArgs Argument list for jcmon
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecJCMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20209, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20210,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20211,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20212,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20213,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPNW04::GetJCMonStatus ( \@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20214,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20215,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecMsProt ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN String InstType,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on msprot command.
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to msprot binary
$sCmdArgs Argument list for msprot
$sInstType String identifier that classifies the SAP server instance type
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecMsProt {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20324, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
InstType [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $sInstType,
$iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $sEntryPointName, $iExitCode, @lsCmdOut ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20325,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20326,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20327,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20328,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20329,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 4 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20330,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20331,
"<%s> Cmd [%s] failed with exit code [%s]. Returning [%s]",
$sMyName, $sCmd, $iExitCode, $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecEnsMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN String InstType,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on ensmon command.
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to ensmon binary
$sCmdArgs Argument list for ensmon
$sInstType String identifier that classifies the SAP server instance type
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecEnsMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20216, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
InstType [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $sInstType,
$iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $sEntryPointName, $iExitCode, @lsCmdOut ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20217,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20218,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20219,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20220,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20221,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 4 == $iExitCode &&
$sInstType =~ /^(|a|j)enqueue$/io ) {
if ( $sEntryPointName eq 'monitor' ) {
&logCritical ( 20222,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
else {
&logTrace ( 20223,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
elsif ( 8 == $iExitCode ) { # Up already..
if ( $sInstType =~ /^(|a|j)enqueue$/io ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20224,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $iReturnCode );
}
elsif ( $sInstType =~ /^(|a|j)enqrep$/io ) {
&logCritical ( 20225,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20226,
"<%s> Cmd [%s] failed with exit code [%s]. Returning [%s]",
$sMyName, $sCmd, $iExitCode, $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecDpMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Execute dpmon command in given timeout
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to dpmon binary
$sCmdArgs Argument list for dpmon
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecDpMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20332, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20333,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20334,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20335,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20336,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20337,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 156 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20338,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20339,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecSAPInfo ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Execute sapinfo command in given timeout
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapinfo binary
$sCmdArgs Argument list for sapinfo
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecSAPInfo {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20227, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20228,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20229,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20230,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20231,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20232,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 2 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20233,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20234,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetJCMonStatus ( IN RefStrList rlsCmdOut );
Description : Decides on status of SAP Instance based on given jcmon
output.
Parameters :
$rlsCmdOut Reference to list containing output from jcmon execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetJCMonStatus {
#----------------
# Get Arguments..
#----------------
my ( $rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20235, "Subroutine <%s> called with:
rlsCmdOut [%s]",
$sMyName, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $sTmp, $sKey ) = ( '' ) x 2;
my ( $iSrv, $iStopped, $iRunning ) = ( 0 ) x 3;
my %hsCmdOut = map { /\b(dispatcher|server\d*)\b.*?\d\|(.*?)\s*\|/o } @$rlsCmdOut;
foreach $sKey ( sort keys %hsCmdOut ) {
$sTmp .= "Server Name [$sKey] State [$hsCmdOut{$sKey}]\n";
if ( $sKey =~ /server/o ) {
++ $iSrv;
++ $iStopped if $hsCmdOut { $sKey } eq 'Stopped';
++ $iRunning if $hsCmdOut { $sKey } eq 'Running';
}
}
&logTrace ( 20236, "<%s> SAP jcmon status : ---\n%s", $sMyName, $sTmp );
#-----------------
# Check on state..
#-----------------
if ( defined $hsCmdOut { dispatcher } && # Defined..
$hsCmdOut { dispatcher } eq 'Running' && # Dispatcher running..
$iRunning ) { # One server running..
&logTrace ( 20237,
"<%s> Found Dispatcher and [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
elsif ( defined $hsCmdOut { dispatcher } && # Defined..
( $hsCmdOut { dispatcher } eq 'Stopped' || # Dispatcher stopped..
$iStopped == $iSrv ) ) { # or all servers stopped..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20238,
"<%s> Dispatcher or all [%s] server(s) stopped. Returning [%s]",
$sMyName, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20239,
"<%s> Status of SAP instance undecided:\n%sReturning [%s]",
$sMyName, $sTmp, $iReturnCode );
}
( $sTmp, $sKey ) = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineENQGrp ( IN String Sys,
IN String Grp,
IN String Reason,
IN String FaultedNode );
Description : Pre-online trigger for SAPNW04
Parameters :
$sSys System where the group is asked to be made online
$sGrp Group for which preonline has been invoked
$sReason Contains the string MANUAL or FAULT
$sFaultedNode Cluster node where the fault occurred due to FAULT
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineENQGrp {
#----------------
# Get Arguments..
#----------------
my ( $sSys,
$sGrp,
$sReason,
$sFaultedNode ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20240, "Subroutine <%s> called with:
Sys [%s]
Grp [%s]
Reason [%s]
FaultedNode [%s]",
$sMyName,
$sSys, $sGrp, $sReason, $sFaultedNode );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE',
'AENQREP' => 'AENQUEUE',
'JENQREP' => 'JENQUEUE' );
my ( $i, $iExitCode, $sRes, $sDisp, $sGroup, $sNodeName, $sEnqSrvRes,
$sCmdArgs, $sTempNode, $sEnqRes, $sInstType, $sFailHost,
$sKey, $sSAPSID, @lsHaresOut, @lsCpy, @lsValidNodes, @lsEnqReps,
@lsEnques, %hsEnqueues, %hsFltd, %hsEnqReps,
%hsEnqRepGrps, %hsEnqRepHosts, %hsSwEnqReps, %hsOnlineEnqueues ) = ();
my $sOSVer = ();
#---------------------
# Validate arguments..
#---------------------
if ( $sReason eq 'MANUAL' ) {
&logTrace ( 20241,
"<%s> Invoked during a normal switch-over or online.", $sMyName );
}
elsif ( $sSys =~ /\S/ && ! inet_aton ( $sSys ) ) {
&logError ( 20242,
"<%s> Destination cluster node [%s] cannot be resolved",
$sMyName, $sSys );
$iReturnCode = 0; # Error..
}
elsif ( $sFaultedNode ne 'UNDEF' && $sFaultedNode =~ /\S/ && ! inet_aton ( $sFaultedNode ) ) {
&logError ( 20243,
"<%s> Faulted cluster node [%s] cannot be resolved",
$sMyName, $sFaultedNode );
$iReturnCode = 0; # Error..
}
elsif ( ! -e $sCmd ) {
&logError ( 20244,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
elsif ( ! -x $sCmd ) {
&logError ( 20245,
"<%s> Command [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------------------------------------------
# Bug in VCS for FAULT. Verify group is really faulted..
#-------------------------------------------------------
# hasys -list SysState=RUNNING
$sCmd = $sCmdHasys;
$sCmdArgs = "-state";
my ( @lsHasysRunning, @lsHasysFault, @lsHasysOut, %hsHasysRunning, %hsHasysFault ) = ();
@lsHasysOut = readpipe ( "$sCmd $sCmdArgs" );
shift @lsHasysOut;
@lsHasysRunning = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(RUNNING)$/$1/ )
} @lsHasysOut;
@lsHasysFault = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(FAULTED|EXITED)$/$1/ )
} @lsHasysOut;
%hsHasysRunning = map { $_ => 1 } @lsHasysRunning;
&logTrace ( 20246,
"<%s> List of systems where VCS running [%s]",
$sMyName, join ( ' ', @lsHasysRunning ) );
%hsHasysFault = map { $_ => 1 } @lsHasysFault;
&logTrace ( 20247,
"<%s> List of systems where VCS Faulted [%s]",
$sMyName, join ( ' ', @lsHasysFault ) );
$sCmd = $sCmdHares;
$sCmdArgs = "-list Group=$sGrp State=FAULTED";
@lsHaresOut = grep {
( s/\n// || 1 ) &&
s/\s+.*//
} readpipe ( "$sCmd $sCmdArgs" );
#-------------------
# Verify exit code..
#-------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20248,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s].
Group [%s] does not have any faulted resources.",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $sGrp );
#-----------------------------
# Check for node FAULT event..
#-----------------------------
if ( $sFaultedNode eq 'UNDEF' && $sReason eq 'FAULT' ) {
&logWarn ( 20249,
"<%s> Missing faulted node name.
Possible node FAULT event detected", $sMyName );
}
elsif ( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' ) {
&logWarn ( 20250,
"<%s> Missing source node name.", $sMyName );
}
elsif ( ($sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '') eq "5.10" ) {
#---------------------------------------------------------------
# Add zone specific support for Enqueue when zone itself faults.
#---------------------------------------------------------------
&logInfo ( 20251,
"<%s> Checking if the Group [%s] is configured for Solaris non-global zones",
$sMyName, $sGrp );
my $sOut = ();
my @lsOut = ();
my $iCount = ();
$sCmdArgs = "-display -attribute ContainerName -group $sGrp -type SAPNW04";
@lsHaresOut = grep { (s/\n// || 1) } readpipe ( "$sCmd $sCmdArgs" );
shift @lsHaresOut;
foreach $sOut (@lsHaresOut) {
@lsOut = split( '\s+', $sOut);
$iCount = scalar @lsOut;
if( (4 == $iCount) && ($lsOut[2] =~ /$sSys/ || $lsOut[2] =~ /global/) ) {
&logWarn ( 20252,
"<%s> ContainerName attribute is configured.
Possible zone [%s] FAULT event detected", $sMyName, $lsOut[3] );
last;
}
}
}
}
else {
&logTrace ( 20253,
"<%s> Group [%s] has [%s] resource(s) in FAULTED state",
$sMyName, $sGrp, join ( ' ', @lsHaresOut ) );
}
#----------------
# Re-initialise..
#----------------
$sCmdArgs = "-display -type SAPNW04 -attribute " .
"State Group InstType EnqSrvResName SAPSID";
#---------------------------------------------
# Assume the group name is valid and proceed..
#---------------------------------------------
@lsHaresOut = grep { s/\n// || 1 } readpipe ( "$sCmd $sCmdArgs" );
#-----------------------------------------
# Check if command executed successfully..
#-----------------------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20254,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
return 0; # Error..
}
elsif ( $lsHaresOut[0] =~ /10554.*No resource exists with/o ) {
&logError ( 20255,
"<%s> Cmd [%s] with args [%s] failed with reason [%s]",
$sMyName, $sCmd, $sCmdArgs, $lsHaresOut[0] );
return 0; # Error..
}
$sFailHost = $sSys; # Set to default..
push @lsHaresOut, "#"; # Insert trailing de-marker..
@lsCpy = @lsHaresOut; # Backup..
#---------------------------------------------------
# Mark all ENQUEUE/ENQREP resources in given group..
#---------------------------------------------------
@lsEnques =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /Group.*\s+(\S+)/ && # Mark the group name..
( $sGroup = $1 ) && 0 ) || # Store, and always make false..
( s/^(\S+).*InstType.*\s # Mark resource..
((|A|J)ENQ(UEUE|REP))/$1:$2/ix && # If ENQUEUE or ENQREP variant..
++ $i ) || # Set flag..
( $i && # If flag..
s/.*SAPSID.*\s+// ) || # Get the SAPSID..
( $i && # If flag..
s/#/sprintf ( $sGroup, -- $i )/e ) # Print group.. reset flag..
} @lsCpy;
&logTrace ( 20256,
"<%s> Searching ENQUEUE resource in group [%s]", $sMyName, $sGrp );
&logTrace ( 20257,
"<%s> Enques values are [%s]", $sMyName, join(' ', @lsEnques) );
#-------------------
# Start processing..
#-------------------
while ( 3 == ( ( $sRes, $sSAPSID, $sGroup ) = splice ( @lsEnques, 0, 3 ) ) ) {
( $sRes, $sInstType ) = $sRes =~ /([^:]+)/g;
#-------------------------------
# Passed group has ENQ(UE|REP)..
#-------------------------------
if ( $sGrp eq $sGroup ) {
if ( $sInstType =~ /ENQUEUE/io ) {
&logInfo ( 20258,
"<%s> +------- Group [%s] has ENQUEUE variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsEnqueues { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
elsif ( $sInstType =~ /ENQREP/io ) {
&logInfo ( 20259,
"<%s> +------- Group [%s] has ENQREP variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsSwEnqReps { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
}
&logTrace ( 20260,
"<%s> Resource [%s] SAPSID [%s] InstType [%s] found in Group [%s]",
$sMyName, $sRes, $sSAPSID, $sInstType, $sGroup );
}
#-----------------------------------------------
# Find online resources and list their details..
#-----------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise..
$i = 0;
&logTrace ( 20261,
"<%s> Looking for all ONLINE SAPNW04 resources", $sMyName );
@lsEnqReps =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /^(\S+).*Group.*\s+(\S+)/ && # Mark resource, and group name..
( $sGroup = "$1:$2" ) && 0 ) || # Store, and always make false..
( s/.*\s(\S+)\s+ONLINE$/$1/ && ++ $i ) || # If online, get node name, set flag..
( $i && # If flag..
/EnqSrvResName|InstType|SAPSID/ && # and contains one of these..
s/.*\s+// ) || # get the last field..
( $i && # If flag, use demarker..
s/#/sprintf ( $sGroup, -- $i )/e ) # to print the group name.. reset flag..
} @lsCpy; # From the copy..
&logTrace ( 20262,
"<%s> EnqReps [%s]", $sMyName, join(' ', @lsEnqReps) );
while ( 5 == ( ( $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID, $sGroup ) = splice ( @lsEnqReps, 0, 5 ) ) ) {
$sNodeName =~ s/.*://; # Remove cluster component, under GCO..
( $sRes, $sGroup ) = $sGroup =~ /([^:]+)/g;
#----------------------------------
# Store only ENQ(UE|REP) variants..
#----------------------------------
if ( $sInstType =~ /ENQREP/io ) {
&logTrace ( 20263, "<%s> Located ENQREP variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvResName [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsEnqReps { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
elsif ( $sInstType =~ /ENQUEUE/io ) {
$sEnqSrvRes = ""; # Truncate..
&logTrace ( 20264, "<%s> Located ENQUEUE variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsOnlineEnqueues { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
}
#--------------------------------------------
# Validate if group has ENQ(UE|REP) variant..
#--------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
if ( keys %hsEnqueues ) {
&logInfo ( 20265,
"<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s].",
$sMyName, $sGrp, join ( ' ' , keys %hsEnqueues ) );
}
elsif ( keys %hsSwEnqReps ) {
#------------------------------------------
# Get all valid nodes for the faulted REP..
#------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
$sRes = join ( '|', keys %hsSwEnqReps );
$sDisp = join ( ' ', keys %hsSwEnqReps );
&logInfo ( 20266,
"<%s> Failover Group [%s] has ENQREP variant resource(s) [%s]",
$sMyName, $sGrp, $sDisp );
%hsFltd = map { $_ => 1 } # All faulted nodes..
grep { # Grep'ed here..
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*FAULTED/$2/ # Pick all nodes where FAULTed..
} @lsCpy; # From cmd output..
@lsCpy = @lsHaresOut; # Re-initialise.
@lsValidNodes =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*LINE/$2/ || # Pick the node not FAULTed..
s/^($sRes).*EnqSrvResName.*\s+(\S+)/::$2/ # And EnqSrvResName..
} @lsCpy; # From cmd output..
#-------------------------------------------------
# Now extract EnqSrvResName and configured nodes..
#-------------------------------------------------
@lsCpy = @lsValidNodes; # Re-use..
@lsValidNodes = (); # Truncate..
foreach $sKey ( @lsCpy ) {
if ( $sKey =~ /^::/ ) { # EnqResName found..
( $sEnqRes = $sKey ) =~ s/:://;
}
else {
$sKey =~ s/.*://; # Remove cluster component, under GCO..
push ( @lsValidNodes, $sKey ) unless $hsFltd { $sKey };
}
}
&logTrace ( 20267,
"<%s> Nodes on which Service Group not in FALUTED state [%s]",
$sMyName, join(' ', @lsValidNodes) );
( $sRes ) = keys %hsSwEnqReps; # Take one..
#--------------------
# Remove duplicates..
#--------------------
%hsFltd = (); # Truncate..
@lsValidNodes = grep { ! $hsFltd { $_ } ++ } @lsValidNodes;
&logTrace ( 20268,
"<%s> One of ENQREP resource(s) [%s] defines EnqSrvResName as [%s].
Details for ENQREP resource [%s]:
InstType [%s] SAPSID [%s]. Possible failover nodes [%s]",
$sMyName, $sDisp, $sEnqRes, $sRes,
${ $hsSwEnqReps { $sRes } } [1], ${ $hsSwEnqReps { $sRes } } [0],
join ( ' ', @lsValidNodes ) );
#--------------------------------------------------------
# Check if the node on which service group is configured
# is Running at this moment..
#--------------------------------------------------------
@lsValidNodes = grep { $hsHasysRunning { $_ } } @lsValidNodes;
&logTrace ( 20269,
"<%s> Valid nodes for ENQREP failover targets [%s]",
$sMyName, join ( ' ', @lsValidNodes ) );
#--------------------------
# If online ENQUEUE found..
#--------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } ) {
&logTrace ( 20270,
"<%s> Details for defined ENQUEUE resource [%s]:
InstType [%s] SAPSID [%s] online on node [%s]",
$sMyName, $sEnqRes, ${ $hsOnlineEnqueues { $sEnqRes } } [2],
${ $hsOnlineEnqueues { $sEnqRes } } [-2],
${ $hsOnlineEnqueues { $sEnqRes } } [-1] );
}
else {
&logWarn ( 20271,
"<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster", $sMyName );
}
#-----------------------------
# Now validate EnqSrvResName..
#-----------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } && # Defined..
( $hsInstMatch { ${ $hsSwEnqReps { $sRes } } [1] } eq # InstType pair..
${ $hsOnlineEnqueues { $sEnqRes } } [2] ) && # is a match..
( ${ $hsSwEnqReps { $sRes } } [0] eq # SAPSID..
${ $hsOnlineEnqueues { $sEnqRes } } [-2] ) ) { # matches..
$sTempNode = ${ $hsOnlineEnqueues { $sEnqRes } } [-1]; # Get the online node..
( $sFailHost ) = grep { # Find the node other than..
! /^($sTempNode|$sFaultedNode)$/o && # ENQUEUE online or faulted..
! $hsHasysFault{$_} # nodes faulted..
} @lsValidNodes; # From all posibilities..
#---------------------------------------------------
# Check if we are in a position to failover safely..
#---------------------------------------------------
if ( $sFaultedNode ne 'UNDEF' || $sReason ne 'MANUAL' ||
( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' && (scalar @lsHasysFault || $sTempNode eq $sSys)) ) {
if ( defined $sFailHost ) {
&logInfo ( 20272,
"<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s]",
$sMyName, $sTempNode, $sGrp, $sFailHost );
}
else { # Prevent onlining..
&logError ( 20273,
"<%s> Could not locate any node to online Group [%s]",
$sMyName, $sGrp );
return $iReturnCode; # Error.. Prevent online of ENQREP..
}
}
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20274,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20275,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
else {
&logError ( 20276,
"<%s> Failover group [%s] does not have any online ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
}
else {
&logInfo ( 20277,
"<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
&logTrace ( 20278,
"<%s> +----- ENQREP online node and group details -----+", $sMyName );
#----------------------------------------------
# Remove ENQREPs whose EnqRepSrv aren't found..
#----------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ! $hsEnqueues { ${$hsEnqReps { $sKey } }[1] } ) { # Not in passed group..
&logTrace ( 20279,
"<%s> EnqResName [%s] resource not found in Grp [%s].
Marked resource [%s] invalid",
$sMyName, ${$hsEnqReps { $sKey } }[1], $sGrp, $sKey );
delete $hsEnqReps { $sKey }; # Then delete..
}
else {
++ $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Else store online node..
++ $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Else store group..
&logTrace ( 20280,
"<%s> Online node [%s] Group [%s]",
$sMyName, ${$hsEnqReps{$sKey}}[-1], ${$hsEnqReps{$sKey}}[0] );
}
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
if ( ! keys %hsEnqReps && $sReason ne 'MANUAL' ) {
$sFailHost = $sSys; # Fail-over to the default node..
&logCritical ( 20281,
"<%s> Corresponding ENQREP server(s) not found ONLINE in cluster.
Onlining group [%s] on node [%s]", $sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20282,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20283,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
#-----------------------------------------------
# Check if we have ENQREPs in different groups..
#-----------------------------------------------
if ( keys %hsEnqRepGrps > 1 ) {
&logCritical ( 20284,
"<%s> ENQREP configured in different service groups [%s]",
$sMyName, join ( ' ', keys %hsEnqRepGrps ) );
}
#----------------------------------------------
# Now check if we have a unique failover node..
#----------------------------------------------
if ( keys %hsEnqRepHosts > 1 ) {
&logCritical ( 20285,
"<%s> ENQREP found online on different nodes [%s]",
$sMyName, join ( ' ', keys %hsEnqRepHosts ) );
#------------------------------------------
# Delete entries for all other than JENQREP..
#------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ${$hsEnqReps { $sKey } }[2] ne 'JENQREP' ) {
&logError ( 20286,
"<%s> Marking resource [%s] with InstType [%s] as invalid",
$sMyName, $sKey, ${$hsEnqReps { $sKey } }[2] );
#--------------------------
# Delete in correct order..
#--------------------------
delete $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Delete node first..
delete $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Delete group next..
delete $hsEnqReps { $sKey }; # Now the resource..
}
}
}
#-------------------------
# Find out failover node..
#-------------------------
foreach $sKey ( keys %hsEnqReps ) {
&logTrace ( 20287,
"<%s> EnqRep server [%s] details:
Group [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s] online on [%s]",
$sMyName, $sKey,
${ $hsEnqReps { $sKey } }[0], ${ $hsEnqReps { $sKey } }[1],
${ $hsEnqReps { $sKey } }[2], ${ $hsEnqReps { $sKey } }[3],
${ $hsEnqReps { $sKey } }[4] );
#-----------------------------------------------------------
# Enqueue has been defined in EnqResName of ENQREP variant..
#-----------------------------------------------------------
if ( scalar @{ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } } ) { # EnqResName is correct..
if ( ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0] ne # SAPSID of ENQUEUE variant..
${$hsEnqReps { $sKey }}[3] ) { # ne SAPSID of ENQREP..
&logError ( 20288,
"<%s> SAPSID [%s] of ENQREP resource [%s] differs from
SAPSID [%s] of ENQUEUE resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[3], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqReps { $sKey } }[1] );
}
elsif ( uc ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1] ne # ENQUEUE variant..
$hsInstMatch { uc ${$hsEnqReps {$sKey }}[2] } ) { # not correct match..
&logError ( 20289,
"<%s> InstType [%s] of ENQREP resource [%s] not a match for
InstType [%s] of ENQUEUE resource [%s]", $sMyName,
${$hsEnqReps { $sKey }}[2], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqReps { $sKey } }[1] );
}
else { # All okay..
&logTrace ( 20290,
"<%s> EnqSrvResName [%s] matches with:
ENQUEUE SAPSID [%s] InsType [%s] Group [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[2] );
#-----------------------------------------------------
# Failover to ENQREP's node, if not the FAULTED node..
#-----------------------------------------------------
$sFailHost = ${ $hsEnqReps { $sKey } }[-1] eq $sFaultedNode ? $sSys :
${ $hsEnqReps { $sKey } }[-1];
}
}
else { # EnqResName is wrong..
&logError ( 20291,
"<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1], $sKey );
}
}
&logInfo ( 20292, "<%s> Failing over Group [%s] to node [%s]",
$sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20293, "<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
}
else {
&logError ( 20294,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
$iReturnCode = 0; # Do nothing..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineGrp ( IN String Grp,
IN String Sys );
Description : Pre-online trigger for SAPNW04
Parameters :
$Grp Cluster group to online
$sSys System where the group is asked to be made online
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineGrp {
#----------------
# Get Arguments..
#----------------
my ( $sGrp,
$sSys ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20295, "Subroutine <%s> called with:
Grp [%s]
Sys [%s]",
$sMyName, $sGrp, $sSys );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHagrp; # Get global..
my @lsCmdArgs = ( "-online", "-nopre", "$sGrp", "-sys", "$sSys" );
my $iExitCode = undef;
&logTrace ( 20296, "<%s> Executing Command [%s] with arguments [%s]",
$sMyName, $sCmd, join( ' ', @lsCmdArgs ) );
#-------------------------------
# Validate and execute command..
#-------------------------------
if ( ! -e $sCmd ) {
&logError ( 20297,
"<%s> Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCmd ) {
&logError ( 20298,
"<%s> Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
else { # Execute..
&logTrace ( 20299,
"<%s> Executing Cmd [%s] with args [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ) );
system ( $sCmd, @lsCmdArgs ); # Execute..
#-------------------------
# Check execution status..
#-------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20300,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20301,
"<%s> Cmd [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetVersionInfo ( IN String SAPSid,
IN String InstName,
IN String SAPAdmin,
IN String EnvFile,
IN Integer Timeout);
Description : Get the kernel version of jlaunch
Parameters :
$sSAPSid SAPSID attribute of the SAP resource
$sInstName Instance name attribute of the SAP resource
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$iTimeout Time in seconds for execution
$riVersion Reference to version of jlaunch
Returns : integer value which represents the kernel version of jlaunch
-------------------------------------------------------------------------
=cut
sub GetVersionInfo {
#----------------
# Get Arguments..
#----------------
my ( $sSAPSid,
$sInstName,
$sSAPAdmin,
$sEnvFile,
$iTimeout,
$riVersion ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20341, "Subroutine <%s> called with:
sSAPSid [%s]
InstName [%s]
SAPAdmin [%s]
EnvFile [%s]
Timeout [%s]",
$sMyName,
$sSAPSid,$sInstName,$sSAPAdmin, $sEnvFile, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut,$sVersionFile,$iVersion ,$sCmd,$sCmdArgs) = ();
$iVersion = 0 ;
#---------------------------------------------
# Attempt to get the kernel version.
#---------------------------------------------
$sVersionFile = "/tmp/.VRTSSAPNW04/" . $sSAPSid . "_" . $sInstName . "_". "versionfile";
if ( ! -e $sVersionFile ) {
&logTrace ( 20342, "<%s> Version file [%s] does not exist",
$sMyName, $sVersionFile );
}
elsif ( ! -s $sVersionFile ) {
&logTrace ( 20343, "<%s> Version file [%s] is of zero bytes",
$sMyName, $sVersionFile );
}
elsif ( open ( VERSIONFILE, $sVersionFile ) ) {
( $iVersion ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iVersion = '' unless defined $iVersion; # Avoid undefs..
close ( VERSIONFILE ) || # Close file..
&logTrace ( 20344,
"<%s> Could not close Version file [%s] after read [%s]",
$sMyName, $sVersionFile, $! );
$$riVersion = $iVersion; # Store.
return $iReturnCode;
}
else {
&logTrace ( 20345,
"<%s> Failed to open Version file [%s] for read: [%s]",
$sMyName, $sVersionFile, $! );
}
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCmd = "/usr/sap/$sSAPSid/SYS/exe/run/sapcontrol";
$sCmdArgs = "-nr $iInstID -function GetVersionInfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20346,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20347,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20348,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20349,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get version of jlaunch.
#------------------------------------------------------
foreach ( @lsCmdOut ) {
if ( $_ =~ /\b(jlaunch)\b\,\s*(\d+)\b/io)
{
$iVersion = $2 ;
$$riVersion = $2 ; # Store.
}
}
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20351,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20352,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
#------------------
# Create Version file..
#------------------
&logTrace ( 20353,
"<%s> Creating Version file [%s]",
$sMyName, $sVersionFile);
if ( sysopen ( VERSIONFILE, $sVersionFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print VERSIONFILE $iVersion, "\n"; # Update..
unless ( close ( VERSIONFILE ) ) {
&logWarn ( 20354,
"<%s> Failed to close VersionFile [%s] after update: [%s]",
$sMyName, $sVersionFile, $! );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logWarn ( 20355,
"<%s> Failed to create VersionFile [%s] with Version [%s]",
$sMyName, $sVersionFile, $iVersion );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool DeleteVersionFile ( IN String SAPSid,
IN String InstName );
Description : Deletes version file for kernel.
Parameters :
$sSAPSid SAPSID attribute of the SAP resource
$sInstName Instance name attribute of the SAP resource
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeleteVersionFile {
#----------------
# Get Arguments..
#----------------
my ( $sSAPSid,$sInstName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20356, "Subroutine <%s> called with:
SAPSid [%s]
InstName [%s]",
$sMyName, $sSAPSid, $sInstName);
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sVersionFile, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20357,
"<%s> Deleting version file.",
$sMyName);
$sVersionFile = "/tmp/.VRTSSAPNW04/" . $sSAPSid . "_" . $sInstName . "_". "versionfile"; ;
if ( -f $sVersionFile ) {
$iRet = system("/bin/rm -rf $sVersionFile") ;
if ( $iRet == 0 ) {
&logTrace ( 20358,
"<%s> Successfully deleted version file[%s].",
$sMyName, $sVersionFile );
$iReturnCode = 0;
}
else {
&logWarn ( 20359,
"<%s> Failed to delete version file [%s]. Remove the file manually.",
$sMyName, $sVersionFile );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20360,
"<%s> Version file [%s] doesn't exist.",
$sMyName, $sVersionFile );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecGetProcList ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on sapcontrol command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapcontrol binary
$sCmdArgs Argument list for sapcontrol
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecGetProcList {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20361, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20362,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20363,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20364,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
$iReturnCode = SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
if( defined $iExitCode ){
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20365,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPNW04::GetSapControlStatus (\@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20366,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif( $iExitCode == 4 ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20367,
"<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped",
$sMyName, $sCmd );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20368,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetSapControlStatus ( IN RefStrList CmdOut );
Description : Decides on status of SAP Instance based on given sapcontrol
output.
Parameters :
$rlsCmdOut Reference to list containing output from sapcontrol execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetSapControlStatus {
#----------------
# Get Arguments..
#----------------
my ( $rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20369, "Subroutine <%s> called with:
rlsCmdOut [%s]",
$sMyName, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $iSrv, $iRunning ) = ( 0 ) x 2;
foreach ( @$rlsCmdOut ) {
if ( $_ =~ /\b(Dispatcher)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
&logTrace ( 20370, "<%s> Dispatcher is in running state",$sMyName );
last;
}
}
#-----------------
# Check on state..
#-----------------
if ( $iRunning ) { # One server running..
&logTrace ( 20371,
"<%s> Found [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20372,
"<%s> Status of SAP instance undecided.\nReturning [%s]",
$sMyName, $iReturnCode );
}
return $iReturnCode;
}
1; # So PERL knows its included..
./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTS/ 0000755 0000000 0000000 00000000000 13320062025 016274 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTS/messages/ 0000755 0000000 0000000 00000000000 13320062025 020103 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTS/messages/en/ 0000755 0000000 0000000 00000000000 13320062025 020505 5 ustar root root ./pkgs/VRTSsapnw04/VRTSsapnw04/opt/VRTS/messages/en/VRTSvcsHPSAPNW04.bmc 0000555 0000000 0000000 00000032676 13320062025 023726 0 ustar root root G• R|ãSen HAD U N! O” @ | Ð Öá N! Nw | N N˜ Ø N¡ NÄ @ NÏ Ot Ð O{ O” h Ðÿÿÿÿ _ ¢ Ó O ˆ ï K § ` Á
_
‡
´
æ _ÿÿÿÿÿÿÿÿ †ÿÿÿÿ Ãÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ /ÿÿÿÿÿÿÿÿÿÿÿÿ Zÿÿÿÿ ›ÿÿÿÿÿÿÿÿÿÿÿÿ Æ
9
n
µÿÿÿÿÿÿÿÿ
óÿÿÿÿ - sÿÿÿÿ ›ÿÿÿÿ Ï ýÿÿÿÿ :ÿÿÿÿÿÿÿÿÿÿÿÿ jÿÿÿÿ ¦ÿÿÿÿÿÿÿÿ Íÿÿÿÿ 3 z  ü ; x £ Ëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ûÿÿÿÿ " Vÿÿÿÿÿÿÿÿ ˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ éÿÿÿÿ @ÿÿÿÿ l ·ÿÿÿÿÿÿÿÿÿÿÿÿ óÿÿÿÿÿÿÿÿ %ÿÿÿÿ P Š  ïÿÿÿÿÿÿÿÿÿÿÿÿ 'ÿÿÿÿÿÿÿÿ ]ÿÿÿÿ ½ÿÿÿÿÿÿÿÿ üÿÿÿÿ Gÿÿÿÿ o ¡ Îÿÿÿÿÿÿÿÿ Eÿÿÿÿ Œÿÿÿÿ ´ Ü ÿÿÿÿÿÿÿÿ E ™ÿÿÿÿ Ö G wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ » ÿ C ºÿÿÿÿ ë tÿÿÿÿ ¦ÿÿÿÿ ÿÿÿÿ Kÿÿÿÿÿÿÿÿÿÿÿÿ ˜ Ùÿÿÿÿ ùÿÿÿÿ + jÿÿÿÿ žÿÿÿÿ Úÿÿÿÿÿÿÿÿ > „ÿÿÿÿ Î ÿÿÿÿ F q ·ÿÿÿÿ kÿÿÿÿ ° ! !Nÿÿÿÿ !v !¡ !çÿÿÿÿ "1 "‡ "×ÿÿÿÿÿÿÿÿÿÿÿÿ # #[ÿÿÿÿÿÿÿÿ #˜ #Ñ #ù $$ÿÿÿÿÿÿÿÿÿÿÿÿ $n $” $æ %Aÿÿÿÿ %€ %¼ÿÿÿÿÿÿÿÿ %ù &5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ &{ &¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ '
'X '“ 'È ( (U (ÿÿÿÿÿÿÿÿÿÿÿÿ ) ); )y )¸ )ð *0ÿÿÿÿ *’ *ûÿÿÿÿ +D +u +ª +èÿÿÿÿÿÿÿÿ , ,3ÿÿÿÿ ,r ,šÿÿÿÿ ,áÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ - -: -q -²ÿÿÿÿ -ì . .Dÿÿÿÿ .iÿÿÿÿÿÿÿÿÿÿÿÿ .¾ .æÿÿÿÿ / /9 /ÿÿÿÿ /É 0 0_ÿÿÿÿ 0‡ 0² 0øÿÿÿÿ 1B 1˜ 1è 2 2H 2Žÿÿÿÿÿÿÿÿ 2Ø 3(ÿÿÿÿ 3h 3¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 3ò 4 4Eÿÿÿÿ 4‹ 4Õ 51ÿÿÿÿÿÿÿÿÿÿÿÿ 5 E%s:<%s> The following mandatory fields were not set [%s]. Total [%s] B%s:<%s> StartProfile [%s] not terminated with valid hostname [%s] ?%s:<%s> Last two characters of InstName [%s] not between 00-99 -%s:<%s> SAPAdmin [%s] not a valid UNIX login B%s:<%s> SAPSID [%s] has to be exactly 3 non-white characters long 2%s:<%s> SAPSID [%s] has to begin with an alphabet 5%s:<%s> InstType [%s] invalid. Has to be one of [%s] c%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least one of [dw jc] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] Y%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least [en] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] ]%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least [er enr] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] >%s:<%s> EnqSrvResName [%s] invalid resource of Type [SAPNW04] $%s:<%s> EnvFile [%s] does not exist )%s:<%s> StartProfile [%s] does not exist .%s:<%s> SAPMonHome [%s] not a valid directory +%s:<%s> MonitorProgram [%s] not executable F%s:<%s> Some of the attributes could not be validated. Returning [%s] #%s:<%s> Could not log successfully 9%s:<%s> Persistent processes exist for SAP instance [%s] 8%s:<%s> Failed to execute cleanipc. Returning with [%s] ,%s:<%s> Failed to remove stale file(s) [%s] '%s:<%s> Cmd [%s] timed out in [%s] sec =%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] '%s:<%s> Cmd [%s] timed out in [%s] sec =%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] .%s:<%s> SAP start command [%s] does not exist 1%s:<%s> SAP start command [%s] is not executable C%s:<%s> In-sufficient time [%s] to execute Cmd [%s] with Args [%s] :%s:<%s> Confirmed start-up of SAP Instance with PIDs [%s] 6%s:<%s> Cmd [%s] with Args [%s] timed out in [%s] sec B%s:<%s> Cmd [%s] failed with exit code [%s]:[%s]. Cmd output [%s] $%s:<%s> Sending SIGINT to PIDs [%s] 0%s:<%s> Confirmed shutdown of SAP Instance [%s] *%s:<%s> Failed to send SIGINT to PID [%s] 9%s:<%s> Persistent processes exist for SAP instance [%s] ,%s:<%s> Failed to remove stale file(s) [%s] 8%s:<%s> Failed to execute cleanipc. Returning with [%s] #%s:<%s> Could not log successfully :%s:<%s> Attempting to shutdown SAP Instance [%s] normally $%s:<%s> Sending SIGINT to PIDs [%s] C%s:<%s> Sucessfully sent SIGINT to PIDs [%s]. Waiting for [%s] sec D%s:<%s> Failed to give SIGINT to PIDs [%s]. Proceeding with SIGKILL 6%s:<%s> Proceeding with SIGKILL for SAP Instance [%s] ;%s:<%s> Confirmed no processes exist for SAP instance [%s] 9%s:<%s> Persistent processes exist for SAP instance [%s] '%s:<%s> Executed cleanipc successfully $%s:<%s> Failed to execute cleanipc. ,%s:<%s> Failed to remove stale file(s) [%s] #%s:<%s> Could not log successfully 0%s:<%s> Failed to get details with ProcMon [%s] >%s:<%s> Call to get process list did not return any processes M%s:<%s> Missing sapstart process. Found master dw process PID [%s] PPID [%s] S%s:<%s> Missing process [%s], though 'dw' master [%s] exists. Retrying in [%s] sec (%s:<%s> Missing jc after recursive call G%s:<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec 8%s:<%s> Missing sapstart process in first level monitor .%s:<%s> Called with empty [%s] process string '%s:<%s> PID file [%s] is of zero bytes 6%s:<%s> Could not close PID file [%s] after read [%s] 4%s:<%s> Failed to open PID file [%s] for read: [%s] )%s:<%s> Failed to create PID folder [%s] 4%s:<%s> Attribute validation failed. Returning [%s] 2%s:<%s> SAP Instance [%s] NOT online. Status [%s] \%s:<%s> SAP Instance [%s] NOT online with external monitor [%s] with args [%s]. Status [%s] ;%s:<%s> Cmd [%s] with Args [%s] failed with exit code [%s] G%s:<%s> Resource [%s] not a matching ENQUEUE variant for this resource $%s:<%s> EnvFile [%s] does not exist .%s:<%s> SAPMonHome [%s] not a valid directory )%s:<%s> StartProfile does not exist [%s] 9%s:<%s> Failed to close log file [%s] after update: [%s] 6%s:<%s> Failed to open log file [%s] for update: [%s] C%s:<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s] $%s:<%s> Command [%s] does not exist $%s:<%s> Command [%s] does not exist '%s:<%s> Command [%s] is not executable :%s:<%s> Command [%s] with args [%s] timed out in [%s] sec P%s:<%s> Command [%s] with args [%s] failed with exit code [%s]. Cmd output [%s] 9%s:<%s> Failed to close log file [%s] after update: [%s] 6%s:<%s> Failed to open log file [%s] for update: [%s] 3%s:<%s> PIDs not killed [%s] Total not killed [%s] ,%s:<%s> Killed PIDs [%s] Total killed: [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] s%s:<%s> Encountered unsupported InstType [%s]. Has to be one of [enqueue aenqueue jenqueue enqrep aenqrep jenqrep] -%s:<%s> External monitor [%s] does not exist .%s:<%s> External monitor [%s] not executable. S%s:<%s> Insufficient time to proceed with external monitor [%s]. Short by [%s] sec .%s:<%s> Command [%s] with args [%s] timed out Z%s:<%s> Command [%s] with args [%s] execution failed with exit code [%s]. Cmd output [%s] C%s:<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s]. I%s:<%s> Command [%s] with args [%s] did not complete within [%s] seconds =%s:<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut %s:<%s> PID [%s] is invalid .%s:<%s> ps(1b) command [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] 0%s:<%s> PID [%s] is not a valid positive number 8%s:<%s> Failed to close PidFile [%s] after update: [%s] 5%s:<%s> Failed to create PID file [%s] with PID [%s] '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] f%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Replication Server!! A%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s] Z%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Server!! <%s:<%s> Cmd [%s] failed with exit code [%s]. Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] A%s:<%s> Dispatcher or all [%s] server(s) stopped. Returning [%s] ;%s:<%s> Status of SAP instance undecided:
%sReturning [%s] 9%s:<%s> Destination cluster node [%s] cannot be resolved 5%s:<%s> Faulted cluster node [%s] cannot be resolved $%s:<%s> Command [%s] does not exist '%s:<%s> Command [%s] is not executable F%s:<%s> Missing faulted node name. Possible node FAULT event detected "%s:<%s> Missing source node name. N%s:<%s> Checking if the Group [%s] is configured for Solaris non-global zones W%s:<%s> ContainerName attribute is configured. Possible zone [%s] FAULT event detected ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] 8%s:<%s> Cmd [%s] with args [%s] failed with reason [%s] 9%s:<%s> +------- Group [%s] has ENQUEUE variant -------+ 8%s:<%s> +------- Group [%s] has ENQREP variant -------+ B%s:<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s]. @%s:<%s> Failover Group [%s] has ENQREP variant resource(s) [%s] G%s:<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster J%s:<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s] 7%s:<%s> Could not locate any node to online Group [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] K%s:<%s> Failover group [%s] does not have any online ENQ(UEUE|REP) variant D%s:<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant e%s:<%s> Corresponding ENQREP server(s) not found ONLINE in cluster. Onlining group [%s] on node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] ;%s:<%s> ENQREP configured in different service groups [%s] 4%s:<%s> ENQREP found online on different nodes [%s] <%s:<%s> Marking resource [%s] with InstType [%s] as invalid ^%s:<%s> SAPSID [%s] of ENQREP resource [%s] differs from SAPSID [%s] of ENQUEUE resource [%s] e%s:<%s> InstType [%s] of ENQREP resource [%s] not a match for InstType [%s] of ENQUEUE resource [%s] E%s:<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s] -%s:<%s> Failing over Group [%s] to node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] %s:<%s> Cmd [%s] does not exist #%s:<%s> Cmd [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] $%s:<%s> SAP Cmd [%s] does not exist C%s:Agent called with unsupported entry point specification of [%s] /%s:<%s> Resource [%s] started up successfully. "%s:<%s> Failed to online resource 3%s:<%s> Processes for resource instance already up =%s:<%s> Attempt to online resource instance in invalid state 6%s:<%s> Processes for resource instance down already. -%s:<%s> Shutdown resource [%s] successfully. #%s:<%s> Failed to offline resource !%s:<%s> Failed to clean resource Q%s:<%s> Failed to delete PID files in directory [%s]. Remove the files manually. $%s:<%s> SAP Cmd [%s] does not exist $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] <%s:<%s> Cmd [%s] failed with exit code [%s]. Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] 1%s:<%s> Deleting PID files for VCS resource [%s] '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] <%s:<%s> Failed to close VersionFile [%s] after update: [%s] <%s:<%s> Failed to create VersionFile [%s] with Version [%s] F%s:<%s> Failed to delete version file [%s]. Remove the file manually. $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] X%s:<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] 9%s:<%s> Status of SAP instance undecided.
Returning [%s] ./pkgs/VRTSsapwebas71/ 0000555 0000000 0000000 00000000000 13320062025 013340 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/ 0000755 0000000 0000000 00000000000 13320062025 016036 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/ 0000755 0000000 0000000 00000000000 13320062025 016611 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 020611 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 021201 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/ 0000755 0000000 0000000 00000000000 13320062025 022126 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/ 0000755 0000000 0000000 00000000000 13320062025 023603 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.hpux.xml 0000555 0000000 0000000 00000012267 13320062025 030023 0 ustar root root
1
/opt/VRTSagents/ha/bin/SAPWebAS71
/opt/VRTSvcsone/bin/Script50Agent
"ResLogLevel"
"State"
"IState"
"EnvFile"
"SAPAdmin"
"InstProfile"
"InstType"
"ProcMon"
"EnqSrvResName"
"SecondLevelMonitor"
"MonitorProgram"
1
"5.1.0.0"
0
1
55025
"5.1.0.0"
0
1
1
2
INFO
1
3
1
1
4
1
1
5
1
1
6
APPSERV
1
7
1
1
8
0
1
9
0
1
10
0
./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/main.cf 0000555 0000000 0000000 00000032471 13320062025 025051 0 ustar root root include "types.cf"
include "SAPWebAS71Types.cf"
cluster acclinux1 (
UserNames = { admin = dijBidIfjEjjHrjDig }
Administrators = { admin }
)
system vcslx202 (
)
system vcslx203 (
)
group SAP71-AS1AAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1AAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.55"
NetMask = "255.255.254.0"
)
NIC SAP71-AS1AAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-AS1AAS_sap (
Critical = 0
EnvFile = "/home/as1adm/.login"
SAPAdmin = as1adm
InstProfile = "/usr/sap/AS1/SYS/profile/AS1_D13_sapas1aas"
ProcMon = "dw se ig"
SecondLevelMonitor = 1
)
SAP71-AS1AAS_ip requires SAP71-AS1AAS_nic
SAP71-AS1AAS_sap requires SAP71-AS1AAS_ip
// resource dependency tree
//
// group SAP71-AS1AAS
// {
// SAPWebAS71 SAP71-AS1AAS_sap
// {
// IP SAP71-AS1AAS_ip
// {
// NIC SAP71-AS1AAS_nic
// }
// }
// }
group SAP71-AS1DB (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1DB_ip (
Critical = 0
Device = eth0
Address = "10.209.73.51"
NetMask = "255.255.254.0"
)
NIC SAP71-AS1DB_nic (
Device = eth0
)
SAP71-AS1DB_ip requires SAP71-AS1DB_nic
// resource dependency tree
//
// group SAP71-AS1DB
// {
// IP SAP71-AS1DB_ip
// {
// NIC SAP71-AS1DB_nic
// }
// }
group SAP71-AS1ERS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1ERS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.53"
NetMask = "255.255.254.0"
)
NIC SAP71-AS1ERS_nic (
Device = eth0
)
SAPWebAS71 SAP71-AS1ERS_ers (
Critical = 0
EnvFile = "/home/as1adm/.login"
SAPAdmin = as1adm
InstProfile = "/usr/sap/AS1/ERS14/profile/AS1_ERS14_sapas1ers"
InstType = ENQREP
ProcMon = er
EnqSrvResName = SAP71-AS1SCS_scs
SecondLevelMonitor = 1
)
SAP71-AS1ERS_ers requires SAP71-AS1ERS_ip
SAP71-AS1ERS_ip requires SAP71-AS1ERS_nic
// resource dependency tree
//
// group SAP71-AS1ERS
// {
// SAPWebAS71 SAP71-AS1ERS_ers
// {
// IP SAP71-AS1ERS_ip
// {
// NIC SAP71-AS1ERS_nic
// }
// }
// }
group SAP71-AS1MNT (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
Parallel = 1
)
// resource dependency tree
//
// group SAP71-AS1MNT
// {
// }
group SAP71-AS1NFS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1NFS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.56"
NetMask = "255.255.254.0"
)
NFS SAP71-AS1NFS_nfs (
Critical = 0
)
NIC SAP71-AS1NFS_nic (
Device = eth0
)
Share SAP71-AS1NFS_share (
Enabled = 0
)
SAP71-AS1NFS_ip requires SAP71-AS1NFS_nic
SAP71-AS1NFS_share requires SAP71-AS1NFS_nfs
// resource dependency tree
//
// group SAP71-AS1NFS
// {
// IP SAP71-AS1NFS_ip
// {
// NIC SAP71-AS1NFS_nic
// }
// Share SAP71-AS1NFS_share
// {
// NFS SAP71-AS1NFS_nfs
// }
// }
group SAP71-AS1PAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1PAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.54"
NetMask = "255.255.254.0"
)
NIC SAP71-AS1PAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-AS1PAS_sap (
Critical = 0
EnvFile = "/home/as1adm/.login"
SAPAdmin = as1adm
InstProfile = "/usr/sap/AS1/SYS/profile/AS1_DVEBMGS12_sapas1pas"
ProcMon = "dw co se ig"
SecondLevelMonitor = 1
)
SAP71-AS1PAS_ip requires SAP71-AS1PAS_nic
SAP71-AS1PAS_sap requires SAP71-AS1PAS_ip
// resource dependency tree
//
// group SAP71-AS1PAS
// {
// SAPWebAS71 SAP71-AS1PAS_sap
// {
// IP SAP71-AS1PAS_ip
// {
// NIC SAP71-AS1PAS_nic
// }
// }
// }
group SAP71-AS1SCS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-AS1SCS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.52"
NetMask = "255.255.254.0"
)
NIC SAP71-AS1SCS_nic (
Device = eth0
)
SAPWebAS71 SAP71-AS1SCS_scs (
Critical = 0
EnvFile = "/home/as1adm/.login"
SAPAdmin = as1adm
InstProfile = "/usr/sap/AS1/SYS/profile/AS1_ASCS11_sapas1scs"
InstType = ENQUEUE
ProcMon = "en ms"
)
SAP71-AS1SCS_ip requires SAP71-AS1SCS_nic
SAP71-AS1SCS_scs requires SAP71-AS1SCS_ip
// resource dependency tree
//
// group SAP71-AS1SCS
// {
// SAPWebAS71 SAP71-AS1SCS_scs
// {
// IP SAP71-AS1SCS_ip
// {
// NIC SAP71-AS1SCS_nic
// }
// }
// }
group SAP71-CE1AAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1AAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.61"
NetMask = "255.255.254.0"
)
NIC SAP71-CE1AAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-CE1AAS_sap (
Critical = 0
EnvFile = "/home/ce1adm/.login"
SAPAdmin = ce1adm
InstProfile = "/usr/sap/CE1/SYS/profile/CE1_J17_sapce1aas"
ProcMon = "jc ig"
)
SAP71-CE1AAS_ip requires SAP71-CE1AAS_nic
SAP71-CE1AAS_sap requires SAP71-CE1AAS_ip
// resource dependency tree
//
// group SAP71-CE1AAS
// {
// SAPWebAS71 SAP71-CE1AAS_sap
// {
// IP SAP71-CE1AAS_ip
// {
// NIC SAP71-CE1AAS_nic
// }
// }
// }
group SAP71-CE1DB (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1DB_ip (
Critical = 0
Device = eth0
Address = "10.209.73.57"
NetMask = "255.255.254.0"
)
NIC SAP71-CE1DB_nic (
Device = eth0
)
SAP71-CE1DB_ip requires SAP71-CE1DB_nic
// resource dependency tree
//
// group SAP71-CE1DB
// {
// IP SAP71-CE1DB_ip
// {
// NIC SAP71-CE1DB_nic
// }
// }
group SAP71-CE1ERS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1ERS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.59"
NetMask = "255.255.254.0"
)
NIC SAP71-CE1ERS_nic (
Device = eth0
)
SAPWebAS71 SAP71-CE1ERS_ers (
Critical = 0
EnvFile = "/home/ce1adm/.login"
SAPAdmin = ce1adm
InstProfile = "/usr/sap/CE1/ERS18/profile/CE1_ERS18_sapce1ers"
InstType = ENQREP
ProcMon = er
EnqSrvResName = SAP71-CE1SCS_scs
SecondLevelMonitor = 1
)
SAP71-CE1ERS_ers requires SAP71-CE1ERS_ip
SAP71-CE1ERS_ip requires SAP71-CE1ERS_nic
// resource dependency tree
//
// group SAP71-CE1ERS
// {
// SAPWebAS71 SAP71-CE1ERS_ers
// {
// IP SAP71-CE1ERS_ip
// {
// NIC SAP71-CE1ERS_nic
// }
// }
// }
group SAP71-CE1MNT (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
Parallel = 1
)
// resource dependency tree
//
// group SAP71-CE1MNT
// {
// }
group SAP71-CE1NFS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1NFS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.62"
NetMask = "255.255.254.0"
)
NFS SAP71-CE1NFS_nfs (
Critical = 0
)
NIC SAP71-CE1NFS_nic (
Device = eth0
)
Share SAP71-CE1NFS_share (
Enabled = 0
)
SAP71-CE1NFS_ip requires SAP71-CE1NFS_nic
SAP71-CE1NFS_share requires SAP71-CE1NFS_nfs
// resource dependency tree
//
// group SAP71-CE1NFS
// {
// IP SAP71-CE1NFS_ip
// {
// NIC SAP71-CE1NFS_nic
// }
// Share SAP71-CE1NFS_share
// {
// NFS SAP71-CE1NFS_nfs
// }
// }
group SAP71-CE1PAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1PAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.60"
NetMask = "255.255.254.0"
)
NIC SAP71-CE1PAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-CE1PAS_sap (
Critical = 0
EnvFile = "/home/ce1adm/.login"
SAPAdmin = ce1adm
InstProfile = "/usr/sap/CE1/SYS/profile/CE1_J16_sapce1pas"
ProcMon = "jc ig"
SecondLevelMonitor = 1
)
SAP71-CE1PAS_ip requires SAP71-CE1PAS_nic
SAP71-CE1PAS_sap requires SAP71-CE1PAS_ip
// resource dependency tree
//
// group SAP71-CE1PAS
// {
// SAPWebAS71 SAP71-CE1PAS_sap
// {
// IP SAP71-CE1PAS_ip
// {
// NIC SAP71-CE1PAS_nic
// }
// }
// }
group SAP71-CE1SCS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-CE1SCS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.58"
NetMask = "255.255.254.0"
)
NIC SAP71-CE1SCS_nic (
Device = eth0
)
SAPWebAS71 SAP71-CE1SCS_scs (
Critical = 0
EnvFile = "/home/ce1adm/.login"
SAPAdmin = ce1adm
InstProfile = "/usr/sap/CE1/SYS/profile/CE1_SCS15_sapce1scs"
InstType = ENQUEUE
ProcMon = "en ms gw"
SecondLevelMonitor = 1
)
SAP71-CE1SCS_ip requires SAP71-CE1SCS_nic
SAP71-CE1SCS_scs requires SAP71-CE1SCS_ip
// resource dependency tree
//
// group SAP71-CE1SCS
// {
// SAPWebAS71 SAP71-CE1SCS_scs
// {
// IP SAP71-CE1SCS_ip
// {
// NIC SAP71-CE1SCS_nic
// }
// }
// }
group SAP71-PI1AAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1AAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.67"
NetMask = "255.255.254.0"
)
NIC SAP71-PI1AAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-PI1AAS_sap (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/SYS/profile/PI1_D08_sappi1aas"
ProcMon = "dw jstart se ig"
)
SAP71-PI1AAS_ip requires SAP71-PI1AAS_nic
SAP71-PI1AAS_sap requires SAP71-PI1AAS_ip
// resource dependency tree
//
// group SAP71-PI1AAS
// {
// SAPWebAS71 SAP71-PI1AAS_sap
// {
// IP SAP71-PI1AAS_ip
// {
// NIC SAP71-PI1AAS_nic
// }
// }
// }
group SAP71-PI1DB (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1DB_ip (
Critical = 0
Device = eth0
Address = "10.209.73.63"
NetMask = "255.255.254.0"
)
NIC SAP71-PI1DB_nic (
Device = eth0
)
SAP71-PI1DB_ip requires SAP71-PI1DB_nic
// resource dependency tree
//
// group SAP71-PI1DB
// {
// IP SAP71-PI1DB_ip
// {
// NIC SAP71-PI1DB_nic
// }
// }
group SAP71-PI1ERS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1ERS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.65"
NetMask = "255.255.254.0"
)
NIC SAP71-PI1ERS_nic (
Device = eth0
)
SAPWebAS71 SAP71-PI1ERS_aers (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/ERS09/profile/PI1_ERS09_sappi1ers"
InstType = ENQREP
ProcMon = er
EnqSrvResName = SAP71-PI1SCS_ascs
SecondLevelMonitor = 1
)
SAPWebAS71 SAP71-PI1ERS_jers (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/ERS10/profile/PI1_ERS10_sappi1ers"
InstType = ENQREP
ProcMon = er
EnqSrvResName = SAP71-PI1SCS_jscs
SecondLevelMonitor = 1
)
SAP71-PI1ERS_aers requires SAP71-PI1ERS_ip
SAP71-PI1ERS_ip requires SAP71-PI1ERS_nic
SAP71-PI1ERS_jers requires SAP71-PI1ERS_ip
// resource dependency tree
//
// group SAP71-PI1ERS
// {
// SAPWebAS71 SAP71-PI1ERS_aers
// {
// IP SAP71-PI1ERS_ip
// {
// NIC SAP71-PI1ERS_nic
// }
// }
// SAPWebAS71 SAP71-PI1ERS_jers
// {
// IP SAP71-PI1ERS_ip
// {
// NIC SAP71-PI1ERS_nic
// }
// }
// }
group SAP71-PI1MNT (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
// resource dependency tree
//
// group SAP71-PI1MNT
// {
// }
group SAP71-PI1NFS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1NFS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.68"
NetMask = "255.255.254.0"
)
NFS SAP71-PI1NFS_nfs (
Critical = 0
)
NIC SAP71-PI1NFS_nic (
Device = eth0
)
Share SAP71-PI1NFS_share (
Enabled = 0
Critical = 0
)
SAP71-PI1NFS_ip requires SAP71-PI1NFS_nic
SAP71-PI1NFS_share requires SAP71-PI1NFS_nfs
// resource dependency tree
//
// group SAP71-PI1NFS
// {
// IP SAP71-PI1NFS_ip
// {
// NIC SAP71-PI1NFS_nic
// }
// Share SAP71-PI1NFS_share
// {
// NFS SAP71-PI1NFS_nfs
// }
// }
group SAP71-PI1PAS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1PAS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.66"
NetMask = "255.255.254.0"
)
NIC SAP71-PI1PAS_nic (
Device = eth0
)
SAPWebAS71 SAP71-PI1PAS_sap (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/SYS/profile/PI1_DVEBMGS07_sappi1pas"
ProcMon = "dw jstart co se ig"
)
SAP71-PI1PAS_ip requires SAP71-PI1PAS_nic
SAP71-PI1PAS_sap requires SAP71-PI1PAS_ip
// resource dependency tree
//
// group SAP71-PI1PAS
// {
// SAPWebAS71 SAP71-PI1PAS_sap
// {
// IP SAP71-PI1PAS_ip
// {
// NIC SAP71-PI1PAS_nic
// }
// }
// }
group SAP71-PI1SCS (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP71-PI1SCS_ip (
Critical = 0
Device = eth0
Address = "10.209.73.64"
NetMask = "255.255.254.0"
)
NIC SAP71-PI1SCS_nic (
Device = eth0
)
SAPWebAS71 SAP71-PI1SCS_ascs (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/SYS/profile/PI1_ASCS05_sappi1scs"
InstType = ENQUEUE
ProcMon = "en ms"
)
SAPWebAS71 SAP71-PI1SCS_jscs (
Critical = 0
EnvFile = "/home/pi1adm/.login"
SAPAdmin = pi1adm
InstProfile = "/usr/sap/PI1/SYS/profile/PI1_SCS06_sappi1scs"
InstType = ENQUEUE
ProcMon = "en ms gw"
)
SAP71-PI1SCS_ascs requires SAP71-PI1SCS_ip
SAP71-PI1SCS_ip requires SAP71-PI1SCS_nic
SAP71-PI1SCS_jscs requires SAP71-PI1SCS_ip
// resource dependency tree
//
// group SAP71-PI1SCS
// {
// SAPWebAS71 SAP71-PI1SCS_ascs
// {
// IP SAP71-PI1SCS_ip
// {
// NIC SAP71-PI1SCS_nic
// }
// }
// SAPWebAS71 SAP71-PI1SCS_jscs
// {
// IP SAP71-PI1SCS_ip
// {
// NIC SAP71-PI1SCS_nic
// }
// }
// }
./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.cf 0000555 0000000 0000000 00000001011 13320062025 026611 0 ustar root root type SAPWebAS71 (
static boolean AEPTimeout = 1
static str AgentFile = "/opt/VRTSvcs/bin/Script50Agent"
static str AgentDirectory = "/opt/VRTSagents/ha/bin/SAPWebAS71"
static str ArgList[] = { ResLogLevel, State, IState, EnvFile, SAPAdmin, InstProfile, InstType, ProcMon, EnqSrvResName, SecondLevelMonitor, MonitorProgram }
str ResLogLevel = INFO
str EnvFile
str SAPAdmin
str InstProfile
str InstType = APPSERV
str ProcMon
str EnqSrvResName // OPT
int SecondLevelMonitor = 0
str MonitorProgram // OPT
)
./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/preonline 0000555 0000000 0000000 00000013317 13320062025 025527 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPWebAS71/conf/preonline,v 1.3 2009/08/11 08:43:21 vchappav Exp $
#
# $Author: vchappav $
# $Date: 2009/08/11 08:43:21 $
# $Revision: 1.3 $
#-------------------------------------------------------------------
#-------------------------------------------------------------------
# preonline
# preonline is invoked just before onlining the group.
# preonline is invoked on the node where group is to be onlined.
#
# A group level configurable parameter PreOnline controls whether this
# trigger should be invoked or not. By default, PreOnline is not set.
# PreOnline can be set in one of two ways:
# a) In configuration file, define
# PreOnline=1
# in the group description to set PreOnline to 1 for the group.
# b) While cluster is running, and in writable state, do
# hagrp -modify PreOnline 1
# to set PreOnline to 1 for group .
#
# preonline gives user the control to take appropriate action depending on
# whether group is being manually onlined, or group is in the process of failover.
# In failover case, for example, preonline can be used to determine whether the
# group can be brought online on this node in the cluster.
#
# In any case, user can give control back to engine by doing:
# hagrp -online -nopre -sys .
# This will let engine continue with online process.
#
# ------------------------------------------------------------------
# Usage:
# preonline
#
# : is the name of the system where group is to be onlined.
# : is the name of the group that is to be onlined.
# : is either "FAULT" or "MANUAL". "MANUAL" corresponds to
# both manual online as well as manual switch.
# : When preonline is invoked due to failover
# this argument is the name of the system where group
# was online before.
# When preonline is invoked due to group online
# command issued with -checkpartial option,
# this argument is the name of system specified
# for this option.
# ------------------------------------------------------------------
# ------------------------------------------------------------------
# Invoke the perl processor
# ------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
use strict;
use vars;
my $vcs_home = $ENV{"VCS_HOME"};
if (!defined ($vcs_home)) {
$vcs_home="/opt/VRTSvcs";
}
use ag_i18n_inc;
VCSAG_SET_ENVS();
if (!defined $ARGV[0]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined system name", 15028);
exit;
} elsif (!defined $ARGV[1]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined group name", 15031);
exit;
}
#
# SAPNW04 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPNW04/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPNW04ExitCode = undef;
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPNW04ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPNW04ExitCode]", 15031);
}
#
# SAPNW04 specific preonline code: STOP
#
#
# SAPWebAS71 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPWebAS71/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPWebAS71ExitCode = undef; # Reset..
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPWebAS71ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPWebAS71ExitCode]", 15031);
}
#
# SAPWebAS71 specific preonline code: STOP
#
#--------------------------------
# Decide if we have to exit now..
#--------------------------------
exit 0 unless ( $iSAPNW04ExitCode );
exit 0 unless ( $iSAPWebAS71ExitCode );
# give control back to HAD.
if (defined $ARGV[3]) {
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0] -checkpartial $ARGV[3]");
exit;
}
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0]");
exit;
./pkgs/VRTSsapwebas71/VRTSsapwebas71/etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.cmd 0000555 0000000 0000000 00000001501 13320062025 026770 0 ustar root root #!/bin/sh
hatype -add SAPWebAS71
hatype -modify SAPWebAS71 SourceFile "./SAPWebAS71Types.cf"
hatype -modify SAPWebAS71 AEPTimeout 1
hatype -modify SAPWebAS71 AgentFile "/opt/VRTSvcs/bin/Script50Agent"
hatype -modify SAPWebAS71 AgentDirectory "/opt/VRTSagents/ha/bin/SAPWebAS71"
hatype -modify SAPWebAS71 ArgList ResLogLevel State IState EnvFile SAPAdmin InstProfile InstType ProcMon EnqSrvResName SecondLevelMonitor MonitorProgram
haattr -add SAPWebAS71 ResLogLevel -string INFO
haattr -add SAPWebAS71 EnvFile -string
haattr -add SAPWebAS71 SAPAdmin -string
haattr -add SAPWebAS71 InstProfile -string
haattr -add SAPWebAS71 InstType -string APPSERV
haattr -add SAPWebAS71 ProcMon -string
haattr -add SAPWebAS71 EnqSrvResName -string
haattr -add SAPWebAS71 SecondLevelMonitor -integer 0
haattr -add SAPWebAS71 MonitorProgram -string
./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/ 0000755 0000000 0000000 00000000000 13320062025 016640 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 020640 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 021230 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/bin/ 0000755 0000000 0000000 00000000000 13320062025 022000 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/bin/SAPWebAS71/ 0000755 0000000 0000000 00000000000 13320062025 023455 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/bin/SAPWebAS71/monitor 0000555 0000000 0000000 00000046213 13320062025 025076 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPWebAS71/monitor.pl,v 1.11 2013/11/08 11:12:30 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2013/11/08 11:12:30 $
# $Revision: 1.11 $
#
# Provides: SAPWebAS71
# Author: vchappav
# crAgent Build: 1.88 2008/10/13 08:28:02
# crAgent Run Date: 13 Oct, 2008
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
#---------------------------------------------------------
# Define the exact order to look for our agent framework..
#---------------------------------------------------------
BEGIN {
my $sVCSperl = undef;
my $sVCSagntfwHome = "/opt/VRTS/.ACCLib";
( my $sDirName = $0 ) =~ s#(.*)/.*$#$1#;
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCS One..
$sVCSperl = "$ENV{CLUSTER_HOME}/lib";
}
else { # VCS 4.x ..
$sVCSperl = "/opt/VRTSperl/lib/site_perl";
}
$ENV { VCS_LOG_AGENT_NAME } ||= "SAPWebAS71"; # export Agent name for PreOnline logging..
unshift ( @INC, $sDirName,
"$sVCSagntfwHome/vcs",
"$sVCSagntfwHome/system",
"$sVCSagntfwHome/network",
$sVCSperl );
}
#------------
# Be strict..
#------------
use strict 'refs';
use strict 'vars';
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use ag_i18n_inc;
use Sys; # For call to RunCmdArgsAsUser
use Version; # ACC Library version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#-----------------------------------------
# Include the required SAPWebAS71 module..
#-----------------------------------------
use SAPWebAS71;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: monitor.pl,v 1.11 2013/11/08 11:12:30 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#----------------------------------------------------------------------
# If versions are requested, print all of the framework module versions
# to stdout, then exit 0..
#----------------------------------------------------------------------
if ( 1 == Version::CheckForVersionRequest ( $ARGV [0] ) ) {
#------------------------------------------------------------------
# Found the request to display all versions -- did that, now quit..
#------------------------------------------------------------------
exit 0;
}
#-----------------------------------
# Work out entry point information..
#-----------------------------------
my $sResourceName = $ARGV [0];
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = 'SAPWebAS71' if $sResourceType !~ /\w/;
#---------------------------------------------------------
# Set up the return code here (this gets over written once
# the entry point is called).
#---------------------------------------------------------
my $iAgentReturnCode = 0;
if ( $sEntryPointName eq "monitor" ) {
$iAgentReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEntryPointName eq "clean") {
$iAgentReturnCode = VCSDef_CleanExit::FAILED;
}
elsif ( $sEntryPointName eq "preonline" ) {
my $sResLogLevel = 'INFO'; # Default..
my $iPosn = 3;
#---------------------------------------------------
# Handle missing node name for MANUAL switch-over..
#---------------------------------------------------
if ( $ARGV [2] eq 'MANUAL' ) {
$iPosn = scalar @ARGV if $iPosn > scalar @ARGV;
splice ( @ARGV, $iPosn, 0, 'UNDEF' );
}
#---------------------------------
# Set ResLogLevel, if overridden..
#---------------------------------
if ( $ARGV [-1] =~ /^(TRACE|INFO|WARN|ERROR|CRITICAL)/o ) {
$sResLogLevel = pop @ARGV;
}
#----------------------------------
# Modify @ARGV to have..
# @ARGV..
#----------------------------------
unshift ( @ARGV, $ARGV [1], $sResLogLevel );
}
#------------------------------------
# Setup Category ID for UMI logging..
#------------------------------------
my $iCategoryID = 55025;
my $iCleanReason = undef;
#-----------------------------------------
# Use Script50Agent style attribute list..
#-----------------------------------------
my $iCnt = 0;
my ( $sKey, @lsArgVals, %hsAttribs ) = ();
my @lsAttrs =
qw ( ResLogLevel State IState EnvFile SAPAdmin InstProfile InstType
ProcMon EnqSrvResName SecondLevelMonitor MonitorProgram );
#------------------------------------------------------------------
# ArgList for type SAPWebAS71:
# ResLogLevel EnvFile SAPAdmin InstProfile InstType ProcMon
# EnqSrvResName SecondLevelMonitor MonitorProgram
#------------------------------------------------------------------
my ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..
$argIState, # Dummy attribute for FFDC..
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argInstType,
$argProcMon,
$argEnqSrvResName,
$argSecondLevelMonitor,
$argMonitorProgram ) = ();
my ( $argSAPSID, $argInstName, $argInstID, $argSAPHost, $argSAPHome, @lsWords ) = ();
if ( $sEntryPointName ne "preonline" ) {
$sResourceName = shift;
$iCleanReason = shift if ( $sEntryPointName eq 'clean' );
if ( $ENV { CLUSTER_HOME } ) { # VCS One/VCS 5.0
#--------------
# Get vectors..
#--------------
do {
push @{ $hsAttribs { $ARGV [$iCnt] } },
@ARGV [ $iCnt + 2 .. $iCnt + 1 + $ARGV [$iCnt + 1] ];
} while ( ( $iCnt += $ARGV [$iCnt + 1] + 2 ) <= $#ARGV );
( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..,
$argIState, # Dummy attribute for FFDC..,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argInstType,
$argProcMon,
$argEnqSrvResName,
$argSecondLevelMonitor,
$argMonitorProgram ) = @lsArgVals = map { @$_ } @hsAttribs { @lsAttrs };
}
else {
#-------------------------
# Get values VCS 4.1 style
#-------------------------
( @lsArgVals ) = ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..,
$argIState, # Dummy attribute for FFDC..,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argInstType,
$argProcMon,
$argEnqSrvResName,
$argSecondLevelMonitor,
$argMonitorProgram ) = @ARGV;
}
unshift ( @lsArgVals, $iCleanReason ) if ( $sEntryPointName eq "clean" ); # Insert clean reason..
unshift ( @lsArgVals, $sResourceName ); # Insert resource name..
}
else {
@lsArgVals = @ARGV;
}
#---------------------------------
# Populate FFDC helper variables..
#---------------------------------
$::gsUser = $argSAPAdmin;
$::gsEnvFile = $argEnvFile;
unless ( VCSagentFW::SetupEntry ( $sEntryPointName,
$iCategoryID,
\$iCleanReason,
\@lsArgVals ) ) {
#------------------------------------------------------------------
# Some number of the "Standard Agent" arguments failed the
# validation. Note that the validation subroutine has already
# logged the attributes that failed the validation criteria. Exit
# now with the earlier defined value of $iAgentReturnCode.
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-------------------
# Handle preonline..
#-------------------
if ( $sEntryPointName eq "preonline" ) {
&entryPointExit ( SAPWebAS71::OnlineENQGrp ( @lsArgVals ) ? 0:1 ); # Toggle..
}
#-------------------------------------
# Send the parameters for validation..
#-------------------------------------
if ( SAPWebAS71::ArgsValid ( $sEntryPointName,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argInstType,
$argProcMon,
$argEnqSrvResName,
$argSecondLevelMonitor,
$argMonitorProgram ) ) {
&logTrace ( 20311, "<%s> All arguments validated successfully!",
$sEntryPointName );
(@lsWords) = split( /\//, $argInstProfile);
($argSAPSID, $argInstName, $argSAPHost) = split(/_/, $lsWords[-1]);
($argInstID ) = $argInstName =~ /(\d{2})$/o;
$argSAPHome = "/usr/sap/" . $argSAPSID . "/" . $argInstName . "/exe";
}
else {
#---------------------------------------------------------------
# Some number of the arguments failed the validation..
# Exit now with the earlier defined value of iAgentReturnCode..
#---------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-----------------------------------
# Args checked out ok, so continue..
#-----------------------------------
#------------------------------------------
# Declare routines to handle entry points..
#------------------------------------------
my %routines = ( "monitor" => \&MonitorEntryPoint,
"online" => \&OnlineEntryPoint,
"offline" => \&OfflineEntryPoint,
"clean" => \&CleanEntryPoint );
#----------------------------------------------------------
# Depending on our entry point, call the correct function..
#----------------------------------------------------------
if ( $routines { $sEntryPointName } ) {
$iAgentReturnCode = $routines { $sEntryPointName }->();
}
else { # Unknown entry pt..
&logError ( 20312,
"Agent called with unsupported entry point specification of [%s]",
$sEntryPointName );
++ $iAgentReturnCode;
}
#------------------------------------------------------------------
# Exit the entry point, using the iAgentReturnCode we have set up..
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
#-------------------------------------------------------------
# End of &main(), IE: no more execution logic; only subroutine
# definitions follow..
#-------------------------------------------------------------
=pod
#-------------------------------------------------------------
Function : int MonitorEntryPoint ( void );
Description : Monitors resource of type SAPWebAS71
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if in-depth monitoring cannot be completed.
#-------------------------------------------------------------
=cut
sub MonitorEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20313, "Subroutine <%s> called", $sMyName );
#-----------------------------------------
# Check if at least the processes are up..
#-----------------------------------------
my $SAPWebAS71_Status = SAPWebAS71::GetResourceState ( $argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $SAPWebAS71_Status ) {
$SAPWebAS71_Status = VCSDef_MonitorExit::OFFLINE;
}
#------------------------------------------------
# Exit if, not online after a superficial check..
#------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $SAPWebAS71_Status ) {
&logTrace ( 20314,
"<%s> Resource [%s] online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPWebAS71_Status );
}
else {
&logTrace ( 20315,
"<%s> Resource [%s] NOT online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPWebAS71_Status );
return $SAPWebAS71_Status;
}
#--------------------------------
# Start monitoring the resource..
#--------------------------------
$SAPWebAS71_Status = SAPWebAS71::Monitor ( $argEnvFile,
$argProcMon,
$argInstProfile,
$argInstType,
$argMonitorProgram,
$argSAPAdmin,
$argSecondLevelMonitor );
return $SAPWebAS71_Status;
}
=pod
#---------------------------------------------------------------
Function : int OnlineEntryPoint ( void );
Description : Attempts to online a resource of type SAPWebAS71
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OnlineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20316, "Subroutine <%s> called", $sMyName );
my $iReturnCode = SAPWebAS71::GetResourceState ( $argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $iReturnCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
#------------------------
# Start only if offline..
#------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) {
if ( SAPWebAS71::Start ( $argEnvFile,
$argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName,
$argSecondLevelMonitor ) ) {
&logInfo ( 20317, "<%s> Resource [%s] started up successfully.",
$sMyName, $sResourceName );
}
else {
#------------------------------------------------------------------
# Here, the SAPWebAS71::Start routine informed us that the online
# did not work; however, all we can do is to return zero,
# effectively telling the VCS engine not to wait at all before
# invoking the monitor Entry Point, which is THE mechanism used by
# VCS to determine a resource's state.
#------------------------------------------------------------------
&logError( 20318, "<%s> Failed to online resource", $sMyName );
}
}
elsif ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logInfo ( 20319, "<%s> Processes for resource instance already up", $sMyName );
}
else { # Unknown..
&logError ( 20320,
"<%s> Attempt to online resource instance in invalid state", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : int OfflineEntryPoint ( void );
Description : Attempts to offline a resource of type SAPWebAS71
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OfflineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20321, "Subroutine <%s> called", $sMyName );
#----------------------------------------------
# Offline the resource if not offline already..
#----------------------------------------------
if ( VCSDef_MonitorExit::OFFLINE ==
SAPWebAS71::GetResourceState ( $argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin ) ) {
&logInfo ( 20322, "<%s> Processes for resource instance down already.",
$sMyName );
}
elsif ( SAPWebAS71::Stop ( $argEnvFile,
$argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName ) ) {
&logInfo ( 20323,
"<%s> Shutdown resource [%s] successfully.",
$sMyName, $sResourceName );
}
else {
&logError ( 20324, "<%s> Failed to offline resource", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : bool CleanEntryPoint ( void );
Description : Attempts to clean up a resource of type SAPWebAS71
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub CleanEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20325, "Subroutine <%s> called", $sMyName );
#-----------------
# Clean resource..
#-----------------
if ( SAPWebAS71::Kill ( $iCleanReason,
$argEnvFile,
$argInstProfile,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName ) ) {
#--------------
# Kill worked..
#--------------
return VCSDef_CleanExit::PASSED;
}
else {
#--------------
# Kill failed..
#--------------
&logError ( 20326, "<%s> Failed to clean resource", $sMyName );
return VCSDef_CleanExit::FAILED;
}
}
./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/bin/SAPWebAS71/SAPWebAS71.pm 0000555 0000000 0000000 00000566053 13320062025 025510 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPWebAS71/SAPWebAS71.pm,v 1.32 2013/11/08 11:12:30 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2013/11/08 11:12:30 $
# $Revision: 1.32 $
#
# Provides: SAPWebAS71
# Author: vchappav
# crAgent Build: 1.88 2008/10/13 08:28:02
# crAgent Run Date: 13 Oct, 2008
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
#------------
# Be strict..
#------------
use strict;
#----------------------
# Declare the package..
#----------------------
package SAPWebAS71;
use ag_i18n_inc;
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # Support generalized UNIX commands
use Proc; # For calls to the process routines
use Comms; # For calls to socket(3C) routines
use Version; # Version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------
# Include standard PERL modules..
#--------------------------------
use Fcntl;
use Socket;
use POSIX qw ( uname );
use POSIX qw ( strftime );
use File::Path qw ( mkpath );
use File::stat;
my ( $CLUS_HOME, $sPrefix ) = ();
#------------------------
# Setup VCS/VCSone home..
#------------------------
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.x/VCSOne..
$CLUS_HOME ||= $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone";
}
else { # VCS 4.x..
$CLUS_HOME ||= $ENV { VCS_HOME } ||= "/opt/VRTSvcs";
}
( $sPrefix ) = $CLUS_HOME =~ /.*(vcs(|one))$/;
if ( $sPrefix =~ /vcsone/ ) {
$sPrefix = "ha";
}
#-----------------------------------------
# Define module-vendor specific commands..
#-----------------------------------------
my $sCmdHares = $HARES ||= "$CLUS_HOME/bin/hares";
my $sCmdHagrp = $HAGRP ||= "$CLUS_HOME/bin/hagrp";
my $sCmdHatype = $HATYPE ||= "$CLUS_HOME/bin/hatype";
my $sCmdHasys = $HASYS ||= "$CLUS_HOME/bin/hasys";
my $sCmdVcsDecrypt = "$CLUS_HOME/sbin/${sPrefix}decrypt";
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: SAPWebAS71.pm,v 1.32 2013/11/08 11:12:30 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#-----------------
# Define globals..
#-----------------
my ( $iSapStartSrv, $iCCMSX, $iCCMSR, $bSapStart, @liRunningProcs ) = (); # Global..
#--------------------------------
# Define SAPWebAS71 subroutines..
#--------------------------------
=pod
-------------------------------------------------------------------------
Function : bool ArgsValid ( IN String EntryPointName,
IN String EnvFile,
IN String SAPAdmin,
IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String EnqSrvResName,
IN Integer SecondLevelMonitor,
IN String MonitorProgram );
Description : Validates the ArgList passed to the entry point.
Parameters :
$sEntryPointName Entry point name
$localEnvFile Absolute path to environment file to source
$localSAPAdmin SAP System Administrator
$localInstProfile Instance profile file for the SAP Instance
$localInstType SAP Instance Type
$localProcMon List of processes to be monitored
$localEnqSrvResName VCS resource name for Enqueue Server
$localSecondLevelMonitor Cycle count to run in-depth monitoring
$localMonitorProgram Full path to external monitor program
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ArgsValid {
#----------------------------------------
# Set up local vars from passed in ones..
#----------------------------------------
my ( $sEntryPointName,
$localEnvFile,
$localSAPAdmin,
$localInstProfile,
$localInstType,
$localProcMon,
$localEnqSrvResName,
$localSecondLevelMonitor,
$localMonitorProgram ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20001, "Subroutine <%s> called with:
EntryPointName [%s]
EnvFile [%s]
SAPAdmin [%s]
InstProfile [%s]
InstType [%s]
ProcMon [%s]
EnqSrvResName [%s]
SecondLevelMonitor [%s]
MonitorProgram [%s]",
$sMyName, $sEntryPointName, $localEnvFile, $localSAPAdmin,
$localInstProfile, $localInstType, $localProcMon,
$localEnqSrvResName, $localSecondLevelMonitor,
$localMonitorProgram );
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my ( @lsMissing, %hsArgList ) = ();
my @lsArgs =
qw ( EntryPointName EnvFile SAPAdmin InstProfile InstType ProcMon
EnqSrvResName SecondLevelMonitor MonitorProgram );
@hsArgList { @lsArgs } = @_; # Assign..
#----------------------------------------
# Reqd. attributes based on entry point..
#----------------------------------------
my @lsOnlineArgs = qw ( EnvFile SAPAdmin InstProfile InstType ProcMon );
my @lsOfflineArgs = qw ( SAPAdmin InstProfile InstType );
my @lsMonitorArgs = qw ( SAPAdmin InstProfile InstType ProcMon );
my @lsCleanArgs = qw ( SAPAdmin InstProfile InstType );
my %hlsNeeded = ( 'online' => \@lsOnlineArgs,
'offline' => \@lsOfflineArgs,
'monitor' => \@lsMonitorArgs,
'clean' => \@lsCleanArgs );
my @lsReqdArgs = @{ $hlsNeeded { $sEntryPointName } };
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20002,
"<%s> The following mandatory fields were not set [%s], Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-----------------------------
# Remove SLM file, if exists..
#-----------------------------
if ( $sEntryPointName ne 'monitor' ) {
VCSagentFW::RunSecondLevelMonitor ( 1 ); # Delete..
}
#-------------------------------
# Individual validation starts..
#-------------------------------
my ($sSAPSID, $sInstName, $sSAPHost) = ();
my (@lsWords) = ();
(@lsWords) = split( /\//, $localInstProfile);
($sSAPSID, $sInstName, $sSAPHost) = split(/_/, $lsWords[-1]);
#-------------------------------------------------------
# Validation for online offline monitor entry point(s)..
#-------------------------------------------------------
if ( $sEntryPointName =~ /^(online|offline|monitor)$/o ) {
#------------------------------
# Validate parameter SAPAdmin..
#------------------------------
if ( ! defined getpwnam $localSAPAdmin ) {
&logError ( 20003, "<%s> SAPAdmin [%s] is not a valid UNIX login",
$sMyName, $localSAPAdmin );
$iReturnCode = 0; # Failure..
}
}
#---------------------------------------
# Validation for online entry point(s)..
#---------------------------------------
if ( $sEntryPointName eq "online" ) {
#-----------------------------
# Validate parameter EnvFile..
#-----------------------------
if ( ! -e $localEnvFile ) {
&logError ( 20004, "<%s> EnvFile [%s] file does not exist",
$sMyName, $localEnvFile );
$iReturnCode = 0; # Failure..
}
#---------------------------------------
# Validate SAPHost..
#---------------------------------------
if ( ! inet_aton ( $sSAPHost ) ) {
&logError ( 20005,
"<%s> InstProfile [%s] not terminated with valid hostname [%s]",
$sMyName, $localInstProfile, $sSAPHost );
$iReturnCode = 0; # Failure..
}
#---------------------------------
# Validate parameter InstProfile..
#---------------------------------
if ( ! -e $localInstProfile ) {
&logError ( 20006, "<%s> InstProfile [%s] file does not exist",
$sMyName, $localInstProfile );
$iReturnCode = 0; # Failure..
}
#------------------------------------
# Validate parameter MonitorProgram..
#------------------------------------
if ( $localMonitorProgram =~ /(\S+)/ && # Defined..
! -x $1 ) {
&logError ( 20007, "<%s> MonitorProgram [%s] is not executable",
$sMyName, $1 );
$iReturnCode = 0; # Failure..
}
#----------------------------------
# Check if EnqSrvResName is valid..
#----------------------------------
if ( $localEnqSrvResName =~ m/\S+/ && $localInstType =~ /^enqrep$/io &&
! SAPWebAS71::ChkResName ( $localEnqSrvResName,
$sSAPSID,
$localInstType ) ) {
&logError ( 20008,
"<%s> EnqSrvResName [%s] invalid resource of Type [SAPWebAS71]",
$sMyName, $localEnqSrvResName );
$iReturnCode = 0; # Failure..
}
}
#----------------------------------------------
# Validate attributes for online and monitor ..
#----------------------------------------------
if ( $sEntryPointName =~ /^(online|monitor)$/o ) {
#---------------------------------------------
# Validate ProcMon after removing duplicates..
#--------------------------------------------
my $rslocalProcMon = \$_[6]; # Get reference to what's passed in..
my %hsProcMon = map { $_ => 1 } $localProcMon =~ /([^\s]+)/g;
my @lsProcMon = keys %hsProcMon;
my ( @lsBadProcs, %hsAllowed ) = ();
if ( $localInstType =~ /^(appserv)$/io ) {
if ( ! grep { /^(dw|jc|jstart)$/o } @lsProcMon ) { # Must have..
&logError ( 20009, "<%s> Incorrect value for ProcMon [%s].
Has to include at least one of [dw jc jstart] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( dw co se jc jstart ig gw cm cs gwrd icman ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20010, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^(enqueue)$/io ) {
if ( ! grep { /^en$/o } @lsProcMon ) {
&logError ( 20011, "<%s> Incorrect value for ProcMon [%s].
Has to include at least [en] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( en ms gw ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20012, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^(enqrep)$/io ) {
if ( ! grep { /^(er)$/o } @lsProcMon ) {
&logError ( 20013, "<%s> Incorrect value for ProcMon [%s].
Must be [er] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif( $localInstType =~ /^(SMDAgent)$/io ) {
if ( ! grep { /^(jc|jstart)$/o } @lsProcMon ) { # Must have..
&logError ( 20327, "<%s> Incorrect value for ProcMon [%s].
Has to include at least one of [dw jc jstart] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
}
#--------------------
# Re-create procmon..
#--------------------
$$rslocalProcMon = join ( ' ', @lsProcMon );
}
#-------------------------------------------
# Validate attributes for all entry points..
#-------------------------------------------
#-----------------------------------------
# SAPSID.. must be three characters long..
#-----------------------------------------
if ( $sSAPSID !~ /^\S{3}$/o ) {
&logError ( 20014,
"<%s> SAPSID [%s] has to be exactly 3 non-white alpha-numeric characters long",
$sMyName, $sSAPSID );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# InstName. Last two chars 00 - 99..
#-----------------------------------
unless ( $sInstName =~ /(\d{2})$/o ) {
&logError ( 20015,
"<%s> Last two characters of InstName [%s] not between 00-99",
$sMyName, $sInstName );
$iReturnCode = 0; # Failure..
}
#------------------
# Valid InstTypes..
#------------------
my @lsIntTypes = qw ( appserv enqueue enqrep smdagent );
unless ( grep { /^$localInstType$/io } @lsIntTypes ) {
&logError ( 20016,
"<%s> InstType [%s] invalid. Has to be one of [%s]",
$sMyName, $localInstType, join ( ' ', @lsIntTypes ) );
$iReturnCode = 0; # Failure..
}
$iReturnCode ||
&logWarn ( 20017,
"<%s> Some of the attributes could not be validated. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode ;
}
=pod
-------------------------------------------------------------------------
Function : bool Start ( IN String EnvFile,
IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName,
IN Integer SecondLevelMonitor );
Description : Start logic needed for online entry pt
Parameters :
$sEnvFile Absolute path to environment file to source
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Start {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20018, "Subroutine <%s> called with:
EnvFile [%s]
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]
SecondLevelMonitor [%s]",
$sMyName, $sEnvFile, $sInstProfile, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPSID, $sSAPHome, $sInstName, $iSecondLevelMonitor );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $sCommand, $sCommandArgs, $iTillWhen, $iExitCode, $iTimeout,
@lsCmdout, @liPids ) = ();
#-----------------------------------------
# Whack any preexisting SAPWebAS71 processes..
#-----------------------------------------
&logTrace ( 20019,
"<%s> Killing SAPWebAS71 processes for this instance", $sMyName );
if ( SAPWebAS71::KillSAPWebAS71Processes ( $sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin ) ) {
&logTrace ( 20020,
"<%s> Processes for this instance do not exist before start-up",
$sMyName );
}
else {
&logError ( 20021,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#--------------------
# Return, if failed..
#--------------------
$iReturnCode || return $iReturnCode;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
$iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 );
my $iInstID = ();
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(appserv|enqrep)$/io ) {
#--------------------------------------------------------
# Clean IPC resources for the instance ..
#--------------------------------------------------------
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
( @lsCmdout, $iExitCode, $iTimeout ) = ();
&logTrace ( 20022,
"<%s> Cleaning IPC resources for SAPWebAS71 instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20023,
"<%s> Insufficient time to run cleanipc. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20024,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
}
else {
&logTrace ( 20025,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
my ($sKillFile, $sShutdownFile, $sCollLockFile, $sSendLockFile, @lsFiles ) = ();
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20026,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20027,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20028,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20029,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20030, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
}
#----------------------------------
# Initiate SAPWebAS71 startup log..
#----------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Starting up [$sResourceName]";
if ( ! ( $sInstType =~ /smdagent/io ) ) {
if ( SAPWebAS71::UpdateSAPWebAS71Log ( $sInstName,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sMessage ) ) {
&logTrace ( 20031,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20032,
"<%s> Could not log successfully", $sMyName );
}
}
#------------------------------------------------
# Define sapstartsrv command and args variables..
#------------------------------------------------
$sCommand = "$sSAPHome/sapstartsrv";
$sCommandArgs = "pf=$sInstProfile -D -u $sSAPAdmin";
( @lsCmdout, $iExitCode, $iTimeout ) = ();
&logTrace ( 20033,
"<%s> Starting SAPWebAS71 instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20034,
"<%s> Insufficient time to continue boot up. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20035,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#------------------------------------------
# Start SAPWebAS71 Instance ..
#------------------------------------------
my %hsExitCode = ( 0 => 'Success',
1 => 'OS configuration error',
2 => 'Called with wrong Parameters',
3 => 'User not authorized to execute script',
4 => 'Environment not set',
5 => 'Database startup failed',
6 => 'Database on remote DB-Server not running',
7 => 'Startup of Instance failed',
8 => 'Start profile not found',
9 => 'User not authorized to start database' );
my $sLogFile = (); #"/usr/sap/$sSAPSID/$sInstName/log/" . "${sSAPSID}_${sInstName}.log";
if ( $sInstType =~ /smdagent/io ) {
$sLogFile = "/dev/null";
}
else {
$sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" . "${sSAPSID}_${sInstName}.log";
}
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ? ">>& $sLogFile":
"1>> $sLogFile 2>&1";
$sCommand = "$sSAPHome/sapstart";
$sCommandArgs = "pf=$sInstProfile $sRdStr";
( @lsCmdout, $iExitCode, $iTimeout ) = ();
&logTrace ( 20036,
"<%s> Starting SAPWebAS71 instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20037,
"<%s> Insufficient time to continue boot up. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20038,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#--------------------
# Delay entry point..
#--------------------
my $iSleepTime = 10; # Secs..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
@liPids = (); # Initialise..
sleep $iSleepTime; # Sec..
&logTrace ( 20039,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout - $iSleepTime );
#---------
# Do FLM..
#---------
if ( VCSDef_MonitorExit::ONLINE ==
SAPWebAS71::GetProcState ( \@liPids,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
1 ) ) { # Running FFLM..
#---------------------
# Start-up confirmed..
#---------------------
&logInfo ( 20040,
"<%s> Process check confirmed start-up of this instance of SAPWebAS71 server",
$sMyName );
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20041,
"<%s> Process check could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
}
}
if ( $sInstType !~ /^(enqueue|enqrep)$/io && $iSecondLevelMonitor ) { # If enabled..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
@liPids = (); # Initialise..
sleep $iSleepTime; # Sec..
&logTrace ( 20042,
"<%s> Confirming start-up with [%s] sec in hand by health check",
$sMyName, $iTimeout - $iSleepTime );
#---------
# Do SLM..
#---------
if ( VCSDef_MonitorExit::ONLINE == # Online after..
SAPWebAS71::SecondLevelMonitor ( $sEnvFile, # Running SLM..
$sProcMon,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$iTillWhen ) ) {
#---------------------
# Start-up confirmed..
#---------------------
&logInfo ( 20043,
"<%s> Second Level Monitor confirmed start-up of this instance of SAPWebAS71 server",
$sMyName );
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20044,
"<%s> Second Level Monitor could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
}
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Stop ( IN String EnvFile,
IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName );
Description : Stop logic needed for offline entry pt
Parameters :
$sEnvFile Absolute path to environment file to source
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Stop {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20045, "Subroutine <%s> called with:
EnvFile [%s]
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]",
$sMyName, $sEnvFile, $sInstProfile, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPSID, $sSAPHome, $sInstName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 ); # With margin..
#------------------------------------------
# Declare stop command and args variables..
#------------------------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode, $iSleepTime,
@lsCmdout, @liPids ) = ();
#------------------------------------
# Define stop command and arguments..
#------------------------------------
my $sSAPWork = "/usr/sap/$sSAPSID/$sInstName/work" ;
$sCommand = "$sSAPWork/kill.sap";
$sCommandArgs = "";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
&logTrace ( 20046,
"<%s> Stopping SAPWebAS71 with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20047,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20048,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
#------------------------------------
# Define stop command and arguments..
#------------------------------------
$sCommand = "$sSAPWork/shutdown.sap";
$sCommandArgs = "";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
&logTrace ( 20049,
"<%s> Stopping SAPWebAS71 with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20050,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20051,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
#--------------------
# Get time bearings..
#--------------------
$iSleepTime = 10; # Secs..
@liPids = $bSapStart ? shift @liRunningProcs : @liRunningProcs; # Global..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
#-----------------------------------------------
# Attempt to request sapstart to stop instance..
#-----------------------------------------------
if ( scalar @liPids ) {
&logInfo ( 20052, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
&logInfo ( 20053,
"<%s> Successfully sent SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
}
else {
&logWarn ( 20054,
"<%s> Failed to send SIGINT to PID [%s]",
$sMyName, join ( ' ', @liPids ) );
}
}
}
}
#--------------------
# Delay entry point..
#--------------------
if ( $iReturnCode ) { # Success..
#-----------------
# Set sleep time..
#-----------------
$iSleepTime = 10; # Sec..
&logInfo ( 20055,
"<%s> Delaying exit to confirm shutdown..", $sMyName );
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 20 ) {
#-----------------------
# Wait before retrying..
#-----------------------
sleep $iSleepTime; # Secs..
SAPWebAS71::GetProcState ( \@liPids,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
0 ); # Request regular..
#------------------------------
# Check for pending processes..
#------------------------------
if ( scalar @liPids ) {
#-----------------------------------------------
# Check if the last process is not sapstartsrv..
#-----------------------------------------------
if ( 1 == scalar @liPids && # Last remaining..
defined $iSapStartSrv && #
$iSapStartSrv == $liPids [0] ) {
last;
}
&logTrace ( 20056,
"<%s> Could not confirm shutdown. Retrying in [%s] sec.
Delaying kill with [%s] sec in hand",
$sMyName, $iSleepTime, $iTimeout - $iSleepTime );
}
else {
&logInfo ( 20057,
"<%s> Confirmed shutdown of SAPWebAS71 instance",
$sMyName );
last; # Get out..
}
}
}
#-----------------------------------------
# Whack any persisting SAPWebAS71 processes..
#-----------------------------------------
&logTrace ( 20058,
"<%s> Killing SAPWebAS71 processes for this instance", $sMyName );
if ( SAPWebAS71::KillSAPWebAS71Processes ( $sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin ) ) {
&logTrace ( 20059,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
}
else {
&logError ( 20060,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
my ($sKillFile, $sShutdownFile, $sCollLockFile, $sSendLockFile, @lsFiles ) = ();
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20061,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20062,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20063,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20064,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20065, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(appserv|enqrep)$/io ) {
#----------------------------------------
# Define cleanipc command and arguments..
#----------------------------------------
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
&logTrace ( 20066,
"<%s> Stopping SAPWebAS71 with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20067,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20068,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
}
else {
&logTrace ( 20069,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
#----------------------------------
# Initiate SAPWebAS71 shutdown log..
#----------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Shutdown completed for [$sResourceName]";
if ( ! ( $sInstType =~ /smdagent/io ) ) {
if ( SAPWebAS71::UpdateSAPWebAS71Log ( $sInstName,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sMessage ) ) {
&logTrace ( 20070,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20071,
"<%s> Could not log successfully", $sMyName );
}
}
SAPWebAS71::DeletePidFile ( $sResourceName );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Kill ( IN Integer CleanReason,
IN String EnvFile,
IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName );
Description : Forces shutdown of resource needed for clean entry point
Parameters :
$iCleanReason Why clean was called
$sEnvFile Absolute path to environment file to source
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Kill {
#----------------
# Get Arguments..
#----------------
my ( $iCleanReason,
$sEnvFile,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName ) = @_;
#-----------------------------
# Figure out why were called..
#-----------------------------
my ( $sCleanReason, %hsCleanReasons ) = ();
my @lsCleanStrings = qw ( Offline_timed_out Offline_was_ineffective
Online_timed_out Online_was_ineffective
Found_offline_unexpectedly Monitor_timed_out );
@hsCleanReasons { 0 .. $#lsCleanStrings } = @lsCleanStrings; # Populate..
( $sCleanReason = $hsCleanReasons { $iCleanReason } || # Reason..
$iCleanReason ) =~ s/_/ /g;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20072, "Subroutine <%s> called with:
CleanReason [%s]
EnvFile [%s]
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]",
$sMyName, $iCleanReason, $sEnvFile, $sInstProfile, $sInstType,
$sProcMon, $sSAPAdmin, $sSAPSID, $sSAPHome, $sInstName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 ); # With margin..
#--------------------------
# Declare local variables..
#--------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode,
@lsCmdout, @liDummyPids, @liPids ) = ();
my ($sKillFile, $sShutdownFile, $sCollLockFile, $sSendLockFile, @lsFiles ) = ();
unless ( $hsCleanReasons { $iCleanReason } eq 'Offline_timed_out' ||
$hsCleanReasons { $iCleanReason } eq 'Offline_was_ineffective' ) {
#----------------------------
# Get SAP PIDs
#----------------------------
SAPWebAS71::GetProcState ( \@liDummyPids,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
0 ); # Use RFLM..
@liPids = $bSapStart ? shift @liDummyPids: @liDummyPids; # Local..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
#-----------------------------------------------
# Attempt to request sapstart to stop instance..
#-----------------------------------------------
if ( scalar @liPids ) {
&logInfo ( 20073, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
&logInfo ( 20074,
"<%s> Successfully sent SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
}
else {
&logWarn ( 20075,
"<%s> Failed to send SIGINT to PID [%s]",
$sMyName, join ( ' ', @liPids ) );
}
}
else {
&logError ( 20076,
"<%s> Proceeding with SIGKILL for SAP Instance [%s]",
$sMyName, $sInstName );
}
}
#-----------------------------------------
# Whack any persisting SAPWebAS71 processes..
#-----------------------------------------
&logTrace ( 20077,
"<%s> Killing SAPWebAS71 processes for this instance", $sMyName );
if ( SAPWebAS71::KillSAPWebAS71Processes ( $sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin ) ) {
&logTrace ( 20078,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
}
else {
&logError ( 20079,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#-------------------------------------
# Define clean command and arguments..
#-------------------------------------
my $iInstID = ();
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(appserv|enqrep)$/io ) {
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
#------------------------
# Run cleanipc ..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20080,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20081,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
&logError ( 20082, "<%s> Failed to execute cleanipc.", $sMyName );
$iReturnCode = 0; # Failure..
}
}
else {
&logTrace ( 20083,
"<%s> Skipping cleanipc for InstType [%s].", $sMyName, $sInstType );
}
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20084,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20085,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20086,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20087,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20088, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
#----------------------------------
# Initiate SAPWebAS71 cleanup log..
#----------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Clean called for [$sResourceName] [$sCleanReason]";
if ( ! ( $sInstType =~ /smdagent/io ) ) {
if ( SAPWebAS71::UpdateSAPWebAS71Log ( $sInstName,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sMessage ) ) {
&logTrace ( 20089,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20090,
"<%s> Could not log successfully", $sMyName );
}
}
SAPWebAS71::DeletePidFile ( $sResourceName );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetResourceState ( IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin );
Description : First level monitor to determine state of resource.
Parameters :
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetResourceState {
#----------------
# Get Arguments..
#----------------
my ( $sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20091, "Subroutine <%s> called:
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]",
$sMyName, $sInstProfile, $sInstType, $sProcMon, $sSAPAdmin );
my @liDummyPids = ();
my $iReturnCode = SAPWebAS71::GetProcState ( \@liDummyPids,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
1 ); # Use FFLM..
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logTrace ( 20092,
"<%s> Found all required processes. Return code set to [%s]",
$sMyName, $iReturnCode );
}
else {
&logTrace ( 20093,
"<%s> Did not find all required processes. Returning [%s]",
$sMyName, $iReturnCode );
}
&logTrace ( 20094,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return ( $iReturnCode );
}
=pod
-------------------------------------------------------------------------
Function : int GetProcState ( OUT ListReference OnlinePids,
IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN Integer UseFFLM );
Description : First level monitor to determine state of resource.
Parameters :
$rliOnlinePids PIDs of relevant running processes
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
$iUseFFLM Filtering procedure
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetProcState {
#----------------
# Get Arguments..
#----------------
my ( $rliOnlinePids,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
$iUseFFLM ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20095, "Subroutine <%s> called with:
OnlinePids [%s]
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
UseFFLM [%s]",
$sMyName, $rliOnlinePids, $sInstProfile, $sInstType, $sProcMon,
$sSAPAdmin, $iUseFFLM );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#----------------------
# Initialise Variables..
#----------------------
my ( $iProcessCount, $iUseRFLM, $iFound, $iUid, $iPid, $sLang,
$sKey, $rhlProc, $sPidFile, $sProc, $sTemp, $iSapstartPid,
@hProcListHash, @lsUpdates, @lsValues, $iDwMaster, $iJcFlag,
%hiProcPids, %hsSrvrDetails, %hsCopy, $sEntryPointName,
$iSleepTime, $sInstName, $sSAPSID, @liDummyPids, %hsProcMonCopy,
$iJstartFlag, $iJstartmFlag, $sSAPHost, @lsWords, @lsOthers ) = ();
my ( $sSwitch, $bSapstartFlag, $iPosn, $bAddIn, %hiDwPids, $iParent, $i ) = ();
@$rliOnlinePids = ();
#--------------------------
# Other processes to kill..
#--------------------------
(@lsWords) = split( /\//, $sInstProfile);
($sSAPSID, $sInstName, $sSAPHost) = split(/_/, $lsWords[-1]);
@lsOthers = ( "pf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}" );
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
my $sArch = 0;
my %hsArch = ( 1 => 'Java',
2 => 'ABAP',
3 => 'AddIn' );
my @lsProcMon = $sProcMon =~ /([^\s]+)/g;
my %hsProcs = map { $_ => 1 } @lsProcMon;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
if ( $hsProcs { jc } ) {
$sArch = 1;
}
elsif ( $hsProcs { jstart } && $hsProcs { dw } ) {
$sArch = 3;
++ $bAddIn;
}
elsif ( $hsProcs { JSTARTM } ) { # Recursive call..
$sArch = 3;
++ $bAddIn;
}
elsif ( $hsProcs { dw } ) {
$sArch = 2;
}
=pod
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
if( 1 == grep { /^(jc)$/o } @lsProcMon ) {
$sArch = 1;
}
elsif ( 2 == grep { /^(jstart|dw)$/o } @lsProcMon ) {
$sArch = 3;
++ $bAddIn;
}
elsif ( 1 == grep { /^(dw)$/o } @lsProcMon ) {
$sArch = 2;
}
=cut
if ( $sArch ) {
&logTrace ( 20096,
"<%s> SAP Instance Architecture is [%s]",
$sMyName, $hsArch { $sArch } );
}
else {
&logTrace ( 20097,
"<%s> Couldn't determine SAP Architecture",
$sMyName );
}
#-----------------------------------------------
# Insert sapstart, unless its a recursive call..
#-----------------------------------------------
if ( $sProcMon eq 'JSTART' ) { # It's Java ..
$sProc = 'jstart';
}
elsif ( $sProcMon eq 'JSTARTM' ) { # It's AddIn ..
$sProc = 'dw jstart'; # AddIn for recursive call..
}
else {
$sProc = "sapstart $sProcMon";
}
$iUid = getpwnam $sSAPAdmin;
#------------------------------------
# Attempt to get monitoring details..
#------------------------------------
if ( ( 0 == $iUid ) && # User is the super-user..
( 2 == $iUseFFLM ) ) { # And called to kill-by-UID..
&logTrace ( 20098, "<%s> Unsafe to kill processes by User [%s] UID [%s].
Using filter-based approach.", $sMyName, $sSAPAdmin, $iUid ),
$iUseFFLM = 1;
}
if ( $iUseFFLM != 2 ) { # Called for first level check..
if ( SAPWebAS71::GetSrvrDetails ( $sInstProfile,
$sProc,
\%hsSrvrDetails ) ) {
delete $hsSrvrDetails { dw } if $sProcMon eq 'JSTARTM'; # Remove dw in recursive..
&logTrace ( 20099,
"<%s> Got details for monitoring SAPWebAS71 instance", $sMyName );
%hsCopy = %hsSrvrDetails; # Backup..
$iUseRFLM = scalar keys %hsCopy; # Set to entire count..
}
else {
&logError ( 20100,
"<%s> Failed to get details for monitoring SAPWebAS71 instance",
$sMyName );
return VCSDef_MonitorExit::UNKNOWN;
}
#---------------------------------
# Check if we attempt to be fast..
#---------------------------------
if ( $sEntryPointName ne 'offline' && $iUseFFLM ) { # FFLM..
$iUseRFLM = 0; # Hopefully skip..
foreach $sKey ( keys %hsCopy ) { # Use copy..
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nSAPWebAS71 process [$sKey]\n"; # Display string..
#----------------
# Read in pairs..
#----------------
while ( ( $sPidFile, $sProc ) = splice ( @lsValues, 0, 2 ) ) {
#-----------
# Run FFLM..
#-----------
$iFound = SAPWebAS71::FFLMStatus ( $sPidFile,
$sProc,
$iUid,
\$iPid );
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
$sTemp .= "PID File [$sPidFile]\n";
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FFLM Status [$iFound]\n\n";
}
@{ $hsCopy { $sKey } } = @lsUpdates;
#------------------------
# Handle monitor status..
#------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
if ( $sKey eq 'sapstart' ) { # Check sapstart found ..
$iSapstartPid = $iPid;
unshift ( @$rliOnlinePids, $iPid ); # Insert at the front..
}
else {
if ( $sKey eq 'dw' ) { # Check dw master found for ABAP or AddIn ..
$iDwMaster = $iPid;
}
elsif ( $sKey eq 'jc' ) { # Check jc found for Java ..
++ $iJcFlag;
}
elsif ( $sKey eq 'jstartm' ) { # Check jstart master found for AddIn ..
++ $iJstartmFlag;
}
elsif ( $sKey eq 'jstart' ) {
++ $iJstartFlag;
}
&logTrace ( 20101, "<%s> [%s] found in FFLM [%s]", $sMyName, $sKey, $iPid);
push ( @$rliOnlinePids, $iPid ); # Push..
}
}
else {
++ $iUseRFLM; # Mark it for RFLM..
}
}
#----------------
# Print summary..
#----------------
&logTrace ( 20102,
"<%s> SAPWebAS71 instance process details ---%s\n\n",
$sMyName, $sTemp );
( $sTemp, $sPidFile, $sProc ) = (); # Release memory..
}
else { # Use RLFM..
#-----------------------------------------
# Mark status of each service as offline..
#-----------------------------------------
$iFound = VCSDef_MonitorExit::OFFLINE; # Set to offline..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
while ( scalar @lsValues ) {
push ( @lsUpdates, splice ( @lsValues, 0, 2 ), $iFound );
}
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
}
}
}
else { # Called for Kill..
&logTrace ( 20103,
"<%s> Called to get processes for User [%s] UID [%s]",
$sMyName, $sSAPAdmin, $iUid );
++ $iUseRFLM;
}
#-----------------------
# Regular slow :-( FLM..
#-----------------------
if ( $iUseRFLM ) {
&logTrace ( 20104,
"<%s> Running regular first level monitor", $sMyName );
#----------------------------------
# Set LANG for better performance..
#----------------------------------
$sLang = $ENV { LANG }; # Backup..
$ENV { LANG } = 'C'; # Now set..
#-----------------------------------
# Call processes and store in hash..
#-----------------------------------
$iProcessCount = Proc::GetLongProcessListHash ( \@hProcListHash );
#----------
# Restore..
#----------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG }; # Restore..
#----------------------
# Check if we got any..
#----------------------
if ( $iProcessCount ) {
&logTrace ( 20105,
"<%s> Got [%s] processes from proc table for filtering",
$sMyName, $iProcessCount );
}
else {
&logError ( 20106,
"<%s> Call to get process list did not return any processes",
$sMyName );
return VCSDef_MonitorExit::OFFLINE; # Offline..
}
my $iParent = 1; # Set to init..
my $sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '';
#-----------------------
# Search for processes..
#-----------------------
foreach $rhlProc ( @hProcListHash ) {
#--------------------------------------------------------------
# Each $rhlProc is a ref. to a hash with the following keys..
# "UID" =>
# "PID" =>
# "PPID" =>
# "COMMAND" =>
#--------------------------------------------------------------
next unless defined $$rhlProc { UID }; # Bug in Proc::GetLongProcessListHash..
next if $$rhlProc { PID } == $$; # Skip self..
$iPid = $$rhlProc { PID }; # Assign..
&logTrace ( 20107, "<%s> Searching UID [%s] PID [%s] PPID [%s] CMD [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
#--------------------------------
# Handle Solaris 10 local zones..
#--------------------------------
if ( $sOSVer eq '5.10' && # Solaris 10..
$$rhlProc { COMMAND } =~ m@/sbin/init$@ && # With init..
! kill ( 0, 1 ) ) { # In a non-global zone..
$iParent = $$rhlProc { PPID }; # Get actual PID..
}
if ( $$rhlProc { UID } == $iUid ) { # Process owner..
#-----------------------------------------------
# Look for processes that were offline in FFLM..
#-----------------------------------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
#--------------------------------------------------
# Should have details per three elements of array..
#
#--------------------------------------------------
while ( ( $sPidFile, $sProc, $iFound ) = splice ( @lsValues, 0, 3 ) ) {
if ( VCSDef_MonitorExit::OFFLINE == $iFound ) { # Earlier marked offline..
if ( $$rhlProc { COMMAND } =~ /$sProc/ ) { # Now found..
#-----------------------
# Handle dw separately..
#-----------------------
$iFound = VCSDef_MonitorExit::ONLINE unless $sKey eq 'dw';
#-----------------------
# Handle special cases..
#-----------------------
$sSwitch = $sKey =~ /^(jc|jstart|dw|sapstart)$/o ? $sKey: 'default';
if("sapstart" eq $sSwitch) {
$iPosn = 0;
$iSapstartPid = $iPid; # Store..
}
elsif("jc" eq $sSwitch) {
$iPosn = 1;
++ $iJcFlag; # Set flag..
}
elsif("jstartm" eq $sSwitch) {
$iPosn = 2;
++ $iJstartmFlag;
}
elsif("jstart" eq $sSwitch) {
$iPosn = 3;
++ $iJstartFlag;
}
elsif("dw" eq $sSwitch) {
$iPosn = 4;
$hiDwPids { $iPid } = $$rhlProc { PPID }; # Store..
}
else{
$iPosn = scalar @$rliOnlinePids;
}
#--------------------------------
# Insert into appropriate place..
#--------------------------------
$iPosn = scalar @$rliOnlinePids if $iPosn > scalar @$rliOnlinePids;
splice ( @$rliOnlinePids, $iPosn, 0, $iPid ); # Insert..
$hiProcPids { $sKey } = $iPid; # Store..
&logTrace ( 20108,
"<%s> Found PID [%s] PPID [%s] CMD [%s] with filter [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND }, $sProc );
}
}
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
}
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
}
}
elsif ( $sProcMon !~ /JSTART/ ) { # Request for kill..
&logTrace ( 20109,
"<%s> Pushing PID [%s] with PPID [%s] Cmd [%s] on stack",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
push ( @$rliOnlinePids, $iPid ); # Store..
}
}
#---------------------------------
# Handle other related processes..
#---------------------------------
if ( ( ! grep { /^$iPid$/ } @$rliOnlinePids ) && # Not caught earlier..
$$rhlProc { UID } == $iUid && # Owned by SAPAdmin
map { $$rhlProc { COMMAND } =~ /$_/ } @lsOthers ) { # Was now found..
push ( @$rliOnlinePids, $iPid ); # Store..
#-----------------------------------------
# Populate dwindling sapstartsrv process..
#-----------------------------------------
if ( $$rhlProc { COMMAND } =~ /sapstartsrv/o ) {
$iSapStartSrv = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cm\.sap/o ) { # Note sapccm4x process
$iCCMSX = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cs\.sap/o ) { # Note sapccmsr process
$iCCMSR = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /sapccm4x/o ) {
$iCCMSX = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /sapccmsr/o ) { # Note sapccmsr process
$iCCMSR = $iPid; # Populate global..
}
&logTrace ( 20110,
"<%s> Matched process PID [%s] PPID [%s] CMD [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
}
}
}
#------------------------------------
# Set final status for each process..
#------------------------------------
my ( $iOnline, $iOffline ) = ();
my @liDwPids = keys %hiDwPids;
$sTemp = ''; # Ensure..
foreach $sKey ( sort keys %hsCopy ) {
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nProcess [$sKey]\n";
while ( ( $sPidFile, $sProc, $iFound ) = splice ( @lsValues, 0, 3 ) ) {
#-------------------------------------
# Set status for dw master process ..
#-------------------------------------
if ( $bAddIn && $sProcMon !~ /JSTARTM/ ) {
&logTrace ( 20111,
"<%s> Key [%s] EntryPoint [%s] AddIn [%s] dw master [%s]",
$sMyName, $sKey, $sEntryPointName, $bAddIn, $iDwMaster );
}
if ( $sKey eq 'dw' && scalar @liDwPids ) {
#-------------------------------------
# Check if we the dw master process ..
#-------------------------------------
if ( $iSapstartPid && # sapstart exists
( ( $iDwMaster ) = # Get the dw master
grep { # By finding
$iSapstartPid == $hiDwPids { $_ } # sapstart as it's parent
} @liDwPids ) ) { # From all dw processes
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logTrace ( 20112,
"<%s> Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $iSapstartPid );
}
elsif ( ( ( $iDwMaster ) = # A dw process..
grep { # Found..
$iParent == $hiDwPids { $_ } &&# With init as parent..
++ $i # Mark it..
} @liDwPids ) && 1 == $i ) { # If only one such exists..
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logWarn ( 20113,
"<%s> Missing sapstart process.
Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $hiDwPids { $iDwMaster } );
}
else {
&logTrace ( 20114,
"<%s> Missing dw master. Marking status as offline", $sMyName );
$iFound = VCSDef_MonitorExit::OFFLINE; # Ensure its offline..
#------------------------
# Delete PID, if stored..
#------------------------
if ( defined $hiProcPids { $sKey } ) {
delete $hiProcPids { $sKey };
}
}
}
#--------------------------
# Mark status of sapstart..
#--------------------------
if ( $sKey eq 'sapstart' && $iSapstartPid ) {
++ $bSapstartFlag; # Mark it found..
++ $bSapStart; # Mark global..
}
#------------------------------------
# If we are AddIn, validate jstart ..
#------------------------------------
if ( $sKey eq 'jstartm' && # Looking for jstart..
$sEntryPointName eq 'monitor' && # in monitor..
$bAddIn &&
$iDwMaster ) { # dw and jstart declared..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
my $iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 );
$iSleepTime = ( $iTillWhen - time ) / 10;
my $iTimeRemain = undef;
while ( ! ( $iJstartmFlag && $iJstartFlag ) ) { # jstart master missing..
unless ( ( $iTimeRemain = $iTillWhen - time ) > 10 ) {
&logTrace ( 20115,
"<%s> Insufficient time [%s] sec to retry. Exiting ..", $sMyName, $iTimeRemain );
last;
}
&logWarn ( 20116,
"<%s> Missing 'jstart' master, though 'dw' master [%s] exists.
Retrying in [%s] sec", $sMyName, $iDwMaster, $iSleepTime );
sleep $iSleepTime; # Take a break..
#-------------------------------
# Call ourselves with 'JSTARTM'..
#-------------------------------
$iFound = SAPWebAS71::GetProcState ( \@liDummyPids,
$sInstProfile,
$sInstType,
'JSTARTM', # In CAPS..
$sSAPAdmin,
0 ); # Regular FLM..
#--------------------------------------------------------------------
# If we returned online, we know we found jstart master and at least
# one jstart server process. PID now is in first position..
#--------------------------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
&logTrace ( 20117,
"<%s> Found jstart master process after recursive call",
$sMyName );
#-----------------------------
# Update jstartm and jstart ..
#-----------------------------
( $hiProcPids { jstartm }, $hiProcPids { jstart } ) = (); # Ensure undefs..so that PID
# files are not created again for FFLM..
++ $iJstartmFlag; # Set flag..
${ $hsCopy { jstartm } } [-1] = $iFound; # Mark online..
++ $iJstartFlag; # Set flag..
${ $hsCopy { jstart } } [-1] = $iFound; # Mark online..
}
else {
&logError ( 20118, "<%s> Missing jstart child process after recursive call. Retrying ..", $sMyName );
${ $hsCopy { jstartm } } [-1] = VCSDef_MonitorExit::ONLINE;
${ $hsCopy { jstart } } [-1] = VCSDef_MonitorExit::OFFLINE;
$iFound = VCSDef_MonitorExit::OFFLINE;
}
}
}
#--------------------------------------------------
# Check if 'jstart' is missing and 'jc' is alive ..
#--------------------------------------------------
if ( $sEntryPointName eq 'monitor' && # In monitor..
$sKey eq 'jstart' && # Jstart,
$iJcFlag ) { # when jc, alive..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
my $iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 );
$iSleepTime = ( $iTillWhen - time ) / 10;
my $iTimeRemain = undef;
while ( ! $iJstartFlag ) { # jstart missing..
unless ( ( $iTimeRemain = $iTillWhen - time ) > 10 ) {
&logTrace ( 20119,
"<%s> Insufficient time [%s] sec to retry. Exiting..", $sMyName, $iTimeRemain );
last;
}
&logWarn ( 20120,
"<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec",
$sMyName, $sKey, $iSleepTime );
sleep $iSleepTime; # Take a break..
#--------------------------------------
# Call ourselves again with 'jstart' ..
#--------------------------------------
$iFound = SAPWebAS71::GetProcState ( \@liDummyPids,
$sInstProfile,
$sInstType,
'JSTART',
$sSAPAdmin,
0 ); # Regular FLM..
#--------
# Store..
#--------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
$hiProcPids { jstart } = ();
${ $hsCopy { jstart } } [-1] = $iFound; # Mark online..
++ $iJstartFlag;
&logTrace ( 20121,
"<%s> Found jstart process after recursive call.", $sMyName );
}
else {
&logError ( 20122, "<%s> Missing jstart process after recursive call. Retrying ..", $sMyName );
$iFound = VCSDef_MonitorExit::OFFLINE; # Ignore partial..
}
}
}
#-----------------------------------
# Create PID files for use in FFLM..
#-----------------------------------
if ( $iUseRFLM && $iUseFFLM != 2 && # In RFLM..
$hiProcPids { $sKey } && # PID populated..
( $sEntryPointName =~ /^(monitor|online)$/o ) ) { # In monitor or online..
&logTrace ( 20123,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $hiProcPids { $sKey } );
#---------
# Create..
#---------
if ( SAPWebAS71::CreatePidFile ( $sPidFile, $hiProcPids { $sKey } ) ) {
&logTrace ( 20124,
"<%s> Successfully created PID file [%s]", $sMyName, $sPidFile );
}
else {
&logError ( 20125,
"<%s> Could not create PID file [%s] successfully",
$sMyName, $sPidFile );
}
}
#-------------
# Set status..
#-------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
$iOnline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound && $sKey ne 'sapstart' ) {
if ( $bAddIn && $sKey eq 'jstart' && $sProcMon !~ /JSTART/ ) {
$iFound = 'XXX';
}
else {
$iOffline = $iFound;
}
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound ) {
$iOffline = $iFound;
}
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FLM Status [$iFound]\n\n";
}
$sTemp .= "--------------------";
}
#-------------------
# Set final status..
#-------------------
$iReturnCode = $iOnline && $iOffline ? VCSDef_MonitorExit::PARTIAL_ONLINE:
$iOffline || $iOnline || VCSDef_MonitorExit::UNKNOWN;
#$sTemp =~ s/XXX/VCSDef_MonitorExit::ONLINE == $iReturnCode ? 110:100/e;
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
$sTemp =~ s/XXX/110/;
}
else {
$sTemp =~ s/XXX/100/;
}
#------------------------------------------------
# Reset status based on PIDs, if not in monitor..
#------------------------------------------------
if ( $sEntryPointName ne 'monitor' &&
( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) &&
scalar @$rliOnlinePids ) {
$iReturnCode = VCSDef_MonitorExit::PARTIAL_ONLINE;
&logTrace ( 20126,
"<%s> Found [%s] PIDs [%s] for this instance of SAPWebAS71.
Resetting return code to [%s]",
$sMyName, scalar @$rliOnlinePids, join ( ' ', @$rliOnlinePids ),
$iReturnCode );
}
#---------------------
# Report on sapstart..
#---------------------
if ( ! $bSapstartFlag && # Missing sapstart..
$sEntryPointName eq 'monitor' && # In monitor..
$sProcMon !~ /^(JSTART|JSTARTM)$/o && # Not in recursive call..
VCSDef_MonitorExit::OFFLINE != $iReturnCode ) { # Not offline..
&logWarn ( 20127,
"<%s> Missing sapstart process in first level monitor",
$sMyName );
}
#-----------------------
# Report on FLM status..
#-----------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
&logTrace ( 20128,
"<%s> SAPWebAS71 process details ---\n%s\nReturn code is [%s]",
$sMyName, $sTemp, $iReturnCode );
$sTemp = undef; # Release..
}
#--------------------------------
# Populate the global PID array..
#--------------------------------
@liRunningProcs = @$rliOnlinePids;
&logTrace ( 20129,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int Monitor ( IN String EnvFile,
IN String ProcMon,
IN String InstProfile,
IN String InstType,
IN String MonitorProgram,
IN String SAPAdmin,
IN Integer SecondLevelMonitor );
Description: Performs the in-depth monitoring
Parameters :
$sEnvFile Absolute path to environment file to source
$sProcMon List of Processes to be monitored
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sMonitorProgram Full path to external monitor program
$sSAPAdmin SAP System Administrator
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if in-depth monitoring cannot be completed.
-------------------------------------------------------------------------
=cut
sub Monitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sProcMon,
$sInstProfile,
$sInstType,
$sMonitorProgram,
$sSAPAdmin,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20130, "Subroutine <%s> called with:
EnvFile [%s]
ProcMon [%s]
InstProfile [%s]
InstType [%s]
MonitorProgram [%s]
SAPAdmin [%s]
SecondLevelMonitor [%s]",
$sMyName, $sEnvFile, $sProcMon, $sInstProfile, $sInstType,
$sMonitorProgram, $sSAPAdmin, $iSecondLevelMonitor );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
my $iTillWhen = undef;
#----------------------------------------------
# In-depth monitoring, if correct time to run..
#----------------------------------------------
if ( VCSagentFW::RunSecondLevelMonitor ( $iSecondLevelMonitor ) ) {
#--------------------------
# Just In Time Validation..
#--------------------------
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPWebAS71::DelayedAttributeCheck ( $sEnvFile,
$sInstProfile,
$sSAPAdmin ) ) ) {
&logTrace ( 20131,
"<%s> Delayed attribute check completed successfully",
$sMyName );
}
else {
&logError ( 20132,
"<%s> Attribute validation failed. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
&logTrace ( 20133,
"<%s> Proceeding with second level monitoring", $sMyName );
#-------------------------------------------------------
# Upper bound..
# Time in EPOCH when entry pt started + VCS time limit..
#-------------------------------------------------------
$iTillWhen = $^T + SAPWebAS71::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPWebAS71::SecondLevelMonitor ( $sEnvFile,
$sProcMon,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$iTillWhen ) ) ) {
&logTrace ( 20134,
"<%s> SAPWebAS71 instance online with status [%s] after SLM",
$sMyName, $iReturnCode );
}
else {
&logError ( 20135,
"<%s> SAPWebAS71 instance NOT online after SLM. Status [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
}
#------------------------------------------------
# Exit if external monitor has not been defined..
#------------------------------------------------
return $iReturnCode unless defined $sMonitorProgram;
#---------------------------------------
# MonitorProgram defined..
# Separate the executable and the args..
#---------------------------------------
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
#----------------------------------------
# Get time bearings, if not got earlier..
#----------------------------------------
$iTillWhen ||= $^T + SAPWebAS71::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == # and found online..
( $iReturnCode = # by the status..
SAPWebAS71::ExternalMonitor ( $sSAPAdmin,
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) ) {
&logTrace ( 20136,
"<%s> SAPWebAS71 instance found online with status [%s]
after executing external monitor [%s] with args [%s]",
$sMyName, $iReturnCode, $sExtCmd, $sExtCmdArgs );
}
else {
&logError ( 20137,
"<%s> SAPWebAS71 instance NOT online after executing external monitor
[%s] with args [%s]. Status [%s]",
$sMyName, $sExtCmd, $sExtCmdArgs, $iReturnCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int DelayedAttributeCheck ( IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin );
Description : Just In Time Validation
Parameters :
$sEnvFile Absolute path to environment file to source
$sInstProfile Instance profile file for the SAP Instance
$sSAPAdmin SAP System Administrator
Returns : Integer value as defined below:
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub DelayedAttributeCheck {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstProfile,
$sSAPAdmin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20138, "Subroutine <%s> called with:
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]",
$sMyName, $sEnvFile, $sInstProfile, $sSAPAdmin );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my @lsArgs = qw ( EnvFile InstProfile SAPAdmin );
my @lsReqdArgs = qw ( EnvFile InstProfile SAPAdmin );
my ( @lsMissing, %hsArgList ) = ();
@hsArgList { @lsArgs } = @_; # Assign..
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20139,
"<%s> The following mandatory fields were not set [%s], Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#--------------------
# Return, if failed..
#--------------------
if ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
return $iReturnCode;
}
#-------------------------------
# Validate parameter SAPAdmin..
#-------------------------------
if ( ! defined getpwnam $sSAPAdmin ) {
&logError ( 20140, "<%s> SAPAdmin [%s] is not a valid UNIX login",
$sMyName, $sSAPAdmin );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#------------------------------
# Validate parameter EnvFile..
#------------------------------
if ( ! -e $sEnvFile ) {
&logError ( 20141, "<%s> EnvFile [%s] file does not exist",
$sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#----------------------------------
# Validate parameter InstProfile..
#----------------------------------
if ( ! -e $sInstProfile ) {
&logError ( 20142, "<%s> InstProfile [%s] file does not exist",
$sMyName, $sInstProfile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int SecondLevelMonitor ( IN String EnvFile,
IN String ProcMon,
IN String InstProfile,
IN String InstType,
IN String SAPAdmin,
IN Integer TillWhen );
Description : Does in-depth monitoring, if enabled.
Parameters :
$sEnvFile Absolute path to environment file to source
$sProcMon List of processes to be monitored
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sSAPAdmin SAP System Administrator
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if the command cannot be completed.
-------------------------------------------------------------------------
=cut
sub SecondLevelMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sProcMon,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20143, "Subroutine <%s> called with:
EnvFile [%s]
ProcMon [%s]
InstProfile [%s]
InstType [%s]
SAPAdmin [%s]
TillWhen [%s]",
$sMyName, $sEnvFile, $sProcMon, $sInstProfile, $sInstType,
$sSAPAdmin, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iTimeout, $iExitCode, $sCommand, $sCommandArgs, @lsCmdout ) = ();
my ($sSAPSID, $sInstName, $iInstID, $sSAPHost, $sSAPHome) = ();
my (@lsWords) = ();
(@lsWords) = split( /\//, $sInstProfile);
($sSAPSID, $sInstName, $sSAPHost) = split(/_/, $lsWords[-1]);
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sSAPHome = "/usr/sap/$sSAPSID/$sInstName/exe";
my ( $sSwitch, $iRetCode ) = ();
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
my $sArch = 0;
my %hsArch = ( 1 => 'Java',
2 => 'ABAP',
3 => 'AddIn' );
my @lsProcMon = $sProcMon =~ /([^\s]+)/g;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
if( 1 == grep { /^(jc)$/o } @lsProcMon ) {
$sArch = 1;
}
elsif ( 2 == grep { /^(jstart|dw)$/o } @lsProcMon ) {
$sArch = 3;
}
elsif ( 1 == grep { /^(dw)$/o } @lsProcMon ) {
$sArch = 2;
}
if ( $hsArch { $sArch } ) {
$sSwitch = $hsArch { $sArch };
&logTrace ( 20144,
"<%s> Identified SAP Architecture [%s] from ProcMon [%s]",
$sMyName, $sSwitch, $sProcMon );
}
else {
&logTrace ( 20145,
"<%s> Could not identify SAP Architecture from ProcMon [%s]",
$sMyName, $sProcMon );
$sSwitch = 'DEFAULT'; # Mark it default..
}
#-----------------------
# Do the correct stuff..
#-----------------------
if("Java" eq $sSwitch ) {
if ( $sInstType =~ /^(appserv|smdagent)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = " -nr $iInstID -function J2EEGetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPWebAS71::ExecJSMon ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
$iTimeout );
}
else {
&logError ( 20146,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("ABAP" eq $sSwitch ) {
if ( $sInstType =~ /^(appserv)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = " -nr $iInstID -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPWebAS71::ExecGetProcList ( $sSAPAdmin, # User context..
$sSwitch,
$sEnvFile, # Use envfile..
$sCommand,
$sCommandArgs,
$iTimeout );
}
else {
&logError ( 20147,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("AddIn" eq $sSwitch ) {
if ( $sInstType =~ /^(appserv)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = " -nr $iInstID -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPWebAS71::ExecGetProcList ( $sSAPAdmin, # User context..
'ABAP',
$sEnvFile, # Use envfile..
$sCommand,
$sCommandArgs,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
}
if ( $sInstType =~ /^(appserv|smdagent)$/io ) {
#--------------------------
# Re-set command and args..
#--------------------------
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = " -nr $iInstID -function J2EEGetProcessList";
$iTimeout = $iTillWhen - time;
$iRetCode = SAPWebAS71::ExecJSMon ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
$iTimeout );
#-------------------------------------------
# Update, status only when it's not online..
#-------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iRetCode ) {
$iReturnCode = $iRetCode;
}
}
else {
&logError ( 20148,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else{
if ( $sInstType !~ /^(appserv)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCommand = "$sSAPHome/ensmon";
$sCommandArgs = "pf=$sInstProfile 2";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPWebAS71::ExecENSMon ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
$sInstType,
$iTimeout );
}
else {
&logError ( 20149,
"<%s> Encountered unsupported InstType [%s]. Has to be one of
[enqueue enqrep]",
$sMyName, $sInstType );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExternalMonitor ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer TillWhen );
Description : Handles user defined external monitor program
Parameters :
$sSAPAdmin SAP System Administrator
$sEnvFile Absolute path to environment file to source
$sCmd User defined utilty to execute
$sCmdArgs Command line arguments
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if the command cannot be completed.
-------------------------------------------------------------------------
=cut
sub ExternalMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20150, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
TillWhen [%s]",
$sMyName, $sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my ( $iExitCode, $iTimeout, @lsCmdout ) = ();
my $iBuf = 5; # Secs..
#-------------------------
# Handled exit code hash..
#-------------------------
my %hiExitCodes = ( 0, VCSDef_MonitorExit::ONLINE,
110, VCSDef_MonitorExit::ONLINE,
1, VCSDef_MonitorExit::OFFLINE,
100, VCSDef_MonitorExit::OFFLINE,
VCSDef_MonitorExit::TIMEOUT,
VCSDef_MonitorExit::TIMEOUT );
#---------------------------------------------
# Check if command can be found and executed..
#---------------------------------------------
if ( ! -e $sCmd ) {
&logError ( 20151,
"<%s> External monitor [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20152,
"<%s> External monitor [%s] not executable.",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEnvFile =~ /\S/ && ! -e $sEnvFile ) {
&logError ( 20153,
"<%s> EnvFile [%s] does not exist", $sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ( $iTimeout = $iTillWhen - ( time + $iBuf ) ) <= 5 ) { # Lack of time..
&logError ( 20154,
"<%s> Insufficient time to proceed with external monitor [%s].
Short by [%s] sec", $sMyName, $sCmd, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
#--------------------------------------------
# Return if validation failed at this point..
#--------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
return $iReturnCode;
}
&logTrace ( 20155,
"<%s> Executing external monitor with Command [%s] Args [%s] in [%s] secs",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
#----------------------
# Execute the command..
#----------------------
SAPWebAS71::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout );
#------------------------
# Report on exit status..
#------------------------
if ( ! defined $iExitCode ) {
$lsCmdout [0] ||= 'undef'; # Set if not defined..
$iExitCode = $lsCmdout [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
}
elsif ( $hiExitCodes { $iExitCode } &&
VCSDef_MonitorExit::ONLINE ==
$hiExitCodes { $iExitCode } ) {
&logTrace ( 20156,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdout ) );
}
else {
&logWarn ( 20157,
"<%s> Command [%s] with args [%s] execution failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdout ) );
}
#--------------------------------
# Setup appropriate return code..
#--------------------------------
$iReturnCode = $hiExitCodes { $iExitCode } ||
VCSDef_MonitorExit::UNKNOWN;
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CreatePidFile ( IN String PidFile,
In Integer Pid );
Description : Creates PID file with given PID
Parameters :
$sPidFile File to create
$iPid PID to store
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CreatePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$iPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20158, "Subroutine <%s> called with:
PidFile [%s]
Pid [%s]",
$sMyName, $sPidFile, $iPid );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------
# Check against undefs..
#-----------------------
unless ( defined $iPid && $iPid =~ /^\d+$/o) {
$iPid ||= 'undef'; # Prevent undefs.
&logError ( 20159, "<%s> PID [%s] is not a valid positive number",
$sMyName, $iPid );
return 0; # Proceed no further..
}
#------------------
# Create PID file..
#------------------
&logTrace ( 20160,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
if ( sysopen ( PIDFILE, $sPidFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print PIDFILE $iPid, "\n"; # Update..
unless ( close ( PIDFILE ) ) {
&logWarn ( 20161,
"<%s> Failed to close PidFile [%s] after update: [%s]",
$sMyName, $sPidFile, $! );
$iReturnCode = 0;
}
}
else {
&logWarn ( 20162,
"<%s> Failed to create PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
$iReturnCode = 0;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool DeletePidFile ( IN String ResourceName );
Description : Deletes PID files for the VCS resource.
Parameters :
$sResourceName ResourceName for which the PID files needs to be deleted.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeletePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sResourceName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20329, "Subroutine <%s> called with:
ResourceName [%s]",
$sMyName, $sResourceName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sPidFileDir, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20330,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
$sPidFileDir = "/tmp/.VRTSSAPWebAS71/" . $sResourceName . "/PID" ;
if ( -d $sPidFileDir ) {
$iRet = system("/bin/rm -rf $sPidFileDir") ;
if ( $iRet == 0 ) {
&logTrace ( 20331,
"<%s> Successfully deleted PID files in the directory [%s].",
$sMyName, $sPidFileDir );
$iReturnCode = 0;
}
else {
&logWarn ( 20332,
"<%s> Failed to delete PID files in directory [%s]. Remove the files manually.",
$sMyName, $sPidFileDir );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20333,
"<%s> PID files for VCS resource [%s] doesn't exist.",
$sMyName, $sResourceName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int FFLMStatus ( IN String PidFile,
IN String Proc,
IN Integer Uid,
OUT RefInt Pid );
Description: Checks status of Process listed in PidFile, if running
Parameters :
$sPidFile Absolute path to PID file of service
$sProc Process string to search for in proc table
$iUid UNIX UID of owner
$riPid Reference to existing PID
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub FFLMStatus {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$sProc,
$iUid,
$riPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20163, "Subroutine <%s> called with:
PidFile [%s]
Proc [%s]
UID [%s]
riPid [%s]",
$sMyName, $sPidFile, $sProc, $iUid, $riPid );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$$riPid = 0; # Reset..
#-------------------------
# Define local variables..
#-------------------------
my ( $iPid, $rhlProc, @lProcessHash ) = ();
#----------------------------------
# Start by testing the attributes..
#----------------------------------
if ( $sProc !~ /\S/ ) {
&logError ( 20164, "<%s> Called with empty [%s] process string",
$sMyName, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -e $sPidFile ) {
&logTrace ( 20165, "<%s> PID file [%s] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -s $sPidFile ) {
&logWarn ( 20166, "<%s> PID file [%s] is of zero bytes",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
#---------------------
# Return, if offline..
#---------------------
return $iReturnCode unless VCSDef_MonitorExit::ONLINE == $iReturnCode;
if ( open ( PIDFILE, $sPidFile ) ) {
( $iPid ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iPid = '' unless defined $iPid; # Avoid undefs..
close ( PIDFILE ) || # Close file..
&logWarn ( 20167,
"<%s> Could not close PID file [%s] after read [%s]",
$sMyName, $sPidFile, $! );
}
else {
&logError ( 20168,
"<%s> Failed to open PID file [%s] for read: [%s]",
$sMyName, $sPidFile, $! );
return VCSDef_MonitorExit::OFFLINE; # Failure..
}
#------------------------
# Check if PID is valid..
#------------------------
if ( $iPid =~ /\d+/ && # If the valid number..
kill ( 0, $iPid ) ) { # is a PID that's alive..
&logTrace ( 20169,
"<%s> PID [%s] from PID file [%s] exists",
$sMyName, $iPid, $sPidFile );
#-----------------------
# Search in proc table..
#-----------------------
if ( SAPWebAS71::GetPidDetails ( $iPid,
\@lProcessHash ) ) {
#--------------
# Got details..
#--------------
foreach $rhlProc ( @lProcessHash ) {
&logTrace ( 20170,
"<%s> Process details: UID [%s] PID [%s] PPID [%s] ARGS [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
#--------------
# Now compare..
#--------------
if ( ( $$rhlProc { UID } == $iUid ) && # Owner match..
$$rhlProc { COMMAND } =~ /$sProc/ ) { # Filter match..
&logTrace ( 20171,
"<%s> PID [%s] owned by UID [%s] with ARGS [%s] contains [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$$riPid = $iPid; # Store..
}
else {
&logTrace ( 20172,
"<%s> Ignoring PID [%s] owned by UID [%s] with ARGS [%s] with string [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
}
else {
&logTrace ( 20173,
"<%s> Could not get details for PID [%s]",
$sMyName, $iPid );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
else {
&logTrace ( 20174, "<%s> PID [$iPid] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
@lProcessHash = (); # Truncate..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool KillSAPWebAS71Processes ( IN String InstProfile,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin );
Description : Kills processes for this instance of SAPWebAS71
Parameters :
$sInstProfile Instance profile file for the SAP Instance
$sInstType Instance type for the SAP Instance
$sProcMon List of processes to be monitored
$sSAPAdmin SAP System Administrator
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub KillSAPWebAS71Processes {
#----------------
# Get Arguments..
#----------------
my ( $sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20175, "Subroutine <%s> called with:
InstProfile [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]",
$sMyName, $sInstProfile, $sInstType, $sProcMon, $sSAPAdmin );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Set up local variables..
#-------------------------
my ( @liGoners, @liUnDead ) = ();
#---------------------------------------------
# Get list of processes running for this Uid..
#---------------------------------------------
if ( ( caller 1 )[3] eq 'SAPWebAS71::Start' ) { # During online..
@liGoners = @liRunningProcs; # Get PIDs to kill..
}
else {
SAPWebAS71::GetProcState ( \@liGoners,
$sInstProfile,
$sInstType,
$sProcMon,
$sSAPAdmin,
0 ); # Set filtering choice..
}
#--------------------------
# Sort in ascending order..
#--------------------------
@liGoners = sort { $a <=> $b } @liGoners;
#------------------------------------------------------------------
# We do a two level kill. The SIGINQ ensures that the PID is a
# valid process before we actually issue the SIGKILL. We don't want
# to report a failure for SIGKILL in case of defunct or missing
# processes.
#------------------------------------------------------------------
if ( scalar @liGoners ) {
#----------------------
# Failed to kill some..
#----------------------
if ( @liUnDead = grep {
kill ( 0, $_ ) && # Valid..
! kill ( 9, $_ ) # and could NOT be killed..
} @liGoners ) { # From what's found..
&logError ( 20176,
"<%s> PIDs not killed [%s] Total not killed [%s]",
$sMyName, join ( ' ', @liUnDead ), scalar @liUnDead );
$iReturnCode = 0; # Failure..
}
else { # All killed..
&logInfo ( 20177,
"<%s> Killed PIDs [%s] Total killed: [%s]",
$sMyName, join ( ' ', @liGoners ), scalar @liGoners );
}
}
else {
&logTrace ( 20178,
"<%s> Could not locate any process this instance of SAPWebAS71",
$sMyName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ExecLocalCmd ( IN String User,
IN String EnvFile,
IN String Command,
IN String CommandArgs,
OUT RefInt ExitCode,
IN Integer Timeout,
OUT ListReference Cmdout );
Description : Wrapper function for
Sys::RunWithEnvCmdWithOutputWithTimeOut to collect output
of the command.
Parameters :
$sUser UNIX user to run the command as
$sEnvFile Absolute path to location of EnvFile to source
$sCommand Absolute path to location of command
$sCommandArgs Arguments to command
$riExitCode Reference to collect exit code of command
$iTimeout Time limit to execute the command
$rlsCmdout Stores o/p from command if successful
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ExecLocalCmd {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
$riExitCode,
$iTimeout,
$rlsCmdout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20179, "Subroutine <%s> called with:
User [%s]
EnvFile [%s]
Command [%s]
CommandArgs [%s]
riExitCode [%s]
Timeout [%s]
rlsCmdout [%s]",
$sMyName,
$sUser, $sEnvFile, $sCommand, $sCommandArgs, $riExitCode,
$iTimeout, $rlsCmdout );
#---------------------------------------
# Setup return code to hopeful success..
#---------------------------------------
my $iReturnCode = 1;
#-------------------
# Set up arguments..
#-------------------
my $bSourceUserEnv = 0; # Do not source..
my $bTimedOut = 0; # Timeout variable..
@$rlsCmdout = (); # Reset..
#-----------
# Validate..
#-----------
if ( ! -e $sCommand ) {
&logError ( 20180,
"<%s> Cmd [%s] does not exist", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCommand ) {
&logError ( 20181,
"<%s> Cmd [%s] is not executable", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( $iTimeout <= 1 ) {
&logError ( 20182,
"<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s].",
$sMyName, $iTimeout, $sCommand, $sCommandArgs );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return if failed..
#----------------------
# Set LOGNAME to user..
#----------------------
my $sOldLogName = $ENV { LOGNAME }; # Backup..
$ENV { LOGNAME } = $sUser; # Now set..
&logTrace ( 20183,
"<%s> Executing Command [%s] with Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
$iReturnCode = Sys::RunWithEnvCmdWithOutputWithTimeOut ( $sEnvFile,
$bSourceUserEnv,
$sCommand,
$sCommandArgs,
$riExitCode,
$sUser,
$rlsCmdout,
\$bTimedOut,
$iTimeout );
#---------------------------
# Remove trailing newlines..
#---------------------------
chomp @$rlsCmdout;
#--------------------
# Check return code..
#--------------------
if ( $iReturnCode ) { # No error with command execution..
if ( $$riExitCode ) { # Failure..
&logTrace ( 20184,
"<%s> Command [%s] with args [%s] returned exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20185,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
}
}
else { # Execution error..
@$rlsCmdout = (); # Reset..
if ( $bTimedOut ) { # We timed out..
&logError ( 20186,
"<%s> Command [%s] with args [%s] did not complete within [%s] seconds",
$sMyName, $sCommand, $sCommandArgs, $iTimeout );
$$rlsCmdout [0] = 'timeout'; # Timeout..
}
else { # Failure due to something else..
&logError ( 20187,
"<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut",
$sMyName );
}
}
#----------
# Restore..
#----------
defined $sOldLogName ? $ENV { LOGNAME } = $sOldLogName:delete $ENV { LOGNAME };
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetPidDetails ( IN Integer Pid,
OUT RefList ProcList );
Description : Gets long process details for a known Pid if running
Parameters :
$iPid PID whose details are requested
$rlProcList Ref to List to store details
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetPidDetails {
#----------------
# Get Arguments..
#----------------
my ( $iPid,
$rlProcList ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20188, "Subroutine <%s> called with:
Pid [%s]
rlProcList [%s]",
$sMyName, $iPid, $rlProcList );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------
# Validate PID..
#---------------
unless ( defined $iPid && # Catch undefs..
$iPid =~ /^\d+$/ && # And invalid PIDs..
kill ( 0, $iPid ) ) { # And defunct ones..
&logError ( 20189,
"<%s> PID [%s] is invalid", $sMyName, $iPid );
return 0;
}
#-------------------------
# Define local variables..
#-------------------------
my ( $sPsCmd, $sPsCmdArgs, $sLang, $sFmt, $sUnix95, $sSwitch, $iExitCode,
%hsProc ) = ();
$sSwitch = $^O; # Get OS..
@$rlProcList = (); # Truncate..
#-------------
# Store LANG..
#-------------
$sLang = $ENV { LANG };
$ENV { LANG } = 'C';
#---------------------------
# Switch to the correct OS..
#---------------------------
if("solaris" eq $sSwitch) {
$sPsCmd = "/usr/ucb/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("hpux" eq $sSwitch) {
#-----------------------
# Force XPG4 behaviour..
#-----------------------
$sUnix95 = $ENV { UNIX95 };
$ENV { UNIX95 } = 'XPG4';
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "-p $iPid -xxlo uid,pid,ppid,args";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
elsif("aix" eq $sSwitch) {
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("linux" eq $sSwitch) {
$sPsCmd = "/bin/ps";
$sPsCmdArgs = "wwo uid,pid,ppid,args $iPid";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
&logTrace ( 20190, "<%s> OS [%s] PsCmd [%s] PsCmdArgs [%s]",
$sMyName, $sSwitch, $sPsCmd, $sPsCmdArgs );
#-------------------
# Validate command..
#-------------------
if ( ! -x $sPsCmd ) {
&logError ( 20191,
"<%s> ps(1b) command [%s] is not executable", $sMyName, $sPsCmd );
return 0; # Failure..
}
#-------------------------------
# Fire command and get details..
#-------------------------------
@hsProc { qw ( UID PID PPID COMMAND ) } =
map {
s/\n//; # Chomp..
s/^\s+//; # Strip leading spaces..
/^$sFmt$/o; # Extract fields..
} readpipe ( "$sPsCmd $sPsCmdArgs" ); # From the command..
$iExitCode = $? >> 8; # Get exit code..
#------------------------
# Restore env variables..
#------------------------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG };
defined $sUnix95 ? $ENV { UNIX95 } = $sUnix95:delete $ENV { UNIX95 };
#------------------
# Check exit code..
#------------------
if ( $iExitCode ) {
&logError ( 20192,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sPsCmd, $sPsCmdArgs, $iExitCode );
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
&logWarn ( 20334,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
SAPWebAS71::DeletePidFile ( $sResourceName );
%hsProc = (); # Truncate..
return 0;
}
#---------------------
# Fill up the bucket..
#---------------------
push ( @$rlProcList, \%hsProc ); # Update..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetSrvrDetails ( IN String InstProfile,
IN String ProcMon,
OUT RefHashList SrvrDetails );
Description : Gives PID file and process string for given server type
Parameters :
$sInstProfile Instance profile file for the SAP Instance
$sProcMon List of processes to be monitored
$rhlSrvrDetails Stores details of PID file and process string
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetSrvrDetails {
#----------------
# Get Arguments..
#----------------
my ( $sInstProfile,
$sProcMon,
$rhlSrvrDetails ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20193, "Subroutine <%s> called with:
InstProfile [%s]
ProcMon [%s]
SrvrDetails [%s]",
$sMyName, $sInstProfile, $sProcMon, $rhlSrvrDetails );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1; # Set to true..
#-------------------
# Define variables..
#-------------------
my ( $sKey, $sProc, $sPidFile, $sPIDDir, $sResourceType,
$sResourceName, $sTmpProc, $sSAPSID, $sInstName,
$iInstID, $sSAPHost, $sSAPHome, @lsWords ) = ();
#----------------------------------------------
# Derive our resource type and resource names..
#----------------------------------------------
$sResourceType = ( $0 =~ m@([^/]+)@g ) [-2];
$sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
$sPIDDir = "/tmp/.VRTS$sResourceType/$sResourceName/PID";
#------------------------------
# Create PID folder if needed..
#------------------------------
if ( -d $sPIDDir ) {
&logTrace ( 20194, "<%s> PID folder [%s] exists",
$sMyName, $sPIDDir );
}
elsif ( ! mkpath ( $sPIDDir, 0, 0700 ) ) {
&logWarn ( 20195, "<%s> Failed to create PID folder [%s]",
$sMyName, $sPIDDir );
return 0; # Cannot proceed..
}
#----------------------
# Decide architecture..
#----------------------
( @lsWords ) = split( /\//, $sInstProfile );
( $sSAPSID, $sInstName, $sSAPHost ) = split ( /_/, $lsWords [-1] );
( $iInstID ) = $sInstName =~ /(\d{2})$/o;
$sSAPHome = "/usr/sap/$sSAPSID/$sInstName/exe";
my $sArch = 0;
my %hsArch = ( 1 => 'Java',
2 => 'ABAP',
3 => 'AddIn' );
my @lsProcMon = $sProcMon =~ /([^\s]+)/g;
my %hsProcs = map { $_ => 1 } @lsProcMon;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
if ( $hsProcs { jc } ) {
$sArch = 1;
}
elsif ( $hsProcs { jstart } && $hsProcs { dw } ) {
$sArch = 3;
}
elsif ( $hsProcs { dw } ) {
$sArch = 2;
}
=pod
if( 1 == grep { /^(jc)$/o } @lsProcMon ) {
$sArch = 1;
}
elsif ( 2 == grep { /^(jstart|dw)$/o } @lsProcMon ) {
$sArch = 3;
}
elsif ( 1 == grep { /^(dw)$/o } @lsProcMon ) {
$sArch = 2;
}
=cut
if ( $sArch ) {
&logTrace ( 20196,
"<%s> SAP Instance Architecture is [%s]",
$sMyName, $hsArch { $sArch } );
}
else {
&logTrace ( 20197,
"<%s> Couldn't determine SAP Architecture",
$sMyName );
}
if ( 1 == $sArch ) { # jc located..
push @lsProcMon, 'jstart';
}
elsif ( 3 == $sArch ) { # jstart located..
push @lsProcMon, 'jstartm';
}
%$rhlSrvrDetails = (); # Truncate..
#-----------------------------------------------
# Set appropriate filter strings and PID files..
#-----------------------------------------------
foreach $sProc ( @lsProcMon ) {
$sKey = "srchstr_${sProc}";
$sPidFile = "$sPIDDir/pidfile.$sKey";
if ( $sProc eq 'sapstart' ) {
$sTmpProc = qr|$sProc\spf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}|;
}
elsif ( $sProc eq 'jstart' ) { # Child.. Atre 27 Mar 2009
$sTmpProc = qr|$sProc\s.*\spf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}.*-hostvm|;
}
elsif ( $sProc eq 'jstartm' ) { # Parent.. Atre 27 Mar 2009
$sTmpProc = qr|jstart\spf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}|;
}
elsif( $sProc eq 'gwrd' || $sProc eq 'icman' ){
$sTmpProc = qr|$sProc\s.*\spf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}|;
}
else {
$sTmpProc = qr|$sProc.sap${sSAPSID}_${sInstName}.*pf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}|;
}
@{ $$rhlSrvrDetails { $sProc } } = ( $sPidFile, $sTmpProc ); # Store..
&logTrace ( 20198, "<%s> Generating filter [%s] for process [%s] with PID file [%s]",
$sMyName, $sTmpProc, $sProc, $sPidFile );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetEngineTimeout ( IN Bool UseMargin );
Description : Calculates engine timeout for entry point
Parameters :
$bUseMargin Flag to indicate if safety margin is requested
boolean value in the set of {0,1} where
0 No safety margin needed
1 Safety margin to be used
Returns: Time in secs.
-------------------------------------------------------------------------
=cut
sub GetEngineTimeout {
#----------------
# Get Arguments..
#----------------
my ( $bUseMargin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20199, "Subroutine <%s> called with:
UseMargin [%s]",
$sMyName, $bUseMargin );
#-------------------------
# Define local variables..
#-------------------------
my ( $sAttribute, $sCommand, $sCommandArgs,
$iEngineTimeout, $iExitCode ) = ();
#----------------------------------
# Grace margins from VCS timeouts..
#----------------------------------
my %hiGraceMargin = ( 'MonitorTimeout', 10, # Seconds..
'OnlineTimeout', 10,
'OfflineTimeout', 10,
'CleanTimeout', 20 );
#--------------------------------------------------
# Attempt to get resource level overridden values..
#--------------------------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
$sCommand = $sCmdHares; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sCommandArgs = "-value $sResourceName $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs 2>/dev/null" ) )
=~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20200,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
}
elsif ( ! $iEngineTimeout ) { # Undefined value..
&logTrace ( 20201, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
}
else { # Success..
&logTrace ( 20202, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
unless ( $iEngineTimeout ) {
$sCommand = $sCmdHatype; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sResourceType = "SAPWebAS71" if $sResourceType !~ /\w/; # Ensure..
$sCommandArgs = "-value $sResourceType $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs" ) ) =~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20203,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
elsif ( ! $iEngineTimeout ) { # Empty value..
&logTrace ( 20204, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
else { # Success..
&logTrace ( 20205, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
}
#----------------------------
# Apply margin if requested..
#----------------------------
if ( $bUseMargin && # Margin requested..
$iEngineTimeout >= $hiGraceMargin { $sAttribute } ) { # And valid..
$iEngineTimeout -= $hiGraceMargin { $sAttribute }; # Apply..
&logTrace ( 20206,
"<%s> Setting up [%s] sec margin. Returning [%s]",
$sMyName, $hiGraceMargin { $sAttribute }, $iEngineTimeout );
}
return ( $iEngineTimeout ); # Secs..
}
=pod
-------------------------------------------------------------------------
Function : bool UpdateSAPWebAS71Log ( IN String InstName,
IN String InstProfile,
IN String InstType,
IN String SAPAdmin,
IN String SAPSID,
IN String MessageText );
Description : Update SAP log with passed message string..
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstProfile Specifies the full path to the Instance profile for this instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sMessageText Message text for update
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub UpdateSAPWebAS71Log {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sInstProfile,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sMessageText ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20207, "Subroutine <%s> called with:
InstName [%s]
InstProfile [%s]
InstType [%s]
SAPAdmin [%s]
SAPSID [%s]
MessageText [%s]",
$sMyName, $sInstName, $sInstProfile, $sInstType,
$sSAPAdmin, $sSAPSID, $sMessageText );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my $sDate = strftime '%H:%M:%S %d %b %Y', localtime;
my $sHost = ( uname ) [1];
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
my $sCpyHeader = '+' . '-' x 75 . '+';
my $sCmnt = "|";
#------------------------
# Define logging format..
#------------------------
format SAPLOG =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
@ Date: @<<<<<<<<<<<<<<<<<<<<< Node: @<<<<<<<<<<<<<<<<<< @
$sCmnt, $sDate, $sHost, $sCmnt
@ InstName: @<<<<<<<<<<<< InstType: @<<<<<<<<<< SAPSID: @<<< @
$sCmnt, $sInstName, $sInstType, $sSAPSID, $sCmnt
@ Inst profile: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sInstProfile, $sCmnt
@ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sMessageText, $sCmnt
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
.
#-----------------------
# Open file for update..
#-----------------------
if ( sysopen ( SAPLOG, $sLogFile, O_CREAT|O_WRONLY|O_APPEND|O_SYNC, 0644 ) ) {
&logTrace ( 20208,
"<%s> Opened log file [%s] successfully for update", $sMyName, $sLogFile );
write SAPLOG; # Update..
unless ( close ( SAPLOG ) ) {
&logError ( 20209,
"<%s> Failed to close log file [%s] after update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
}
else {
&logError ( 20210,
"<%s> Failed to open log file [%s] for update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
#----------------
# Set ownership..
#----------------
my ( $iUid, $iGid ) = ( getpwnam $sSAPAdmin ) [2, 3]; # Should not fail..
if ( chown ( $iUid, $iGid, $sLogFile ) ) {
&logTrace ( 20211,
"<%s> Set ownership of [%s] to UID [%s] GID [%s]",
$sMyName, $sLogFile, $iUid, $iGid );
}
else {
&logError ( 20212,
"<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s]",
$sMyName, $sLogFile, $iUid, $iGid, $! );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecJSMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Java Instance based on jsmon command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to jsmon binary
$sCmdArgs Argument list for jsmon
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecJSMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20213, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20214,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20215,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20216,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
$iReturnCode = SAPWebAS71::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
if( defined $iExitCode ){
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20217,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPWebAS71::GetJSMonStatus ( \@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20218,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif( $iExitCode == 4 ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20328,
"<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped",
$sMyName, $sCmd );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20219,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecENSMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN String InstType,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on ensmon command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapinfo binary
$sCmdArgs Argument list for ensmon
$sInstType String identifier that classifies the SAP server instance type
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecENSMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20220, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
InstType [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $sInstType,
$iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $sEntryPointName, $iExitCode, @lsCmdOut ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20221,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20222,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20223,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPWebAS71::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20224,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20225,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 4 == $iExitCode && $sInstType =~ /^enqueue$/io ) {
if ( $sEntryPointName eq 'monitor' ) {
&logCritical ( 20226,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
else {
&logTrace ( 20227,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
elsif ( 8 == $iExitCode ) { # Up already..
if ( $sInstType =~ /^enqueue$/io ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20228,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $iReturnCode );
}
elsif ( $sInstType =~ /^enqrep$/io ) {
&logCritical ( 20229,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20230,
"<%s> Cmd [%s] failed with exit code [%s]. Returning [%s]",
$sMyName, $sCmd, $iExitCode, $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetJSMonStatus ( IN RefStrList CmdOut );
Description : Decides on status of SAP Instance based on given jsmon
output.
Parameters :
$rlsCmdOut Reference to list containing output from jsmon execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetJSMonStatus {
#----------------
# Get Arguments..
#----------------
my ( $rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20239, "Subroutine <%s> called with:
rlsCmdOut [%s]",
$sMyName, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $sTmp, $sKey ) = ( '' ) x 2;
my ( $iSrv, $iRunning ) = ( 0 ) x 2;
my %hsCmdOut = map { /\b(smdagent|server\d*)\b\,\s*\d*(.*)/io } @$rlsCmdOut;
foreach $sKey ( sort keys %hsCmdOut ) {
$sTmp .= "Server Name [$sKey] State [$hsCmdOut{$sKey}]\n";
if ( $sKey =~ /(smdagent|server)/io ) {
++ $iSrv;
++ $iRunning if $hsCmdOut { $sKey } =~ /Running/io;
}
}
&logTrace ( 20240, "<%s> SAP sapcontrol status : ---\n%s", $sMyName, $sTmp );
#-----------------
# Check on state..
#-----------------
if ( $iRunning ) { # One server running..
&logTrace ( 20241,
"<%s> Found [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20243,
"<%s> Status of SAP instance undecided:\n%sReturning [%s]",
$sMyName, $sTmp, $iReturnCode );
}
( $sTmp, $sKey ) = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ChkResName ( IN String ResName,
IN String SAPSID,
IN String InstType );
Description : Checks if resource has been configured
Parameters :
$sResName Resource Name to check
$sSAPSID SAP system name defined during installation
$sInstType String identifier that classifies the SAP server instance type
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ChkResName {
#----------------
# Get Arguments..
#----------------
my ( $sResName,
$sSAPSID,
$sInstType ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20244, "Subroutine <%s> called with:
ResName [%s]
SAPSID [%s]
InstType [%s]",
$sMyName, $sResName, $sSAPSID, $sInstType );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------------
# Validate string for resource..
#-------------------------------
return 0 unless ( $sResName =~ /\S/o ); # Must be a non-white string..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my $sCmdArgs = "-display $sResName -attribute InstProfile InstType";
#-----------------------
# Define valid matches..
#-----------------------
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE' );
my ( $iExitCode, @lsCmd ) = ();
&logTrace ( 20245,
"<%s> Executing Cmd [%s] with Args [%s]",
$sMyName, $sCmd, $sCmdArgs );
#--------------------------
# Fire command and verify..
#--------------------------
( @lsCmd ) = grep {
( s/\n// || 1 ) && # Chomp, and make true..
/InstProfile|InstType/ && # Contains these..
s/.*\s+// # Get last field..
} readpipe ( "$sCmd $sCmdArgs" ); # From output..
my ($localSAPSID, $localInstName, $localSAPHost ) = ();
my (@lsWords) = ();
(@lsWords) = split( /\//, $lsCmd [0] );
($localSAPSID, $localInstName, $localSAPHost) = split(/_/, $lsWords[-1]);
#--------------------
# Collect exit code..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20246,
"<%s> Cmd [%s] with Args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
$iReturnCode = 0; # Failure..
}
elsif ( ( 2 == scalar @lsCmd ) && # Got both values..
( $sSAPSID eq $localSAPSID ) && # SAPSID is a match..
defined $hsInstMatch { uc $sInstType } && # InsType is defined..
$hsInstMatch { uc $sInstType } eq uc $lsCmd [-1] ) { # And a correct pair..
&logTrace ( 20247,
"<%s> Resource [%s] defined in cluster with InstType [%s] SAPSID [%s]",
$sMyName, $sResName, $lsCmd [-1], $localSAPSID );
}
else {
&logError ( 20248,
"<%s> Resource [%s] not a matching ENQUEUE variant for this resource.
The resource is with InstType [%s] SAPSID [%s]",
$sMyName, $sResName, $lsCmd [-1], $localSAPSID );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineENQGrp ( IN String Sys,
IN String Grp,
IN String Reason,
IN String FaultedNode );
Description : Pre-online trigger for SAPWebAS71
Parameters :
$sSys System where the group is asked to be made online
$sGrp Group for which preonline has been invoked
$sReason Contains the string MANUAL or FAULT
$sFaultedNode Cluster node where the fault occurred due to FAULT
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineENQGrp {
#----------------
# Get Arguments..
#----------------
my ( $sSys,
$sGrp,
$sReason,
$sFaultedNode ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20249, "Subroutine <%s> called with:
Sys [%s]
Grp [%s]
Reason [%s]
FaultedNode [%s]",
$sMyName,
$sSys, $sGrp, $sReason, $sFaultedNode );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE' );
my ( $i, $iExitCode, $sRes, $sDisp, $sGroup, $sNodeName, $sEnqSrvRes,
$sCmdArgs, $sTempNode, $sEnqRes, $sInstType, $sFailHost,
$sKey, $sSAPSID, $sSID, @lsHaresOut, @lsCpy, @lsValidNodes, @lsEnqReps,
@lsEnques, %hsEnqueues, %hsFltd, %hsEnqReps,
%hsEnqRepGrps, %hsEnqRepHosts, %hsSwEnqReps, %hsOnlineEnqueues ) = ();
my (@lsWords, $sInstProfile, $sInstName, $sSAPHost ) = ();
my $sOSVer = ();
#---------------------
# Validate arguments..
#---------------------
if ( $sReason eq 'MANUAL' ) {
&logInfo ( 20250,
"<%s> Invoked during a normal switch-over or online.", $sMyName );
}
elsif ( $sSys =~ /\S/ && ! inet_aton ( $sSys ) ) {
&logError ( 20251,
"<%s> Destination cluster node [%s] cannot be resolved",
$sMyName, $sSys );
$iReturnCode = 0; # Error..
}
elsif ( $sFaultedNode ne 'UNDEF' && $sFaultedNode =~ /\S/ && ! inet_aton ( $sFaultedNode ) ) {
&logError ( 20252,
"<%s> Faulted cluster node [%s] cannot be resolved",
$sMyName, $sFaultedNode );
$iReturnCode = 0; # Error..
}
elsif ( ! -e $sCmd ) {
&logError ( 20253,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
elsif ( ! -x $sCmd ) {
&logError ( 20254,
"<%s> Command [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------------------------------------------
# Bug in VCS for FAULT. Verify group is really faulted..
#-------------------------------------------------------
# hasys -list SysState=RUNNING
$sCmd = $sCmdHasys;
$sCmdArgs = "-state";
my ( @lsHasysRunning, @lsHasysFault, @lsHasysOut, %hsHasysRunning, %hsHasysFault ) = ();
@lsHasysOut = readpipe ( "$sCmd $sCmdArgs" );
shift @lsHasysOut;
@lsHasysRunning = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(RUNNING)$/$1/ )
} @lsHasysOut;
@lsHasysFault = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(FAULTED|EXITED)$/$1/ )
} @lsHasysOut;
%hsHasysRunning = map { $_ => 1 } @lsHasysRunning;
&logTrace ( 20255,
"<%s> List of systems where VCS running [%s]",
$sMyName, join ( ' ', @lsHasysRunning ) );
%hsHasysFault = map { $_ => 1 } @lsHasysFault;
&logTrace ( 20256,
"<%s> List of systems where VCS Faulted [%s]",
$sMyName, join ( ' ', @lsHasysFault ) );
$sCmd = $sCmdHares;
$sCmdArgs = "-list Group=$sGrp State=FAULTED";
@lsHaresOut = grep {
( s/\n// || 1 ) &&
s/\s+.*//
} readpipe ( "$sCmd $sCmdArgs" );
#-------------------
# Verify exit code..
#-------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20257,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s].
Group [%s] does not have any faulted resources.",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $sGrp );
#-----------------------------
# Check for node FAULT event..
#-----------------------------
if ( $sFaultedNode eq 'UNDEF' && $sReason eq 'FAULT' ) {
&logWarn ( 20258,
"<%s> Missing faulted node name.
Possible node FAULT event detected", $sMyName );
}
elsif ( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' ) {
&logWarn ( 20259,
"<%s> Missing source node name.", $sMyName );
}
elsif ( ($sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '') eq "5.10" ) {
#---------------------------------------------------------------
# Add zone specific support for Enqueue when zone itself faults.
#---------------------------------------------------------------
&logInfo ( 20260,
"<%s> Checking if the Group [%s] is configured for Solaris non-global zones",
$sMyName, $sGrp );
my $sOut = ();
my @lsOut = ();
my $iCount = ();
$sCmdArgs = "-display -attribute ContainerName -group $sGrp -type SAPWebAS71";
@lsHaresOut = grep { (s/\n// || 1) } readpipe ( "$sCmd $sCmdArgs" );
shift @lsHaresOut;
foreach $sOut (@lsHaresOut) {
@lsOut = split( '\s+', $sOut);
$iCount = scalar @lsOut;
if( (4 == $iCount) && ($lsOut[2] =~ /$sSys/ || $lsOut[2] =~ /global/) ) {
&logWarn ( 20261,
"<%s> ContainerName attribute is configured.
Possible zone [%s] FAULT event detected", $sMyName, $lsOut[3] );
last;
}
}
}
}
else {
&logTrace ( 20262,
"<%s> Group [%s] has [%s] resource(s) in FAULTED state",
$sMyName, $sGrp, join ( ' ', @lsHaresOut ) );
}
#----------------
# Re-initialise..
#----------------
$sCmdArgs = "-display -type SAPWebAS71 -attribute " .
"State Group EnqSrvResName InstProfile InstType";
#---------------------------------------------
# Assume the group name is valid and proceed..
#---------------------------------------------
@lsHaresOut = grep { s/\n// || 1 } readpipe ( "$sCmd $sCmdArgs" );
#-----------------------------------------
# Check if command executed successfully..
#-----------------------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20263,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
return 0; # Error..
}
elsif ( $lsHaresOut[0] =~ /10554.*No resource exists with/o ) {
&logError ( 20264,
"<%s> Cmd [%s] with args [%s] failed with reason [%s]",
$sMyName, $sCmd, $sCmdArgs, $lsHaresOut[0] );
return 0; # Error..
}
$sFailHost = $sSys; # Set to default..
push @lsHaresOut, "#"; # Insert trailing de-marker..
@lsCpy = @lsHaresOut; # Backup..
#---------------------------------------------------
# Mark all ENQUEUE/ENQREP resources in given group..
#---------------------------------------------------
@lsEnques =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /Group.*\s+(\S+)/ && # Mark the group name..
( $sGroup = $1 ) && 0 ) || # Store, and always make false..
( m#InstProfile.*\s+.*/(...)# && # Mark the SID..
( $sSID = $1 ) && 0 ) || # Store, and always make false..
( s/^(\S+).*InstType.*\s # Mark resource..
(ENQ(UEUE|REP))/$1:$2/ix && # If ENQUEUE or ENQREP variant..
++ $i ) || # Set flag..
( $i && # If flag..
s/.*/sprintf ( "$sSID:$sGroup", # Print group..
-- $i )/e ) # Reset flag..
} @lsCpy;
&logTrace ( 20265,
"<%s> Searching ENQUEUE resource in group [%s]", $sMyName, $sGrp );
&logTrace ( 20266,
"<%s> Enques values are [%s]", $sMyName, join(' ', @lsEnques) );
#-------------------
# Start processing..
#-------------------
while ( 2 == ( ( $sRes, $sGroup ) = splice ( @lsEnques, 0, 2 ) ) ) {
( $sRes, $sInstType ) = $sRes =~ /([^:]+)/g;
( $sSAPSID, $sGroup ) = $sGroup =~ /([^:]+)/g;
#-------------------------------
# Passed group has ENQ(UE|REP)..
#-------------------------------
if ( $sGrp eq $sGroup ) {
if ( $sInstType =~ /ENQUEUE/io ) {
&logInfo ( 20267,
"<%s> +------- Group [%s] has ENQUEUE variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsEnqueues { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
elsif ( $sInstType =~ /ENQREP/io ) {
&logInfo ( 20268,
"<%s> +------- Group [%s] has ENQREP variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsSwEnqReps { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
}
&logTrace ( 20269,
"<%s> Resource [%s] SAPSID [%s] InstType [%s] found in Group [%s]",
$sMyName, $sRes, $sSAPSID, $sInstType, $sGroup );
}
#-----------------------------------------------
# Find online resources and list their details..
#-----------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise..
$i = 0;
&logTrace ( 20270,
"<%s> Looking for all ONLINE SAPWebAS71 resources", $sMyName );
@lsEnqReps =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /^(\S+).*Group.*\s+(\S+)/ && # Mark resource, and group name..
( $sGroup = "$1:$2" ) && ( $sSys="" ) && 0 ) || # Store, and always make false..
( /.*\s(\S+)\s+ONLINE$/ && ( $sSys="$1" ) && 0 ) ||
( s/.*\s(\S+)\s+ONLINE$/$1/ && ++ $i ) || # If online, get node name, set flag..
( $i && # If flag..
/(EnqSrvResName|InstProfile|InstType)\s*(global|$sSys)/ && # and contains one of these..
s/.*\s+// ) || # get the last field..
( $i && # If flag, use demarker..
s/#/sprintf ( $sGroup, -- $i )/e ) # to print the group name.. reset flag..
} @lsCpy;
&logTrace ( 20271,
"<%s> EnqReps [%s]", $sMyName, join(' ', @lsEnqReps) );
while ( 5 == ( ( $sNodeName, $sEnqSrvRes, $sInstProfile, $sInstType, $sGroup ) = splice ( @lsEnqReps, 0, 5 ) ) ) {
$sNodeName =~ s/.*://; # Remove cluster component, under GCO..
( $sRes, $sGroup ) = $sGroup =~ /([^:]+)/g;
#----------------------------------
# Store only ENQ(UE|REP) variants..
#----------------------------------
(@lsWords) = split( /\//, $sInstProfile);
($sSAPSID, $sInstName, $sSAPHost) = split(/_/, $lsWords[-1]);
#----------------------------------
# Store only ENQ(UE|REP) variants..
#----------------------------------
if ( $sInstType =~ /ENQREP/io ) {
&logTrace ( 20272, "<%s> Located ENQREP variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvResName [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsEnqReps { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
elsif ( $sInstType =~ /ENQUEUE/io ) {
$sEnqSrvRes = ""; # Truncate..
&logTrace ( 20273, "<%s> Located ENQUEUE variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsOnlineEnqueues { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
}
#--------------------------------------------
# Validate if group has ENQ(UE|REP) variant..
#--------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
if ( keys %hsEnqueues ) {
&logInfo ( 20274,
"<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s].",
$sMyName, $sGrp, join ( ' ' , keys %hsEnqueues ) );
}
elsif ( keys %hsSwEnqReps ) {
#------------------------------------------
# Get all valid nodes for the faulted REP..
#------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
$sRes = join ( '|', keys %hsSwEnqReps );
$sDisp = join ( ' ', keys %hsSwEnqReps );
&logInfo ( 20275,
"<%s> Failover Group [%s] has ENQREP variant resource(s) [%s]",
$sMyName, $sGrp, $sDisp );
%hsFltd = map { $_ => 1 } # All faulted nodes..
grep { # Grep'ed here..
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*FAULTED/$2/ # Pick all nodes where FAULTed..
} @lsCpy; # From cmd output..
@lsCpy = @lsHaresOut; # Re-initialise.
@lsValidNodes =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*LINE/$2/ || # Pick the node not FAULTed..
s/^($sRes).*EnqSrvResName.*\s+(\S+)/::$2/ # And EnqSrvResName..
} @lsCpy; # From cmd output..
#-------------------------------------------------
# Now extract EnqSrvResName and configured nodes..
#-------------------------------------------------
@lsCpy = @lsValidNodes; # Re-use..
@lsValidNodes = (); # Truncate..
foreach $sKey ( @lsCpy ) {
if ( $sKey =~ /^::/ ) { # EnqResName found..
( $sEnqRes = $sKey ) =~ s/:://;
}
else {
$sKey =~ s/.*://; # Remove cluster component, under GCO..
push ( @lsValidNodes, $sKey ) unless $hsFltd { $sKey };
}
}
&logTrace ( 20276,
"<%s> Nodes on which Service Group not in FALUTED state [%s]",
$sMyName, join(' ', @lsValidNodes) );
( $sRes ) = keys %hsSwEnqReps; # Take one..
#--------------------
# Remove duplicates..
#--------------------
%hsFltd = (); # Truncate..
@lsValidNodes = grep { ! $hsFltd { $_ } ++ } @lsValidNodes;
&logTrace ( 20277,
"<%s> One of ENQREP resource(s) [%s] defines EnqSrvResName as [%s].
Details for ENQREP resource [%s]:
InstType [%s] SAPSID [%s]. Possible failover nodes [%s]",
$sMyName, $sDisp, $sEnqRes, $sRes,
${ $hsSwEnqReps { $sRes } } [1], ${ $hsSwEnqReps { $sRes } } [0],
join ( ' ', @lsValidNodes ) );
#--------------------------------------------------------
# Check if the node on which service group is configured
# is Running at this moment..
#--------------------------------------------------------
@lsValidNodes = grep { $hsHasysRunning { $_ } } @lsValidNodes;
&logTrace ( 20278,
"<%s> Valid nodes for ENQREP failover targets [%s]",
$sMyName, join ( ' ', @lsValidNodes ) );
#--------------------------
# If online ENQUEUE found..
#--------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } ) {
&logTrace ( 20279,
"<%s> Details for defined ENQUEUE resource [%s]:
InstType [%s] SAPSID [%s] online on node [%s]",
$sMyName, $sEnqRes, ${ $hsOnlineEnqueues { $sEnqRes } } [2],
${ $hsOnlineEnqueues { $sEnqRes } } [-2],
${ $hsOnlineEnqueues { $sEnqRes } } [-1] );
}
else {
&logWarn ( 20280,
"<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster", $sMyName );
}
#-----------------------------
# Now validate EnqSrvResName..
#-----------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } && # Defined..
( $hsInstMatch { ${ $hsSwEnqReps { $sRes } } [1] } eq # InstType pair..
${ $hsOnlineEnqueues { $sEnqRes } } [2] ) && # is a match..
( ${ $hsSwEnqReps { $sRes } } [0] eq # SAPSID..
${ $hsOnlineEnqueues { $sEnqRes } } [-2] ) ) { # matches..
$sTempNode = ${ $hsOnlineEnqueues { $sEnqRes } } [-1]; # Get the online node..
( $sFailHost ) = grep { # Find the node other than..
! /^($sTempNode|$sFaultedNode)$/o && # ENQUEUE online or faulted..
! $hsHasysFault{$_} # nodes faulted..
} @lsValidNodes; # From all posibilities..
#---------------------------------------------------
# Check if we are in a position to failover safely..
#---------------------------------------------------
if ( $sFaultedNode ne 'UNDEF' || $sReason ne 'MANUAL' ||
( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' && (scalar @lsHasysFault || $sTempNode eq $sSys)) ) {
if ( defined $sFailHost ) {
&logInfo ( 20281,
"<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s]",
$sMyName, $sTempNode, $sGrp, $sFailHost );
}
else { # Prevent onlining..
&logError ( 20282,
"<%s> Could not locate any node to online Group [%s]",
$sMyName, $sGrp );
return $iReturnCode; # Error.. Prevent online of ENQREP..
}
}
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPWebAS71::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20283,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20284,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
else {
&logTrace ( 20285,
"<%s> Failover group [%s] does not have any online ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
}
else {
&logInfo ( 20286,
"<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
&logTrace ( 20287,
"<%s> +----- ENQREP online node and group details -----+", $sMyName );
#----------------------------------------------
# Remove ENQREPs whose EnqRepSrv aren't found..
#----------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ! $hsEnqueues { ${$hsEnqReps { $sKey } }[1] } ) { # Not in passed group..
&logTrace ( 20288,
"<%s> EnqResName [%s] resource not found in Grp [%s].
Marked resource [%s] invalid",
$sMyName, ${$hsEnqReps { $sKey } }[1], $sGrp, $sKey );
delete $hsEnqReps { $sKey }; # Then delete..
}
else {
++ $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Else store online node..
++ $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Else store group..
&logTrace ( 20289,
"<%s> Online node [%s] Group [%s]",
$sMyName, ${$hsEnqReps{$sKey}}[-1], ${$hsEnqReps{$sKey}}[0] );
}
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
if ( ! keys %hsEnqReps && $sReason ne 'MANUAL' ) {
$sFailHost = $sSys; # Fail-over to the default node..
&logCritical ( 20290,
"<%s> Corresponding ENQREP server(s) not found ONLINE in cluster.
Onlining group [%s] on node [%s]", $sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPWebAS71::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20291,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20292,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
#-----------------------------------------------
# Check if we have ENQREPs in different groups..
#-----------------------------------------------
if ( keys %hsEnqRepGrps > 1 ) {
&logCritical ( 20293,
"<%s> ENQREP configured in different service groups [%s]",
$sMyName, join ( ' ', keys %hsEnqRepGrps ) );
}
#----------------------------------------------
# Now check if we have a unique failover node..
#----------------------------------------------
if ( keys %hsEnqRepHosts > 1 ) {
&logCritical ( 20294,
"<%s> ENQREP found online on different nodes [%s]",
$sMyName, join ( ' ', keys %hsEnqRepHosts ) );
#------------------------------------------
# Delete entries for all other than ENQREP..
#------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ${$hsEnqReps { $sKey } }[2] ne 'ENQREP' ) {
&logError ( 20295,
"<%s> Marking resource [%s] with InstType [%s] as invalid",
$sMyName, $sKey, ${$hsEnqReps { $sKey } }[2] );
#--------------------------
# Delete in correct order..
#--------------------------
delete $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Delete node first..
delete $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Delete group next..
delete $hsEnqReps { $sKey }; # Now the resource..
}
}
}
#-------------------------
# Find out failover node..
#-------------------------
foreach $sKey ( keys %hsEnqReps ) {
&logTrace ( 20296,
"<%s> EnqRep server [%s] details:
Group [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s] online on [%s]",
$sMyName, $sKey,
${ $hsEnqReps { $sKey } }[0], ${ $hsEnqReps { $sKey } }[1],
${ $hsEnqReps { $sKey } }[2], ${ $hsEnqReps { $sKey } }[3],
${ $hsEnqReps { $sKey } }[4] );
#-----------------------------------------------------------
# Enqueue has been defined in EnqResName of ENQREP variant..
#-----------------------------------------------------------
if ( scalar @{ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } } ) { # EnqResName is correct..
if ( ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0] ne # SAPSID of ENQUEUE variant..
${$hsEnqReps { $sKey }}[3] ) { # ne SAPSID of ENQREP..
&logError ( 20297,
"<%s> SAPSID [%s] of ENQREP resource [%s] differs from
SAPSID [%s] of ENQUEUE resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[3], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqReps { $sKey } }[1] );
}
elsif ( uc ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1] ne # ENQUEUE variant..
$hsInstMatch { uc ${$hsEnqReps {$sKey }}[2] } ) { # not correct match..
&logError ( 20298,
"<%s> InstType [%s] of ENQREP resource [%s] not a match for
InstType [%s] of ENQUEUE resource [%s]", $sMyName,
${$hsEnqReps { $sKey }}[2], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqReps { $sKey } }[1] );
}
else { # All okay..
&logTrace ( 20299,
"<%s> EnqSrvResName [%s] matches with:
ENQUEUE SAPSID [%s] InsType [%s] Group [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[2] );
#-----------------------------------------------------
# Failover to ENQREP's node, if not the FAULTED node..
#-----------------------------------------------------
$sFailHost = ${ $hsEnqReps { $sKey } }[-1] eq $sFaultedNode ? $sSys :
${ $hsEnqReps { $sKey } }[-1];
}
}
else { # EnqResName is wrong..
&logError ( 20300,
"<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1], $sKey );
}
}
&logInfo ( 20301, "<%s> Failing over Group [%s] to node [%s]",
$sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPWebAS71::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20302, "<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
}
else {
&logError ( 20303,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
$iReturnCode = 0; # Do nothing..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineGrp ( IN String Grp,
IN String Sys );
Description : Pre-online trigger for SAPWebAS71
Parameters :
$sGrp Cluster group to online
$sSys System where the group is asked to be made online
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineGrp {
#----------------
# Get Arguments..
#----------------
my ( $sGrp,
$sSys ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20304, "Subroutine <%s> called with:
Grp [%s]
Sys [%s]",
$sMyName, $sGrp, $sSys );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHagrp; # Get global..
my @lsCmdArgs = ( "-online", "-nopre", "$sGrp", "-sys", "$sSys" );
my $iExitCode = undef;
&logTrace ( 20305, "<%s> Executing Command [%s] with arguments [%s]",
$sMyName, $sCmd, join( ' ', @lsCmdArgs ) );
#-------------------------------
# Validate and execute command..
#-------------------------------
if ( ! -e $sCmd ) {
&logError ( 20306,
"<%s> Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCmd ) {
&logError ( 20307,
"<%s> Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
else { # Execute..
&logTrace ( 20308,
"<%s> Executing Cmd [%s] with args [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ) );
system ( $sCmd, @lsCmdArgs ); # Execute..
#-------------------------
# Check execution status..
#-------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20309,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20310,
"<%s> Cmd [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecGetProcList ( IN String SAPAdmin,
IN String SAPArch,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on sapcontrol command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPArch SAP Architecture which could be 'Java' or 'ABAP'
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapcontrol binary
$sCmdArgs Argument list for sapcontrol
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecGetProcList {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sSAPArch,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20335, "Subroutine <%s> called with:
SAPAdmin [%s]
SAPArch [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sSAPArch,$sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20336,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20337,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20338,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
$iReturnCode = SAPWebAS71::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
if ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20340,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif( ($iReturnCode) ||
( (!$iReturnCode) && ( ($iExitCode == 3) || ($iExitCode == 4) ) ) ) { # iExitCode can be 3 or 4 for sapcontrol command and is not an error,
# 3 defines all processes as online while 4 defines all processes as offline.
if( $iExitCode == 4 ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logTrace ( 20341,
"<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped",
$sMyName, $sCmd );
}
else {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20339,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPWebAS71::GetSapControlStatus ( $sSAPArch,\@lsCmdOut );
@lsCmdOut = (); # Free..
}
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20342,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetSapControlStatus ( IN String SAPArch,
IN RefStrList CmdOut );
Description : Decides on status of SAP Instance based on given sapcontrol
output.
Parameters :
$sSAPArch SAP Architecture which could be 'Java' or 'ABAP'
$rlsCmdOut Reference to list containing output from sapcontrol execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetSapControlStatus {
#----------------
# Get Arguments..
#----------------
my ( $sSAPArch,$rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20343, "Subroutine <%s> called with:
sSAPArch [%s],
rlsCmdOut [%s]",
$sMyName, $sSAPArch,$rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $sTmp, $sKey ) = ( '' ) x 2;
my ( $iSrv, $iRunning ) = ( 0 ) x 2;
if( "ABAP" eq $sSAPArch ) {
foreach ( @$rlsCmdOut ) {
if ( $_ =~ /\b(Dispatcher)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
$sTmp .= "Server Name [Dispatcher] State [Green,Running]\n";
&logTrace ( 20344, "<%s> Dispatcher is in running state",$sMyName );
last;
}
}
}
elsif( "Java" eq $sSAPArch ) {
my %hsCmdOut = map { /\b(smdagent|server\d*)\b\,\s*\d*(.*)/io } @$rlsCmdOut;
foreach $sKey ( sort keys %hsCmdOut ) {
$sTmp .= "Server Name [$sKey] State [$hsCmdOut{$sKey}]\n";
if ( $sKey =~ /(smdagent|server)/io ) {
++ $iSrv;
++ $iRunning if $hsCmdOut { $sKey } =~ /Running/io;
}
}
}
&logTrace ( 20345, "<%s> SAP sapcontrol status : ---\n%s", $sMyName, $sTmp );
#-----------------
# Check on state..
#-----------------
if ( $iRunning ) { # One server running..
&logTrace ( 20346,
"<%s> Found [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20347,
"<%s> Status of SAP instance undecided:\n%sReturning [%s]",
$sMyName, $sTmp, $iReturnCode );
}
( $sTmp, $sKey ) = (); # Free..
return $iReturnCode;
}
1; # So PERL knows its included..
./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTSagents/ha/bin/SAPWebAS71/SAPWebAS71.xml 0000555 0000000 0000000 00000030071 13320062025 025656 0 ustar root root
Veritas High Availability Agent 5.0 for SAP NetWeaver 7.10
UNIX
Script
4.0
Symantec
Specifies the logging detail performed by the agent for the resource.
Valid values are:
ERROR - Only logs error messages.
WARN - Logs above plus warning messages.
INFO - Logs above plus informational messages.
TRACE - Logs above plus trace messages. This is very verbose and should only be used during initial configuration or for troubleshooting and diagnostic operations.
Example: TRACE
Default: INFO
INFO
WARN
ERROR
TRACE
Used to enable second-level monitoring and specify how often it is run. Second-level monitoring is a deeper, more thorough state check of the configured SAPWebAS71 instance. The numeric value specifies how often that the second-level monitoring routines are run. Zero (0) means never run the second-level monitoring routines. One (1) would mean to run it every monitor interval. Two (2) means to run the second-level monitoring routines every second monitor interval, and so on.
Care should be taken when setting this attribute to large numbers. For example, if the MonitorInterval is set to 60 seconds,
and the SecondLevelMonitor is set to 100, then the second level check would only get performed every 100 minutes, which may not be as often as intended. In order to provide maximum flexibility, the value set is not checked for an upper limit. Thus, you could cause the second level check to occur once a month, if that is what is desired.
Example: 1
Default: 0
Full path and file name of an external, user-supplied monitor program. If specified, the monitor entry point will execute this file to perform an additional server state check. There are no restrictions for what actions the external monitor program performs to determine the state of a SAPWebAS71 instance server. The only constraint is that the external monitor program must return one of the following integer values:
0 (server is online)
110 (server is online)
100 (server is offline)
1 (server is offline)
All other (server state is unknown)
Symantec recommends storing the external monitor utility on the shared disk directory to ensure the file is always available on the online system. Arguments are supported.
Example:
1. /usr/sap/PI1/DVEBMGS00/work/mymonitor.pl
2. /usr/sap/PI1/DVEBMGS00/work/mymonitor.sh arg1 arg2
Default: ""
Full path of file name to source within the Unix shell to set the environment prior to executing SAP start scripts, monitor utilities, stop scripts and environment cleanup utilities.
The following shell environments are supported: ksh, sh, csh.
The syntax of this file must be in accordance with the shell of the user specified by the SAPAdmin attribute.
Symantec recommends storing this file on the shared disk directory to ensure the file is always available on the online system.
Example: /usr/sap/PI1/DVEBMGS00/envfile
Default: ""
UNIX user name defined as the administrative owner of SAP Instance. This username is stored in one or more of the system naming services to include the local password and shadow files (e.g. /etc/passwd and /etc/shadow), NIS, NIS+, or an LDAP server. The online, offline, monitor, and clean scripts execute their core subroutines using this name. This name is usually formed by concatenation of the 'SAPSID' and the string 'adm'.
Example: pi1adm
Default: ""
Specifies the full path and file name of the SAP Instance Profile. Typically the Instance Profile is found in /usr/sap/SAPSID/SYS/profile and has a name of the form 'SAPSID'_'InstName'_'VIRTUALHOSTNAME'.
Example: /usr/sap/PI1/SYS/profile/PI1_DVEBMGS00_sappi1pas
Default: ""
String identifier that classifies and describes the SAP server instance type.
The InstType values are case in-sensitive.
-------------------------------------------------
Instance Type Description
-------------------------------------------------
APPSERV SAP Application Server
ENQUEUE SAP Central Services
ENQREP Enqueue Replication Server
SMDAGENT Solution Manager Diagnostics Agent
-------------------------------------------------
Example: ENQUEUE
Default: APPSERV
APPSERV
ENQUEUE
ENQREP
SMDAGENT
The list of SAP processes to be monitored by the resource. The list of processes are space separated and can be specified in any order.
Valid values are as follows:
------------------------------------------------------------------
Instance Type ProcMon Values
------------------------------------------------------------------
Application Server - ABAP dw co se ig gwrd icman
Application Server - Java jc ig
Application Server - AddIn dw co se jstart ig gwrd icman
Solution Manager Diagnostics Agent jc
SAP Enqueue Server en ms gw*
Enqueue Replication Server er
------------------------------------------------------------------
*gw will not be part ProcMon for SAP Central Services instance for ABAP system.
Example: dw ig
Default: ""
The name of the SAP Central Services Instance cluster resource. This attribute is only used by Enqueue Replication Server. Using this attribute the replication server queries the Enqueue Server resource state during a failover.
Example: SAP71_PI1SCS_sap
Default: ""
./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTS/ 0000755 0000000 0000000 00000000000 13320062025 017436 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTS/messages/ 0000755 0000000 0000000 00000000000 13320062025 021245 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTS/messages/en/ 0000755 0000000 0000000 00000000000 13320062025 021647 5 ustar root root ./pkgs/VRTSsapwebas71/VRTSsapwebas71/opt/VRTS/messages/en/VRTSvcsHPSAPWebAS71.bmc 0000555 0000000 0000000 00000026463 13320062025 025506 0 ustar root root G• R|ãUen HAD & N! Ow @ ” , Öñ N! N8 ” N? N{ ô N… N‹ è N’ NÉ NÑ Nä ä Nò O 4 O Ow ˆ ,ÿÿÿÿ u © Ö L ~ Ã 1 ê F “ ç * c ÿÿÿÿÿÿÿÿÿÿÿÿ óÿÿÿÿ
4
dÿÿÿÿ
‹ÿÿÿÿ
Ðÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿ hÿÿÿÿÿÿÿÿ Âÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿ Nÿÿÿÿ v ¨ Ö
ÿÿÿÿ
<ÿÿÿÿÿÿÿÿ
‚ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
²ÿÿÿÿ
øÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿ G y § áÿÿÿÿÿÿÿÿ ' mÿÿÿÿ •ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ Åÿÿÿÿ ì 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ s Äÿÿÿÿÿÿÿÿ ÿÿÿÿ iÿÿÿÿ ´ÿÿÿÿ ùÿÿÿÿÿÿÿÿ 1ÿÿÿÿ mÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¥ÿÿÿÿÿÿÿÿ çÿÿÿÿ Tÿÿÿÿ Ñ þ /ÿÿÿÿÿÿÿÿÿÿÿÿ s · û Pÿÿÿÿ ³ Û 2ÿÿÿÿÿÿÿÿ ÿÿÿÿ Äÿÿÿÿ ÿÿÿÿÿÿÿÿ 9ÿÿÿÿ d ž Ö
=ÿÿÿÿÿÿÿÿ a ˆ Ïÿÿÿÿÿÿÿÿÿÿÿÿ ]ÿÿÿÿ }ÿÿÿÿ ¯ îÿÿÿÿÿÿÿÿ X ’ÿÿÿÿ Ùÿÿÿÿ , rÿÿÿÿ ¼ ÿÿÿÿ 4 _ ¥ÿÿÿÿ ï Yÿÿÿÿ ž ü <ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ {ÿÿÿÿÿÿÿÿ ºÿÿÿÿ 5ÿÿÿÿ p æ 9ÿÿÿÿÿÿÿÿÿÿÿÿ ƒ © û !Vÿÿÿÿ !• !Ñÿÿÿÿÿÿÿÿ " "Jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ " "Ôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ # #m #¨ #Ý $ÿÿÿÿ $cÿÿÿÿÿÿÿÿÿÿÿÿ $Ì % %? %~ %¶ %öÿÿÿÿ &X &Áÿÿÿÿ '
'; 'p '®ÿÿÿÿÿÿÿÿ 'Ò 'ùÿÿÿÿÿÿÿÿÿÿÿÿ (8 (ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ (² (Ø ) )Pÿÿÿÿ )Š )» )âÿÿÿÿ * *u *Ñÿÿÿÿÿÿÿÿÿÿÿÿ +& +Xÿÿÿÿÿÿÿÿ + +¸ +þÿÿÿÿ ,H ,¤ ,ô E%s:<%s> The following mandatory fields were not set [%s], Total [%s] 0%s:<%s> SAPAdmin [%s] is not a valid UNIX login )%s:<%s> EnvFile [%s] file does not exist A%s:<%s> InstProfile [%s] not terminated with valid hostname [%s] -%s:<%s> InstProfile [%s] file does not exist .%s:<%s> MonitorProgram [%s] is not executable A%s:<%s> EnqSrvResName [%s] invalid resource of Type [SAPWebAS71] j%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least one of [dw jc jstart] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] Y%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least [en] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] I%s:<%s> Incorrect value for ProcMon [%s]. Must be [er] for InstType [%s] P%s:<%s> SAPSID [%s] has to be exactly 3 non-white alpha-numeric characters long ?%s:<%s> Last two characters of InstName [%s] not between 00-99 5%s:<%s> InstType [%s] invalid. Has to be one of [%s] F%s:<%s> Some of the attributes could not be validated. Returning [%s] B%s:<%s> Could not remove all processes for this instance. Exiting =%s:<%s> Insufficient time to run cleanipc. Short by [%s] sec ,%s:<%s> Failed to remove stale file(s) [%s] #%s:<%s> Could not log successfully A%s:<%s> Insufficient time to continue boot up. Short by [%s] sec A%s:<%s> Insufficient time to continue boot up. Short by [%s] sec O%s:<%s> Process check confirmed start-up of this instance of SAPWebAS71 server V%s:<%s> Second Level Monitor confirmed start-up of this instance of SAPWebAS71 server B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec $%s:<%s> Sending SIGINT to PIDs [%s] .%s:<%s> Successfully sent SIGINT to PIDs [%s] *%s:<%s> Failed to send SIGINT to PID [%s] ,%s:<%s> Delaying exit to confirm shutdown.. 2%s:<%s> Confirmed shutdown of SAPWebAS71 instance B%s:<%s> Could not remove all processes for this instance. Exiting ,%s:<%s> Failed to remove stale file(s) [%s] B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec #%s:<%s> Could not log successfully $%s:<%s> Sending SIGINT to PIDs [%s] .%s:<%s> Successfully sent SIGINT to PIDs [%s] *%s:<%s> Failed to send SIGINT to PID [%s] 6%s:<%s> Proceeding with SIGKILL for SAP Instance [%s] B%s:<%s> Could not remove all processes for this instance. Exiting B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec $%s:<%s> Failed to execute cleanipc. ,%s:<%s> Failed to remove stale file(s) [%s] #%s:<%s> Could not log successfully A%s:<%s> Failed to get details for monitoring SAPWebAS71 instance >%s:<%s> Call to get process list did not return any processes M%s:<%s> Missing sapstart process. Found master dw process PID [%s] PPID [%s] V%s:<%s> Missing 'jstart' master, though 'dw' master [%s] exists. Retrying in [%s] sec G%s:<%s> Missing jstart child process after recursive call. Retrying .. G%s:<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec A%s:<%s> Missing jstart process after recursive call. Retrying .. 4%s:<%s> Could not create PID file [%s] successfully 8%s:<%s> Missing sapstart process in first level monitor 4%s:<%s> Attribute validation failed. Returning [%s] >%s:<%s> SAPWebAS71 instance NOT online after SLM. Status [%s] i%s:<%s> SAPWebAS71 instance NOT online after executing external monitor [%s] with args [%s]. Status [%s] E%s:<%s> The following mandatory fields were not set [%s], Total [%s] 0%s:<%s> SAPAdmin [%s] is not a valid UNIX login )%s:<%s> EnvFile [%s] file does not exist -%s:<%s> InstProfile [%s] file does not exist @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] Q%s:<%s> Encountered unsupported InstType [%s]. Has to be one of [enqueue enqrep] -%s:<%s> External monitor [%s] does not exist .%s:<%s> External monitor [%s] not executable. $%s:<%s> EnvFile [%s] does not exist S%s:<%s> Insufficient time to proceed with external monitor [%s]. Short by [%s] sec Z%s:<%s> Command [%s] with args [%s] execution failed with exit code [%s]. Cmd output [%s] 0%s:<%s> PID [%s] is not a valid positive number 8%s:<%s> Failed to close PidFile [%s] after update: [%s] 5%s:<%s> Failed to create PID file [%s] with PID [%s] '%s:<%s> PID file [%s] is of zero bytes 6%s:<%s> Could not close PID file [%s] after read [%s] 4%s:<%s> Failed to open PID file [%s] for read: [%s] 3%s:<%s> PIDs not killed [%s] Total not killed [%s] ,%s:<%s> Killed PIDs [%s] Total killed: [%s] %s:<%s> Cmd [%s] does not exist #%s:<%s> Cmd [%s] is not executable C%s:<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s]. I%s:<%s> Command [%s] with args [%s] did not complete within [%s] seconds =%s:<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut %s:<%s> PID [%s] is invalid .%s:<%s> ps(1b) command [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] )%s:<%s> Failed to create PID folder [%s] 9%s:<%s> Failed to close log file [%s] after update: [%s] 6%s:<%s> Failed to open log file [%s] for update: [%s] C%s:<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] f%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Replication Server!! A%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s] Z%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Server!! <%s:<%s> Cmd [%s] failed with exit code [%s]. Returning [%s] ;%s:<%s> Status of SAP instance undecided:
%sReturning [%s] ;%s:<%s> Cmd [%s] with Args [%s] failed with exit code [%s] w%s:<%s> Resource [%s] not a matching ENQUEUE variant for this resource. The resource is with InstType [%s] SAPSID [%s] 7%s:<%s> Invoked during a normal switch-over or online. 9%s:<%s> Destination cluster node [%s] cannot be resolved 5%s:<%s> Faulted cluster node [%s] cannot be resolved $%s:<%s> Command [%s] does not exist '%s:<%s> Command [%s] is not executable F%s:<%s> Missing faulted node name. Possible node FAULT event detected "%s:<%s> Missing source node name. N%s:<%s> Checking if the Group [%s] is configured for Solaris non-global zones W%s:<%s> ContainerName attribute is configured. Possible zone [%s] FAULT event detected ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] 8%s:<%s> Cmd [%s] with args [%s] failed with reason [%s] 9%s:<%s> +------- Group [%s] has ENQUEUE variant -------+ 8%s:<%s> +------- Group [%s] has ENQREP variant -------+ B%s:<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s]. @%s:<%s> Failover Group [%s] has ENQREP variant resource(s) [%s] G%s:<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster J%s:<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s] 7%s:<%s> Could not locate any node to online Group [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] D%s:<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant e%s:<%s> Corresponding ENQREP server(s) not found ONLINE in cluster. Onlining group [%s] on node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] ;%s:<%s> ENQREP configured in different service groups [%s] 4%s:<%s> ENQREP found online on different nodes [%s] <%s:<%s> Marking resource [%s] with InstType [%s] as invalid ^%s:<%s> SAPSID [%s] of ENQREP resource [%s] differs from SAPSID [%s] of ENQUEUE resource [%s] e%s:<%s> InstType [%s] of ENQREP resource [%s] not a match for InstType [%s] of ENQUEUE resource [%s] E%s:<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s] -%s:<%s> Failing over Group [%s] to node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] %s:<%s> Cmd [%s] does not exist #%s:<%s> Cmd [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] C%s:Agent called with unsupported entry point specification of [%s] /%s:<%s> Resource [%s] started up successfully. "%s:<%s> Failed to online resource 3%s:<%s> Processes for resource instance already up =%s:<%s> Attempt to online resource instance in invalid state 6%s:<%s> Processes for resource instance down already. -%s:<%s> Shutdown resource [%s] successfully. #%s:<%s> Failed to offline resource !%s:<%s> Failed to clean resource j%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least one of [dw jc jstart] for InstType [%s] X%s:<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped Q%s:<%s> Failed to delete PID files in directory [%s]. Remove the files manually. .%s:<%s> Called with empty [%s] process string 1%s:<%s> Deleting PID files for VCS resource [%s] '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] X%s:<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] ;%s:<%s> Status of SAP instance undecided:
%sReturning [%s] ./pkgs/VRTSsaplc/ 0000555 0000000 0000000 00000000000 13320062025 012465 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/ 0000755 0000000 0000000 00000000000 13320062025 014310 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/ 0000755 0000000 0000000 00000000000 13320062025 015063 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017063 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 017453 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/ 0000755 0000000 0000000 00000000000 13320062025 020400 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/SAPLiveCache/ 0000755 0000000 0000000 00000000000 13320062025 022567 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/SAPLiveCache/main.cf 0000555 0000000 0000000 00000022515 13320062025 024033 0 ustar root root include "types.cf"
include "SAPLiveCacheTypes.cf"
include "SAPNW04Types.cf"
cluster ACCSUN1 (
UserNames = { admin = aHIaHChEIdIIgQIcHF,
yvarshne = ajkCjeJgkFkkIskEjh,
CMC_AT_CMC_SERVICES_AT_vcssun40_DOT_vxindia_DOT_veritas_DOT_com = EhfLflDehCdhEkeDhp,
"root@vcssun40.vxindia.veritas.com" = GLMkLIlI,
"CMC_HAD@HA_SERVICES@vcssun68.vxindia.veritas.com" = dKLjKHkH,
"CMC_HAD@HA_SERVICES@vcssun40.vxindia.veritas.com" = dlmKliLi,
"root_vcssun40..vxindia..veritas..com_unixpwd" = gHIgHEhE }
Administrators = { admin, yvarshne,
CMC_AT_CMC_SERVICES_AT_vcssun40_DOT_vxindia_DOT_veritas_DOT_com,
"root@vcssun40.vxindia.veritas.com",
"CMC_HAD@HA_SERVICES@vcssun68.vxindia.veritas.com",
"root_vcssun40..vxindia..veritas..com_unixpwd" }
CredRenewFrequency = 0
CounterInterval = 5
)
system vcssun68 (
)
system vcssun69 (
)
group SAP70-LC1ASCS (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-LC1ASCS_dg (
Critical = 0
DiskGroup = saplc1ascs_dg
)
IP SAP70-LC1ASCS_ip (
Critical = 0
Device = bge0
Address = "10.212.98.47"
NetMask = "255.255.254.0"
)
Mount SAP70-LC1ASCS_mnt (
Critical = 0
MountPoint = "/usr/sap/LC1/ASCS10"
BlockDevice = "/dev/vx/dsk/saplc1ascs_dg/saplc1ascs_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAP70-LC1ASCS_ascs (
Critical = 0
EnvFile = "/usr/sap/LC1/saplc1_env.csh"
InstName = ASCS10
InstType = ENQUEUE
ProcMon = "ms en"
SAPAdmin = lc1adm
SAPMonHome = "/usr/sap/LC1/ASCS10/exe"
SAPSID = LC1
StartProfile = "/usr/sap/LC1/SYS/profile/START_ASCS10_saplc1ascs"
)
SAP70-LC1ASCS_ascs requires SAP70-LC1ASCS_ip
SAP70-LC1ASCS_ascs requires SAP70-LC1ASCS_mnt
SAP70-LC1ASCS_mnt requires SAP70-LC1ASCS_dg
// resource dependency tree
//
// group SAP70-LC1ASCS
// {
// SAPNW04 SAP70-LC1ASCS_ascs
// {
// IP SAP70-LC1ASCS_ip
// Mount SAP70-LC1ASCS_mnt
// {
// DiskGroup SAP70-LC1ASCS_dg
// }
// }
// }
group SAP70-LC1CI (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-LC1CI_dg (
Critical = 0
DiskGroup = saplc1ci_dg
)
IP SAP70-LC1CI_ip (
Critical = 0
Device = bge0
Address = "10.212.98.48"
NetMask = "255.255.254.0"
)
Mount SAP70-LC1CI_mnt (
Critical = 0
MountPoint = "/usr/sap/LC1/DVEBMGS11"
BlockDevice = "/dev/vx/dsk/saplc1ci_dg/saplc1ci_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAP70-LC1CI_ci (
Critical = 0
EnvFile = "/usr/sap/LC1/saplc1_env.csh"
InstName = DVEBMGS11
ProcMon = dw
SAPAdmin = lc1adm
SAPMonHome = "/usr/sap/rfcsdk/bin"
SAPSID = LC1
StartProfile = "/usr/sap/LC1/SYS/profile/START_DVEBMGS11_saplc1ci"
)
requires group SAP70-LC1ASCS online global soft
SAP70-LC1CI_ci requires SAP70-LC1CI_ip
SAP70-LC1CI_ci requires SAP70-LC1CI_mnt
SAP70-LC1CI_mnt requires SAP70-LC1CI_dg
// resource dependency tree
//
// group SAP70-LC1CI
// {
// SAPNW04 SAP70-LC1CI_ci
// {
// IP SAP70-LC1CI_ip
// Mount SAP70-LC1CI_mnt
// {
// DiskGroup SAP70-LC1CI_dg
// }
// }
// }
group SAP70-LC1DB (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-LC1DB_DATA_dg (
Critical = 0
DiskGroup = maxdbdata_dg
)
DiskGroup SAP70-LC1DB_LOG_dg (
Critical = 0
DiskGroup = maxdblog_dg
)
IP SAP70-LC1DB_ip (
Critical = 0
Device = bge0
Address = "10.212.98.49"
NetMask = "255.255.254.0"
)
Mount SAP70-LC1DB_DATA_mnt (
Critical = 0
MountPoint = "/sapdb/LC1/sapdata"
BlockDevice = "/dev/vx/dsk/maxdbdata_dg/maxdbdata_vol"
FSType = vxfs
FsckOpt = "-y"
)
Mount SAP70-LC1DB_LOG_mnt (
Critical = 0
MountPoint = "/sapdb/LC1/saplog"
BlockDevice = "/dev/vx/dsk/maxdblog_dg/maxdblog_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAP70-LC1DB_DATA_mnt requires SAP70-LC1DB_DATA_dg
SAP70-LC1DB_LOG_mnt requires SAP70-LC1DB_LOG_dg
SAP70-LC1DB_ip requires SAP70-LC1DB_DATA_mnt
SAP70-LC1DB_ip requires SAP70-LC1DB_LOG_mnt
// resource dependency tree
//
// group SAP70-LC1DB
// {
// IP SAP70-LC1DB_ip
// {
// Mount SAP70-LC1DB_DATA_mnt
// {
// DiskGroup SAP70-LC1DB_DATA_dg
// }
// Mount SAP70-LC1DB_LOG_mnt
// {
// DiskGroup SAP70-LC1DB_LOG_dg
// }
// }
// }
group SAP70-LC1DI (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-LC1DI_dg (
Critical = 0
DiskGroup = saplc1di_dg
)
IP SAP70-LC1DI_ip (
Critical = 0
Device = bge0
Address = "10.212.98.51"
NetMask = "255.255.254.0"
)
Mount SAP70-LC1DI_mnt (
Critical = 0
MountPoint = "/usr/sap/LC1/D12"
BlockDevice = "/dev/vx/dsk/saplc1di_dg/saplc1di_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAP70-LC1DI_di (
Critical = 0
EnvFile = "/usr/sap/LC1/saplc1_env.csh"
InstName = D12
InstType = DIALOG
ProcMon = dw
SAPAdmin = lc1adm
SAPMonHome = "/usr/sap/rfcsdk/bin"
SAPSID = LC1
StartProfile = "/usr/sap/LC1/SYS/profile/START_D12_saplc1di"
)
requires group SAP70-LC1ASCS online global soft
SAP70-LC1DI_di requires SAP70-LC1DI_ip
SAP70-LC1DI_di requires SAP70-LC1DI_mnt
SAP70-LC1DI_mnt requires SAP70-LC1DI_dg
// resource dependency tree
//
// group SAP70-LC1DI
// {
// SAPNW04 SAP70-LC1DI_di
// {
// IP SAP70-LC1DI_ip
// Mount SAP70-LC1DI_mnt
// {
// DiskGroup SAP70-LC1DI_dg
// }
// }
// }
group SAP70-LC1ERS (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-LC1ERS_dg (
Critical = 0
DiskGroup = saplc1ers_dg
)
IP SAP70-LC1ERS_ip (
Critical = 0
Device = bge0
Address = "10.212.98.52"
NetMask = "255.255.254.0"
)
Mount SAP70-LC1ERS_mnt (
Critical = 0
MountPoint = "/usr/sap/LC1/ERS13"
BlockDevice = "/dev/vx/dsk/saplc1ers_dg/saplc1ers_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAP70-LC1ERS_ers (
Critical = 0
EnqSrvResName = SAP70-LC1ASCS_ascs
EnvFile = "/usr/sap/LC1/saplc1_env.csh"
InstName = ERS13
InstType = ENQREP
ProcMon = er
SAPAdmin = lc1adm
SAPMonHome = "/usr/sap/LC1/ERS13/exe"
SAPSID = LC1
StartProfile = "/usr/sap/LC1/SYS/profile/START_ERS13_saplc1ers"
)
requires group SAP70-LC1ASCS online global soft
SAP70-LC1ERS_ers requires SAP70-LC1ERS_ip
SAP70-LC1ERS_ers requires SAP70-LC1ERS_mnt
SAP70-LC1ERS_mnt requires SAP70-LC1ERS_dg
// resource dependency tree
//
// group SAP70-LC1ERS
// {
// SAPNW04 SAP70-LC1ERS_ers
// {
// IP SAP70-LC1ERS_ip
// Mount SAP70-LC1ERS_mnt
// {
// DiskGroup SAP70-LC1ERS_dg
// }
// }
// }
group SAP70-LC1NFS (
SystemList = { vcssun68 = 0 }
)
DiskGroup SAP70-LC1NFS_dg (
Critical = 0
DiskGroup = sapmntlc1_dg
)
Mount SAP70-LC1NFS_mnt (
Critical = 0
MountPoint = "/sapmnt/LC1"
BlockDevice = "/dev/vx/dsk/sapmntlc1_dg/sapmntlc1_vol"
FSType = vxfs
FsckOpt = "-y"
)
NFS SAP70-LC1NFS_nfs (
Critical = 0
)
Share SAP70-LC1NFS_share (
Critical = 0
PathName = "/sapmnt/LC1"
Options = "root=rw,anon=0"
)
SAP70-LC1NFS_mnt requires SAP70-LC1NFS_dg
SAP70-LC1NFS_share requires SAP70-LC1NFS_mnt
SAP70-LC1NFS_share requires SAP70-LC1NFS_nfs
// resource dependency tree
//
// group SAP70-LC1NFS
// {
// Share SAP70-LC1NFS_share
// {
// Mount SAP70-LC1NFS_mnt
// {
// DiskGroup SAP70-LC1NFS_dg
// }
// NFS SAP70-LC1NFS_nfs
// }
// }
group SAP70-LC1SAPMNT (
SystemList = { vcssun69 = 0 }
)
Mount SAP70-LC1SAPMNT_mnt (
Critical = 0
MountPoint = "/sapmnt/LC1"
BlockDevice = "vcssun68:/sapmnt/LC1"
FSType = nfs
MountOpt = rw
)
requires group SAP70-LC1NFS online remote firm
// resource dependency tree
//
// group SAP70-LC1SAPMNT
// {
// Mount SAP70-LC1SAPMNT_mnt
// }
group SAP70-liveCache (
SystemList = { vcssun68 = 0, vcssun69 = 1 }
)
DiskGroup SAP70-liveCache_DATA_dg (
Critical = 0
DiskGroup = lcachedata_dg
)
DiskGroup SAP70-liveCache_LOG_dg (
Critical = 0
DiskGroup = lcachelog_dg
)
IP SAP70-liveCache_ip (
Critical = 0
Device = bge0
Address = "10.212.98.50"
NetMask = "255.255.254.0"
)
Mount SAP70-liveCache_DATA_mnt (
Critical = 0
MountPoint = "/sapdb/LC3/sapdata"
BlockDevice = "/dev/vx/dsk/lcachedata_dg/lcachedata_vol"
FSType = vxfs
FsckOpt = "-y"
)
Mount SAP70-liveCache_LOG_mnt (
Critical = 0
MountPoint = "/sapdb/LC3/saplog"
BlockDevice = "/dev/vx/dsk/lcachelog_dg/lcachelog_vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPLiveCache SAP70-liveCache_srvr (
Critical = 0
EnvFile = "/home/lc3adm/.lcenv.csh"
LCHome = "/sapdb/programs/bin"
LCUser = lc3adm
LCName = LC3
DBMPassword = FTLrITiLGlHLiLJlK
APOHost = saplc1ci
InstId = 11
ClientId = 001
RFCDest = LC1CLNT001
RFCHome = "/usr/sap/rfcsdk/bin"
RFCUserId = LC3RFC
RFCPassword = CMIkFMfIDiEIfIGiH
)
SAP70-liveCache_DATA_mnt requires SAP70-liveCache_DATA_dg
SAP70-liveCache_LOG_mnt requires SAP70-liveCache_LOG_dg
SAP70-liveCache_ip requires SAP70-liveCache_DATA_mnt
SAP70-liveCache_ip requires SAP70-liveCache_LOG_mnt
SAP70-liveCache_srvr requires SAP70-liveCache_ip
// resource dependency tree
//
// group SAP70-liveCache
// {
// SAPLiveCache SAP70-liveCache_srvr
// {
// IP SAP70-liveCache_ip
// {
// Mount SAP70-liveCache_DATA_mnt
// {
// DiskGroup SAP70-liveCache_DATA_dg
// }
// Mount SAP70-liveCache_LOG_mnt
// {
// DiskGroup SAP70-liveCache_LOG_dg
// }
// }
// }
// }
./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.hpux.xml 0000555 0000000 0000000 00000015773 13320062025 027526 0 ustar root root
1
/opt/VRTSagents/ha/bin/SAPLiveCache
/opt/VRTSvcsone/bin/Script50Agent
"ResLogLevel"
"State"
"IState"
"EnvFile"
"LCHome"
"LCUser"
"LCName"
"DBMUserId"
"DBMPassword"
"APOHost"
"InstId"
"ClientId"
"RFCDest"
"RFCHome"
"RFCUserId"
"RFCPassword"
"Language"
"SecondLevelMonitor"
"MonitorProgram"
1
"5.1.0.0"
0
1
55014
"5.1.0.0"
0
1
1
2
INFO
1
3
1
1
4
1
1
5
1
1
6
1
1
7
control
1
8
1
1
9
1
1
10
1
1
11
1
1
12
1
1
13
1
1
14
1
1
15
1
1
16
EN
1
17
0
1
18
0
./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.cmd 0000555 0000000 0000000 00000002347 13320062025 026477 0 ustar root root #!/bin/sh
hatype -add SAPLiveCache
hatype -modify SAPLiveCache SourceFile "./SAPLiveCacheTypes.cf"
hatype -modify SAPWebAS71 AEPTimeout 1
hatype -modify SAPLiveCache AgentFile "/opt/VRTSvcs/bin/Script50Agent"
hatype -modify SAPLiveCache AgentDirectory "/opt/VRTSagents/ha/bin/SAPLiveCache"
hatype -modify SAPLiveCache ArgList ResLogLevel State IState EnvFile LCHome LCUser LCName DBMUserId DBMPassword APOHost InstId ClientId RFCDest RFCHome RFCUserId RFCPassword Language SecondLevelMonitor MonitorProgram
haattr -add SAPLiveCache ResLogLevel -string INFO
haattr -add SAPLiveCache EnvFile -string
haattr -add SAPLiveCache LCHome -string
haattr -add SAPLiveCache LCUser -string
haattr -add SAPLiveCache LCName -string
haattr -add SAPLiveCache DBMUserId -string control
haattr -add SAPLiveCache DBMPassword -string
haattr -add SAPLiveCache APOHost -string
haattr -add SAPLiveCache InstId -string
haattr -add SAPLiveCache ClientId -string
haattr -add SAPLiveCache RFCDest -string
haattr -add SAPLiveCache RFCHome -string
haattr -add SAPLiveCache RFCUserId -string
haattr -add SAPLiveCache RFCPassword -string
haattr -add SAPLiveCache Language -string
haattr -add SAPLiveCache SecondLevelMonitor -integer 0
haattr -add SAPLiveCache MonitorProgram -string
./pkgs/VRTSsaplc/VRTSsaplc/etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.cf 0000555 0000000 0000000 00000001276 13320062025 026324 0 ustar root root type SAPLiveCache (
static boolean AEPTimeout = 1
static str AgentFile = "/opt/VRTSvcs/bin/Script50Agent"
static str AgentDirectory = "/opt/VRTSagents/ha/bin/SAPLiveCache"
static str ArgList[] = { ResLogLevel, State, IState, EnvFile, LCHome, LCUser, LCName, DBMUserId, DBMPassword, APOHost, InstId, ClientId, RFCDest, RFCHome, RFCUserId, RFCPassword, Language, SecondLevelMonitor, MonitorProgram }
str ResLogLevel = INFO
str EnvFile
str LCHome
str LCUser
str LCName
str DBMUserId = control
str DBMPassword
str APOHost
str InstId
str ClientId
str RFCDest
str RFCHome
str RFCUserId
str RFCPassword
str Language = EN
int SecondLevelMonitor = 0
str MonitorProgram // OPT
)
./pkgs/VRTSsaplc/VRTSsaplc/opt/ 0000755 0000000 0000000 00000000000 13320062025 015112 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017112 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 017502 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/ 0000755 0000000 0000000 00000000000 13320062025 020252 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/SAPLiveCache/ 0000755 0000000 0000000 00000000000 13320062025 022441 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/SAPLiveCache/lccluster 0000555 0000000 0000000 00000001421 13320062025 024363 0 ustar root root #!/opt/VRTSperl/bin/perl -w
use Fcntl;
use File::Path qw ( mkpath );
my $sClustMode = $ARGV[0];
my $sStatus = $ARGV[1];
my $sClustStatus = "$sClustMode $sStatus";
my ( $sFileName, $sSAP, $sDB, $sLCName ) = reverse $0 =~ m@([^/]+)@g;
my $sWrkDir = "/sapdb/data/wrk/" . $sLCName ;
my $sClustFile = $sWrkDir . "/symc_lccluster_" . $sLCName ;
#-------------------------------
# Create work folder if needed..
#-------------------------------
if ( -d $sWrkDir ) {
# Directory already exists.
}
elsif ( ! mkpath ( $sWrkDir, 0, 0700 ) ) {
# Not able to create a directory.
return 0;
}
if ( sysopen( CLUSTFILE, $sClustFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC, 0660 ) ) {
print CLUSTFILE $sClustStatus;
}
else {
# Not able to create the file.
}
close ( CLUSTFILE );
./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/SAPLiveCache/monitor 0000555 0000000 0000000 00000047765 13320062025 024077 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPLiveCache/monitor.pl,v 1.10 2012/12/14 15:26:10 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2012/12/14 15:26:10 $
# $Revision: 1.10 $
#
# Provides: SAPLiveCache
# Author: vchappav
# CrAgent Run Date: 01 Nov, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
#---------------------------------------------------------
# Define the exact order to look for our agent framework..
#---------------------------------------------------------
BEGIN {
my $sVCSperl = undef;
my $sVCSagntfwHome = "/opt/VRTS/.ACCLib";
( my $sDirName = $0 ) =~ s#(.*)/.*$#$1#;
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCS One..
$sVCSperl = "$ENV{CLUSTER_HOME}/lib";
}
else { # VCS 4.x ..
$sVCSperl = "/opt/VRTSperl/lib/site_perl";
}
unshift ( @INC, $sDirName,
"$sVCSagntfwHome/vcs",
"$sVCSagntfwHome/system",
"$sVCSagntfwHome/network",
$sVCSperl );
}
#------------
# Be strict..
#------------
use strict 'refs';
use strict 'vars';
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # For call to RunCmdArgsAsUser
use Version; # ACC Library version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
use ag_i18n_inc;
#-----------------------------------------
# Include the required SAPLiveCache module..
#-----------------------------------------
use SAPLiveCache;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: monitor.pl,v 1.10 2012/12/14 15:26:10 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#----------------------------------------------------------------------
# If versions are requested, print all of the framework module versions
# to stdout, then exit 0..
#----------------------------------------------------------------------
if ( 1 == Version::CheckForVersionRequest ( $ARGV [0] ) ) {
#------------------------------------------------------------------
# Found the request to display all versions -- did that, now quit..
#------------------------------------------------------------------
exit 0;
}
#-----------------------------------
# Work out entry point information..
#-----------------------------------
my $sResourceName = $ARGV [0];
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = 'SAPLiveCache' if $sResourceType !~ /\w/;
#---------------------------------------------------------
# Set up the return code here (this gets over written once
# the entry point is called ).
#---------------------------------------------------------
my $iAgentReturnCode = 0;
if ( $sEntryPointName eq "monitor" ) {
$iAgentReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEntryPointName eq "clean") {
$iAgentReturnCode = VCSDef_CleanExit::FAILED;
}
#------------------------------------
# Setup Category ID for UMI logging..
#------------------------------------
my $iCategoryID = 55014;
my $iCleanReason = undef;
#-----------------------------------------
# Use Script50Agent style attribute list..
#-----------------------------------------
my $iCnt = 0;
my ( $sKey, @lsArgVals, %hsAttribs ) = ();
my @lsAttrs =
qw ( ResLogLevel State IState EnvFile LCHome LCUser LCName DBMUserId
DBMPassword APOHost InstId ClientId RFCDest RFCHome RFCUserId
RFCPassword Language SecondLevelMonitor MonitorProgram );
#------------------------------------------------------------------
# ArgList for type SAPLiveCache:
# ResLogLevel State IState EnvFile LCHome LCUser LCName DBMUserId
# DBMPassword APOHost InstId ClientId RFCDest RFCHome RFCUserId
# RFCPassword Language SecondLevelMonitor MonitorProgram
#------------------------------------------------------------------
my ( $argResLogLevel,
$argState,
$argIState,
$argEnvFile,
$argLCHome,
$argLCUser,
$argLCName,
$argDBMUserId,
$argDBMPassword,
$argAPOHost,
$argInstId,
$argClientId,
$argRFCDest,
$argRFCHome,
$argRFCUserId,
$argRFCPassword,
$argLanguage,
$argSecondLevelMonitor,
$argMonitorProgram ) = ();
$sResourceName = shift;
$iCleanReason = shift if ( $sEntryPointName eq 'clean' );
if ( $ENV { CLUSTER_HOME } ) { # VCS One/VCS 5.0
#----------------------------------------
# Use Script50Agent style attribute list
# Code specific to VCS 5.0 and VCS One.
#----------------------------------------
#--------------
# Get vectors..
#--------------
do {
push @{ $hsAttribs { $ARGV [$iCnt] } },
@ARGV [ $iCnt + 2 .. $iCnt + 1 + $ARGV [$iCnt + 1] ];
} while ( ( $iCnt += $ARGV [$iCnt + 1] + 2 ) <= $#ARGV );
( $argResLogLevel,
$argState,
$argIState,
$argEnvFile,
$argLCHome,
$argLCUser,
$argLCName,
$argDBMUserId,
$argDBMPassword,
$argAPOHost,
$argInstId,
$argClientId,
$argRFCDest,
$argRFCHome,
$argRFCUserId,
$argRFCPassword,
$argLanguage,
$argSecondLevelMonitor,
$argMonitorProgram ) = @lsArgVals = map { @$_ } @hsAttribs { @lsAttrs };
}
else {
#----------------------------
# Get values VCS 4.1 style
#----------------------------
(@lsArgVals) = ( $argResLogLevel,
$argState,
$argIState,
$argEnvFile,
$argLCHome,
$argLCUser,
$argLCName,
$argDBMUserId,
$argDBMPassword,
$argAPOHost,
$argInstId,
$argClientId,
$argRFCDest,
$argRFCHome,
$argRFCUserId,
$argRFCPassword,
$argLanguage,
$argSecondLevelMonitor,
$argMonitorProgram ) = @ARGV;
}
unshift ( @lsArgVals, $iCleanReason ) if ( $sEntryPointName eq "clean" ); # Insert clean reason..
unshift ( @lsArgVals, $sResourceName ); # Insert resource name..
unless ( VCSagentFW::SetupEntry ( $sEntryPointName,
$iCategoryID,
\$iCleanReason,
\@lsArgVals ) ) {
#------------------------------------------------------------------
# Some number of the "Standard Agent" arguments failed the
# validation. Note that the validation subroutine has already
# logged the attributes that failed the validation criteria. Exit
# now with the earlier defined value of $iAgentReturnCode.
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#---------------------------------
# Populate FFDC helper variables..
#---------------------------------
$::gsUser = $argLCUser;
$::gsEnvFile = $argEnvFile;
#-------------------------------------
# Send the parameters for validation..
#-------------------------------------
if ( SAPLiveCache::ArgsValid ( $sEntryPointName,
$argEnvFile,
$argLCHome,
$argLCUser,
$argLCName,
$argDBMUserId,
$argDBMPassword,
$argAPOHost,
$argInstId,
$argClientId,
$argRFCDest,
$argRFCHome,
$argRFCUserId,
$argRFCPassword,
$argLanguage,
$argSecondLevelMonitor,
$argMonitorProgram ) ) {
&logTrace ( 20218, "<%s> All arguments validated successfully!",
$sEntryPointName );
}
else {
#---------------------------------------------------------------
# Some number of the arguments failed the validation..
# Exit now with the earlier defined value of iAgentReturnCode..
#---------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-----------------------------------
# Args checked out ok, so continue..
#-----------------------------------
#------------------------------------------
# Declare routines to handle entry points..
#------------------------------------------
my %routines = ( "monitor" => \&MonitorEntryPoint,
"online" => \&OnlineEntryPoint,
"offline" => \&OfflineEntryPoint,
"clean" => \&CleanEntryPoint );
#----------------------------------------------------------
# Depending on our entry point, call the correct function..
#----------------------------------------------------------
if ( $routines{$sEntryPointName} ) {
$iAgentReturnCode = $routines{$sEntryPointName}->();
}
else { # Unknown entry pt..
&logError ( 20219,
"Agent called with unsupported entry point specification of [%s]",
$sEntryPointName );
++$iAgentReturnCode;
}
#------------------------------------------------------------------
# Exit the entry point, using the iAgentReturnCode we have set up..
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
#-------------------------------------------------------------
# End of &main(), IE: no more execution logic; only subroutine
# definitions follow..
#-------------------------------------------------------------
=pod
#-------------------------------------------------------------
Function : int MonitorEntryPoint ( void );
Description : Monitors resource of type SAPLiveCache
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
#-------------------------------------------------------------
=cut
sub MonitorEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20220, "Subroutine <%s> called", $sMyName );
#-----------------------------------------
# Check if at least the processes are up..
#-----------------------------------------
my $SAPLiveCache_Status = SAPLiveCache::GetResourceState ( $argLCName,
$argLCUser );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $SAPLiveCache_Status ) {
$SAPLiveCache_Status = VCSDef_MonitorExit::OFFLINE;
}
#-------------------------------------
# Validation for intentional offline..
#-------------------------------------
if ( VCSDef_MonitorExit::OFFLINE == $SAPLiveCache_Status ) {
$SAPLiveCache_Status = SAPLiveCache::IntentionalOffline( $argState,
$argIState,
$argLCName,
$argLCHome,
$argDBMUserId,
$argDBMPassword,
$sResourceName );
return $SAPLiveCache_Status;
}
#------------------------------------------------
# Exit if, not online after a superficial check..
#------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $SAPLiveCache_Status ) {
&logTrace ( 20221,
"<%s> Resource [%s] online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPLiveCache_Status );
}
else {
&logTrace ( 20222,
"<%s> Resource [%s] NOT online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPLiveCache_Status );
return $SAPLiveCache_Status;
}
#--------------------------------
# Start monitoring the resource..
#--------------------------------
$SAPLiveCache_Status = SAPLiveCache::Monitor ( $argDBMPassword,
$argDBMUserId,
$argEnvFile,
$argLCHome,
$argLCName,
$argLCUser,
$argMonitorProgram,
$argSecondLevelMonitor );
#-------------------------------------
# Validation for intentional offline..
#-------------------------------------
if ( VCSDef_MonitorExit::OFFLINE == $SAPLiveCache_Status ) {
$SAPLiveCache_Status = SAPLiveCache::IntentionalOffline( $argState,
$argIState,
$argLCName,
$argLCHome,
$argDBMUserId,
$argDBMPassword,
$sResourceName );
}
return $SAPLiveCache_Status;
}
=pod
#---------------------------------------------------------------
Function : int OnlineEntryPoint ( void );
Description : Attempts to online a resource of type SAPLiveCache
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OnlineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20223, "Subroutine <%s> called", $sMyName );
my $iReturnCode = SAPLiveCache::GetResourceState ( $argLCName,
$argLCUser );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $iReturnCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
#------------------------
# Start only if offline..
#------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) {
if ( SAPLiveCache::Start ( $argAPOHost,
$argClientId,
$argDBMPassword,
$argDBMUserId,
$argEnvFile,
$argInstId,
$argLCHome,
$argLCName,
$argLCUser,
$argLanguage,
$argRFCDest,
$argRFCHome,
$argRFCPassword,
$argRFCUserId,
$argSecondLevelMonitor ) ) {
&logInfo ( 20224, "<%s> Resource [%s] started up successfully.",
$sMyName, $sResourceName );
}
else {
#------------------------------------------------------------------
# Here, the SAPLiveCache::Start routine informed us that the online
# did not work; however, all we can do is to return zero,
# effectively telling the VCS engine not to wait at all before
# invoking the monitor Entry Point, which is THE mechanism used by
# VCS to determine a resource's state.
#------------------------------------------------------------------
&logError( 20225, "<%s> Failed to online resource", $sMyName );
}
}
elsif ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logInfo ( 20226, "<%s> Processes for resource instance already up", $sMyName );
}
else { # Unknown..
&logError ( 20227,
"<%s> Attempt to online resource instance in invalid state", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : int OfflineEntryPoint ( void );
Description : Attempts to offline a resource of type SAPLiveCache
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OfflineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20228, "Subroutine <%s> called", $sMyName );
#----------------------------------------------
# Offline the resource if not offline already..
#----------------------------------------------
if ( VCSDef_MonitorExit::OFFLINE ==
SAPLiveCache::GetResourceState ( $argLCName,
$argLCUser ) ) {
&logInfo ( 20229, "<%s> Processes for resource instance down already.",
$sMyName );
}
elsif ( SAPLiveCache::Stop ( $argAPOHost,
$argClientId,
$argEnvFile,
$argInstId,
$argLCHome,
$argLCName,
$argLCUser,
$argLanguage,
$argRFCDest,
$argRFCHome,
$argRFCPassword,
$argRFCUserId,
$argDBMPassword,
$argDBMUserId ) ) {
&logInfo ( 20230,
"<%s> Shutdown resource [%s] successfully.",
$sMyName, $sResourceName );
}
else {
&logError ( 20231, "<%s> Failed to offline resource", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : bool CleanEntryPoint ( void );
Description : Attempts to clean up a resource of type SAPLiveCache
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub CleanEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20232, "Subroutine <%s> called", $sMyName );
#-----------------
# Clean resource..
#-----------------
if ( SAPLiveCache::Kill ( $iCleanReason,
$argDBMPassword,
$argDBMUserId,
$argEnvFile,
$argLCHome,
$argLCName,
$argLCUser ) ) {
#--------------
# Kill worked..
#--------------
return VCSDef_CleanExit::PASSED;
}
else {
#--------------
# Kill failed..
#--------------
&logError ( 20233, "<%s> Failed to clean resource", $sMyName );
return VCSDef_CleanExit::FAILED;
}
}
./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/SAPLiveCache/SAPLiveCache.xml 0000555 0000000 0000000 00000035231 13320062025 025357 0 ustar root root
Veritas High Availability Agent for SAP liveCache Server
UNIX
Script
4.1
Symantec
Specifies the logging detail performed by the agent for the resource.
Valid values are:
ERROR - Only logs error messages.
WARN - Logs above plus warning messages.
INFO - Logs above plus informational messages.
TRACE - Logs above plus trace messages. This is very verbose and should only be used during initial configuration or for troubleshooting and diagnostic operations.
Example: INFO
Default Value: INFO
INFO
WARN
ERROR
TRACE
Used to enable second-level monitoring and specify how often it is run. Second-level monitoring is a deeper, more thorough state check of the configured SAPLiveCache instance. The numeric value specifies how often that the second-level monitoring routines are run. Zero (0) means never run the second-level monitoring routines. One (1) would mean to run it every monitor interval. Two (2) means to run the second-level monitoring routines every second monitor interval, and so on.
Care should be taken when setting this attribute to large numbers. For example, if the MonitorInterval is set to 60 seconds,
and the SecondLevelMonitor is set to 100, then the second level check would only get performed every 100 minutes, which may not be as often as intended. In order to provide maximum flexibility, the value set is not checked for an upper limit. Thus, you could cause the second level check to occur once a month, if that is what is desired.
Example: 1
Default Value: 0
Full path and file name of an external, user-supplied monitor program. If specified, the monitor entry point will execute this file to perform an additional server state check. There are no restrictions for what actions the external monitor program performs to determine the state of a SAP instance server. The only constraint is that the external monitor program must return one of the following integer values:
0 (server is online)
110 (server is online)
100 (server is offline)
1 (server is offline)
All other (server state is unknown)
Symantec recommends storing the external monitor utility on the shared disk directory to ensure the file is always available on the online system. Arguments are supported.
Example:
1. /sapdb/data/wrk/LC5/myMonitor.pl
2. /sapdb/data/wrk/LC5/myMonitor.pl arg1 arg2
Default Value: ""
Full path to the file that the agent sources to set the environment for liveCache server before executing any liveCache programs. Symantec recommends storing this file on a shared disk for easy of maintenance. The supported shell environments are: ksh, sh, and csh.
Example: /home/lc5adm/lcenv.csh
Default: ""
Directory where the LiveCache database software is installed. This directory is needed to find the dbmcli and x_server executables.
Example: /sapdb/programs/bin
Default Value: ""
Operating system user for liveCache server. This user is responsible for starting and stopping the liveCache server. It must always be set to a value. In general this user takes the form 'LCName'adm. For SAP Kernel version 7.2 or higher, use 'SAPSID'adm as LCUser.
Example: lc5adm
Default: ""
Name of the liveCache instance consisting of three alphanumeric characters. Also called liveCache SID. Only upper case letters are allowed and the first letter must be a character. This attribute is needed to uniquely identify the processes of the liveCache server. Also needed by "dbmcli" utility to find the state of the liveCache server.
Example: LC5
Default: ""
The DBMUserId used to connect to the liveCache database server using "dbmcli".
Example: control
Default: "control"
Password for the user 'DBMUserId'. Use "vcsencrypt -agent" option to encrypt the password. If you are using VCS GUI to enter password no need to encrypt the password. VCS GUI will automatically encrypt password for you.
Example: jxpVmxMpkPlpMpnPo
Default: ""
Name of the host (virtual/physical) on which the SAP APO Application Server is running.
Example: sapsc1ci
Default: ""
The SAP system number or instance ID for the APO Application Server.
Example: 01
Default: ""
The Production client ID in which the RFC destination and RFC User is defined for liveCache server. The liveCache is started/stopped with this client ID.
Example: 001
Default: ""
RFC Destination defined for liveCache server start/stop. In general the destination will be in the form 'SAPSID'CLNT'ClientId'. Refer SAP note 305634 for more information.
Example: SC1CLNT001
Default: ""
The home directory for RFC SDK tool kit. startrfc binary is used to start/stop the liveCache server with function modules RSLVCSTART/RSLVCSTOP. This RFC SDK tool kit needs to be downloaded from SAP Service Market place http://service.sap.com/swdc. This directory must have executable permission for 'LCUser'.
Example: /sapdb/rfcsdk/bin
Default: ""
The RFC User created for SAP liveCache Server to globally operate SAP liveCache Server.
Example: LC5RFC
Default: ""
The password for the 'RFCUserId'. Use "vcsencrypt -agent" option to encrypt the password. If you are using VCS GUI to enter password no need to encrypt the password. VCS GUI will automatically encrypt password for you.
Example: akgIdkDgbGcgDgeGf
Default: ""
The language type used for starting and stopping liveCache server. This agent will support only English.
Example: EN
Default: ""
./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTSagents/ha/bin/SAPLiveCache/SAPLiveCache.pm 0000555 0000000 0000000 00000401431 13320062025 025172 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPLiveCache/SAPLiveCache.pm,v 1.18 2013/06/05 14:19:58 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2013/06/05 14:19:58 $
# $Revision: 1.18 $
#
# Provides: SAPLiveCache
# Author: vchappav
# CrAgent Run Date: 01 Nov, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
#------------
# Be strict..
#------------
use strict;
#----------------------
# Declare the package..
#----------------------
package SAPLiveCache;
use IPC::SysV qw ( IPC_STAT IPC_RMID );
my $sCmdIpcs = "/usr/bin/ipcs";
my ( $CLUS_HOME, $sPrefix ) = ();
#---------------------
# Setup VCS/VCSOne home..
#---------------------
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCS One..
$CLUS_HOME ||= $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone";
}
else { # VCS 4.x..
$CLUS_HOME ||= $ENV { VCS_HOME } ||= "/opt/VRTSvcs";
}
( $sPrefix ) = $CLUS_HOME =~ /.*(vcs(|one))$/;
if ( $sPrefix =~ /vcsone/ ) {
$sPrefix = "ha";
}
#-----------------------------------------
# Define module-vendor specific commands..
#-----------------------------------------
my $sCmdHares = "$CLUS_HOME/bin/hares";
my $sCmdHatype = "$CLUS_HOME/bin/hatype";
my $sCmdVcsDecrypt = "$CLUS_HOME/sbin/${sPrefix}decrypt";
my @liRunningProcs = (); # Global..
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # Support generalized UNIX commands
use Proc; # For calls to the process routines
use Comms; # For calls to socket(3C) routines
use Version; # Version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------
# Include standard PERL modules..
#--------------------------------
use Fcntl;
use Socket;
use File::Path qw ( mkpath );
use File::stat;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: SAPLiveCache.pm,v 1.18 2013/06/05 14:19:58 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#--------------------------------
# Define SAPLiveCache subroutines..
#--------------------------------
=pod
-------------------------------------------------------------------------
Function : bool ArgsValid ( IN String EntryPointName,
IN String EnvFile,
IN String LCHome,
IN String LCUser,
IN String LCName,
IN String DBMUserId,
IN String DBMPassword,
IN String APOHost,
IN String InstId,
IN String ClientId,
IN String RFCDest,
IN String RFCHome,
IN String RFCUserId,
IN String RFCPassword,
IN String Language,
IN Integer SecondLevelMonitor,
IN String MonitorProgram );
Description : Validates the ArgList passed to the entry point.
Parameters :
$sEntryPointName Entry pt name
$localEnvFile Environments file for .
$localLCHome Directory for LiveCache database software.
$localLCUser Operating system user for liveCache server.
$localLCName Name of the liveCache instance.
$localDBMUserId User ID used to connect to liveCache server.
$localDBMPassword Password for the user .
$localAPOHost Virtual hostname of the SAP APO Application Server.
$localInstId SAP instance ID for the APO Application Server.
$localClientId Production client ID for liveCache server.
$localRFCDest RFC Destination for liveCache server start/stop.
$localRFCHome Home directory for RFC SDK tool kit.
$localRFCUserId RFC User for SAP liveCache Server to operate globally.
$localRFCPassword Password for the .
$localLanguage Language used to start/stop liveCache server.
$localSecondLevelMonitor Cycle count to run in-depth monitoring.
$localMonitorProgram Full path to external monitor program.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ArgsValid {
#----------------------------------------
# Set up local vars from passed in ones..
#----------------------------------------
my ( $sEntryPointName,
$localEnvFile,
$localLCHome,
$localLCUser,
$localLCName,
$localDBMUserId,
$localDBMPassword,
$localAPOHost,
$localInstId,
$localClientId,
$localRFCDest,
$localRFCHome,
$localRFCUserId,
$localRFCPassword,
$localLanguage,
$localSecondLevelMonitor,
$localMonitorProgram ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20001, "Subroutine <%s> called with:
EntryPointName [%s]
EnvFile [%s]
LCHome [%s]
LCUser [%s]
LCName [%s]
DBMUserId [%s]
DBMPassword [%s]
APOHost [%s]
InstId [%s]
ClientId [%s]
RFCDest [%s]
RFCHome [%s]
RFCUserId [%s]
RFCPassword [%s]
Language [%s]
SecondLevelMonitor [%s]
MonitorProgram [%s]",
$sMyName, $sEntryPointName, $localEnvFile, $localLCHome,
$localLCUser, $localLCName, $localDBMUserId, $localDBMPassword,
$localAPOHost, $localInstId, $localClientId, $localRFCDest,
$localRFCHome, $localRFCUserId, $localRFCPassword,
$localLanguage, $localSecondLevelMonitor, $localMonitorProgram );
#---------------------------------------------
# Get the address of the Language parameter..
#---------------------------------------------
my $rsLanguage = \$_[14];
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my ( @lsMissing, %hsArgList ) = ();
my @lsArgs =
qw ( EntryPointName EnvFile LCHome LCUser LCName DBMUserId DBMPassword
APOHost InstId ClientId RFCDest RFCHome RFCUserId RFCPassword
Language SecondLevelMonitor MonitorProgram );
@hsArgList { @lsArgs } = @_; # Assign..
#----------------------------------------
# Reqd. attributes based on entry point..
#----------------------------------------
my @lsOnlineArgs = qw ( EnvFile LCHome LCUser LCName DBMUserId DBMPassword InstId );
my @lsOfflineArgs = qw ( EnvFile LCHome LCUser LCName DBMUserId DBMPassword InstId );
my @lsMonitorArgs = qw ( EnvFile LCHome LCUser LCName DBMUserId DBMPassword );
my @lsCleanArgs = qw ( EnvFile LCHome LCUser LCName DBMUserId DBMPassword );
my %hlsNeeded = ( 'online' => \@lsOnlineArgs,
'offline' => \@lsOfflineArgs,
'monitor' => \@lsMonitorArgs,
'clean' => \@lsCleanArgs );
my @lsReqdArgs = @{$hlsNeeded { $sEntryPointName }};
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20002,
"<%s> The following mandatory fields were not set [%s], Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-----------------------------
# Remove SLM file, if exists..
#-----------------------------
if ( $sEntryPointName ne 'monitor' ) {
VCSagentFW::RunSecondLevelMonitor ( 1 ); # Delete..
}
#-------------------------------
# Individual validation starts..
#-------------------------------
#-----------------------------------------------
# Validation for online offline entry point(s)..
#-----------------------------------------------
if ( $sEntryPointName =~ /^(online|offline)$/o ) {
#-----------------------------
# Validate parameter EnvFile..
#-----------------------------
if ( ! -f $localEnvFile ) {
&logError ( 20003, "<%s> EnvFile [%s] is not a plain file",
$sMyName, $localEnvFile );
$iReturnCode = 0; # Failure..
}
#----------------------------
# Validate parameter LCHome..
#----------------------------
if ( ! -d $localLCHome ) {
&logError ( 20005, "<%s> LCHome [%s] directory does not exist",
$sMyName, $localLCHome );
$iReturnCode = 0; # Failure..
}
#--------------------------
# Validate parameter LCUser..
#--------------------------
if ( ! defined getpwnam $localLCUser ) {
&logError ( 20007, "<%s> LCUser [%s] is not a valid UNIX login",
$sMyName, $localLCUser );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Validate parameter InstId..
#-----------------------------
if ( $localInstId !~ /(^[0-8][0-9]$)/ && $localInstId !~ /(^9[0-6]$)/ ) {
&logError ( 20008, "<%s> InstId [%s] not in the range of {00...96}.",
$sMyName, $localInstId );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Validate parameter RFCHome..
#-----------------------------
if ( ( $localRFCHome =~ /(\S+)/ ) && ( ! -d $localRFCHome ) ) {
&logError ( 20004, "<%s> RFCHome [%s] directory does not exist",
$sMyName, $localRFCHome );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Validate parameter APOHost..
#-----------------------------
if ( ( $localAPOHost =~ /(\S+)/ ) && ( ! inet_aton $localAPOHost ) ) {
&logError ( 20006, "<%s> APOHost [%s] is an invalid Hostname/IPV4 address",
$sMyName, $localAPOHost );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Validate parameter ClientId..
#-----------------------------
if ( ( $localClientId =~ /(\S+)/ ) && ( $localClientId !~ /(^[0-9][0-9][0-9]$)/ ) ) {
&logError ( 20009, "<%s> ClientId [%s] not in the range of {000...999}.",
$sMyName, $localClientId );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Validate parameter Language..
#-----------------------------
if ( ( $localLanguage =~ /(\S+)/ ) && ( $localLanguage ne "EN" )) {
&logWarn ( 20010, "<%s> Language [%s] is invalid. Defaulting the value to EN",
$sMyName, $localLanguage );
$$rsLanguage = "EN";
}
}
#----------------------------------
# Validation for all entry points..
#----------------------------------
#-----------------------------
# Validate parameter LCName..
#-----------------------------
if ( $localLCName !~ /(^[A-Z][A-Z0-9][A-Z0-9]$)/ ) {
&logError ( 20011, "<%s> LCName [%s] contains invalid characters",
$sMyName, $localLCName );
$iReturnCode = 0; # Failure..
}
#---------------------------------------
# Validation for online entry point(s)..
#---------------------------------------
if ( $sEntryPointName eq "online" ) {
#------------------------------------
# Validate parameter MonitorProgram..
#------------------------------------
if ( $localMonitorProgram =~ /(\S+)/ && # Defined..
! -x $1 ) {
&logError ( 20012, "<%s> MonitorProgram [%s] is not executable",
$sMyName, $1 );
$iReturnCode = 0; # Failure..
}
}
$iReturnCode ||
&logWarn ( 20013,
"<%s> Some of the attributes could not be validated. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode ;
}
=pod
-------------------------------------------------------------------------
Function : bool Start ( IN String APOHost,
IN String ClientId,
IN String DBMPassword,
IN String DBMUserId,
IN String EnvFile,
IN String InstId,
IN String LCHome,
IN String LCName,
IN String LCUser,
IN String Language,
IN String RFCDest,
IN String RFCHome,
IN String RFCPassword,
IN String RFCUserId,
IN Integer SecondLevelMonitor );
Description : Start logic needed for online entry pt
Parameters :
$sAPOHost Virtual hostname of the SAP APO Application Server.
$sClientId Production client ID for liveCache server.
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
$sEnvFile Environments file for .
$sInstId SAP instance ID for the APO Application Server.
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
$sLanguage Language used to start/stop liveCache server.
$sRFCDest RFC Destination for liveCache server start/stop.
$sRFCHome Home directory for RFC SDK tool kit.
$sRFCPassword Password for the .
$sRFCUserId RFC User for SAP liveCache Server to operate globally.
$iSecondLevelMonitor Cycle count to run in-depth monitoring.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Start {
#----------------
# Get Arguments..
#----------------
my ( $sAPOHost,
$sClientId,
$sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sInstId,
$sLCHome,
$sLCName,
$sLCUser,
$sLanguage,
$sRFCDest,
$sRFCHome,
$sRFCPassword,
$sRFCUserId,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20014, "Subroutine <%s> called with:
APOHost [%s]
ClientId [%s]
DBMPassword [%s]
DBMUserId [%s]
EnvFile [%s]
InstId [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]
Language [%s]
RFCDest [%s]
RFCHome [%s]
RFCPassword [%s]
RFCUserId [%s]
SecondLevelMonitor [%s]",
$sMyName, $sAPOHost, $sClientId, $sDBMPassword, $sDBMUserId,
$sEnvFile, $sInstId, $sLCHome, $sLCName, $sLCUser, $sLanguage,
$sRFCDest, $sRFCHome, $sRFCPassword, $sRFCUserId,
$iSecondLevelMonitor );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------------------------
# Whack any preexisting SAPLiveCache processes..
#-----------------------------------------
&logTrace ( 20015,
"<%s> Killing SAPLiveCache processes for this instance", $sMyName );
if ( SAPLiveCache::KillSAPLiveCacheProcesses ( $sLCName,
$sLCUser ) ) {
&logTrace ( 20016,
"<%s> Processes for this instance do not exist before start-up",
$sMyName );
}
else {
&logError ( 20017,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#--------------------
# Return, if failed..
#--------------------
$iReturnCode || return $iReturnCode;
#------------------------------------------------------
# Remove any preexisting SAPLiveCache IPC resources...
#------------------------------------------------------
&logTrace ( 20018,
"<%s> Cleaning SAPLiveCache IPC resources for instance [%s]", $sMyName, $sLCName );
if(SAPLiveCache::RemoveIPCResourcesForSAPLiveCache ( "sdb",
$sLCHome,
$sLCName ) ) {
&logTrace(20019,
"<%s> Removed all IPC resources for SAP liveCache Instance [%s] successfully",
$sMyName, $sLCName );
}
else {
&logError(20020,
"<%s> Failed to remove IPC resources for SAP liveCache Instance [%s]. Remove all IPC resources for this instance manually before retrying online", $sMyName, $sLCName );
$iReturnCode = 0; # Failure ..
}
#--------------------
# Return, if failed..
#--------------------
$iReturnCode || return $iReturnCode;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 );
my ( @lsCmdout, $iExitCode, $iTimeout, @liPids ) = ();
#-------------------------------------------
# Start x_server for SAP liveCache Server..
#-------------------------------------------
my $sCommand = "$sLCHome/x_server";
my $sCommandArgs = "start";
&logTrace ( 20021,
"<%s> Starting x_server with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20022,
"<%s> Insufficient time to start x_server. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20023,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
my $sSrchStr = qr|\bXSERVER\b.*\bstarted\b|io; # Search pattern..
my $sSrchStr1 = qr|\bFound\s+running\s+XServer\b|o; # Search pattern..
&logTrace ( 20024, "<%s> Looking with filter [%s] or [%s] from output",
$sMyName, $sSrchStr, $sSrchStr1 );
#--------------------------------------------
# Attempt to locate search string in output..
#--------------------------------------------
unless ( grep { /$sSrchStr/ || /$sSrchStr1/ } @lsCmdout ) {
&logError ( 20025,
"<%s> Failed to locate search pattern [%s] or [%s] in Cmd output [%s]",
$sMyName, $sSrchStr, $sSrchStr1, join ( chr 012, @lsCmdout ) );
$iReturnCode = 0; # Failure..
}
}
else {
&logError ( 20026,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode,
join ( chr 012, @lsCmdout ) );
$iReturnCode = 0; # Failure..
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
#$iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 );
#------------------------------------------
# Declare version command and args variables..
#------------------------------------------
my $lcVersion = 0;
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-s inst_enum";
&logInfo ( 20234,
"<%s> Attempting to get the version of SAPLiveCache with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request version number.
#------------------------
#-------------------------------------------
# Declare start command and args variables..
#-------------------------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20235,
"<%s> Insufficient time to get version number of livecache database. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sDBMPassword ) ) {
&logTrace ( 20236,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#------------------------------------------------------
# Get version of livecache database.
#------------------------------------------------------
foreach ( @lsCmdout ) {
if( $_ =~ /\b(\S*)\s*(\S+$sLCName)\b/io ) {
my ( $version, $path ) = ($1, $2);
$version =~ s/(\d+\.\d+).*/$1/;
$lcVersion = $version ;
}
}
@lsCmdout = (); # Free..
my $sPassword = () ;
my $sSAPSid = () ;
my $sSapEvtCmd = () ;
if( $sLCUser =~ /\b(\S*)adm\b/io ) {
$sSAPSid = uc $1 ;
$sSapEvtCmd = "/usr/sap/$sSAPSid/SYS/exe/run/sapevt";
}
if ( ( ( -e $sSapEvtCmd ) && (-x $sSapEvtCmd ) ) &&
( ( $sRFCHome !~ /(\S+)/ ) || ( $sAPOHost !~ /(\S+)/ ) || ( $sClientId !~ /(\S+)/ ) || ( $sRFCUserId !~ /(\S+)/ )) ) {
$sCommand = $sSapEvtCmd ;
$sCommandArgs = " Z_PLEASE_START_LIVECACHE name=$sSAPSid nr=$sInstId";
$sPassword = undef ;
}
elsif ($lcVersion >= 7.9) {
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-d $sLCName -u $sDBMUserId,$sDBMPassword db_online";
$sPassword = $sDBMPassword ;
}
else {
$sCommand = "$sRFCHome/startrfc";
$sCommandArgs = "-3 -d $sRFCDest -h $sAPOHost -s $sInstId " .
"-c $sClientId -u $sRFCUserId -p $sRFCPassword " .
"-l $sLanguage -F START_LIVECACHE_LVC -E IV_CON_NAME=LCA";
$sPassword = $sRFCPassword ;
}
( @lsCmdout, $iExitCode, $iTimeout, @liPids ) = ();
&logTrace ( 20027,
"<%s> Starting SAPLiveCache instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20028,
"<%s> Insufficient time to continue boot up. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sPassword ) ) {
&logTrace ( 20029,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
&logError ( 20030,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode,
join ( chr 012, @lsCmdout ) );
$iReturnCode = 0; # Failure..
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#--------------------
# Delay entry point..
#--------------------
my $iSleepTime = 10; # Secs..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
@liPids = (); # Initialise..
sleep $iSleepTime; # Sec..
&logTrace ( 20031,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout );
#---------
# Do FLM..
#---------
if ( VCSDef_MonitorExit::ONLINE ==
SAPLiveCache::GetProcState ( \@liPids,
$sLCName,
$sLCUser,
1 ) ) { # Running FFLM..
#---------------------
# Start-up confirmed..
#---------------------
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20032,
"<%s> Could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
}
}
if ( $iReturnCode && $iSecondLevelMonitor ) { # If enabled..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
sleep $iSleepTime; # Sec..
&logTrace ( 20033,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout );
#---------
# Do SLM..
#---------
if ( VCSDef_MonitorExit::ONLINE == # Online after..
SAPLiveCache::SecondLevelMonitor ( $sDBMPassword, # Running SLM..
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser,
$iTillWhen ) ) {
#---------------------
# Start-up confirmed..
#---------------------
&logInfo ( 20034,
"<%s> Confirmed start-up of this instance of SAPLiveCache server",
$sMyName );
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20035,
"<%s> Could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
}
}
}
elsif( $iReturnCode && !$iSecondLevelMonitor ) { # If only FLM succeeds ..
&logInfo ( 20036,
"<%s> Confirmed start-up of this instance of SAPLiveCache server",
$sMyName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Stop ( IN String APOHost,
IN String ClientId,
IN String EnvFile,
IN String InstId,
IN String LCHome,
IN String LCName,
IN String LCUser,
IN String Language,
IN String RFCDest,
IN String RFCHome,
IN String RFCPassword,
IN String RFCUserId
IN String DBMPassword,
IN String DBMUserId);
Description : Stop logic needed for offline entry pt
Parameters :
$sAPOHost Virtual hostname of the SAP APO Application Server.
$sClientId Production client ID for liveCache server.
$sEnvFile Environments file for .
$sInstId SAP instance ID for the APO Application Server.
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
$sLanguage Language used to start/stop liveCache server.
$sRFCDest RFC Destination for liveCache server start/stop.
$sRFCHome Home directory for RFC SDK tool kit.
$sRFCPassword Password for the .
$sRFCUserId RFC User for SAP liveCache Server to operate globally.
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Stop {
#----------------
# Get Arguments..
#----------------
my ( $sAPOHost,
$sClientId,
$sEnvFile,
$sInstId,
$sLCHome,
$sLCName,
$sLCUser,
$sLanguage,
$sRFCDest,
$sRFCHome,
$sRFCPassword,
$sRFCUserId,
$sDBMPassword,
$sDBMUserId ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20037, "Subroutine <%s> called with:
APOHost [%s]
ClientId [%s]
EnvFile [%s]
InstId [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]
Language [%s]
RFCDest [%s]
RFCHome [%s]
RFCPassword [%s]
RFCUserId [%s]
DBMPassword [%s]
DBMUserId [%s]",
$sMyName, $sAPOHost, $sClientId, $sEnvFile, $sInstId, $sLCHome, $sLCName,
$sLCUser, $sLanguage, $sRFCDest, $sRFCHome, $sRFCPassword, $sRFCUserId,$sDBMPassword, $sDBMUserId );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 ); # With margin..
#------------------------------------------
# Declare stop command and args variables..
#------------------------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode, $iSleepTime,
@lsCmdout, @liPids ) = ();
#------------------------------------------
# Declare version command and args variables..
#------------------------------------------
my $lcVersion = 0;
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-s inst_enum";
&logInfo ( 20237,
"<%s> Attempting to get the version of SAPLiveCache with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request version number.
#------------------------
#-------------------------------------------
# Declare start command and args variables..
#-------------------------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20238,
"<%s> Insufficient time to get version number of livecache database. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sDBMPassword ) ) {
&logTrace ( 20239,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#------------------------------------------------------
# Get version of livecache database.
#------------------------------------------------------
foreach ( @lsCmdout ) {
if( $_ =~ /\b(\S*)\s*(\S+$sLCName)\b/io ) {
my ( $version, $path ) = ($1, $2);
$version =~ s/(\d+\.\d+).*/$1/;
$lcVersion = $version ;
}
}
@lsCmdout = (); # Free..
my $sPassword = () ;
my $sSAPSid = () ;
my $sSapEvtCmd = () ;
if( $sLCUser =~ /\b(\S*)adm\b/io ) {
$sSAPSid = uc $1 ;
$sSapEvtCmd = "/usr/sap/$sSAPSid/SYS/exe/run/sapevt";
}
if ( ( ( -e $sSapEvtCmd ) && (-x $sSapEvtCmd ) ) &&
( ( $sRFCHome !~ /(\S+)/ ) || ( $sAPOHost !~ /(\S+)/ ) || ( $sClientId !~ /(\S+)/ ) || ( $sRFCUserId !~ /(\S+)/ )) ) {
$sCommand = $sSapEvtCmd ;
$sCommandArgs = " Z_PLEASE_STOP_LIVECACHE name=$sSAPSid nr=$sInstId";
$sPassword = undef ;
}
elsif ($lcVersion >= 7.9) {
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-d $sLCName -u $sDBMUserId,$sDBMPassword db_offline";
$sPassword = $sDBMPassword ;
}
else {
$sCommand = "$sRFCHome/startrfc";
$sCommandArgs = "-3 -d $sRFCDest -h $sAPOHost -s $sInstId " .
"-c $sClientId -u $sRFCUserId -p $sRFCPassword " .
"-l $sLanguage -F STOP_LIVECACHE_LVC -E IV_CON_NAME=LCA";
$sPassword = $sRFCPassword ;
}
&logTrace ( 20038,
"<%s> Stopping SAPLiveCache with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20039,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sPassword ) ) {
&logTrace ( 20040,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
#-----------------
# Set sleep time..
#-----------------
$iSleepTime = 10; # Sec..
&logInfo ( 20041,
"<%s> Delaying exit to confirm shutdown..", $sMyName );
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 20 ) {
#-----------------------
# Wait before retrying..
#-----------------------
sleep $iSleepTime; # Secs..
SAPLiveCache::GetProcState ( \@liPids,
$sLCName,
$sLCUser,
0 ); # Request regular..
#------------------------------
# Check for pending processes..
#------------------------------
if ( scalar @liPids ) {
&logTrace ( 20042,
"<%s> Could not confirm shutdown. Retrying in [%s] sec.
Delaying kill with [%s] sec in hand",
$sMyName, $iSleepTime, $iTimeout );
}
else {
&logInfo ( 20043,
"<%s> Confirmed shutdown of SAPLiveCache instance",
$sMyName );
last; # Get out..
}
}
}
else {
&logError ( 20044,
"<%s> Cmd [%s] with args [%s] failed to stop the liveCache Server.",
$sMyName, $sCommand, $sCommandArgs );
$iReturnCode = 0; # Failure..
}
#------------------------------------------------
# Whack any preexisting SAPLiveCache processes..
#------------------------------------------------
&logTrace ( 20045,
"<%s> Killing SAPLiveCache processes for this instance", $sMyName );
if ( SAPLiveCache::KillSAPLiveCacheProcesses ( $sLCName,
$sLCUser ) ) {
&logTrace ( 20046,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
$iReturnCode = 1; # Success ..
}
else {
&logError ( 20047,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#------------------------------------------------------
# Remove any left over SAPLiveCache IPC resources...
#------------------------------------------------------
&logTrace ( 20048,
"<%s> Cleaning SAPLiveCache IPC resources for instance [%s]", $sMyName, $sLCName );
if(SAPLiveCache::RemoveIPCResourcesForSAPLiveCache ( "sdb",
$sLCHome,
$sLCName ) ) {
&logTrace(20049,
"<%s> Removed all IPC resources for SAP liveCache Instance [%s] successfully",
$sMyName, $sLCName );
}
else {
&logError(20050,
"<%s> Removed all IPC resources for SAP liveCache Instance [%s] successfully",
$sMyName, $sLCName );
$iReturnCode = 0; # Failure ..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Kill ( IN Integer CleanReason,
IN String DBMPassword,
IN String DBMUserId,
IN String EnvFile,
IN String LCHome,
IN String LCName,
IN String LCUser );
Description : Forces shutdown of resource needed for clean entry point
Parameters :
$iCleanReason Why clean was called
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
$sEnvFile Environments file for .
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Kill {
#----------------
# Get Arguments..
#----------------
my ( $iCleanReason,
$sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser ) = @_;
#-----------------------------
# Figure out why were called..
#-----------------------------
my ( $sCleanReason, %hsCleanReasons ) = ();
my @lsCleanStrings = qw ( Offline_timed_out Offline_was_ineffective
Online_timed_out Online_was_ineffective
Found_offline_unexpectedly Monitor_timed_out );
@hsCleanReasons { 0 .. $#lsCleanStrings } = @lsCleanStrings; # Populate..
( $sCleanReason = $hsCleanReasons { $iCleanReason } || # Reason..
$iCleanReason ) =~ s/_/ /g;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20051, "Subroutine <%s> called with:
CleanReason [%s]
DBMPassword [%s]
DBMUserId [%s]
EnvFile [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]",
$sMyName, $sCleanReason, $sDBMPassword, $sDBMUserId, $sEnvFile,
$sLCHome, $sLCName, $sLCUser );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 ); # With margin..
#------------------------------------------
# Declare stop command and args variables..
#------------------------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode,
@lsFiles, @lsCmdout ) = ();
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-d $sLCName -u $sDBMUserId,$sDBMPassword db_offline";
unless ( $hsCleanReasons { $iCleanReason } eq 'Offline_timed_out' ||
$hsCleanReasons { $iCleanReason } eq 'Offline_was_ineffective' ) {
#-------------------
# Try to be gentle..
#-------------------
&logInfo ( 20052,
"<%s> Attempting to stop SAPLiveCache with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20053,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sDBMPassword ) ) {
&logTrace ( 20054,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
} # End of unless block.
#------------------------------------------------
# Whack any preexisting SAPLiveCache processes..
#------------------------------------------------
&logTrace ( 20055,
"<%s> Killing SAPLiveCache processes for this instance", $sMyName );
if ( SAPLiveCache::KillSAPLiveCacheProcesses ( $sLCName,
$sLCUser ) ) {
&logTrace ( 20056,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
}
else {
&logError ( 20057,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#-------------------------------------------
# Define clear command and args variables..
#-------------------------------------------
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-d $sLCName -u $sDBMUserId,$sDBMPassword db_clear";
#-------------------
# Try to be gentle..
#-------------------
&logInfo ( 20058,
"<%s> Attempting to clear SAPLiveCache with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#-----------------
# Request clear ..
#-----------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20059,
"<%s> Insufficient time to continue clear. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
#$iReturnCode = 0; # Failure..
}
elsif ( SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sDBMPassword ) ) {
&logTrace ( 20060,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#------------------------------------------------------
# Remove any left over SAPLiveCache IPC resources...
#------------------------------------------------------
&logTrace ( 20061,
"<%s> Cleaning SAPLiveCache IPC resources for instance [%s]", $sMyName, $sLCName );
if( $iReturnCode = SAPLiveCache::RemoveIPCResourcesForSAPLiveCache ( "sdb",
$sLCHome,
$sLCName ) ) {
&logTrace(20062,
"<%s> Removed all IPC resources for SAP liveCache Instance [%s] successfully",
$sMyName, $sLCName );
}
else {
&logError(20063,
"<%s> Failed to Remove all IPC resources for SAP liveCache Instance [%s]",
$sMyName, $sLCName );
$iReturnCode = 0; # Failure ..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetResourceState ( IN String LCName,
IN String LCUser );
Description : First level monitor to determine state of resource.
Parameters :
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetResourceState {
#----------------
# Get Arguments..
#----------------
my ( $sLCName,
$sLCUser ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20064, "Subroutine <%s> called:
LCName [%s]
LCUser [%s]",
$sMyName, $sLCName, $sLCUser );
my @liDummyPids = ();
my $iReturnCode = SAPLiveCache::GetProcState ( \@liDummyPids,
$sLCName,
$sLCUser,
1 ); # Use FFLM..
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logTrace ( 20065,
"<%s> Found all required processes. Return code set to [%s]",
$sMyName, $iReturnCode );
}
else {
&logTrace ( 20066,
"<%s> Did not find all required processes. Returning [%s]",
$sMyName, $iReturnCode );
}
#--------------------------------
# Populate the global PID array..
#--------------------------------
@liRunningProcs = @liDummyPids;
&logTrace ( 20067,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return ( $iReturnCode );
}
=pod
-------------------------------------------------------------------------
Function : int GetProcState ( OUT ListReference OnlinePids,
IN String LCName,
IN String LCUser,
IN Integer UseFFLM );
Description : First level monitor to determine state of resource.
Parameters :
$rliOnlinePids PIDs of relevant running processes
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
$iUseFFLM Filtering procedure
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetProcState {
#----------------
# Get Arguments..
#----------------
my ( $rliOnlinePids,
$sLCName,
$sLCUser,
$iUseFFLM ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20068, "Subroutine <%s> called with:
OnlinePids [%s]
LCName [%s]
LCUser [%s]
UseFFLM [%s]",
$sMyName, $rliOnlinePids, $sLCName, $sLCUser, $iUseFFLM );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$sLCUser = "sdb"; # Change the user to liveCache process owner..
#----------------------
# Initialise Variables..
#----------------------
my ( $iProcessCount, $iUseRFLM, $iFound, $iUid, $iPid, $sLang,
$sKey, $rhlProc, $sPidFile, $sProc, $sTemp,
@hProcListHash, @lsUpdates, @lsValues,
%hiProcPids, %hsSrvrDetails, %hsCopy ) = ();
@$rliOnlinePids = ();
my %hiLCPid = ();
my $iPPid = ();
#------------------------------------
# Attempt to get monitoring details..
#------------------------------------
if ( ( 0 == ( $iUid = getpwnam $sLCUser ) ) && # User is the super-user..
( 2 == $iUseFFLM ) ) { # And called to kill-by-UID..
&logTrace ( 20069, "<%s> Unsafe to kill processes by User [%s] UID [%s].
Using filter-based approach.", $sMyName, $sLCUser, $iUid ),
$iUseFFLM = 1;
}
if ( $iUseFFLM != 2 ) { # Called for first level check..
if ( SAPLiveCache::GetSrvrDetails ( $sLCName,
\%hsSrvrDetails ) ) {
&logTrace ( 20070,
"<%s> Got details for monitoring SAPLiveCache instance", $sMyName );
%hsCopy = %hsSrvrDetails; # Backup..
$iUseRFLM = scalar keys %hsCopy; # Set to entire count..
}
else {
&logError ( 20071,
"<%s> Failed to get details for monitoring SAPLiveCache instance",
$sMyName );
return VCSDef_MonitorExit::UNKNOWN;
}
#---------------------------------
# Check if we attempt to be fast..
#---------------------------------
if ( $iUseFFLM ) { # FFLM..
$iUseRFLM = 0; # Hopefully skip..
foreach $sKey ( keys %hsCopy ) { # Use copy..
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nSAPLiveCache process [$sKey]\n"; # Display string..
#----------------
# Read in pairs..
#----------------
while ( ( $sPidFile, $sProc ) = splice ( @lsValues, 0, 2 ) ) {
#-----------
# Run FFLM..
#-----------
$iFound = SAPLiveCache::FFLMStatus ( $sPidFile,
$sProc,
$iUid,
\$iPid,
\$iPPid ); # by vchappav ...
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
$sTemp .= "PID File [$sPidFile]\n";
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FFLM Status [$iFound]\n\n";
}
@{ $hsCopy { $sKey } } = @lsUpdates;
#------------------------
# Handle monitor status..
#------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
push ( @$rliOnlinePids, $iPid ); # Push..
$hiProcPids { $sKey } = $iPid; # Store..
$hiLCPid { $iPid } = $iPPid; # by vchappav ...
}
else {
++ $iUseRFLM; # Mark it for RFLM..
}
}
#----------------
# Print summary..
#----------------
&logTrace ( 20072,
"<%s> SAPLiveCache instance process details ---%s\n\n",
$sMyName, $sTemp );
( $sTemp, $sPidFile, $sProc ) = (); # Release memory..
}
else { # Use RLFM..
#-----------------------------------------
# Mark status of each service as offline..
#-----------------------------------------
$iFound = VCSDef_MonitorExit::OFFLINE; # Set to offline..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
while ( scalar @lsValues ) {
push ( @lsUpdates, splice ( @lsValues, 0, 2 ), $iFound );
}
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
}
}
}
else { # Called for Kill..
&logTrace ( 20073,
"<%s> Called to get processes for User [%s] UID [%s]",
$sMyName, $sLCUser, $iUid );
++ $iUseRFLM;
}
#-----------------------
# Regular slow :-( FLM..
#-----------------------
if ( $iUseRFLM ) {
&logTrace ( 20074,
"<%s> Running regular first level monitor", $sMyName );
#----------------------------------
# Set LANG for better performance..
#----------------------------------
$sLang = $ENV { LANG }; # Backup..
$ENV { LANG } = 'C'; # Now set..
#-----------------------------------
# Call processes and store in hash..
#-----------------------------------
$iProcessCount = Proc::GetLongProcessListHash ( \@hProcListHash );
#----------
# Restore..
#----------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG }; # Restore..
#----------------------
# Check if we got any..
#----------------------
if ( $iProcessCount ) {
&logTrace ( 20075,
"<%s> Got [%s] processes from proc table for filtering",
$sMyName, $iProcessCount );
}
else {
&logError ( 20076,
"<%s> Call to get process list did not return any processes",
$sMyName );
return VCSDef_MonitorExit::OFFLINE; # Offline..
}
#-----------------------
# Search for processes..
#-----------------------
foreach $rhlProc ( @hProcListHash ) {
#--------------------------------------------------------------
# Each $rhlProc is a ref. to a hash with the following keys..
# "UID" =>
# "PID" =>
# "PPID" =>
# "COMMAND" =>
#--------------------------------------------------------------
&logTrace ( 20077, "<%s> Searching PID [%s] UID [%s] CMD [%s]",
$sMyName, $$rhlProc { PID }, $$rhlProc { UID },
$$rhlProc { COMMAND } );
next unless defined $$rhlProc { UID }; # Bug in Proc::GetProcessListHash..
$iPid = $$rhlProc { PID }; # Assign..
if ( $$rhlProc { UID } == $iUid ) { # Process owner..
#-----------------------------------------------
# Look for processes that were offline in FFLM..
#-----------------------------------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
#--------------------------------------------------
# Should have details per three elements of array..
#
#--------------------------------------------------
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
if ( ( VCSDef_MonitorExit::OFFLINE == $iFound ) && # Earlier marked offline..
( $$rhlProc { COMMAND } =~ /$sProc/ ) && # Now found..
( ! defined $hiLCPid { $iPid } ) ) { # Not already matched..
$hiLCPid { $iPid } = $$rhlProc { PPID }; # Store PPID of the process..
&logTrace ( 20078,
"<%s> Found PID [%s] PPID [%s] CMD [%s] with filter [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND }, $sProc );
$hiProcPids { $sKey } = $iPid; # Store..
unshift ( @$rliOnlinePids, $iPid ); # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # Mark online..
&logTrace ( 20079,
"<%s> Got [%s] processes into hiLCPid", $sMyName, scalar(keys(%hiLCPid)) );
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
last;
}
}
}
}
else { # Request for kill..
&logTrace ( 20080,
"<%s> Pushing PID [%s] with PPID [%s] Cmd [%s] on stack",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
push ( @$rliOnlinePids, $iPid ); # Store..
$hiLCPid { $iPid } = $$rhlProc { PPID }; # Store PPID of the process..
}
}
}
}
#------------------------------------
# Set final status for each process..
#------------------------------------
my ( $iOnline, $iOffline, $sEntryPointName ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
$sTemp = ''; # Ensure..
foreach $sKey ( keys %hsCopy ) {
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nProcess [$sKey]\n";
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#-----------------------------------
# Create PID files for use in FFLM..
#-----------------------------------
if ( $iUseRFLM && # In RFLM..
$iUseFFLM != 2 && # Asked to filter..
$hiProcPids { $sKey } && # PID populated..
( $sEntryPointName =~ /^(monitor|online)$/o ) ) { # In monitor or online..
&logTrace ( 20081,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $hiProcPids { $sKey } );
#---------
# Create..
#---------
if ( SAPLiveCache::CreatePidFile ( $sPidFile,
$hiProcPids { $sKey } ) ) {
&logTrace ( 20082,
"<%s> Successfully created PID file [%s]", $sMyName, $sPidFile );
}
else {
&logError ( 20083,
"<%s> Could not create PID file [%s] successfully",
$sMyName, $sPidFile );
}
}
#-------------
# Set status..
#-------------
if ( VCSDef_MonitorExit::ONLINE == $iFound && ( 2 <= scalar (keys (%hiLCPid)) ) ) {
$iOnline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound ) {
$iOffline = $iFound;
}
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FLM Status [$iFound]\n\n";
}
$sTemp .= "--------------------";
}
#-------------------
# Set final status..
#-------------------
$iReturnCode = $iOffline || $iOnline || VCSDef_MonitorExit::UNKNOWN;
#------------------------------------------------
# Reset status based on PIDs, if not in monitor..
#------------------------------------------------
if ( $sEntryPointName ne 'monitor' &&
( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) &&
scalar @$rliOnlinePids ) {
$iReturnCode = VCSDef_MonitorExit::PARTIAL_ONLINE;
&logTrace ( 20084,
"<%s> Found [%s] PIDs [%s] for this instance of SAPLiveCache.
Resetting return code to [%s]",
$sMyName, scalar @$rliOnlinePids, join ( ' ', @$rliOnlinePids ),
$iReturnCode );
}
#-----------------------
# Report on FLM status..
#-----------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
&logTrace ( 20085,
"<%s> SAPLiveCache process details ---\n%s\nReturn code is [%s]",
$sMyName, $sTemp, $iReturnCode );
$sTemp = undef; # Release..
}
# Sort the PIDs of the liveCache processes in the descending order of their parent PIDs.
if( (scalar @$rliOnlinePids > 0) && (scalar @$rliOnlinePids == scalar (keys (%hiLCPid)) ) ) {
&logTrace ( 20086,
"<%s> Sorting the liveCache process IDs in the descending order of their parent IDs.",
$sMyName );
@$rliOnlinePids = sort {$hiLCPid{$b} <=> $hiLCPid{$a} } keys %hiLCPid ;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int Monitor ( IN String DBMPassword,
IN String DBMUserId,
IN String EnvFile,
IN String LCHome,
IN String LCName,
IN String LCUser,
IN String MonitorProgram,
IN Integer SecondLevelMonitor );
Description: Performs the in-depth monitoring
Parameters :
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
$sEnvFile Environments file for .
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
$sMonitorProgram Full path to external monitor program.
$iSecondLevelMonitor Cycle count to run in-depth monitoring.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub Monitor {
#----------------
# Get Arguments..
#----------------
my ( $sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser,
$sMonitorProgram,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20087, "Subroutine <%s> called with:
DBMPassword [%s]
DBMUserId [%s]
EnvFile [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]
MonitorProgram [%s]
SecondLevelMonitor [%s]",
$sMyName, $sDBMPassword, $sDBMUserId, $sEnvFile, $sLCHome,
$sLCName, $sLCUser, $sMonitorProgram, $iSecondLevelMonitor );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
my $iTillWhen = undef;
#----------------------------------------------
# In-depth monitoring, if correct time to run..
#----------------------------------------------
if ( VCSagentFW::RunSecondLevelMonitor ( $iSecondLevelMonitor ) ) {
#--------------------------
# Just In Time Validation..
#--------------------------
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPLiveCache::DelayedAttributeCheck ( $sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser ) ) ) {
&logTrace ( 20088,
"<%s> Delayed attribute check completed successfully",
$sMyName );
}
else {
&logError ( 20089,
"<%s> Attribute validation failed. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
&logTrace ( 20090,
"<%s> Proceeding with second level monitoring", $sMyName );
#-------------------------------------------------------
# Upper bound..
# Time in EPOCH when entry pt started + VCS time limit..
#-------------------------------------------------------
$iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPLiveCache::SecondLevelMonitor ( $sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser,
$iTillWhen ) ) ) {
&logTrace ( 20091,
"<%s> SAPLiveCache instance online with status [%s] after SLM",
$sMyName, $iReturnCode );
}
else {
&logError ( 20092,
"<%s> SAPLiveCache instance NOT online after SLM. Status [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
}
#------------------------------------------------
# Exit if external monitor has not been defined..
#------------------------------------------------
return $iReturnCode unless defined $sMonitorProgram;
#---------------------------------------
# MonitorProgram defined..
# Separate the executable and the args..
#---------------------------------------
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
#----------------------------------------
# Get time bearings, if not got earlier..
#----------------------------------------
$iTillWhen ||= $^T + SAPLiveCache::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == # and found online..
( $iReturnCode = # by the status..
SAPLiveCache::ExternalMonitor ( $sLCUser,
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) ) {
&logTrace ( 20093,
"<%s> SAPLiveCache instance found online with status [%s]
after executing external monitor [%s] with args [%s]",
$sMyName, $iReturnCode, $sExtCmd, $sExtCmdArgs );
}
else {
&logError ( 20094,
"<%s> SAPLiveCache instance NOT online after executing external monitor
[%s] with args [%s]. Status [%s]",
$sMyName, $sExtCmd, $sExtCmdArgs, $iReturnCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int DelayedAttributeCheck ( IN String DBMPassword,
IN String DBMUserId,
IN String EnvFile,
IN String LCHome,
IN String LCName,
IN String LCUser );
Description : Just In Time Validation
Parameters :
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
$sEnvFile Environments file for .
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
Returns : Integer value as defined below:
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub DelayedAttributeCheck {
#----------------
# Get Arguments..
#----------------
my ( $sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20095, "Subroutine <%s> called with:
DBMPassword [%s]
DBMUserId [%s]
EnvFile [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]",
$sMyName, $sDBMPassword, $sDBMUserId, $sEnvFile, $sLCHome,
$sLCName, $sLCUser );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#------------------------------
# Validate parameter EnvFile..
#------------------------------
if ( ! -f $sEnvFile ) {
&logWarn ( 20096, "<%s> [%s] is not a plain file",
$sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#-----------------------------
# Validate parameter LCHome..
#-----------------------------
if ( ! -d $sLCHome ) {
&logWarn ( 20097, "<%s> [%s] directory does not exist",
$sMyName, $sLCHome );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#-----------------------------
# Validate parameter LCUser..
#-----------------------------
if ( ! defined getpwnam $sLCUser ) {
&logWarn ( 20098, "<%s> [%s] is not a valid UNIX login",
$sMyName, $sLCUser );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int SecondLevelMonitor ( IN String DBMPassword,
IN String DBMUserId,
IN String EnvFile,
IN String LCHome,
IN String LCName,
IN String LCUser,
IN Integer TillWhen );
Description : Does in-depth monitoring, if enabled.
Parameters :
$sDBMPassword Password for the user .
$sDBMUserId User ID used to connect to liveCache server.
$sEnvFile Environments file for .
$sLCHome Directory for LiveCache database software.
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub SecondLevelMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sDBMPassword,
$sDBMUserId,
$sEnvFile,
$sLCHome,
$sLCName,
$sLCUser,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20099, "Subroutine <%s> called with:
DBMPassword [%s]
DBMUserId [%s]
EnvFile [%s]
LCHome [%s]
LCName [%s]
LCUser [%s]
TillWhen [%s]",
$sMyName, $sDBMPassword, $sDBMUserId, $sEnvFile, $sLCHome,
$sLCName, $sLCUser, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iTimeout, $iExitCode, $sCommand, $sCommandArgs, @lsCmdout ) = ();
#---------------------------------------------
# Declare monitor command and args variables..
#---------------------------------------------
$sCommand = "$sLCHome/dbmcli";
$sCommandArgs = "-d $sLCName -u $sDBMUserId,$sDBMPassword db_state";
#-------------------------------
# Validate and execute command..
#-------------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20100,
"<%s> Insufficient time to continue in-depth monitoring.
Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
elsif ( SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout,
$sDBMPassword ) ) {
&logTrace ( 20101,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
if ( $lsCmdout [-1] eq 'ONLINE' ) {
&logTrace ( 20102,
"<%s> Found search pattern [%s] in the output [%s].",
$sMyName, $lsCmdout [-1], join ( chr 012, @lsCmdout ) );
}
elsif ( $lsCmdout [-1] eq 'ADMIN' ) {
&logInfo ( 20103,
"<%s> Found search pattern [%s] in the output [%s].",
$sMyName, $lsCmdout [-1], join ( chr 012, @lsCmdout ) );
}
elsif ( $lsCmdout [-1] eq 'STARTING' ) {
&logInfo ( 20104,
"<%s> Found search pattern [%s] in the output [%s].",
$sMyName, $lsCmdout [-1], join ( chr 012, @lsCmdout ) );
}
elsif ( $lsCmdout [-1] eq 'OFFLINE' ) {
&logError ( 20105,
"<%s> Found search pattern [%s] in the output [%s].",
$sMyName, $lsCmdout [-1], join ( chr 012, @lsCmdout ) );
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
elsif ( $lsCmdout [-1] eq 'SHUTDOWN' ) {
&logError ( 20106,
"<%s> Found search pattern [%s] in the output [%s].",
$sMyName, $lsCmdout [-1], join ( chr 012, @lsCmdout ) );
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
else {
&logError ( 20107,
"<%s> SecondLevelMonitor returned undefined output [%s].",
$sMyName, join ( chr 012, @lsCmdout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif ( ! defined $iExitCode ) {
&logError ( 20108,
"<%s> Second Level Monitor returned undefined exit code and Cmd output [%s]",
$sMyName, join ( chr 012, @lsCmdout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
else {
&logError ( 20109,
"<%s> Second Level Monitor returned invalid exit code [%s] and Cmd output [%s]",
$sMyName, $iExitCode, join ( chr 012, @lsCmdout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExternalMonitor ( IN String LCUser,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer TillWhen );
Description : Handles user defined external monitor program
Parameters :
$sLCUser Operating system user for liveCache server.
$sEnvFile Environments file for .
$sCmd User defined utilty to execute
$sCmdArgs Command line arguments
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExternalMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sLCUser,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20110, "Subroutine <%s> called with:
LCUser [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
TillWhen [%s]",
$sMyName, $sLCUser, $sEnvFile, $sCmd, $sCmdArgs, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my ( $iExitCode, $iTimeout, @lsCmdOut ) = ();
my $iBuf = 5; # Secs..
#-------------------------
# Handled exit code hash..
#-------------------------
my %hiExitCodes = ( 0, VCSDef_MonitorExit::ONLINE,
110, VCSDef_MonitorExit::ONLINE,
1, VCSDef_MonitorExit::OFFLINE,
100, VCSDef_MonitorExit::OFFLINE );
#---------------------------------------------
# Check if command can be found and executed..
#---------------------------------------------
if ( ! -e $sCmd ) {
&logError ( 20111,
"<%s> External monitor [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20112,
"<%s> External monitor [%s] not executable.",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ( $iTimeout = $iTillWhen - ( time + $iBuf ) ) <= 5 ) { # Lack of time..
&logError ( 20113,
"<%s> Insufficient time to proceed with external monitor [%s].
Short by [%s] sec", $sMyName, $sCmd, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
#--------------------------------------------
# Return if validation failed at this point..
#--------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
return $iReturnCode;
}
&logTrace ( 20114,
"<%s> Executing external monitor with Command [%s] Args [%s] in [%s] secs",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
#----------------------
# Execute the command..
#----------------------
SAPLiveCache::ExecLocalCmd ( $sLCUser,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
#------------------------
# Report on exit status..
#------------------------
if ( ! defined $iExitCode ) {
&logError ( 20115,
"<%s> Command [%s] with args [%s] timed out",
$sMyName, $sCmd, $sCmdArgs );
$iExitCode = 'undef';
}
elsif ( $hiExitCodes { $iExitCode } &&
VCSDef_MonitorExit::ONLINE ==
$hiExitCodes { $iExitCode } ) {
&logTrace ( 20116,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
else {
&logWarn ( 20117,
"<%s> Command [%s] with args [%s] execution failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
#--------------------------------
# Setup appropriate return code..
#--------------------------------
$iReturnCode = $hiExitCodes { $iExitCode } ||
VCSDef_MonitorExit::UNKNOWN;
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CreatePidFile ( IN String PidFile,
In Integer Pid );
Description : Creates PID file with given PID
Parameters :
$sPidFile File to create
$iPid PID to store
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CreatePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$iPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20118, "Subroutine <%s> called with:
PidFile [%s]
Pid [%s]",
$sMyName, $sPidFile, $iPid );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------
# Check against undefs..
#-----------------------
unless ( defined $iPid && $iPid =~ /^\d+$/o) {
$iPid ||= 'undef'; # Prevent undefs.
&logError ( 20119, "<%s> PID [%s] is not a valid positive number",
$sMyName, $iPid );
return 0; # Proceed no further..
}
#------------------
# Create PID file..
#------------------
&logTrace ( 20120,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
if ( sysopen ( PIDFILE, $sPidFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print PIDFILE $iPid, "\n"; # Update..
unless ( close ( PIDFILE ) ) {
&logWarn ( 20121,
"<%s> Failed to close PidFile [%s] after update: [%s]",
$sMyName, $sPidFile, $! );
$iReturnCode = 0;
}
}
else {
&logWarn ( 20122,
"<%s> Failed to create PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
$iReturnCode = 0;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int FFLMStatus ( IN String PidFile,
IN String Proc,
IN Integer Uid,
OUT RefInt Pid );
Description: Checks status of Process listed in PidFile, if running
Parameters :
$sPidFile Absolute path to PID file of service
$sProc Process string to search for in proc table
$iUid UNIX UID of owner
$riPid Reference to existing PID
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub FFLMStatus {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$sProc,
$iUid,
$riPid,
$riPPid ) = @_; # by vchappav ...
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20123, "Subroutine <%s> called with:
PidFile [%s]
Proc [%s]
UID [%s]
riPid [%s]",
$sMyName, $sPidFile, $sProc, $iUid, $riPid );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$$riPid = 0; # Reset..
#-------------------------
# Define local variables..
#-------------------------
my ( $iPid, $rhlProc, @lProcessHash ) = ();
#----------------------------------
# Start by testing the attributes..
#----------------------------------
if ( $sProc !~ /\S/ ) {
&logError ( 20124, "<%s> Called with empty [%s] process string",
$sMyName, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -e $sPidFile ) {
&logTrace ( 20125, "<%s> PID file [%s] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -s $sPidFile ) {
&logWarn ( 20126, "<%s> PID file [%s] is of zero bytes",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
#---------------------
# Return, if offline..
#---------------------
return $iReturnCode unless VCSDef_MonitorExit::ONLINE == $iReturnCode;
if ( open ( PIDFILE, $sPidFile ) ) {
( $iPid ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iPid = '' unless defined $iPid; # Avoid undefs..
close ( PIDFILE ) || # Close file..
&logWarn ( 20127,
"<%s> Could not close PID file [%s] after read [%s]",
$sMyName, $sPidFile, $! );
}
else {
&logError ( 20128,
"<%s> Failed to open PID file [%s] for read: [%s]",
$sMyName, $sPidFile, $! );
return VCSDef_MonitorExit::OFFLINE; # Failure..
}
#------------------------
# Check if PID is valid..
#------------------------
if ( $iPid =~ /\d+/ && # If the valid number..
kill ( 0, $iPid ) ) { # is a PID that's alive..
&logTrace ( 20129,
"<%s> PID [%s] from PID file [%s] exists",
$sMyName, $iPid, $sPidFile );
#-----------------------
# Search in proc table..
#-----------------------
if ( SAPLiveCache::GetPidDetails ( $iPid,
\@lProcessHash ) ) {
#--------------
# Got details..
#--------------
foreach $rhlProc ( @lProcessHash ) {
&logTrace ( 20130,
"<%s> Process details: UID [%s] PID [%s] PPID [%s] ARGS [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
#--------------
# Now compare..
#--------------
if ( ( $$rhlProc { UID } == $iUid ) && # Owner match..
$$rhlProc { COMMAND } =~ /$sProc/ ) { # Filter match..
&logTrace ( 20131,
"<%s> PID [%s] owned by UID [%s] with ARGS [%s] contains [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$$riPid = $iPid; # Store..
$$riPPid = $$rhlProc { PPID }; # Store.. # by vchappav ...
}
else {
&logTrace ( 20132,
"<%s> Ignoring PID [%s] owned by UID [%s] with ARGS [%s] with string [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
}
else {
&logTrace ( 20133,
"<%s> Could not get details for PID [%s]",
$sMyName, $iPid );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
else {
&logTrace ( 20134, "<%s> PID [$iPid] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
@lProcessHash = (); # Truncate..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool KillSAPLiveCacheProcesses ( IN String LCName,
IN String LCUser );
Description : Kills processes for this instance of SAPLiveCache
Parameters :
$sLCName Name of the liveCache instance.
$sLCUser Operating system user for liveCache server.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub KillSAPLiveCacheProcesses {
#----------------
# Get Arguments..
#----------------
my ( $sLCName,
$sLCUser ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20135, "Subroutine <%s> called with:
LCName [%s]
LCUser [%s]",
$sMyName, $sLCName, $sLCUser );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Set up local variables..
#-------------------------
my ( @liGoners, @liUnDead ) = ();
#---------------------------------------------
# Get list of processes running for this Uid..
#---------------------------------------------
if ( ( caller 1 )[3] eq 'SAPLiveCache::Start' ) { # During online..
@liGoners = @liRunningProcs; # Get PIDs to kill..
}
else {
SAPLiveCache::GetProcState ( \@liGoners,
$sLCName,
$sLCUser,
0 ); # Set filtering choice..
}
#--------------------------
# Sort in ascending order..
#--------------------------
#@liGoners = sort { $a <=> $b } @liGoners; # by vchappav ...
#------------------------------------------------------------------
# We do a two level kill. The SIGINQ ensures that the PID is a
# valid process before we actually issue the SIGKILL. We don't want
# to report a failure for SIGKILL in case of defunct or missing
# processes.
#------------------------------------------------------------------
if ( scalar @liGoners ) {
#----------------------
# Failed to kill some..
#----------------------
my $iPid = ();
foreach $iPid ( @liGoners ) {
if ( kill ( 0, $iPid ) ) {
if( ! kill ( 9, $iPid ) ) { # could NOT be killed..
&logError ( 20136,
"<%s> PID not killed [%s].",
$sMyName, $iPid );
$iReturnCode = 0; # Failure..
}
}
else { # killed..
&logInfo ( 20137,
"<%s> PID [%s] doesn't exist for killing.", $sMyName, $iPid );
}
}
}
else {
&logTrace ( 20138,
"<%s> Could not locate any processes for this instance of SAPLiveCache",
$sMyName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ExecLocalCmd ( IN String User,
IN String EnvFile,
IN String Command,
IN String CommandArgs,
OUT RefInt ExitCode,
IN Integer Timeout,
OUT ListReference CmdOut ,
IN String HideString );
Description : Wrapper function for
Sys::RunWithEnvCmdWithOutputWithTimeOut to collect output
of the command.
Parameters :
$sUser UNIX user to run the command as
$sEnvFile Absolute path to location of EnvFile to source
$sCommand Absolute path to location of command
$sCommandArgs Arguments to command
$riExitCode Reference to collect exit code of command
$iTimeout Time limit to execute the command
$rlsCmdOut Stores o/p from command if successful
$sHideString String in CommandArgs to hide
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ExecLocalCmd {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
$riExitCode,
$iTimeout,
$rlsCmdOut ,
$sHideString ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20139, "Subroutine <%s> called with:
User [%s]
EnvFile [%s]
Command [%s]
CommandArgs [%s]
riExitCode [%s]
Timeout [%s]
rlsCmdOut [%s]",
$sMyName,
$sUser, $sEnvFile, $sCommand, $sCommandArgs, $riExitCode,
$iTimeout, $rlsCmdOut );
#---------------------------------------
# Setup return code to hopeful success..
#---------------------------------------
my $iReturnCode = 1;
my ( $iExitCode, $sDispStr, $sCmdDeCr, $sDeCrPasswd ) = ();
#---------------------
# Set up for display..
#---------------------
$sDispStr = $sCommandArgs;
#-------------------------
# Get decrypted password..
#-------------------------
if ( defined $sHideString ) {
#-----------
# Validate..
#-----------
if ( ! -x $sCmdVcsDecrypt ) {
&logError ( 20140,
"<%s> Command [%s] is not executable", $sMyName, $sCmdVcsDecrypt );
return 0; # Failure..
}
$sCmdDeCr = $sCmdVcsDecrypt; # Get global..
( $sDeCrPasswd ) = grep {
s/([^\w])/\\$1/g || 1
} readpipe ( "$sCmdDeCr $sHideString" );
#--------------------
# Collect exit code..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20141, "<%s> Failed to decrypt crypted string [%s]",
$sMyName, $sHideString );
return 0; # Failure..
}
$sCommandArgs =~ s/$sHideString/$sDeCrPasswd/g;
}
#-------------------
# Set up arguments..
#-------------------
my $bSourceUserEnv = 0; # Do not source..
my $bTimedOut = 0; # Timeout variable..
@$rlsCmdOut = (); # Reset..
#-----------
# Validate..
#-----------
if ( ! -e $sCommand ) {
&logError ( 20142,
"<%s> Cmd [%s] does not exist", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCommand ) {
&logError ( 20143,
"<%s> Cmd [%s] is not executable", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( $iTimeout <= 1 ) {
&logError ( 20144,
"<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s].",
$sMyName, $iTimeout, $sCommand, $sDispStr );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return if failed..
#----------------------
# Set LOGNAME to user..
#----------------------
my $sOldLogName = $ENV { LOGNAME }; # Backup..
$ENV { LOGNAME } = $sUser; # Now set..
&logTrace ( 20145,
"<%s> Executing Command [%s] with Args [%s]",
$sMyName, $sCommand, $sDispStr );
$iReturnCode = Sys::RunWithEnvCmdWithOutputWithTimeOut ( $sEnvFile,
$bSourceUserEnv,
$sCommand,
$sCommandArgs,
$riExitCode,
$sUser,
$rlsCmdOut,
\$bTimedOut,
$iTimeout,
undef,
undef,
$sDeCrPasswd );
#---------------------------
# Remove trailing newlines..
#---------------------------
chomp @$rlsCmdOut;
#--------------------
# Check return code..
#--------------------
if ( $iReturnCode ) { # No error with command execution..
if ( $$riExitCode ) { # Failure..
&logTrace ( 20146,
"<%s> Command [%s] with args [%s] returned exit code [%s]",
$sMyName, $sCommand, $sDispStr, $$riExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20147,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCommand, $sDispStr, $$riExitCode );
}
}
else { # Execution error..
if ( $bTimedOut ) { # We timed out..
&logError ( 20148,
"<%s> Command [%s] with args [%s] did not complete within [%s] seconds",
$sMyName, $sCommand, $sDispStr, $iTimeout );
$iReturnCode = 0; # Failure..
}
else { # Failure due to something else..
&logError ( 20149,
"<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut",
$sMyName );
$iReturnCode = 0; # Failure..
}
@$rlsCmdOut = (); # Reset..
}
#----------
# Restore..
#----------
defined $sOldLogName ? $ENV { LOGNAME } = $sOldLogName:delete $ENV { LOGNAME };
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetPidDetails ( IN Integer Pid,
OUT RefList ProcList );
Description : Gets long process details for a known Pid if running
Parameters :
$iPid PID whose details are requested
$rlProcList Ref to List to store details
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetPidDetails {
#----------------
# Get Arguments..
#----------------
my ( $iPid,
$rlProcList ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20150, "Subroutine <%s> called with:
Pid [%s]
rlProcList [%s]",
$sMyName, $iPid, $rlProcList );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------
# Validate PID..
#---------------
unless ( defined $iPid && # Catch undefs..
$iPid =~ /^\d+$/ && # And invalid PIDs..
kill ( 0, $iPid ) ) { # And defunct ones..
&logError ( 20151,
"<%s> PID [%s] is invalid", $sMyName, $iPid );
return 0;
}
#-------------------------
# Define local variables..
#-------------------------
my ( $sPsCmd, $sPsCmdArgs, $sLang, $sFmt, $sUnix95, $sSwitch, $iExitCode,
%hsProc ) = ();
$sSwitch = $^O; # Get OS..
@$rlProcList = (); # Truncate..
#-------------
# Store LANG..
#-------------
$sLang = $ENV { LANG };
$ENV { LANG } = 'C';
#---------------------------
# Switch to the correct OS..
#---------------------------
if("solaris" eq $sSwitch) {
$sPsCmd = "/usr/ucb/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("hpux" eq $sSwitch) {
#-----------------------
# Force XPG4 behaviour..
#-----------------------
$sUnix95 = $ENV { UNIX95 };
$ENV { UNIX95 } = 'XPG4';
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "-p $iPid -xxlo uid,pid,ppid,args";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
elsif("aix" eq $sSwitch) {
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("linux" eq $sSwitch) {
$sPsCmd = "/bin/ps";
$sPsCmdArgs = "wwo uid,pid,ppid,args $iPid";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
&logTrace ( 20152, "<%s> OS [%s] PsCmd [%s] PsCmdArgs [%s]",
$sMyName, $sSwitch, $sPsCmd, $sPsCmdArgs );
#-------------------
# Validate command..
#-------------------
if ( ! -x $sPsCmd ) {
&logError ( 20153,
"<%s> ps(1b) command [%s] is not executable", $sMyName, $sPsCmd );
return 0; # Failure..
}
#-------------------------------
# Fire command and get details..
#-------------------------------
@hsProc { qw ( UID PID PPID COMMAND ) } =
map {
s/\n//; # Chomp..
s/^\s+//; # Strip leading spaces..
/^$sFmt$/o; # Extract fields..
} readpipe ( "$sPsCmd $sPsCmdArgs" ); # From the command..
$iExitCode = $? >> 8; # Get exit code..
#------------------------
# Restore env variables..
#------------------------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG };
defined $sUnix95 ? $ENV { UNIX95 } = $sUnix95:delete $ENV { UNIX95 };
#------------------
# Check exit code..
#------------------
if ( $iExitCode ) {
&logError ( 20154,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sPsCmd, $sPsCmdArgs, $iExitCode );
%hsProc = (); # Truncate..
return 0;
}
#---------------------
# Fill up the bucket..
#---------------------
push ( @$rlProcList, \%hsProc ); # Update..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetSrvrDetails ( IN String LCName,
OUT RefHashList SrvrDetails );
Description : Gives PID file and process string for given server type
Parameters :
$sLCName Name of the liveCache instance.
$rhlSrvrDetails Stores details of PID file and process string
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetSrvrDetails {
#----------------
# Get Arguments..
#----------------
my ( $sLCName,
$rhlSrvrDetails ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20155, "Subroutine <%s> called with:
LCName [%s]
SrvrDetails [%s]",
$sMyName, $sLCName, $rhlSrvrDetails );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1; # Set to true..
#-------------------
# Define variables..
#-------------------
my ( $sKey, $sProc, $sPidFile, $sPIDDir, $sResourceType,
$sResourceName, $iPat ) = ();
#-------------------------------------
# List of search patterns to monitor..
#-------------------------------------
my @lsSrchPatterns = ( "kernel $sLCName",
"kernel $sLCName" );
#----------------------------------------------
# Derive our resource type and resource names..
#----------------------------------------------
$sResourceType = ( $0 =~ m@([^/]+)@g ) [-2];
$sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
$sPIDDir = "/tmp/.VRTS$sResourceType/$sResourceName/PID";
#------------------------------
# Create PID folder if needed..
#------------------------------
if ( -d $sPIDDir ) {
&logTrace ( 20156, "<%s> PID folder [%s] exists",
$sMyName, $sPIDDir );
}
elsif ( ! mkpath ( $sPIDDir, 0, 0700 ) ) {
&logWarn ( 20157, "<%s> Failed to create PID folder [%s]",
$sMyName, $sPIDDir );
return 0; # Cannot proceed..
}
%$rhlSrvrDetails = (); # Truncate..
#-----------------------------------------------
# Set appropriate filter strings and PID files..
#-----------------------------------------------
foreach $sProc ( @lsSrchPatterns ) {
$sKey = 'srchstr_' . ++ $iPat;
$sPidFile = "$sPIDDir/pidfile.$sKey";
@{ $$rhlSrvrDetails { $sKey } } = ( $sPidFile, $sProc ); # Store..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetEngineTimeout ( IN Bool UseMargin );
Description : Calculates engine timeout for entry point
Parameters :
$bUseMargin Flag to indicate if safety margin is requested
boolean value in the set of {0,1} where
0 No safety margin needed
1 Safety margin to be used
Returns: Time in secs.
-------------------------------------------------------------------------
=cut
sub GetEngineTimeout {
#----------------
# Get Arguments..
#----------------
my ( $bUseMargin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20158, "Subroutine <%s> called with:
UseMargin [%s]",
$sMyName, $bUseMargin );
#-------------------------
# Define local variables..
#-------------------------
my ( $sAttribute, $sCommand, $sCommandArgs,
$iEngineTimeout, $iExitCode ) = ();
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = "SAPLiveCache" if $sResourceType !~ /\w/; # Ensure..
#----------------------------------
# Grace margins from VCS timeouts..
#----------------------------------
my %hiGraceMargin = ( 'MonitorTimeout', 10, # Seconds..
'OnlineTimeout', 10,
'OfflineTimeout', 10,
'CleanTimeout', 20 );
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
$sCommand = $sCmdHatype; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sCommandArgs = "-value $sResourceType $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs" ) ) =~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20159,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
$iEngineTimeout = $bUseMargin?$hiGraceMargin{$sAttribute}:0;
}
elsif ( ! $iEngineTimeout ) { # Empty value..
&logTrace ( 20160, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
$iEngineTimeout = $bUseMargin?$hiGraceMargin{$sAttribute}:0;
}
else { # Success..
&logTrace ( 20161, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#----------------------------
# Apply margin if requested..
#----------------------------
if ( $bUseMargin && # Margin requested..
$iEngineTimeout >= $hiGraceMargin{$sAttribute} ) { # And valid..
$iEngineTimeout -= $hiGraceMargin{$sAttribute}; # Apply..
&logTrace ( 20162,
"<%s> Setting up [%s] sec margin. Returning [%s]",
$sMyName, $hiGraceMargin{$sAttribute}, $iEngineTimeout );
}
return ( $iEngineTimeout ); # Secs..
}
=pod
-------------------------------------------------------------------------
Function : int IntentionalOffline ( IN Integer State,
IN Integer IState,
IN String LCName,
IN String LCHome,
IN String DBMUserId,
IN String DBMPassword,
IN String ResourceName );
Description : Handles the Resource faults from the intentional shutdown
of the appplicatin (SAPLiveCache Server).
Parameters :
$iState Resource current state.
$iIState Resource internal/intermediate state.
$sLCName Name of the liveCahe Server.
$sLCHome Home directory for liveCache server binaries.
$sDBMUserId User name for DBM operator.
$sDBMPassword Password for DBM operator.
$sResourceName Name of the resource which needs to be protected from
Intentional shutdowns.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub IntentionalOffline {
#----------------
# Get Arguments..
#----------------
my ( $iState,
$iIState,
$sLCName,
$sLCHome,
$sDBMUserId,
$sDBMPassword,
$sResourceName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20163, "Subroutine <%s> called with:
State [%s],
IState [%s],
LCName [%s],
LCHome [%s],
DBMUserId [%s],
DBMPassword [%s],
ResourceName [%s]",
$sMyName, $iState, $iIState, $sLCName, $sLCHome,
$sDBMUserId, $sDBMPassword, $sResourceName );
#-----------------------------------
# Declare all the variables needed..
#-----------------------------------
my $iFound = VCSDef_MonitorExit::OFFLINE;
my @lsLCStatus = ();
my $sSrchStr = "stopping ok";
#--------------------------------------------------
# Determine the name of the lccluster status file..
#--------------------------------------------------
my $sClustFile = "/sapdb/data/wrk/$sLCName/symc_lccluster_$sLCName" ;
&logTrace ( 20164,
"<%s> Checking for the lccluster status file [%s].",
$sMyName, $sClustFile );
if ( ! -e $sClustFile ) {
&logTrace ( 20165,
"<%s> lccluster status file [%s] doesn't exist.",
$sMyName, $sClustFile );
return $iFound;
}
&logTrace ( 20166, "<%s> Looking for string [%s] from file contents.",
$sMyName, $sSrchStr );
if ( ! open( LCFILE, $sClustFile ) ) { # Open the file ..
&logTrace ( 20167, "<%s> Failed to open the file [%s].",
$sMyName, $sClustFile );
return $iFound;
}
else {
@lsLCStatus = ;
close ( LCFILE );
#--------------------------------------------
# Attempt to locate search string in output..
#--------------------------------------------
if ( ! grep { /$sSrchStr/o } @lsLCStatus ) {
&logTrace ( 20168,
"<%s> Failed to locate search pattern [%s] in the file contents [%s]",
$sMyName, $sSrchStr, join ( chr 012, @lsLCStatus ) );
return $iFound;
}
else {
if( VCSDef_ResourceState::ONLINE == $iState &&
VCSDef_ResourceIState::NOT_WAITING == $iIState ) {
my $sHasysOut = `/opt/VRTSvcs/bin/hasys -nodeid 2>&1`;
chomp $sHasysOut;
$sHasysOut =~ s/.*Node name: //;
$sHasysOut =~ s/ Node ID: .*//;
my $rsCurrentSystemName = $sHasysOut;
&logTrace ( 20169,
"<%s> hares offlining [%s] on [%s].",
$sMyName, $sResourceName, $rsCurrentSystemName );
system("/opt/VRTSvcs/bin/hares -offline $sResourceName -sys $rsCurrentSystemName");
#----------------------------------------------
# Remove the lccluster status file..
#----------------------------------------------
&logTrace ( 20170,
"<%s> Removing the lccluster status file [%s].",
$sMyName, $sClustFile );
unlink $sClustFile if ( -e $sClustFile ); # Remove LC status file..
$iFound = VCSDef_MonitorExit::ONLINE;
return $iFound;
}
else {
&logTrace ( 20171,
"<%s> Invalid states State [%s] IState [%s] to check for intentional offline.",
$sMyName, $iState, $iIState );
return $iFound;
}
}
}
}
=pod
-------------------------------------------------------------------------
Function : bool RemoveIPCResourcesForSAPLiveCache ( IN String User,
IN String LCHome,
IN String LCName );
Description : Removes the IPC resources for the liveCache instance.
Parameters :
$sUser User name for which IPC resources are removed.
$sLCHome Home directory for SAP liveCache instance.
$sLCName liveCache name for which IPC needs to be removed.
Returns : boolean value in the set of {0,1} where
0 Successfully removed IPCs for SAP liveCache instance.
1 Failed to remove IPC resources for SAP liveCache instance.
-------------------------------------------------------------------------
=cut
sub RemoveIPCResourcesForSAPLiveCache {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sLCHome,
$sLCName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20172, "Subroutine <%s> called with:
User [%s]
LCHome [%s]
LCName [%s]",
$sMyName, $sUser, $sLCHome, $sLCName );
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPLiveCache::GetEngineTimeout ( 1 );
#-------------------------------------------------------------
# Try to get independant data path for SAP liveCache Server..
#-------------------------------------------------------------
my $sCommand = "$sLCHome/dbmcli";
my $sCommandArgs = " dbm_getpath indepdatapath";
my ( @lsCmdout, $iExitCode, $iTimeout ) = ();
my ( $sIndepDataPath, @liIPCshm, @liIPCsem, $sDbDir, $sUsDir, @lsDbFiles, @lsUsFiles ) = ();
my $iReturnCode = 1;
&logTrace ( 20173,
"<%s> Getting independent data path for liveCache instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20174,
"<%s> Insufficient time to get indepdatapath for liveCache instance. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPLiveCache::ExecLocalCmd ( "root",
"",
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20175,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
&logError ( 20176,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode,
join ( chr 012, @lsCmdout ) );
$iReturnCode = 1;
}
if( scalar @lsCmdout ) {
$sIndepDataPath = $lsCmdout[-1];
chomp $sIndepDataPath;
}
else {
$sIndepDataPath = "/sapdb/data" ;
&logError(20177,
"<%s> Failed to find the indepdatapath with the command [%s] with arguments [%s]",
$sMyName, $sCommand, $sCommandArgs );
&logInfo (20178,
"<%s> Defaulting the indepdatapath for liveCache server [%s] to [%s]",
$sMyName, $sLCName, $sIndepDataPath );
}
$sDbDir = $sIndepDataPath . "/ipc/" . "db\:" . $sLCName;
$sUsDir = $sIndepDataPath . "/ipc/" . "us\:" . $sLCName;
if( ReadDirectory( $sDbDir,
\@lsDbFiles ) ) { # Read from db: directory ...
&logTrace(20179,
"<%s> Read files [%s] from directory [%s]",
$sMyName, join(' ', @lsDbFiles), $sDbDir );
if( scalar @lsDbFiles && SAPLiveCache::GetIPCIDsFromFiles ( \@lsDbFiles,
O_IPCSEM,
\@liIPCsem ) ) {
&logTrace(20180,
"<%s> Read semaphore IDs [%s] from the files in directory [%s]",
$sMyName, join(' ', @liIPCsem), $sDbDir );
}
else {
&logTrace(20181,
"<%s> No semaphore IDs to read from the files in direcotory[%s]",
$sMyName, $sDbDir );
}
if( scalar @lsDbFiles && SAPLiveCache::GetIPCIDsFromFiles ( \@lsDbFiles,
O_IPCSHM,
\@liIPCshm ) ) {
&logTrace(20182,
"<%s> Read Shared memory IDs [%s] from the files in directory [%s]",
$sMyName, join(' ', @liIPCshm), $sDbDir );
}
else {
&logTrace(20183,
"<%s> No Shared Memory IDs to read from the files in direcotory[%s]",
$sMyName, $sDbDir );
}
}
else {
&logTrace( 20184,
"<%s> Skiping directory [%s] from reading for IPC.",
$sMyName, $sDbDir );
}
if( SAPLiveCache::ReadDirectory( $sUsDir,
\@lsUsFiles ) ) { # Read from us: directory ...
&logTrace(20185,
"<%s> Read files [%s] from directory [%s]",
$sMyName, join(' ', @lsUsFiles), $sUsDir );
if( scalar @lsUsFiles && SAPLiveCache::GetIPCIDsFromFiles ( \@lsUsFiles,
O_IPCSEM,
\@liIPCsem ) ) {
&logTrace(20186,
"<%s> Read semaphore IDs [%s] from the files in directory [%s]",
$sMyName, join(' ', @liIPCsem), $sUsDir );
}
else {
&logTrace(20187,
"<%s> Failed to read to semaphore IDs from the files in direcotory[%s]",
$sMyName, $sUsDir );
}
if( scalar @lsUsFiles && SAPLiveCache::GetIPCIDsFromFiles ( \@lsUsFiles,
O_IPCSHM,
\@liIPCshm ) ) {
&logTrace(20188,
"<%s> Read Shared memory IDs [%s] from the files in directory [%s]",
$sMyName, join(' ', @liIPCshm), $sUsDir );
}
else {
&logTrace(20189,
"<%s> Failed to read to Shared Memory IDs from the files in direcotory[%s]",
$sMyName, $sUsDir );
}
}
else {
&logTrace( 20190,
"<%s> Failed to read directory [%s].",
$sMyName, $sUsDir );
}
if( scalar @liIPCsem ) { # Check Semaphores for removing ...
if( $iReturnCode = SAPLiveCache::RemoveIPCResourcesForUser ( $sUser,
O_IPCSEM,
\@liIPCsem ) ) {
&logTrace (20191,
"<%s> Successfully removed Semaphores IDs [%s] for User [%s]",
$sMyName, join(' ', @liIPCsem), $sUser );
}
else {
&logError (20192,
"<%s> Failed to remove Semaphores for User [%s]",
$sMyName, $sUser );
$iReturnCode = 0; # Failure ...
}
}
if( scalar @liIPCshm ) { # Check Shared Memory for removing ...
if( $iReturnCode = SAPLiveCache::RemoveIPCResourcesForUser ( $sUser,
O_IPCSHM,
\@liIPCshm ) ) {
&logTrace (20193,
"<%s> Successfully removed Shared Memory IDs [%s] for User [%s]",
$sMyName, join(' ', @liIPCshm), $sUser );
}
else {
&logError (20194,
"<%s> Failed to remove Shared Memory IDs for User [%s]",
$sMyName, $sUser );
$iReturnCode = 0; # Failure ...
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ReadDirectory ( IN String Dir,
IN RefListOfString Files)
Description : Reads all the files from the specified directory.
Parameters :
$sDir The directory from ehich the files needs to be read.
$rlsFiles The list of files read from the specified directory.
Returns : boolean value in the set of {0,1} where
0 Successfully read all the files from directory.
1 Failed to read the files from directory.
-------------------------------------------------------------------------
=cut
sub ReadDirectory {
#----------------
# Get Arguments..
#----------------
my ( $sDir,
$rlsFiles ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20195, "Subroutine <%s> called with:
Dir [%s]
rlsFiles [%s]",
$sMyName, $sDir, $rlsFiles );
if( ! -d $sDir ) {
&logTrace ( 20196,
"<%s> Directory [%s] is not valid. Skipping ..",
$sMyName, $sDir );
return 0; # Failure ...
}
my ( $sFile, $sPwd, $sCurr ) = ();
if ( opendir ( DIRENT, $sDir ) ) {
&logTrace( 20197,
"<%s> Directory [%s] opened for reading.",
$sMyName, $sDir );
@$rlsFiles = readdir ( DIRENT );
closedir ( DIRENT ) ||
&logWarn(20198,
"<%s> Failed to close directory [%s] after reading",
$sMyName, $sDir );
}
else {
&logWarn(20199,
"<%s> Failed to open Directory [%s] for reading.",
$sMyName, $sDir );
return 0; # Failure ...
}
return 1;
}
=pod
-------------------------------------------------------------------------
Function : bool GetIPCIDsFromFiles ( IN RefListOfString Files,
IN Interger IPCFlags,
OUT RefListOfInteger IPCs );
Description : Returns all the IPC IDs from the IPC files.
Parameters :
$rlsFiles List of IPC file names from which the ID are to read.
$riIPCFlags The type of IPCs needs to be read, like O_IPCSEM, O_IPCSHM etc..
$rliIPCs List of IPC IDs read from the files.
Returns : boolean value in the set of {0,1} where
0 Successfully read IDs from files.
1 Failed to read IDs from files.
-------------------------------------------------------------------------
=cut
sub GetIPCIDsFromFiles {
#----------------
# Get Arguments..
#----------------
my ( $rlsFiles,
$riIPCFlags,
$rliIPCs ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20200, "Subroutine <%s> called with:
rlsFiles [%s]
IPC Flags [%s]
rliIPCs [%s]",
$sMyName, $rlsFiles, $riIPCFlags, $rliIPCs );
foreach my $sFile (@$rlsFiles) {
chomp $sFile;
my $iIPC = $sFile;
if( O_IPCSHM == $riIPCFlags && $iIPC =~ s/^-m//o ) {
&logTrace(20201,
"<%s> Got Shared Memory ID [%s] from [%s].",
$sMyName, $iIPC, $sFile );
push(@$rliIPCs, $iIPC);
}
elsif( O_IPCSEM == $riIPCFlags && $iIPC =~ s/^-s//o ) {
&logTrace(20202,
"<%s> Got Semaphore ID [%s] from [%s].",
$sMyName, $iIPC, $sFile );
push(@$rliIPCs, $iIPC);
}
elsif( O_IPCMSQ == $riIPCFlags && $iIPC =~ s/^-q//o ) {
&logTrace(20203,
"<%s> Got Message Queue ID [%s] from [%s].",
$sMyName, $iIPC, $sFile );
push(@$rliIPCs, $iIPC);
}
elsif( O_IPCALL == $riIPCFlags && $iIPC =~ s/^-[sqm]+//o ) {
&logTrace(20204,
"<%s> Got IPC ID [%s] from [%s].",
$sMyName, $iIPC, $sFile );
push(@$rliIPCs, $iIPC);
}
}
return 1;
}
=pod
-------------------------------------------------------------------------
Function : bool RemoveIPCResourcesForUser ( IN String User,
IN Integer IpcFlags,
IN RefListInteger Ids );
Description : Removes IPC resources for specified UNIX user
Parameters :
$sUser UNIX user whose IPC resources are to be removed
$iIpcFlags Behaviour flag
$rliIds List of IPC IDs to remove for that user
Values for Behaviour flag:
O_IPCSHM : Shared Memory O_IPCSEM : Semaphore
O_IPCMSQ : Message Queue O_IPCALL : All of the above
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub RemoveIPCResourcesForUser {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$iIpcFlags,
$rliIds ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20205, "Subroutine <%s> called with:
User [%s]
IPC Flags [%s]
rliIds [%s]",
$sMyName, $sUser, $iIpcFlags, $rliIds );
#-------------------------
# Define local variables..
#-------------------------
my $sFormat = 'l l l l ul ul i'; # Needed for unpack. Check intro(2)..
my $iLocn = $^O eq 'linux'?1:0; # Index locn. of ipc_perm.uid..
my $lsVar = 0; # Stores the binary structure semid_ds..
my $sCommand = $sCmdIpcs; # Get global..
my ( $iId, $iUid, $iIpcUid, $iRemoved,
@liShmIds, @liMqIds, @liSemIds, @liIdsRemoved, %hiIds ) = ();
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------
# Validate the user..
#--------------------
unless ( defined ( $iUid = getpwnam $sUser ) ) {
&logError ( 20206, "<%s> Invalid User [%s] specfied. Cannot proceed.",
$sMyName, $sUser );
return 0; # Error..
}
#----------------
# Check for IDs..
#----------------
if ( scalar @$rliIds ) {
&logTrace ( 20207,
"<%s> Request to remove only [%s] IDs for User [%s]",
$sMyName, join ( ' ', @$rliIds ), $sUser );
%hiIds = map { $_ => 1 } @$rliIds; # Remove duplicates..
}
# else {
# &logWarn ( 20032,
# "<%s> Called with [%s] IDs for User [%s]",
# $sMyName, join ( ' ', @$rliIds ), $sUser );
# return 1;
# }
#-------------------------------
# Read in the contents of IPCs..
#-------------------------------
foreach ( readpipe ( $sCommand ) ) {
s/\n//; # Chomp..
#---------------
# Handle Linux..
#---------------
if ( $^O eq 'linux' ) {
if ( $iIpcFlags & O_IPCSHM && # Shared Memory..
/shmid/ ... /^$/ ) {
/(\w+)\s+(\d+)/;
push ( @liShmIds, $2 ) if defined $2;
}
if ( $iIpcFlags & O_IPCSEM && # Semaphore..
/semid/ ... /^$/ ) {
/(\w+)\s+(\d+)/;
push ( @liSemIds, $2 ) if defined $2;
}
if ( $iIpcFlags & O_IPCMSQ && # Message Queue..
/msqid/ ... /^$/ ) {
/(\w+)\s+(\d+)/;
push ( @liMqIds, $2 ) if defined $2;
}
}
else { # the rest..
#--------------------
# Skip removed IPCs..
#--------------------
if ( /^[m|s|q]\s*(\d+)\s+\w+\s+(\S)/ && # Of all three..
defined $2 && # Mode defined..
( $2 eq 'D' || $2 eq 'C' ) ) { # Says, it's removed..
next; # Skip..
}
$iIpcFlags & O_IPCSHM && # Shared Memory..
push ( @liShmIds, $_ =~ /^m\s*(\d+).*/ );
$iIpcFlags & O_IPCMSQ && # Message Queue..
push ( @liMqIds, $_ =~ /^q\s*(\d+).*/ );
$iIpcFlags & O_IPCSEM && # Semaphore..
push ( @liSemIds, $_ =~ /^s\s*(\d+).*/ );
}
}
#---------------------------------------------
# Process each one separately as per request..
#---------------------------------------------
#----------------
# Shared Memory..
#----------------
if ( $iIpcFlags & O_IPCSHM ) {
foreach $iId ( @liShmIds ) {
next if ( scalar @$rliIds && ! $hiIds { $iId } );
shmctl( $iId, IPC_STAT, $lsVar ) ||
&logError ( 20208,
"<%s> Failed to use shmctl(2) on SHM Id [%s]", $sMyName, $iId );
#-----------------------------------------------------
# Unpack uid(2) out of the packed semid_ds structure..
#-----------------------------------------------------
$iIpcUid = ( unpack ( $sFormat, $lsVar ) ) [$iLocn];
#-----------------------------
# Remove resource if a match..
#-----------------------------
if ( $iIpcUid == $iUid ) {
if ( shmctl ( $iId, IPC_RMID, 0 ) ) {
push ( @liIdsRemoved, $iId );
++$iRemoved; # Increment..
}
else {
&logError ( 20209,
"<%s> Failed to remove SHM Id [%s]. Error [%s]", $sMyName, $iId, $! );
$iReturnCode = 0; # Failed..
}
}
}
}
if ( scalar @liIdsRemoved ) {
&logTrace ( 20210, "<%s>
+--- Removed SHM Ids: [%s] for User [%s] Uid [%s]. Total [%s] ---+",
$sMyName, join ( ' ', @liIdsRemoved ), $sUser, $iUid, scalar @liIdsRemoved );
@liIdsRemoved = (); # Clear..
}
#----------------
# Message Queue..
#----------------
$lsVar = 0; # Reset..
if ( $iIpcFlags & O_IPCMSQ ) {
foreach $iId ( @liMqIds ) {
next if ( scalar @$rliIds && ! $hiIds { $iId } );
msgctl( $iId, IPC_STAT, $lsVar ) ||
&logError ( 20211,
"<%s> Failed to use msgctl(2) on SHM Id [%s]", $sMyName, $iId );
#-----------------------------------------------------
# Unpack uid(2) out of the packed semid_ds structure..
#-----------------------------------------------------
$iIpcUid = ( unpack ( $sFormat, $lsVar ) ) [$iLocn];
#-----------------------------
# Remove resource if a match..
#-----------------------------
if ( $iIpcUid == $iUid ) {
if ( msgctl ( $iId, IPC_RMID, 0 ) ) {
push ( @liIdsRemoved, $iId );
++$iRemoved; # Increment..
}
else {
&logError ( 20212,
"<%s> Failed to remove Msg QId [%s]. Error [%s]", $sMyName, $iId, $! );
$iReturnCode = 0; # Failed..
}
}
}
}
if ( scalar @liIdsRemoved ) {
&logTrace ( 20213, "<%s>
+--- Removed Msg QIds: [%s] for User [%s] Uid [%s]. Total [%s] ---+",
$sMyName, join ( ' ', @liIdsRemoved ), $sUser, $iUid, scalar @liIdsRemoved );
@liIdsRemoved = (); # Clear..
}
#------------
# Semaphore..
#------------
$lsVar = 0; # Reset..
if ( $iIpcFlags & O_IPCSEM ) {
foreach $iId ( @liSemIds ) {
next if ( scalar @$rliIds && ! $hiIds { $iId } );
semctl( $iId, 0, IPC_STAT, $lsVar ) ||
&logError ( 20214,
"<%s> Failed to use semctl(2) on Sem Id [%s]", $sMyName, $iId );
#-----------------------------------------------------
# Unpack uid(2) out of the packed semid_ds structure..
#-----------------------------------------------------
$iIpcUid = ( unpack ( $sFormat, $lsVar ) ) [$iLocn];
#-----------------------------
# Remove resource if a match..
#-----------------------------
if ( $iIpcUid == $iUid ) {
if ( semctl ( $iId, 0, IPC_RMID, 0 ) ) {
push ( @liIdsRemoved, $iId );
++$iRemoved; # Increment..
}
else {
&logError (20215,
"<%s> Failed to remove Sem Id [%s]. Error [%s]", $sMyName, $iId, $! );
$iReturnCode = 0; # Failed..
}
}
}
}
if ( scalar @liIdsRemoved ) {
&logTrace ( 20216,
"<%s>
+--- Removed Sem Ids: [%s] for User [%s] Uid [%s]. Total [%s] ---+",
$sMyName, join ( ' ', @liIdsRemoved ), $sUser, $iUid, scalar @liIdsRemoved );
@liIdsRemoved = (); # Clear..
}
#---------------------------------
# Log, if we did anything useful..
#---------------------------------
if ( $iRemoved ) {
&logTrace( 20217,
"<%s> Successfully removed [%s] IPC resources for User [%s] in all.",
$sMyName, $iRemoved, $sUser );
}
return $iReturnCode;
}
1; # So PERL knows its included..
./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTS/ 0000755 0000000 0000000 00000000000 13320062025 015710 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTS/messages/ 0000755 0000000 0000000 00000000000 13320062025 017517 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTS/messages/en/ 0000755 0000000 0000000 00000000000 13320062025 020121 5 ustar root root ./pkgs/VRTSsaplc/VRTSsaplc/opt/VRTS/messages/en/VRTSvcsHPSAPLiveCache.bmc 0000555 0000000 0000000 00000022454 13320062025 024466 0 ustar root root G• R|ãWen HAD ± N" O @ ” X Öæ N" N_ ” Ng Nl Œ Ns N ¤ N¨ N½ \ NÎ NÒ ´ Nà Nç È Nî O è X » N ™ ð < â = ‹ ×ÿÿÿÿÿÿÿÿÿÿÿÿ ;ÿÿÿÿÿÿÿÿ ›ÿÿÿÿ Lÿÿÿÿÿÿÿÿ © ÿÿÿÿ qÿÿÿÿ Ðÿÿÿÿÿÿÿÿÿÿÿÿ
:ÿÿÿÿ
›ÿÿÿÿÿÿÿÿ
üÿÿÿÿ \ÿÿÿÿ ¦ øÿÿÿÿÿÿÿÿ [ÿÿÿÿÿÿÿÿ »ÿÿÿÿ
(
Šÿÿÿÿÿÿÿÿÿÿÿÿ
ê J ÿÿÿÿÿÿÿÿÿÿÿÿ
sÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ Ô 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ‚ÿÿÿÿÿÿÿÿ Ôÿÿÿÿ 2ÿÿÿÿ » ú >ÿÿÿÿ ƒÿÿÿÿÿÿÿÿ î B – ê > — ÿÿÿÿ r ½ ÿÿÿÿ zÿÿÿÿ Æÿÿÿÿ >ÿÿÿÿ Œ âÿÿÿÿ 5ÿÿÿÿ Æ l §ÿÿÿÿÿÿÿÿ ñ 6 ‚ À ÿÿÿÿÿÿÿÿÿÿÿÿ b Éÿÿÿÿ $ÿÿÿÿ ^ ªÿÿÿÿÿÿÿÿ Jÿÿÿÿ Á + œ ÿÿÿÿ Qÿÿÿÿÿÿÿÿÿÿÿÿ ¨ û Lÿÿÿÿ ž ëÿÿÿÿ !: !‡ÿÿÿÿ !× "$ÿÿÿÿÿÿÿÿÿÿÿÿ "sÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ "Ô #! #a #²ÿÿÿÿ $
$a $¬ÿÿÿÿ $í _VCS:20002:SAPLiveCache:%s:%s:<%s> The following mandatory fields were not set [%s], Total [%s] CVCS:20003:SAPLiveCache:%s:%s:<%s> EnvFile [%s] is not a plain file HVCS:20004:SAPLiveCache:%s:%s:<%s> RFCHome [%s] directory does not exist GVCS:20005:SAPLiveCache:%s:%s:<%s> LCHome [%s] directory does not exist SVCS:20006:SAPLiveCache:%s:%s:<%s> APOHost [%s] is an invalid Hostname/IPV4 address HVCS:20007:SAPLiveCache:%s:%s:<%s> LCUser [%s] is not a valid UNIX login MVCS:20008:SAPLiveCache:%s:%s:<%s> InstId [%s] not in the range of {00...96}. QVCS:20009:SAPLiveCache:%s:%s:<%s> ClientId [%s] not in the range of {000...999}. WVCS:20010:SAPLiveCache:%s:%s:<%s> Language [%s] is invalid. Defaulting the value to EN JVCS:20011:SAPLiveCache:%s:%s:<%s> LCName [%s] contains invalid characters HVCS:20012:SAPLiveCache:%s:%s:<%s> MonitorProgram [%s] is not executable `VCS:20013:SAPLiveCache:%s:%s:<%s> Some of the attributes could not be validated. Returning [%s] \VCS:20017:SAPLiveCache:%s:%s:<%s> Could not remove all processes for this instance. Exiting VCS:20020:SAPLiveCache:%s:%s:<%s> Failed to remove IPC resources for SAP liveCache Instance [%s]. Remove all IPC resources for this instance manually before retrying online YVCS:20022:SAPLiveCache:%s:%s:<%s> Insufficient time to start x_server. Short by [%s] sec ZVCS:20025:SAPLiveCache:%s:%s:<%s> Failed to locate search pattern [%s] in Cmd output [%s] fVCS:20026:SAPLiveCache:%s:%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s]. Cmd output [%s] [VCS:20028:SAPLiveCache:%s:%s:<%s> Insufficient time to continue boot up. Short by [%s] sec fVCS:20030:SAPLiveCache:%s:%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s]. Cmd output [%s] ]VCS:20034:SAPLiveCache:%s:%s:<%s> Confirmed start-up of this instance of SAPLiveCache server ]VCS:20036:SAPLiveCache:%s:%s:<%s> Confirmed start-up of this instance of SAPLiveCache server \VCS:20039:SAPLiveCache:%s:%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec FVCS:20041:SAPLiveCache:%s:%s:<%s> Delaying exit to confirm shutdown.. NVCS:20043:SAPLiveCache:%s:%s:<%s> Confirmed shutdown of SAPLiveCache instance _VCS:20044:SAPLiveCache:%s:%s:<%s> Cmd [%s] with args [%s] failed to stop the liveCache Server. \VCS:20047:SAPLiveCache:%s:%s:<%s> Could not remove all processes for this instance. Exiting iVCS:20050:SAPLiveCache:%s:%s:<%s> Removed all IPC resources for SAP liveCache Instance [%s] successfully ^VCS:20052:SAPLiveCache:%s:%s:<%s> Attempting to stop SAPLiveCache with Command [%s] Args [%s] \VCS:20053:SAPLiveCache:%s:%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec \VCS:20057:SAPLiveCache:%s:%s:<%s> Could not remove all processes for this instance. Exiting _VCS:20058:SAPLiveCache:%s:%s:<%s> Attempting to clear SAPLiveCache with Command [%s] Args [%s] YVCS:20059:SAPLiveCache:%s:%s:<%s> Insufficient time to continue clear. Short by [%s] sec eVCS:20063:SAPLiveCache:%s:%s:<%s> Failed to Remove all IPC resources for SAP liveCache Instance [%s] ]VCS:20071:SAPLiveCache:%s:%s:<%s> Failed to get details for monitoring SAPLiveCache instance XVCS:20076:SAPLiveCache:%s:%s:<%s> Call to get process list did not return any processes NVCS:20083:SAPLiveCache:%s:%s:<%s> Could not create PID file [%s] successfully NVCS:20089:SAPLiveCache:%s:%s:<%s> Attribute validation failed. Returning [%s] ZVCS:20092:SAPLiveCache:%s:%s:<%s> SAPLiveCache instance NOT online after SLM. Status [%s] …VCS:20094:SAPLiveCache:%s:%s:<%s> SAPLiveCache instance NOT online after executing external monitor [%s] with args [%s]. Status [%s] ;VCS:20096:SAPLiveCache:%s:%s:<%s> [%s] is not a plain file @VCS:20097:SAPLiveCache:%s:%s:<%s> [%s] directory does not exist AVCS:20098:SAPLiveCache:%s:%s:<%s> [%s] is not a valid UNIX login gVCS:20100:SAPLiveCache:%s:%s:<%s> Insufficient time to continue in-depth monitoring. Short by [%s] sec PVCS:20103:SAPLiveCache:%s:%s:<%s> Found search pattern [%s] in the output [%s]. PVCS:20104:SAPLiveCache:%s:%s:<%s> Found search pattern [%s] in the output [%s]. PVCS:20105:SAPLiveCache:%s:%s:<%s> Found search pattern [%s] in the output [%s]. PVCS:20106:SAPLiveCache:%s:%s:<%s> Found search pattern [%s] in the output [%s]. UVCS:20107:SAPLiveCache:%s:%s:<%s> SecondLevelMonitor returned undefined output [%s]. hVCS:20108:SAPLiveCache:%s:%s:<%s> Second Level Monitor returned undefined exit code and Cmd output [%s] kVCS:20109:SAPLiveCache:%s:%s:<%s> Second Level Monitor returned invalid exit code [%s] and Cmd output [%s] GVCS:20111:SAPLiveCache:%s:%s:<%s> External monitor [%s] does not exist HVCS:20112:SAPLiveCache:%s:%s:<%s> External monitor [%s] not executable. mVCS:20113:SAPLiveCache:%s:%s:<%s> Insufficient time to proceed with external monitor [%s]. Short by [%s] sec HVCS:20115:SAPLiveCache:%s:%s:<%s> Command [%s] with args [%s] timed out tVCS:20117:SAPLiveCache:%s:%s:<%s> Command [%s] with args [%s] execution failed with exit code [%s]. Cmd output [%s] JVCS:20119:SAPLiveCache:%s:%s:<%s> PID [%s] is not a valid positive number RVCS:20121:SAPLiveCache:%s:%s:<%s> Failed to close PidFile [%s] after update: [%s] OVCS:20122:SAPLiveCache:%s:%s:<%s> Failed to create PID file [%s] with PID [%s] HVCS:20124:SAPLiveCache:%s:%s:<%s> Called with empty [%s] process string AVCS:20126:SAPLiveCache:%s:%s:<%s> PID file [%s] is of zero bytes PVCS:20127:SAPLiveCache:%s:%s:<%s> Could not close PID file [%s] after read [%s] NVCS:20128:SAPLiveCache:%s:%s:<%s> Failed to open PID file [%s] for read: [%s] 7VCS:20136:SAPLiveCache:%s:%s:<%s> PID not killed [%s]. FVCS:20137:SAPLiveCache:%s:%s:<%s> PID [%s] doesn't exist for killing. AVCS:20140:SAPLiveCache:%s:%s:<%s> Command [%s] is not executable HVCS:20141:SAPLiveCache:%s:%s:<%s> Failed to decrypt crypted string [%s] :VCS:20142:SAPLiveCache:%s:%s:<%s> Cmd [%s] does not exist =VCS:20143:SAPLiveCache:%s:%s:<%s> Cmd [%s] is not executable ]VCS:20144:SAPLiveCache:%s:%s:<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s]. cVCS:20148:SAPLiveCache:%s:%s:<%s> Command [%s] with args [%s] did not complete within [%s] seconds WVCS:20149:SAPLiveCache:%s:%s:<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut 6VCS:20151:SAPLiveCache:%s:%s:<%s> PID [%s] is invalid HVCS:20153:SAPLiveCache:%s:%s:<%s> ps(1b) command [%s] is not executable UVCS:20154:SAPLiveCache:%s:%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] CVCS:20157:SAPLiveCache:%s:%s:<%s> Failed to create PID folder [%s] sVCS:20174:SAPLiveCache:%s:%s:<%s> Insufficient time to get indepdatapath for liveCache instance. Short by [%s] sec fVCS:20176:SAPLiveCache:%s:%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s]. Cmd output [%s] mVCS:20177:SAPLiveCache:%s:%s:<%s> Failed to find the indepdatapath with the command [%s] with arguments [%s] aVCS:20178:SAPLiveCache:%s:%s:<%s> Defaulting the indepdatapath for liveCache server [%s] to [%s] LVCS:20192:SAPLiveCache:%s:%s:<%s> Failed to remove Semaphores for User [%s] SVCS:20194:SAPLiveCache:%s:%s:<%s> Failed to remove Shared Memory IDs for User [%s] OVCS:20198:SAPLiveCache:%s:%s:<%s> Failed to close directory [%s] after reading MVCS:20199:SAPLiveCache:%s:%s:<%s> Failed to open Directory [%s] for reading. NVCS:20206:SAPLiveCache:%s:%s:<%s> Invalid User [%s] specfied. Cannot proceed. IVCS:20208:SAPLiveCache:%s:%s:<%s> Failed to use shmctl(2) on SHM Id [%s] KVCS:20209:SAPLiveCache:%s:%s:<%s> Failed to remove SHM Id [%s]. Error [%s] IVCS:20211:SAPLiveCache:%s:%s:<%s> Failed to use msgctl(2) on SHM Id [%s] LVCS:20212:SAPLiveCache:%s:%s:<%s> Failed to remove Msg QId [%s]. Error [%s] IVCS:20214:SAPLiveCache:%s:%s:<%s> Failed to use semctl(2) on Sem Id [%s] KVCS:20215:SAPLiveCache:%s:%s:<%s> Failed to remove Sem Id [%s]. Error [%s] ]VCS:20219:SAPLiveCache:%s:%s:Agent called with unsupported entry point specification of [%s] IVCS:20224:SAPLiveCache:%s:%s:<%s> Resource [%s] started up successfully. Failed to online resource MVCS:20226:SAPLiveCache:%s:%s:<%s> Processes for resource instance already up WVCS:20227:SAPLiveCache:%s:%s:<%s> Attempt to online resource instance in invalid state PVCS:20229:SAPLiveCache:%s:%s:<%s> Processes for resource instance down already. GVCS:20230:SAPLiveCache:%s:%s:<%s> Shutdown resource [%s] successfully. =VCS:20231:SAPLiveCache:%s:%s:<%s> Failed to offline resource ;VCS:20233:SAPLiveCache:%s:%s:<%s> Failed to clean resource ./pkgs/VRTSsapcms/ 0000555 0000000 0000000 00000000000 13320062025 012651 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/ 0000755 0000000 0000000 00000000000 13320062025 014660 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/ 0000755 0000000 0000000 00000000000 13320062025 015433 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017433 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 020023 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/ 0000755 0000000 0000000 00000000000 13320062025 020750 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/ 0000755 0000000 0000000 00000000000 13320062025 022004 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cmd 0000555 0000000 0000000 00000001626 13320062025 024560 0 ustar root root #!/bin/sh
hatype -add SAPNW04
hatype -modify SAPNW04 SourceFile "./SAPNW04Types.cf"
hatype -modify SAPWebAS71 AEPTimeout 1
hatype -modify SAPNW04 AgentFile "/opt/VRTSvcs/bin/Script50Agent"
hatype -modify SAPNW04 AgentDirectory "/opt/VRTSagents/ha/bin/SAPNW04"
hatype -modify SAPNW04 ArgList ResLogLevel State IState EnqSrvResName EnvFile InstName InstType MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID SecondLevelMonitor StartProfile
haattr -add SAPNW04 ResLogLevel -string INFO
haattr -add SAPNW04 EnqSrvResName -string
haattr -add SAPNW04 EnvFile -string
haattr -add SAPNW04 InstName -string
haattr -add SAPNW04 InstType -string
haattr -add SAPNW04 MonitorProgram -string
haattr -add SAPNW04 ProcMon -string
haattr -add SAPNW04 SAPAdmin -string
haattr -add SAPNW04 SAPMonHome -string
haattr -add SAPNW04 SAPSID -string
haattr -add SAPNW04 SecondLevelMonitor -integer 0
haattr -add SAPNW04 StartProfile -string
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cf 0000555 0000000 0000000 00000001106 13320062025 024376 0 ustar root root type SAPNW04 (
static boolean AEPTimeout = 1
static str AgentDirectory = "/opt/VRTSagents/ha/bin/SAPNW04"
static str AgentFile = "/opt/VRTSvcs/bin/Script50Agent"
static str ArgList[] = { ResLogLevel, State, IState, EnqSrvResName, EnvFile, InstName, InstType, MonitorProgram, ProcMon, SAPAdmin, SAPMonHome, SAPSID, SecondLevelMonitor, StartProfile }
str ResLogLevel = INFO
str EnqSrvResName //OPT
str EnvFile
str InstName
str InstType = CENTRAL
str MonitorProgram //OPT
str ProcMon
str SAPAdmin
str SAPMonHome
str SAPSID
int SecondLevelMonitor = 0
str StartProfile
)
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/main.cf 0000555 0000000 0000000 00000007150 13320062025 023246 0 ustar root root include "types.cf"
include "SAPNW04Types.cf"
cluster accsun1 (
UserNames = { admin = aHIaHChEIdIIgQIcHF }
Administrators = { admin }
CredRenewFrequency = 0
CounterInterval = 5
)
system nodeA (
)
system nodeB (
)
system nodeC (
)
group SAPERP_CI (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
)
DiskGroup SAPERP_CI_dg (
Critical = 0
DiskGroup = saperp_dg
)
IP SAPERP_C1_ip (
Critical = 0
Device = bge0
Address = "10.212.98.191"
NetMask = "255.255.254.0"
)
Mount SAPERP_CI_dvbgs_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/DVBGS01"
BlockDevice = "/dev/vx/dsk/saperp_dg/dvbgs-vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_CI_ci (
Critical = 0
EnvFile = "/home/erpadm/.cshrc"
InstName = DVBGS01
ProcMon = "dw se"
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/rfcsdk/bin"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/usr/sap/ERP/SYS/profile/START_DVBGS01_sunabap"
)
Share SAPERP_SCS_share (
Critical = 0
PathName = "/usr/sap/ERP"
Options = "rw,root=nodeA:nodeB:sunabap:sunjava:sunmmp"
)
SAPERP_CI_ci requires SAPERP_CI_dvbgs_mnt
SAPERP_CI_ci requires SAPERP_SCS_share
SAPERP_CI_dvbgs_mnt requires SAPERP_CI_dg
SAPERP_SCS_share requires SAPERP_C1_ip
// resource dependency tree
//
// group SAPERP_CI
// {
// SAPNW04 SAPERP_CI_ci
// {
// Share SAPERP_SCS_share
// {
// IP SAPERP_C1_ip
// }
// Mount SAPERP_CI_dvbgs_mnt
// {
// DiskGroup SAPERP_CI_dg
// }
// }
// }
group SAPERP_REP (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
PreOnline = 1
)
DiskGroup SAPERP_REP_dg (
Critical = 0
DiskGroup = erp_sysdg
)
IP SAPERP_REP_ip (
Critical = 0
Device = bge0
Address = "10.212.98.195"
NetMask = "255.255.254.0"
)
Mount SAPERP_REP_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/REP02"
BlockDevice = "/dev/vx/dsk/erp_sysdg/ENQREP"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_REP_rep (
EnqSrvResName = SAPERP_SCS_enq
EnvFile = "/home/erpadm/.cshrc"
InstName = REP02
InstType = ENQREP
ProcMon = er
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/SYS/exe/run"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/sapmnt/ERP/profile/START_REP02_sunreps"
)
SAPERP_REP_mnt requires SAPERP_REP_dg
SAPERP_REP_rep requires SAPERP_REP_ip
SAPERP_REP_rep requires SAPERP_REP_mnt
// resource dependency tree
//
// group SAPERP_REP
// {
// SAPNW04 SAPERP_REP_rep
// {
// IP SAPERP_REP_ip
// Mount SAPERP_REP_mnt
// {
// DiskGroup SAPERP_REP_dg
// }
// }
// }
group SAPERP_SCS (
SystemList = { nodeA = 0, nodeB = 1, nodeC = 2 }
PreOnline = 1
)
DiskGroup SAPERP_SCS_dg (
Critical = 0
DiskGroup = ababenqdg
)
IP SAPERP_SCS_ip (
Critical = 0
Device = bge0
Address = "10.212.98.202"
NetMask = "255.255.254.0"
)
Mount SAPERP_SCS_mnt (
Critical = 0
MountPoint = "/usr/sap/ERP/ASCS02"
BlockDevice = "/dev/vx/dsk/ababenqdg/ababpscs-vol"
FSType = vxfs
FsckOpt = "-y"
)
SAPNW04 SAPERP_SCS_enq (
EnvFile = "/home/erpadm/.cshrc"
InstName = ASCS02
InstType = ENQUEUE
ProcMon = "en ms se co"
SAPAdmin = erpadm
SAPMonHome = "/usr/sap/ERP/SYS/exe/run"
SAPSID = ERP
SecondLevelMonitor = 1
StartProfile = "/usr/sap/ERP/SYS/profile/START_ASCS02_sunascs"
)
SAPERP_SCS_enq requires SAPERP_SCS_mnt
SAPERP_SCS_mnt requires SAPERP_SCS_dg
// resource dependency tree
//
// group SAPERP_SCS
// {
// SAPNW04 SAPERP_SCS_enq
// {
// Mount SAPERP_SCS_mnt
// {
// DiskGroup SAPERP_SCS_dg
// }
// }
// IP SAPERP_SCS_ip
// }
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.hpux.xml 0000555 0000000 0000000 00000013416 13320062025 025600 0 ustar root root
1
/opt/VRTSagents/ha/bin/SAPNW04
/opt/VRTSvcsone/bin/Script50Agent
"ResLogLevel"
"State"
"IState"
"EnqSrvResName"
"EnvFile"
"InstName"
"InstType"
"MonitorProgram"
"ProcMon"
"SAPAdmin"
"SAPMonHome"
"SAPSID"
"SecondLevelMonitor"
"StartProfile"
1
"5.1.0.0"
0
1
55009
"5.1.0.0"
0
1
1
2
INFO
1
3
0
1
4
1
1
5
1
1
6
CENTRAL
1
7
0
1
8
1
1
9
1
1
10
1
1
11
1
1
12
0
1
13
1
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPNW04/preonline 0000555 0000000 0000000 00000013033 13320062025 023723 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Author: vchappav $
# $Date: 2009/04/06 09:44:07 $
# $Revision: 1.6 $
#------------------------------------------------------------------
# preonline
# preonline is invoked just before onlining the group.
# preonline is invoked on the node where group is to be onlined.
#
# A group level configurable parameter PreOnline controls whether this
# trigger should be invoked or not. By default, PreOnline is not set.
# PreOnline can be set in one of two ways:
# a) In configuration file, define
# PreOnline=1
# in the group description to set PreOnline to 1 for the group.
# b) While cluster is running, and in writable state, do
# hagrp -modify PreOnline 1
# to set PreOnline to 1 for group .
#
# preonline gives user the control to take appropriate action depending on
# whether group is being manually onlined, or group is in the process of failover.
# In failover case, for example, preonline can be used to determine whether the
# group can be brought online on this node in the cluster.
#
# In any case, user can give control back to engine by doing:
# hagrp -online -nopre -sys .
# This will let engine continue with online process.
#
# ------------------------------------------------------------------
# Usage:
# preonline
#
# : is the name of the system where group is to be onlined.
# : is the name of the group that is to be onlined.
# : is either "FAULT" or "MANUAL". "MANUAL" corresponds to
# both manual online as well as manual switch.
# : When preonline is invoked due to failover
# this argument is the name of the system where group
# was online before.
# When preonline is invoked due to group online
# command issued with -checkpartial option,
# this argument is the name of system specified
# for this option.
# ------------------------------------------------------------------
# ------------------------------------------------------------------
# Invoke the perl processor
# ------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
use strict;
use vars;
my $vcs_home = $ENV{"VCS_HOME"};
if (!defined ($vcs_home)) {
$vcs_home="/opt/VRTSvcs";
}
use ag_i18n_inc;
VCSAG_SET_ENVS();
if (!defined $ARGV[0]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined system name", 15028);
exit;
} elsif (!defined $ARGV[1]) {
VCSAG_LOG_MSG ("W", "Failed to continue; undefined group name", 15031);
exit;
}
#
# SAPNW04 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPNW04/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPNW04ExitCode = undef;
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPNW04ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPNW04ExitCode]", 15031);
}
#
# SAPNW04 specific preonline code: STOP
#
#
# SAPWebAS71 specific preonline code: START
#
#-------------------
# Define variables..
#-------------------
my $sCmd = '/opt/VRTSagents/ha/bin/SAPWebAS71/preonline';
my $sResLogLevel = 'INFO'; # Define logging level..
my @lsCmdArgs = ( @ARGV, $sResLogLevel ); # Insert logging level..
my $sArgs = join ( ' ', @lsCmdArgs );
my $iSAPWebAS71ExitCode = undef; # Reset..
#------------------------------------------
# Pass control to preonline, if it exists..
#------------------------------------------
if ( -x $sCmd ) {
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Args [$sArgs]", 15031);
system ( $sCmd, @lsCmdArgs );
$iSAPWebAS71ExitCode = $? >> 8; # Capture exit code..
VCSAG_LOG_MSG ("I", "Preonline Cmd [$sCmd] Exited with [$iSAPWebAS71ExitCode]", 15031);
}
#
# SAPWebAS71 specific preonline code: STOP
#
#--------------------------------
# Decide if we have to exit now..
#--------------------------------
exit 0 unless ( $iSAPNW04ExitCode );
exit 0 unless ( $iSAPWebAS71ExitCode );
# give control back to HAD.
if (defined $ARGV[3]) {
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0] -checkpartial $ARGV[3]");
exit;
}
system("$vcs_home/bin/hagrp -online -nopre $ARGV[1] -sys $ARGV[0]");
exit;
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPComponents/ 0000755 0000000 0000000 00000000000 13320062025 023441 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPComponents/main.cf 0000555 0000000 0000000 00000004313 13320062025 024701 0 ustar root root include "types.cf"
include "SAPComponentsTypes.cf"
include "SAPMaxDBTypes.cf"
cluster acclinux1 (
UserNames = { admin = dijBidIfjEjjHrjDig }
Administrators = { admin }
)
system vcslx202 (
)
system vcslx203 (
)
group SAP_Gateway (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAP_GW_ip (
Critical = 0
Device = eth0
Address = "10.209.73.55"
NetMask = "255.255.254.0"
)
NIC SAP_GW_nic (
Device = eth0
)
SAPComponents SAP_GW_Res1 (
Critical = 0
EnvFile = "/home/gw1adm/.login"
SAPAdmin = gw1adm
InstProfile = "/usr/sap/GW1/SYS/profile/GW1_G00_sapgw"
ComponentType = Gateway
SecondLevelMonitor = 1
MonitorProgram = "/tmp/mymonitor.sh"
)
Mount SAP_GW_Mount (
MountPoint = "/usr/sap/GW1/G00"
BlockDevice = "/dev/vx/dsk/sapcomp_dg/sapcomp_vol"
FSType = vxfs
FsckOpt = "-y"
)
DiskGroup SAP_GW_dg (
DiskGroup = sapcomp_dg
)
SAP_GW_Res1 requires SAP_GW_ip
SAP_GW_Res1 requires SAP_GW_Mount
SAP_GW_ip requires SAP_GW_nic
SAP_GW_Mount requires SAP_GW_dg
// resource dependency tree
//
// group SAP_Gateway
// {
// SAPComponents SAP_GW_Res1
// {
// IP SAP_GW_ip
// {
// NIC SAP_GW_nic
// }
// Mount SAP_GW_Mount
// {
// DiskGroup SAP_GW_dg
// }
// }
// }
group SAPDB (
SystemList = { vcslx202 = 0, vcslx203 = 1 }
)
IP SAPDB_ip (
Critical = 0
Device = eth0
Address = "10.209.73.51"
NetMask = "255.255.254.0"
)
NIC SAPDB_nic (
Device = eth0
)
SAPMaxDB SAPMaxDB_Res (
Critical = 0
DBHome = "/sapdb"
DBUser = sdb
DBName = ER1
DBHost = sapdb
)
SAPMaxDB_Res requires SAPDB_ip
SAPDB_ip requires SAPDB_nic
// resource dependency tree
//
// group SAPDB
// {
// SAPMaxDB_Res
// {
// IP SAPDB_ip
// {
// NIC SAPDB_nic
// }
// }
// }
./pkgs/VRTSsapcms/VRTSsapcms/etc/VRTSagents/ha/conf/SAPComponents/SAPComponentsTypes.cf 0000555 0000000 0000000 00000001001 13320062025 027462 0 ustar root root type SAPComponents (
static boolean AEPTimeout = 1
static str AgentFile = "/opt/VRTSvcs/bin/Script50Agent"
static str AgentDirectory = "/opt/VRTSagents/ha/bin/SAPComponents"
static str ArgList[] = { ResLogLevel, State, IState, EnvFile, SAPAdmin, InstProfile, ComponentType, SecondLevelMonitor, MonitorProgram }
str ResLogLevel = INFO
str EnvFile
str SAPAdmin
str InstProfile
str ComponentType
int SecondLevelMonitor = 0
str MonitorProgram
)
./pkgs/VRTSsapcms/VRTSsapcms/opt/ 0000755 0000000 0000000 00000000000 13320062025 015462 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ 0000755 0000000 0000000 00000000000 13320062025 017462 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/ 0000755 0000000 0000000 00000000000 13320062025 020052 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/ 0000755 0000000 0000000 00000000000 13320062025 020622 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPNW04/ 0000755 0000000 0000000 00000000000 13320062025 021656 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.xml 0000555 0000000 0000000 00000035707 13320062025 023451 0 ustar root root
Veritas High Availability Agent for SAP NetWeaver - UNIX
UNIX
Script
4.0
Symantec
Specifies the logging detail performed by the agent for the resource. Valid values are:
ERROR - Only logs error messages.
WARN - Logs above plus warning messages.
INFO - Logs above plus informational messages.
TRACE - Logs above plus trace messages. This is very verbose and should only be used during initial configuration or for troubleshooting and diagnostic operations.
Example: INFO
Default Value: INFO
INFO
WARN
ERROR
TRACE
Description: The name of the standalone ENQUEUE server cluster resource. This attribute is only used by an ENQUEUE replication server. Using this attribute the replication server queries the ENQUEUE server resource state during a failover.
Example: SAP70_ERPASCS_SAPNW04
Default Value: ""
Description: The absolute path to the file that must be sourced within the UNIX shell. You must source this file to set the environment before executing SAP scripts for online, offline, monitor, and clean operations.
Supported shell environments are: ksh, sh, csh
Note: Ensure that the syntax of this file is in accordance with the user shell that the SAPAdmin attribute specifies.
Symantec recommends storing this file on shared disk directory to ensure the file is always available on the online system.
Example: /usr/sap/ERP/DVEBMGS00/saperp.env
Default Value: ""
Description: String identifier that uniquely identifies and describes a SAP server instance. Multiple server instances make up a single SAP system. Each instance has a unique id (integer between 00-96) and a unique instance name. It is also important to note that instance names take on a conventional form. Dialog instances begin with 'D', central instances are typically named DVEBMGS.
Note that the instance name will often include an instance ID suffix. For example, a central instance with an instance ID = 00 will have an instance name of DVEBMGS00. Also note that the SAPSID and InstName form a unique identifier that can help filter the list of processes running for the instance.
Example: DVEBMGS00
Description: String identifier that classifies and describes the SAP server instance type. The InstType values are not case sensitive.
---------------------------------------------
InstType Description
---------------------------------------------
CENTRAL Central Instance
DIALOG Dialog Instance
ENQUEUE Standalone Enqueue Server Instance
AENQUEUE ABAP Standalone Enqueue Server
JENQUEUE JAVA Standalone Enqueue Server
ENQREP Enqueue Replication Server
AENQREP ABAP Enqueue Replication Server
JENQREP JAVA Enqueue Replication Server
---------------------------------------------
Example: CENTRAL
Default Value: CENTRAL
CENTRAL
DIALOG
ENQUEUE
AENQUEUE
JENQUEUE
ENQREP
AENQREP
JENQREP
Description: Absolute path and file name of an external, user-supplied monitor program. If specified, the monitor entry point will execute this file to perform an additional server state check. There are no restrictions for what actions the external monitor program performs to determine the state of a SAP instance server. The only constraint is that the external monitor program must return one of the following integer values:
0 (server is online)
110 (server is online)
100 (server is offline)
1 (server is offline)
All other (server state is unknown)
Symantec recommends storing the external monitor utility on the shared disk directory to ensure the file is always available on the online system. Arguments are supported.
Example 1: /usr/sap/ERP/DVEBMGS00/work/myMonitor.sh
Example 1: /usr/sap/ERP/DVEBMGS00/work/myMonitor.sh arg1 arg2
Default Value: ""
Description: The list of SAP processes to monitor. The list of processes is space separated and can be specified in any order. Valid values are as follows:
-----------------------------------------------
Instance type ProcMon Values
-----------------------------------------------
Central Instance - ABAP dw ms* co se ig gwrd icman
Dialog Instance - ABAP dw se ig gwrd icman
Central Instance - Java jc ig
Dialog Instance - Java jc ig
Central Instance - AddIn dw jc ms* co se ig gwrd icman
Dialog Instance - AddIn dw jc se ig gwrd icman
Enqueue Server en ms
Enqueue Replication Server er
-----------------------------------------------
*ms will not be part ProcMon for Central Instance if Standalone Enqeue Server is created.
co,se,ig,gwrd and icman processes are optional.
Example: dw ig
Default Value: ""
Description: UNIX user name defined as the administrative owner of application directories and executables. This name is usually formed from a concatenation of the SAPSID and the string 'adm'.
This username is stored in one or more of the system naming services to include the local password and shadow files (e.g. /etc/passwd and /etc/shadow), NIS, NIS+, or an LDAP server. The online, offline, monitor, and clean scripts execute their core subroutines using this username.
Example: erpadm
Default Value: ""
Description: The location of the directory that contains the binary used for second level monitoring process. For different SAP Web AS Server instalations we use different binaries as given below:
----------------------------------------
Installation Type Binary used
----------------------------------------
SAP Web AS ABAP sapinfo
SAP Web AS JAVA jcmon
SAP Web AS JAVA Add-In sapinfo jcmon
----------------------------------------
In the case of ENQUEUE Server and ENQREP Server, ensmon is used.
Recommended values for SAPMonHome:
1. Web AS Add-In (JENQUEUE, JENQREP): /usr/sap/SAPSID/SYS/exe/runU
2. For all remaining installation types and intances : /usr/sap/SAPSID/SYS/exe/run
Example: /usr/sap/ERP/SYS/exe/runU
Default Value: ""
Description: SAP system name.
This attribute must be three characters in length, and must begin with an alphabet. The value of this attribute is defined during the SAP installation.
Example: ERP
Default Value: ""
Description: Used to enable second-level monitoring and specify how often it is run. Second-level monitoring is a deeper, more thorough state check of the configured SAP instance. The numeric value specifies how often that the second-level monitoring routines are run. Zero (0) means never run the second-level monitoring routines. One (1) would mean to run it every monitor interval. Two (2) means to run the second-level monitoring routines every second monitor interval, and so on.
Exercise caution while setting this attribute to large numbers. For example, if the MonitorInterval is set to 60 seconds, and the SecondLevelMonitor is set to 100, then the sapinfo command for this attribute would only get executed every 100 minutes, which may not be as often as intended. In order to provide maximum flexibility, the value set is not checked for an upper limit. Thus, you could cause the sapinfo command to run once a month, if that is what is desired.
Example: 1
Default Value: 0
Description: Specifies the full path to the instance StartProfile.
The StartProfile instance is found in /usr/sap/SAPSID/SYS/profile directory. The value of the instance is START_InstName_hostname. The hostname must resolve into a valid IP address that is used to cluster the virtual SAP instance.
Example: /usr/sap/ERP/SYS/profile/START_DVEBMGS00_saperpci
Default Value: ""
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPNW04/monitor 0000555 0000000 0000000 00000050310 13320062025 023270 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/monitor.pl,v 1.41 2012/10/19 15:20:06 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2012/10/19 15:20:06 $
# $Revision: 1.41 $
#
# Provides: SAPNW04
# Author: vchappav
# Creation Date: 16 Feb, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
#---------------------------------------------------------
# Define the exact order to look for our agent framework..
#---------------------------------------------------------
BEGIN {
my $sVCSperl = undef;
my $sVCSagntfwHome = "/opt/VRTS/.ACCLib";
( my $sDirName = $0 ) =~ s#(.*)/.*$#$1#;
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCS One..
$sVCSperl = "$ENV{CLUSTER_HOME}/lib";
}
else { # VCS 4.x ..
$sVCSperl = "/opt/VRTSperl/lib/site_perl";
}
$ENV { VCS_LOG_AGENT_NAME } ||= "SAPNW04"; # export Agent name for PreOnline logging..
unshift ( @INC, $sDirName,
"$sVCSagntfwHome/vcs",
"$sVCSagntfwHome/system",
"$sVCSagntfwHome/network",
"$sVCSagntfwHome/compat",
$sVCSperl );
}
#------------
# Be strict..
#------------
use strict 'refs';
use strict 'vars';
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use ag_i18n_inc;
use Sys; # For call to RunCmdArgsAsUser
use Version; # ACC Library version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------------
# Include the required SAPNW04 module..
#--------------------------------------
use SAPNW04;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: monitor.pl,v 1.41 2012/10/19 15:20:06 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#----------------------------------------------------------------------
# If versions are requested, print all of the framework module versions
# to stdout, then exit 0..
#----------------------------------------------------------------------
if ( 1 == Version::CheckForVersionRequest ( $ARGV [0] ) ) {
#------------------------------------------------------------------
# Found the request to display all versions -- did that, now quit..
#------------------------------------------------------------------
exit 0;
}
#-----------------------------------
# Work out entry point information..
#-----------------------------------
my $sResourceName = $ARGV [0];
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = 'SAPNW04' if $sResourceType !~ /\w/;
#---------------------------------------------------------
# Set up the return code here (this gets over written once
# the entry point is called).
#---------------------------------------------------------
my $iAgentReturnCode = 0;
if ( $sEntryPointName eq "monitor" ) {
$iAgentReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEntryPointName eq "clean") {
$iAgentReturnCode = VCSDef_CleanExit::FAILED;
}
elsif ( $sEntryPointName eq "preonline" ) {
my $sResLogLevel = 'INFO'; # Default..
my $iPosn = 3;
#---------------------------------------------------
# Handle missing node name for MANUAL switch-over..
#---------------------------------------------------
if ( $ARGV [2] eq 'MANUAL' ) {
$iPosn = scalar @ARGV if $iPosn > scalar @ARGV;
splice ( @ARGV, $iPosn, 0, 'UNDEF' );
}
#---------------------------------
# Set ResLogLevel, if overridden..
#---------------------------------
if ( $ARGV [-1] =~ /^(TRACE|INFO|WARN|ERROR|CRITICAL)/o ) {
$sResLogLevel = pop @ARGV;
}
#----------------------------------
# Modify @ARGV to have..
# @ARGV..
#----------------------------------
unshift ( @ARGV, $ARGV [1], $sResLogLevel );
}
#------------------------------------
# Setup Category ID for UMI logging..
#------------------------------------
my $iCategoryID = 55009;
my $iCleanReason = undef;
#-----------------------------------------
# Use Script50Agent style attribute list..
#-----------------------------------------
my $iCnt = 0;
my ( $sKey, @lsArgVals, %hsAttribs ) = ();
my @lsAttrs =
qw ( ResLogLevel State IState EnqSrvResName EnvFile InstName
InstType MonitorProgram ProcMon SAPAdmin SAPMonHome
SAPSID SecondLevelMonitor StartProfile );
#------------------------------------------------------------------
# ArgList for type SAPNW04:
# ResLogLevel State IState EnqSrvResName EnvFile InstName InstType
# MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID
# SecondLevelMonitor StartProfile
#------------------------------------------------------------------
my ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..
$argIState, # Dummy attribute for FFDC..
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = ();
if ( $sEntryPointName ne "preonline" ) {
$sResourceName = shift;
$iCleanReason = shift if ( $sEntryPointName eq 'clean' );
if ( $ENV { CLUSTER_HOME } ) { # VCS One/VCS 5.0
#----------------------------------------
# Use Script50Agent style attribute list
# Code specific to VCS 5.0 and VCS One.
#----------------------------------------
#--------------
# Get vectors..
#--------------
do {
push @{ $hsAttribs { $ARGV [$iCnt] } },
@ARGV [ $iCnt + 2 .. $iCnt + 1 + $ARGV [$iCnt + 1] ];
} while ( ( $iCnt += $ARGV [$iCnt + 1] + 2 ) <= $#ARGV );
( $argResLogLevel,
$argState,
$argIState,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = @lsArgVals = map { @$_ } @hsAttribs { @lsAttrs };
}
else {
#----------------------------
# Get values VCS 4.1 style
#----------------------------
(@lsArgVals) = ( $argResLogLevel,
$argState,
$argIState,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) = @ARGV;
}
unshift ( @lsArgVals, $iCleanReason ) if ( $sEntryPointName eq "clean" ); # Insert clean reason..
unshift ( @lsArgVals, $sResourceName ); # Insert resource name..
}
else {
@lsArgVals = @ARGV;
}
unless ( VCSagentFW::SetupEntry ( $sEntryPointName,
$iCategoryID,
\$iCleanReason,
\@lsArgVals ) ) {
#------------------------------------------------------------------
# Some number of the "Standard Agent" arguments failed the
# validation. Note that the validation subroutine has already
# logged the attributes that failed the validation criteria. Exit
# now with the earlier defined value of $iAgentReturnCode.
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-------------------
# Handle preonline..
#-------------------
if ( $sEntryPointName eq "preonline" ) {
&entryPointExit ( SAPNW04::OnlineENQGrp ( @lsArgVals )?0:1 ); # Toggle..
}
#---------------------------------
# Populate FFDC helper variables..
#---------------------------------
$::gsUser = $argSAPAdmin;
$::gsEnvFile = $argEnvFile;
#-------------------------------------
# Send the parameters for validation..
#-------------------------------------
if ( SAPNW04::ArgsValid ( $sEntryPointName,
$argEnqSrvResName,
$argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argSecondLevelMonitor,
$argStartProfile ) ) {
&logTrace ( 20302, "<%s> All arguments validated successfully!",
$sEntryPointName );
}
else {
#---------------------------------------------------------------
# Some number of the arguments failed the validation..
# Exit now with the earlier defined value of iAgentReturnCode..
#---------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-----------------------------------
# Args checked out ok, so continue..
#-----------------------------------
#------------------------------------------
# Declare routines to handle entry points..
#------------------------------------------
my %routines = ( "monitor" => \&MonitorEntryPoint,
"online" => \&OnlineEntryPoint,
"offline" => \&OfflineEntryPoint,
"clean" => \&CleanEntryPoint ,
"open" => \&OpenEntryPoint );
#----------------------------------------------------------
# Depending on our entry point, call the correct function..
#----------------------------------------------------------
if ( $routines{$sEntryPointName} ) {
$iAgentReturnCode = $routines{$sEntryPointName}->();
}
else { # Unknown entry pt..
&logError ( 20303,
"Agent called with unsupported entry point specification of [%s]",
$sEntryPointName );
++$iAgentReturnCode;
}
#------------------------------------------------------------------
# Exit the entry point, using the iAgentReturnCode we have set up..
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
#-------------------------------------------------------------
# End of &main(), IE: no more execution logic; only subroutine
# definitions follow..
#-------------------------------------------------------------
=pod
#-------------------------------------------------------------
Function : int MonitorEntryPoint ( void );
Description : Monitors resource of type SAP
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
#-------------------------------------------------------------
=cut
sub MonitorEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20304, "Subroutine <%s> called", $sMyName );
#-----------------------------------------
# Check if at least the processes are up..
#-----------------------------------------
my $SAP_Status = SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile );
#------------------------
# Discard partial cases..
#------------------------
unless ( ( $argState == 2 && $argIState == 3 ) || # State = ONLINE & IState = waiting to go offline
( $argState == 2 && $argIState == 4 ) || # State = ONLINE & IState = waiting to go offline (propagate)
( $argState == 2 && $argIState == 5 ) ) { # State = ONLINE & IState = waiting to go offline (path)
&logTrace ( 20305,
"<%s> Resource [%s] State [%s] IState [%s].", $sMyName, $sResourceName, $argState, $argIState);
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $SAP_Status ) {
$SAP_Status = VCSDef_MonitorExit::OFFLINE;
}
}
#------------------------------------------------
# Exit if, not online after a superficial check..
#------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $SAP_Status ) {
&logTrace ( 20306,
"<%s> Resource [%s] online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAP_Status );
}
else {
&logTrace ( 20307,
"<%s> Resource [%s] NOT online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAP_Status );
return $SAP_Status;
}
#--------------------------------
# Start monitoring the resource..
#--------------------------------
$SAP_Status = SAPNW04::Monitor ( $argEnvFile,
$argInstName,
$argInstType,
$argMonitorProgram,
$argSAPAdmin,
$argProcMon,
$argSAPMonHome,
$argSAPSID,
$argStartProfile,
$argSecondLevelMonitor );
return $SAP_Status;
}
=pod
#---------------------------------------------------------------
Function : int OnlineEntryPoint ( void );
Description : Attempts to online a resource of type SAP
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OnlineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20308, "Subroutine <%s> called", $sMyName );
my $iReturnCode = SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $iReturnCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
#------------------------
# Start only if offline..
#------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) {
if ( SAPNW04::Start ( $argEnvFile,
$argEnqSrvResName,
$argInstName,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPMonHome,
$argSAPSID,
$argStartProfile,
$argSecondLevelMonitor ) ) {
&logInfo ( 20309, "<%s> Resource [%s] started up successfully.",
$sMyName, $sResourceName );
}
else {
#------------------------------------------------------------------
# Here, the SAPNW04::Start routine informed us that the online
# did not work; however, all we can do is to return zero,
# effectively telling the VCS engine not to wait at all before
# invoking the monitor Entry Point, which is THE mechanism used by
# VCS to determine a resource's state.
#------------------------------------------------------------------
&logError( 20310, "<%s> Failed to online resource", $sMyName );
}
}
elsif ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logError ( 20311, "<%s> Processes for resource instance already up", $sMyName );
}
else { # Unknown..
&logError ( 20312,
"<%s> Attempt to online resource instance in invalid state", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : int OfflineEntryPoint ( void );
Description : Attempts to offline a resource of type SAP
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OfflineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20313, "Subroutine <%s> called", $sMyName );
#----------------------------------------------
# Offline the resource if not offline already..
#----------------------------------------------
if ( VCSDef_MonitorExit::OFFLINE ==
SAPNW04::GetResourceState ( $argInstName,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile ) ) {
&logError ( 20314, "<%s> Processes for resource instance down already.",
$sMyName );
}
elsif ( SAPNW04::Stop ( $argEnvFile,
$argInstName,
$argInstType,
$argProcMon,
$argSAPAdmin,
$argSAPSID,
$argStartProfile ) ) {
&logInfo ( 20315,
"<%s> Shutdown resource [%s] successfully.",
$sMyName, $sResourceName );
}
else {
&logError ( 20316, "<%s> Failed to offline resource", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : bool CleanEntryPoint ( void );
Description : Attempts to clean up a resource of type SAP
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub CleanEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20317, "Subroutine <%s> called", $sMyName );
#-----------------
# Clean resource..
#-----------------
if ( SAPNW04::Kill ( $argInstName,
$argInstType,
$argSAPAdmin,
$argSAPSID,
$argEnvFile,
$argProcMon,
$argStartProfile,
$iCleanReason ) ) {
#--------------
# Kill worked..
#--------------
return VCSDef_CleanExit::PASSED;
}
else {
#--------------
# Kill failed..
#--------------
&logError ( 20318, "<%s> Failed to clean resource", $sMyName );
return VCSDef_CleanExit::FAILED;
}
}
=pod
#---------------------------------------------------------------
Function : bool OpenEntryPoint ( void );
Description : Delete the version file if exists for the SAP resource
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub OpenEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20319, "Subroutine <%s> called", $sMyName );
#-----------------
# Delete the version file.
#-----------------
SAPNW04::DeleteVersionFile ( $argSAPSID,
$argInstName);
return 0;
}
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.pm 0000555 0000000 0000000 00000637324 13320062025 023270 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/SAPNW04.pm,v 1.83 2013/02/20 14:39:22 avaidya Exp $
#
# $Author: avaidya $
# $Date: 2013/02/20 14:39:22 $
# $Revision: 1.83 $
#
# Provides: SAPNW04
# Author: vchappav
# Creation Date: 16 Feb, 2006
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
#------------
# Be strict..
#------------
use strict;
#----------------------
# Declare the package..
#----------------------
package SAPNW04;
my ( $CLUS_HOME, $sPrefix ) = ();
#---------------------
# Setup VCS/VCSOne home..
#---------------------
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCSOne..
$CLUS_HOME = $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone";
}
else { # VCS
$CLUS_HOME = $ENV { VCS_HOME } ||= "/opt/VRTSvcs";
}
( $sPrefix ) = $CLUS_HOME =~ /.*(vcs(|one))$/;
if ( $sPrefix =~ /vcsone/ ) {
$sPrefix = "ha";
}
#-----------------------------------------
# Define module-vendor specific commands..
#-----------------------------------------
my $sCmdHares = "$CLUS_HOME/bin/hares";
my $sCmdHasys = "$CLUS_HOME/bin/hasys";
my $sCmdHagrp = "$CLUS_HOME/bin/hagrp";
my $sCmdHatype = "$CLUS_HOME/bin/hatype";
my $sCmdVcsDecrypt = "$CLUS_HOME/sbin/${sPrefix}decrypt";
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # Support generalized UNIX commands
use Proc; # For calls to the process routines
use Comms; # For calls to socket(3C) routines
use Version; # Version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------
# Include standard PERL modules..
#--------------------------------
use Fcntl;
use Socket;
use POSIX qw ( uname );
use POSIX qw ( strftime );
use File::Path qw ( mkpath );
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: SAPNW04.pm,v 1.83 2013/02/20 14:39:22 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#-----------------
# Define globals..
#-----------------
my ( $iSapStartSrv, $iCCMSX, $iCCMSR, $bSapStart, @liRunningProcs ) = (); # Global..
#-----------------------------
# Define SAPNW04 subroutines..
#-----------------------------
=pod
-------------------------------------------------------------------------
Function : bool ArgsValid ( IN String EntryPointName,
IN String EnqSrvResName,
IN String EnvFile,
IN String InstName,
IN String InstType,
IN String MonitorProgram,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPMonHome,
IN String SAPSID,
IN Integer SecondLevelMonitor,
IN String StartProfile );
Description : Validates the ArgList passed to the entry point.
Parameters :
$sEntryPointName Entry pt name
$localEnqSrvResName Name of the standalone ENQUEUE server VCS resource
$localEnvFile Full path to the environment file for SAP
$localInstName String identifier that uniquely identifies a SAP server instance
$localInstType String identifier that classifies the SAP server instance type
$localMonitorProgram Full path to external monitor program
$localProcMon List of SAP processes to monitor
$localSAPAdmin UNIX user dedicated for this instance of SAP
$localSAPMonHome Directory defining the location of the SAP monitoring utilities
$localSAPSID SAP system name defined during installation
$localSecondLevelMonitor Cycle count to run in-depth monitoring
$localStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ArgsValid {
#----------------------------------------
# Set up local vars from passed in ones..
#----------------------------------------
my ( $sEntryPointName,
$localEnqSrvResName,
$localEnvFile,
$localInstName,
$localInstType,
$localMonitorProgram,
$localProcMon,
$localSAPAdmin,
$localSAPMonHome,
$localSAPSID,
$localSecondLevelMonitor,
$localStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20001, "Subroutine <%s> called with:
EntryPointName [%s]
EnqSrvResName [%s]
EnvFile [%s]
InstName [%s]
InstType [%s]
MonitorProgram [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPMonHome [%s]
SAPSID [%s]
SecondLevelMonitor [%s]
StartProfile [%s]",
$sMyName, $sEntryPointName, $localEnqSrvResName, $localEnvFile,
$localInstName, $localInstType, $localMonitorProgram,
$localProcMon, $localSAPAdmin, $localSAPMonHome, $localSAPSID,
$localSecondLevelMonitor, $localStartProfile );
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my ( @lsMissing, %hsArgList ) = ();
my @lsArgs =
qw ( EntryPointName EnqSrvResName EnvFile InstName InstType
MonitorProgram ProcMon SAPAdmin SAPMonHome SAPSID
SecondLevelMonitor StartProfile );
@hsArgList { @lsArgs } = @_; # Assign..
#----------------------------------------
# Reqd. attributes based on entry point..
#----------------------------------------
my @lsOnlineArgs = qw ( EnvFile InstName InstType ProcMon SAPAdmin SAPSID StartProfile );
my @lsOfflineArgs = qw ( InstName InstType SAPAdmin SAPSID StartProfile );
my @lsMonitorArgs = qw ( InstName InstType ProcMon SAPAdmin SAPSID StartProfile );
my @lsCleanArgs = qw ( InstName InstType SAPAdmin SAPSID StartProfile );
my %hlsNeeded = ( 'online' => \@lsOnlineArgs,
'offline' => \@lsOfflineArgs,
'monitor' => \@lsMonitorArgs,
'clean' => \@lsCleanArgs );
my @lsReqdArgs = @{$hlsNeeded { $sEntryPointName }};
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20002,
"<%s> The following mandatory fields were not set [%s]. Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = 0; # Failure..
}
#-----------------------------
# Remove SLM file, if exists..
#-----------------------------
VCSagentFW::RunSecondLevelMonitor ( 1 ) if ( $sEntryPointName ne 'monitor' );
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------------------
# Individual validation starts..
#-------------------------------
#--------------------------------------------------
# StartProfile must terminate in a valid hostname..
#--------------------------------------------------
( my $sHost = $localStartProfile ) =~ s#.*/.*?_[^_]+_##;
if ( $sEntryPointName eq 'online' ) {
if ( ! inet_aton ( $sHost ) ) {
&logError ( 20003,
"<%s> StartProfile [%s] not terminated with valid hostname [%s]",
$sMyName, $localStartProfile, $sHost );
$iReturnCode = 0; # Failure..
}
}
#-----------------------------------
# InstName. Last two chars 00 - 99..
#-----------------------------------
unless ( $localInstName =~ /(\d{2})$/o ) { # && $1 <= 99 )
&logError ( 20004,
"<%s> Last two characters of InstName [%s] not between 00-99",
$sMyName, $localInstName );
$iReturnCode = 0; # Failure..
}
#---------------------------
# Check if SAPAdmin exists..
#---------------------------
if ( $sEntryPointName =~ /^(online|offline|monitor)$/o ) {
if ( ! defined getpwnam $localSAPAdmin ) {
&logError ( 20005,
"<%s> SAPAdmin [%s] not a valid UNIX login",
$sMyName, $localSAPAdmin );
$iReturnCode = 0; # Failure..
}
}
#-----------------------------------------
# SAPSID.. must be three characters long..
#-----------------------------------------
if ( $localSAPSID !~ /^\S{3}$/o ) {
&logError ( 20006,
"<%s> SAPSID [%s] has to be exactly 3 non-white characters long",
$sMyName, $localSAPSID );
$iReturnCode = 0; # Failure..
}
if ( $localSAPSID !~ /^[a-z]/io ) {
&logError ( 20007,
"<%s> SAPSID [%s] has to begin with an alphabet",
$sMyName, $localSAPSID );
$iReturnCode = 0; # Failure..
}
#------------------
# Valid InstTypes..
#------------------
my @lsIntTypes = qw ( central dialog enqueue aenqueue jenqueue enqrep aenqrep jenqrep );
unless ( grep { /^$localInstType$/io } @lsIntTypes ) {
&logError ( 20008,
"<%s> InstType [%s] invalid. Has to be one of [%s]",
$sMyName, $localInstType, join ( ' ', @lsIntTypes ) );
$iReturnCode = 0; # Failure..
}
if ( $sEntryPointName =~ /^(online|monitor)$/o ) {
#---------------------------------------------
# Validate ProcMon after removing duplicates..
#--------------------------------------------
my $rslocalProcMon = \$_[6]; # Get reference to what's passed in..
my %hsProcMon = map { $_ => 1 } $localProcMon =~ /([^\s]+)/g;
my @lsProcMon = keys %hsProcMon;
my ( @lsBadProcs, %hsAllowed ) = ();
if ( $localInstType =~ /^(dialog|central)$/io ) {
if ( ! grep { /^(dw|jc)$/o } @lsProcMon ) { # Must have..
&logError ( 20009, "<%s> Incorrect value for ProcMon [%s].
Has to include at least one of [dw jc] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
if ( $localInstType =~ /^central$/io ) {
%hsAllowed = map { $_ => 1 } qw ( dw ms co se jc ig gwrd icman ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20010, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^dialog$/io ) {
%hsAllowed = map { $_ => 1 } qw ( dw se jc ig gwrd icman ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20011, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
}
elsif ( $localInstType =~ /^(|a|j)enqueue$/io ) {
if ( ! grep { /^en$/o } @lsProcMon ) {
&logError ( 20012, "<%s> Incorrect value for ProcMon [%s].
Has to include at least [en] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( co en ms se ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20013, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
elsif ( $localInstType =~ /^(|a|j)enqrep$/io ) {
if ( ! grep { /^e(|n)r$/o } @lsProcMon ) {
&logError ( 20014, "<%s> Incorrect value for ProcMon [%s].
Has to include at least [er enr] for InstType [%s]",
$sMyName, $localProcMon, $localInstType );
$iReturnCode = 0; # Failure..
}
%hsAllowed = map { $_ => 1 } qw ( er enr ); # Restricted set..
if ( @lsBadProcs = grep { ! $hsAllowed { $_ } } @lsProcMon ) {
&logError ( 20015, "<%s> Incorrect value(s) [%s] in ProcMon found.
Must be one of [%s] for InstType [%s]", $sMyName,
join ( ' ', @lsBadProcs ), join ( ' ', keys %hsAllowed ),
$localInstType );
$iReturnCode = 0; # Failure..
}
}
#--------------------
# Re-create procmon..
#--------------------
$$rslocalProcMon = join ( ' ', @lsProcMon );
}
#--------------
# Online only..
#--------------
if ( $sEntryPointName eq 'online' ) {
#----------------------------------
# Check if EnqSrvResName is valid..
#----------------------------------
if ( $localEnqSrvResName =~ m/\S+/ && $localInstType =~ /^(|a|j)enqrep$/io &&
! SAPNW04::ChkResName ( $localEnqSrvResName,
$localSAPSID,
$localInstType ) ) {
&logError ( 20016,
"<%s> EnqSrvResName [%s] invalid resource of Type [SAPNW04]",
$sMyName, $localEnqSrvResName );
$iReturnCode = 0; # Failure..
}
#-----------------------
# EnvFile has to exist..
#-----------------------
if ( ! -e $localEnvFile ) {
&logError ( 20017,
"<%s> EnvFile [%s] does not exist", $sMyName, $localEnvFile );
$iReturnCode = 0; # Failure..
}
#----------------------------
# StartProfile has to exist..
#----------------------------
if ( ! -r $localStartProfile ) {
&logError ( 20018,
"<%s> StartProfile [%s] does not exist",
$sMyName, $localStartProfile );
$iReturnCode = 0; # Failure..
}
#-------------------
# Validate SAPHome..
#-------------------
if ( $localSecondLevelMonitor > 0 ) {
if ( ! ( $localSAPMonHome =~ /\S+/ ) ||
! ( -d $localSAPMonHome ) ) {
&logError ( 20019,
"<%s> SAPMonHome [%s] not a valid directory",
$sMyName, $localSAPMonHome );
$iReturnCode = 0; # Failure..
}
}
#--------------------------------------
# MonitorProgram has to be executable..
#--------------------------------------
if ( $localMonitorProgram =~ /(\S+)/ && # Defined..
! -x $1 ) { # And not executable..
&logError ( 20020,
"<%s> MonitorProgram [%s] not executable", $sMyName, $1 );
$iReturnCode = 0; # Failure..
}
}
$iReturnCode ||
&logWarn ( 20021,
"<%s> Some of the attributes could not be validated. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode ;
}
=pod
-------------------------------------------------------------------------
Function : bool Start ( IN String EnvFile,
IN String EnqSrvResName,
IN String InstName,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer SecondLevelMonitor );
Description : Start logic needed for online entry pt
Parameters :
$sEnvFile Full path to the environment file for SAP
$sEnqSrvResName Name of the standalone ENQUEUE server VCS resource
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Start {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sEnqSrvResName,
$sInstName,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20022, "Subroutine <%s> called with:
EnvFile [%s]
EnqSrvResName [%s]
InstName [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
SecondLevelMonitor [%s]",
$sMyName,
$sEnvFile, $sEnqSrvResName, $sInstName, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPMonHome, $sSAPSID, $sStartProfile,
$iSecondLevelMonitor );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $iTillWhen, $iTimeout, $sKillFile, $sCollLockFile,
$sSendLockFile, @lsFiles, @liPids ) = ();
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Starting up [$sResourceName]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20023,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20024,
"<%s> Could not log successfully", $sMyName );
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logTrace ( 20025,
"<%s> Confirmed no persistent processes exist before startup",
$sMyName );
}
else {
&logError ( 20026,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
return 0; # Failure..
}
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iTimeout = $iTillWhen - time;
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#----------------------
# Clean IPC resources..
#----------------------
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logTrace ( 20027,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
$iReturnCode = 0; # Failure..
&logError ( 20028,
"<%s> Failed to execute cleanipc. Returning with [%s]",
$sMyName, $iReturnCode );
}
}
else {
&logTrace ( 20029,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20030,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20031,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20032,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20033, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------------------------
# Attempt to start SAP OS collector..
#------------------------------------
my $sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/saposcol";
my $sCmdArgs = "";
my ( $iExitCode, @lsCmdOut ) = ();
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/hostctrl/exe/saposcol";
if ( ! -e $sCmd ) {
&logTrace ( 20034,
"<%s> SAP OS Collector binary [%s] does not exist",
$sMyName, $sCmd );
}
}
#-----------------------
# Execute if validated..
#-----------------------
if ( !-x $sCmd ) {
&logTrace ( 20035,
"<%s> SAP OS Collector binary [%s] is not executable",
$sMyName, $sCmd );
}
else {
$iTimeout = $iTillWhen - time; # Get time bearings..
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20036,
"<%s> Started SAP OS Collector [%s] successfully with exit code [%s]",
$sMyName, $sCmd, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20037,
"<%s> Cmd [%s] timed out in [%s] sec", $sMyName, $sCmd, $iTimeout );
return 0; # Failure. Get out..
}
elsif ( 255 == $iExitCode ) { # Up already..
&logTrace ( 20038,
"<%s> SAP OS Collector [%s] already up", $sMyName, $sCmd );
}
else { # Error..
&logError ( 20039,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
}
#---------------------------------------------
# Attempt to start SAP services for SAPNW04s..
#---------------------------------------------
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapstartsrv";
$sCmdArgs = "pf=$sStartProfile -D -u $sSAPAdmin";
( $iExitCode, @lsCmdOut ) = (); # Reset..
#-----------------------
# Execute if validated..
#-----------------------
if ( ! -e $sCmd ) {
&logTrace ( 20040,
"<%s> SAP services binary [%s] does not exist",
$sMyName, $sCmd );
}
elsif ( !-x $sCmd ) {
&logTrace ( 20041,
"<%s> SAP services binary [%s] is not executable",
$sMyName, $sCmd );
}
else {
$iTimeout = $iTillWhen - time; # Get time bearings..
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20042,
"<%s> Started SAP services [%s] successfully with exit code [%s]",
$sMyName, $sCmd, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20043,
"<%s> Cmd [%s] timed out in [%s] sec", $sMyName, $sCmd, $iTimeout );
return 0; # Failure. Get out..
}
else { # Error..
&logError ( 20044,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
}
#-------------------------
# Start the SAP instance..
#-------------------------
my %hsExitCode = ( 0 => 'Success',
1 => 'OS configuration error',
2 => 'Called with wrong Parameters',
3 => 'User not authorized to execute script',
4 => 'Environment not set',
5 => 'Database startup failed',
6 => 'Database on remote DB-Server not running',
7 => 'Startup of Instance failed',
8 => 'Start profile not found',
9 => 'User not authorized to start database' );
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
my $iSleepTime = 10; # Secs..
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ?">>& $sLogFile":
"1>> $sLogFile 2>&1";
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapstart";
$sCmdArgs = "pf=$sStartProfile $sRdStr";
( $iExitCode, @lsCmdOut ) = (); # Reset..
#-----------------------
# Execute if validated..
#-----------------------
if ( ! -e $sCmd ) {
&logError ( 20045,
"<%s> SAP start command [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( !-x $sCmd ) {
&logError ( 20046,
"<%s> SAP start command [%s] is not executable",
$sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20047,
"<%s> In-sufficient time [%s] to execute Cmd [%s] with Args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = 0; # Failure..
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20048,
"<%s> Started SAP instance [%s] successfully with exit code [%s]",
$sMyName, $sInstName, $iExitCode );
%hsExitCode = (); # Free..
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
&logTrace ( 20049,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout );
#------------------
# Check on status..
#------------------
if ( VCSDef_MonitorExit::ONLINE ==
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids, # Online after..
1 ) && ( # Running FFLM..
$iSecondLevelMonitor ? # If enabled..
VCSDef_MonitorExit::ONLINE == # Online after..
SAPNW04::SecondLevelMonitor ( $sEnvFile, # Running SLM..
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ):1 ) ) {
&logInfo ( 20050,
"<%s> Confirmed start-up of SAP Instance with PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
$iReturnCode = 1; # Success..
last; # Get out..
}
else {
&logTrace ( 20051,
"<%s> Could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
sleep $iSleepTime; # Sec..
}
}
}
elsif ( ! defined $iExitCode ) { # Time-out..
&logError ( 20052,
"<%s> Cmd [%s] with Args [%s] timed out in [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
$iReturnCode = 0; # Failure..
}
else { # Error..
$hsExitCode { $iExitCode } ||= 'undef'; # Prevent undefs..
&logError ( 20053,
"<%s> Cmd [%s] failed with exit code [%s]:[%s]. Cmd output [%s]",
$sMyName, $sCmd, $iExitCode, $hsExitCode { $iExitCode },
join ( chr 012, @lsCmdOut ) );
$iReturnCode = 0; # Failure..
}
%hsExitCode = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Stop ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : Stop logic needed for offline entry pt
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Stop {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20054, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName, $sEnvFile, $sInstName, $sInstType, $sProcMon,
$sSAPAdmin, $sSAPSID, $sStartProfile );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my ( $iSleepTime, $iTillWhen, $iTimeout, $sKillFile,
$sCollLockFile, $sSendLockFile, @lsFiles, @liPids ) = ();
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iSleepTime = 10; # Secs..
@liPids = $bSapStart ? shift @liRunningProcs : @liRunningProcs; # Global..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
#-----------------------------------------------
# Attempt to request sapstart to stop instance..
#-----------------------------------------------
if ( scalar @liPids ) {
&logInfo ( 20055, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 20 ) {
#-----------------------
# Wait before retrying..
#-----------------------
sleep $iSleepTime; # Secs..
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids,
0 );
#------------------------------
# Check for pending processes..
#------------------------------
if ( scalar @liPids ) {
#-----------------------------------------------
# Check if the last process is not sapstartsrv..
#-----------------------------------------------
if ( 1 == scalar @liPids && # Last remaining..
defined $iSapStartSrv && #
$iSapStartSrv == $liPids [0] ) {
last;
}
&logTrace ( 20056,
"<%s> Could not confirm shutdown. Retrying in [%s] sec.
Delaying kill with [%s] sec in hand",
$sMyName, $iSleepTime, $iTimeout );
}
else {
&logInfo ( 20057,
"<%s> Confirmed shutdown of SAP Instance [%s]",
$sMyName, $sInstName );
last; # Get out..
}
}
}
else {
&logWarn ( 20058,
"<%s> Failed to send SIGINT to PID [%s]",
$sMyName, join ( ' ', @liPids ) );
}
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logTrace ( 20059,
"<%s> Confirmed no persistent processes exist after shutdown",
$sMyName );
}
else {
&logError ( 20060,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
return 0; # Failure..
}
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20061,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20062,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20063,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20064, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#----------------------
# Clean IPC resources..
#----------------------
$iTimeout = $iTillWhen - ( time + 5 ); # Get bearings..
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logTrace ( 20065,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
$iReturnCode = 0; # Failure..
&logError ( 20066,
"<%s> Failed to execute cleanipc. Returning with [%s]",
$sMyName, $iReturnCode );
}
}
else {
&logTrace ( 20067,
"<%s> Skipping cleanipc for InstType [%s].
Possibility of destroying active lock table", $sMyName, $sInstType );
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my $sMessage = "Shutdown completed [$sResourceName]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20068,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20069,
"<%s> Could not log successfully", $sMyName );
}
SAPNW04::DeletePidFile ( $sResourceName );
SAPNW04::DeleteVersionFile ( $sSAPSID,$sInstName);
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Kill ( IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String SAPSID,
IN String EnvFile,
IN String ProcMon,
IN String StartProfile
IN Integer CleanCode );
Description : Forces shutdown of resource needed for clean entry point
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sEnvFile Full path to the environment file for SAP
$sProcMon List of SAP processes to monitor
$sStartProfile Specifies the full path to the start-profile for this instance
$iCleanCode Why clean was called
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Kill {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sEnvFile,
$sProcMon,
$sStartProfile,
$iCleanCode ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
#-----------------------------
# Figure out why were called..
#-----------------------------
my ( $sCleanReason, %hsCleanReasons ) = ();
my @lsCleanStrings = qw ( Offline_timed_out Offline_was_ineffective
Online_timed_out Online_was_ineffective
Found_offline_unexpectedly Monitor_timed_out );
@hsCleanReasons { 0 .. $#lsCleanStrings } = @lsCleanStrings; # Populate..
( $sCleanReason = $hsCleanReasons { $iCleanCode } || # Reason..
$iCleanCode ) =~ s/_/ /g;
&logTrace ( 20070, "Subroutine <%s> called with:
InstName [%s]
InstType [%s]
SAPAdmin [%s]
SAPSID [%s]
EnvFile [%s]
ProcMon [%s]
StartProfile [%s]
Clean reason [%s]",
$sMyName, $sInstName, $sInstType, $sSAPAdmin, $sSAPSID,
$sEnvFile, $sProcMon, $sStartProfile, $sCleanReason );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my $iSleepTime = 10; # Secs..
my ( $iTillWhen, $iTimeout, $sKillFile, $iSapStartPid,
$sCollLockFile, $sSendLockFile, $sMessage, @lsFiles, @liPids ) = ();
unless ( $hsCleanReasons { $iCleanCode } eq 'Offline_timed_out' ||
$hsCleanReasons { $iCleanCode } eq 'Offline_was_ineffective' ) {
&logInfo ( 20071,
"<%s> Attempting to shutdown SAP Instance [%s] normally",
$sMyName, $sInstName );
#---------------
# Get SAP PIDs..
#---------------
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liPids,
0 ); # Regular..
@liPids = $bSapStart ? shift @liRunningProcs : @liRunningProcs; # Global..
if( $bSapStart && defined $iCCMSX ) {
push ( @liPids, $iCCMSX );
}
if( $bSapStart && defined $iCCMSR ) {
push ( @liPids, $iCCMSR );
}
if ( scalar @liPids ) {
&logInfo ( 20072, "<%s> Sending SIGINT to PIDs [%s]",
$sMyName, join ( ' ', @liPids ) );
#-----------------------------------------
# Give SAP chance to shutdown gracefully..
#-----------------------------------------
if ( kill ( 2, @liPids ) == scalar @liPids ) {
&logInfo ( 20073,
"<%s> Sucessfully sent SIGINT to PIDs [%s]. Waiting for [%s] sec",
$sMyName, join ( ' ', @liPids ), $iSleepTime );
sleep $iSleepTime; # Sleep..
}
else {
&logError ( 20074,
"<%s> Failed to give SIGINT to PIDs [%s]. Proceeding with SIGKILL",
$sMyName, join ( ' ', @liPids ) );
}
}
else {
&logError ( 20075,
"<%s> Proceeding with SIGKILL for SAP Instance [%s]",
$sMyName, $sInstName );
}
}
#----------------------------
# Remove existing processes..
#----------------------------
if ( SAPNW04::KillSAPProcs ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) ) {
&logInfo ( 20076,
"<%s> Confirmed no processes exist for SAP instance [%s]",
$sMyName, $sInstName );
}
else {
&logError ( 20077,
"<%s> Persistent processes exist for SAP instance [%s]",
$sMyName, $sInstName );
}
#-----------------------------------
# Check if it's safe to clean IPCs..
#-----------------------------------
if ( $sInstType =~ /^(central|dialog|enqrep|aenqrep|jenqrep)$/io ) {
#--------------------
# Get time bearings..
#--------------------
$iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
$iTimeout = $iTillWhen - time;
#----------------------
# Clean IPC resources..
#----------------------
if ( SAPNW04::CleanIPC ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) ) {
&logInfo ( 20078,
"<%s> Executed cleanipc successfully", $sMyName );
}
else {
&logError ( 20079, "<%s> Failed to execute cleanipc.", $sMyName );
$iReturnCode = 0;
}
}
else {
&logTrace ( 20080,
"<%s> Skipping cleanipc for InstType [%s].", $sMyName, $sInstType );
}
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20081,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#-----------------------------
# Remove collector lock file..
#-----------------------------
$sCollLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgcpid";
if ( -e $sCollLockFile ) {
&logTrace ( 20082,
"<%s> Located file [%s] for removal", $sMyName, $sCollLockFile );
push ( @lsFiles, $sCollLockFile );
}
#--------------------------
# Remove sender lock file..
#--------------------------
$sSendLockFile = "/usr/sap/$sSAPSID/$sInstName/data/rslgspid";
if ( -e $sSendLockFile ) {
&logTrace ( 20083,
"<%s> Located file [%s] for removal", $sMyName, $sSendLockFile );
push ( @lsFiles, $sSendLockFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles &&
! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20084, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
}
#-------------------
# Initiate SAP log..
#-------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
$sMessage = "Clean called for [$sResourceName] [$sCleanReason]";
if ( SAPNW04::UpdateSAPLog ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessage ) ) {
&logTrace ( 20085,
"<%s> Updated log successfully", $sMyName );
}
else {
&logError ( 20086,
"<%s> Could not log successfully", $sMyName );
}
SAPNW04::DeletePidFile ( $sResourceName );
SAPNW04::DeleteVersionFile ( $sSAPSID,$sInstName);
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetResourceState ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : First level monitor to determine state of resource.
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetResourceState {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20087, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID, $sStartProfile, );
my ( $sHost, @liDummyPids ) = ();
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##;
my $iReturnCode = SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
1 ); # Be fast..
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logTrace ( 20088,
"<%s> Found all required processes", $sMyName );
}
else {
&logTrace ( 20089,
"<%s> Did not find all required processes, returning [%s]",
$sMyName, $iReturnCode );
}
&logTrace ( 20090, "<%s> Returning [%s]", $sMyName, $iReturnCode );
return ( $iReturnCode );
}
=pod
-------------------------------------------------------------------------
Function : int GetProcState ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile,
OUT ListReference OnlinePids,
IN Boolean UseFFLM );
Description : Performs the actual first level monitoring
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$rliOnlinePids PIDs of relevant running processes
$bUseFFLM Flag to indicate if fast FLM is to be attempted
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 PARTIAL VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub GetProcState {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$rliOnlinePids,
$bUseFFLM ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20091, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]
rliOnlinePids [%s]
UseFFLM [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID,
$sStartProfile, $rliOnlinePids, $bUseFFLM );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-------------------------
# Define local variables..
#-------------------------
my ( $iUseRFLM, $iFound, $iPid, $iParent, $iJcFlag,
$iProcessCount, $iPosn, $iSleepTime, $iDwMaster,
$iSapstartPid, $bAddIn, $sKey, $sTemp, $sPidFile,
$sProc, $sOSVer, $sInstProfile, $sLang,
$sEntryPointName, $sSwitch, $rhlProc, @lsProcMon, @lsValues,
@lsUpdates, @hProcListHash, %hiDwPids, %hiProcPids,
%hsProcMonDetails, %hsProcMonCopy ) = ();
my $iUid = getpwnam $sSAPAdmin; # Should not fail..
#---------------------------------------------
# Derive instance profile from start profile..
#---------------------------------------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
my @lsOthers = ( "/usr/sap/$sSAPSID/$sInstName/igs",
"pf=.*$sSAPSID.*$sInstName.*", "${sSAPSID}_${sInstName}",
'sapstartsrv\s+' . "pf=.*$sSAPSID.*$sInstName.*");
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------------
# Check if we are ADD-IN..
#-------------------------
++ $bAddIn if ( 2 == grep { /^(jc|dw)$/o } $sProcMon =~ /([^\s]+)/g );
#-----------------------------------------------
# Insert sapstart, unless its a recursive call..
#-----------------------------------------------
if ( $sProcMon eq 'jlaunch' ) {
$sProc = $sProcMon;
}
elsif ( $sProcMon eq 'JC' ) {
$sProc = 'jc dw'; # ADD-IN for recursive call..
}
else {
$sProc = "sapstart $sProcMon";
}
@$rliOnlinePids = (); # Truncate..
#-------------------------------------
# Get details for each procmon value..
#-------------------------------------
if ( SAPNW04::GetProcMonDetails ( $sInstName,
$sSAPSID,
$sProc,
$sStartProfile,
\%hsProcMonDetails ) ) {
delete $hsProcMonDetails { dw } if $sProcMon eq 'JC'; # Remove dw in recursive..
$iUseRFLM = scalar keys %hsProcMonDetails; # Set to entire count..
%hsProcMonCopy = %hsProcMonDetails; # Backup..
#---------------------------------
# Check if we attempt to be fast..
#---------------------------------
if ( $sEntryPointName ne 'offline' && $bUseFFLM ) { # FFLM..
$iUseRFLM = 0; # Hopefully skip..
foreach $sKey ( sort keys %hsProcMonCopy ) { # Use copy..
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
$sTemp .= "\nSAP process [$sKey]\n"; # Display string..
while ( ( $sPidFile, $sProc ) =
splice ( @lsValues, 0, 2 ) ) {
#---------------
# Run fast FLM..
#---------------
$iFound = SAPNW04::FFLMStatus ( $sPidFile,
$sProc,
$iUid,
\$iPid );
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
$sTemp .= "PID File [$sPidFile]\n";
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FFLM Status [$iFound]\n\n";
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates;
#---------------------
# Handle exit status..
#---------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
if ( $sKey eq 'sapstart' ) {
$iSapstartPid = $iPid; # Store..
unshift ( @$rliOnlinePids, $iPid ); # Insert at the front..
}
else {
if ( $sKey eq 'dw' ) {
$iDwMaster = $iPid; # Store master..
&logTrace ( 20092,
"<%s> Found master dw process PID [%s] based on PID file",
$sMyName, $iDwMaster );
}
elsif ( $sKey eq 'jc' ) {
++ $iJcFlag; # Set flag..
}
push ( @$rliOnlinePids, $iPid ); # Insert at the end..
}
}
else {
++ $iUseRFLM; # Mark it for RFLM..
}
}
&logTrace ( 20093,
"<%s> SapInst [%s] ProcMon details ---%s\n\n",
$sMyName, $sInstName, $sTemp );
( $sTemp, $sPidFile, $sProc ) = (); # Release memory..
}
else { # Use regular FLM..
#-----------------------------------------
# Mark status of each service as offline..
#-----------------------------------------
$iFound = VCSDef_MonitorExit::OFFLINE; # Set to offline..
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
while ( scalar @lsValues ) {
push ( @lsUpdates, splice ( @lsValues, 0, 2 ), $iFound );
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates; # Update..
}
}
}
else {
&logError ( 20094,
"<%s> Failed to get details with ProcMon [%s]",
$sMyName, $sProcMon );
return VCSDef_MonitorExit::UNKNOWN;
}
#-----------------------
# Regular slow :-( FLM..
#-----------------------
if ( $iUseRFLM ) {
&logTrace ( 20095,
"<%s> Running regular first level monitor on [%s] processes",
$sMyName, $iUseRFLM );
#----------------------------------
# Set LANG for better performance..
#----------------------------------
$sLang = $ENV { LANG }; # Backup..
$ENV { LANG } = 'C'; # Now set..
#-----------------------------------
# Call processes and store in hash..
#-----------------------------------
$iProcessCount = Proc::GetLongProcessListHash ( \@hProcListHash );
#----------
# Restore..
#----------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG }; # Restore..
#----------------------
# Check if we got any..
#----------------------
if ( $iProcessCount ) {
&logTrace ( 20096,
"<%s> Got [%s] processes from proc table for filtering",
$sMyName, $iProcessCount );
}
else {
&logError ( 20097,
"<%s> Call to get process list did not return any processes",
$sMyName );
return VCSDef_MonitorExit::OFFLINE; # Offline..
}
#-------------------
# Solaris 10 zones..
#-------------------
$iParent = 1; # Set to init..
$sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '';
#-----------------------
# Search for processes..
#-----------------------
foreach $rhlProc ( @hProcListHash ) {
#--------------------------------------------------------------
# Each $rhlProc is a ref. to a hash with the following keys..
# "UID" =>
# "PID" =>
# "PPID" =>
# "COMMAND" =>
#--------------------------------------------------------------
&logTrace ( 20098, "<%s> Searching PID [%s] CMD [%s]",
$sMyName, $$rhlProc { PID }, $$rhlProc { COMMAND } );
next unless defined $$rhlProc { UID }; # Bug in Proc::GetLongProcessListHash..
$iPid = $$rhlProc { PID }; # Assign..
#--------------------------------
# Handle Solaris 10 local zones..
#--------------------------------
if ( $sOSVer eq '5.10' && # Solaris 10..
$$rhlProc { COMMAND } =~ m@/sbin/init$@ && # With init..
! kill ( 0, 1 ) ) { # In a non-global zone..
$iParent = $$rhlProc { PPID }; # Get actual PID..
}
#-----------------------------------------------
# Look for processes that were offline in FFLM..
#-----------------------------------------------
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
#--------------------------------------------------
# Should have details per three elements of array..
#
#--------------------------------------------------
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#--------------------------------------
# Verify if process is really offline..
#--------------------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iFound ) { # Earlier marked offline..
if ( $$rhlProc { UID } == $iUid && # Owned by SAPAdmin..
$$rhlProc { COMMAND } =~ /\b$sProc\b/ ) { # Was now found..
#-----------------------
# Handle dw separately..
#-----------------------
$iFound = VCSDef_MonitorExit::ONLINE unless $sKey eq 'dw';
&logTrace ( 20099,
"<%s> Found PID [%s] PPID [%s] CMD [%s] with filter [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND }, $sProc );
#-----------------------
# Handle special cases..
#-----------------------
$sSwitch = $sKey =~ /^(jc|jlaunch|dw|sapstart)$/o ? $sKey:
'default';
if("sapstart" eq $sSwitch) {
$iPosn = 0;
$iSapstartPid = $iPid; # Store..
}
elsif("jc" eq $sSwitch) {
$iPosn = 1;
++ $iJcFlag; # Set flag..
}
elsif("jlaunch" eq $sSwitch) {
$iPosn = 2;
}
elsif("dw" eq $sSwitch) {
$iPosn = 3;
$hiDwPids { $iPid } = $$rhlProc { PPID }; # Store..
}
else{
$iPosn = scalar @$rliOnlinePids;
}
#--------------------------------
# Insert into appropriate place..
#--------------------------------
$iPosn = scalar @$rliOnlinePids if $iPosn > scalar @$rliOnlinePids;
splice ( @$rliOnlinePids, $iPosn, 0, $iPid ); # Insert..
$hiProcPids { $sKey } = $iPid; # Store PID..
&logTrace ( 20100,
"<%s> Stored PID [%s] for proc [%s] at index [%s]",
$sMyName, $iPid, $sKey, $iPosn );
}
}
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
}
@{ $hsProcMonCopy { $sKey } } = @lsUpdates; # Update..
}
#---------------------------------
# Handle other related processes..
#---------------------------------
if ( ( ! grep { /^$iPid$/ } @$rliOnlinePids ) && # Not caught earlier..
$$rhlProc { UID } == $iUid && # Owned by SAPAdmin..
$sProcMon !~ /^(JC|jlaunch)$/o && # Not in recursive call..
map { $$rhlProc { COMMAND } =~ /$_/ } @lsOthers ) { # Was now found..
push ( @$rliOnlinePids, $iPid ); # Store..
#-----------------------------------------
# Populate dwindling sapstartsrv process..
#-----------------------------------------
if ( $$rhlProc { COMMAND } =~ /sapstartsrv/o ) {
$iSapStartSrv = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cm\.sap/o ) { # Note down sapccm4x process
$iCCMSX = $iPid; # Populate global..
}
elsif ( $$rhlProc { COMMAND } =~ /cs\.sap/o ) { # Note down sapccmsr process
$iCCMSR = $iPid; # Populate global..
}
&logTrace ( 20101,
"<%s> Matched process PID [%s] PPID [%s] CMD [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
}
}
}
#------------------------------------
# Set final status for each process..
#------------------------------------
my ( $i, $bSapstartFlag, $iOnline, $iOffline, @liDummyPids ) = ();
my @liDwPids = keys %hiDwPids;
$sTemp = ''; # Ensure..
foreach $sKey ( sort keys %hsProcMonCopy ) {
@lsValues = @{ $hsProcMonCopy { $sKey } }; # Get values..
$sTemp .= "\nProcess [$sKey]\n";
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#----------------------
# Set status for 'dw'..
#----------------------
if ( $sKey eq 'dw' && scalar @liDwPids ) {
#----------------------------
# Check if we the master dw..
#----------------------------
if ( $iSapstartPid && # Sapstart exists..
( ( $iDwMaster ) = # Get the master dw..
grep { # By finding..
$iSapstartPid == $hiDwPids { $_ } # sapstart as its parent..
} @liDwPids ) ) { # From all dw processes..
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logTrace ( 20102,
"<%s> Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $iSapstartPid );
}
elsif ( ( ( $iDwMaster ) = # A dw process..
grep { # Found..
$iParent == $hiDwPids { $_ } &&# With init as parent..
++ $i # Mark it..
} @liDwPids ) && 1 == $i ) { # If only one such exists..
$hiProcPids { $sKey } = $iDwMaster; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # And mark online..
&logWarn ( 20103,
"<%s> Missing sapstart process.
Found master dw process PID [%s] PPID [%s]",
$sMyName, $iDwMaster, $hiDwPids { $iDwMaster } );
}
else { # Error..
&logTrace ( 20104,
"<%s> Missing dw master. Marking status as offline", $sMyName );
$iFound = VCSDef_MonitorExit::OFFLINE; # Ensure its offline..
#------------------------
# Delete PID, if stored..
#------------------------
if ( defined $hiProcPids { $sKey } ) {
delete $hiProcPids { $sKey };
}
}
}
#--------------------------
# Mark status of sapstart..
#--------------------------
if ( $sKey eq 'sapstart' &&
$iSapstartPid ) {
++ $bSapstartFlag; # Mark it found..
++ $bSapStart; # Mark global..
}
#--------------------------------
# If we are ADD-IN, validate jc..
#--------------------------------
if ( $sKey eq 'jc' && # Looking for jc..
$sEntryPointName eq 'monitor' && # in monitor..
$bAddIn && # dw and jc declared..
$iDwMaster ) { # dw master exists..
if ( ! $iJcFlag ) { # jc missing..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
$iSleepTime = SAPNW04::GetEngineTimeout ( 0 ) / 10;
&logWarn ( 20105,
"<%s> Missing process [%s], though 'dw' master [%s] exists.
Retrying in [%s] sec", $sMyName, $sKey, $iDwMaster, $iSleepTime );
sleep $iSleepTime; # Take a break..
#---------------------------
# Call ourselves with 'JC'..
#---------------------------
$iFound = SAPNW04::GetProcState ( $sInstName,
'JC', # In CAPS..
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
0 ); # Regular FLM..
#--------------------------------------------------------------------
# If we returned online, we know we found jc and at least one jaunch.
# PID of jc now is in first position..
#--------------------------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
&logTrace ( 20106,
"<%s> Found jc process with PID [%s] after recursive call",
$sMyName, $liDummyPids [0] );
$hiProcPids { $sKey } = shift @liDummyPids; # Store..
++ $iJcFlag; # Set flag..
#-----------------
# Update jlaunch..
#-----------------
$hiProcPids { jlaunch } = shift @liDummyPids; # Store..
${ $hsProcMonCopy { jlaunch } } [-1] = $iFound; # Mark online..
}
else {
&logError ( 20107, "<%s> Missing jc after recursive call", $sMyName );
}
}
}
#--------------------------------------------------
# Check if 'jlaunch' is missing and 'jc' is alive..
#--------------------------------------------------
if ( $sEntryPointName eq 'monitor' && # In monitor..
$sKey eq 'jlaunch' && # Jaunch,
$iJcFlag && # when jc, alive..
VCSDef_MonitorExit::OFFLINE == $iFound ) { # is not..
#-----------------------------------
# Calculate sleep time dynamically..
#-----------------------------------
$iSleepTime = SAPNW04::GetEngineTimeout ( 0 ) / 10;
&logWarn ( 20108,
"<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec",
$sMyName, $sKey, $iSleepTime );
sleep $iSleepTime; # Take a break..
#--------------------------------------
# Call ourselves again with 'jlaunch'..
#--------------------------------------
$iFound = SAPNW04::GetProcState ( $sInstName,
'jlaunch',
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liDummyPids,
0 ); # Regular FLM..
#--------
# Store..
#--------
if ( scalar @liDummyPids ) {
push ( @$rliOnlinePids, @liDummyPids );
$hiProcPids { $sKey } = $liDummyPids [0];
&logTrace ( 20109,
"<%s> Found jlaunch process with PID [%s] after another attempt",
$sMyName, $liDummyPids [0] );
}
}
#-----------------------------------
# Create PID files for use in FFLM..
#-----------------------------------
if ( $iUseRFLM && # In RFLM..
$sEntryPointName =~ /^(monitor|online)$/o && # In monitor or online..
$hiProcPids { $sKey } && # PID populated..
SAPNW04::CreatePidFile ( $sPidFile, # Create file..
$hiProcPids { $sKey } ) ) {
}
#-------------
# Set status..
#-------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
$iOnline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound &&
$sKey ne 'sapstart') { # Ignore sapstart..
$iOffline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound ) {
$iOffline = $iFound;
}
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FLM Status [$iFound]\n\n";
}
$sTemp .= "--------------------";
}
#-------------------
# Set final status..
#-------------------
$iReturnCode = $iOnline && $iOffline?VCSDef_MonitorExit::PARTIAL_ONLINE:
$iOffline || $iOnline || VCSDef_MonitorExit::UNKNOWN;
#------------------------------------------------
# Reset status based on PIDs, if not in monitor..
#------------------------------------------------
if ( $sEntryPointName ne 'monitor' &&
( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) &&
scalar @$rliOnlinePids ) {
$iReturnCode = VCSDef_MonitorExit::PARTIAL_ONLINE;
&logTrace ( 20110,
"<%s> Found [%s] PIDs [%s] for SAP instance. Resetting return code to [%s]",
$sMyName, scalar @$rliOnlinePids, join ( ' ', @$rliOnlinePids ), $iReturnCode );
}
&logTrace ( 20111,
"<%s> SAP Instance [%s] ProcMon details ---\n%s
Return code is [%s]", $sMyName, $sInstName, $sTemp, $iReturnCode );
$sTemp = undef; # Release..
#---------------------
# Report on sapstart..
#---------------------
if ( ! $bSapstartFlag && # Missing sapstart..
$sEntryPointName eq 'monitor' && # In monitor..
$sProcMon !~ /^(JC|jlaunch)$/o && # Not in recursive call..
VCSDef_MonitorExit::OFFLINE != $iReturnCode ) { # Not offline..
&logWarn ( 20112,
"<%s> Missing sapstart process in first level monitor",
$sMyName );
}
#--------------------------------
# Populate the global PID array..
#--------------------------------
@liRunningProcs = @$rliOnlinePids;
&logTrace ( 20113,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int FFLMStatus ( IN String PidFile,
IN String Proc,
IN Integer Uid,
OUT RefInt Pid );
Description: Checks status of Process listed in PidFile, if running
Parameters :
$sPidFile Absolute path to PID file of service
$sProc Process string to search for in proc table
$iUid UNIX UID of owner
$riPid Reference to existing PID
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub FFLMStatus {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$sProc,
$iUid,
$riPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20114, "Subroutine <%s> called with:
PidFile [%s]
Proc [%s]
UID [%s]
riPid [%s]",
$sMyName, $sPidFile, $sProc, $iUid, $riPid );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$$riPid = 0; # Reset..
#-------------------------
# Define local variables..
#-------------------------
my ( $iPid, $rhlProc, @lProcessHash ) = ();
#----------------------------------
# Start by testing the attributes..
#----------------------------------
if ( $sProc !~ /\S/ ) {
&logError ( 20115, "<%s> Called with empty [%s] process string",
$sMyName, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -e $sPidFile ) {
&logTrace ( 20116, "<%s> PID file [%s] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -s $sPidFile ) {
&logWarn ( 20117, "<%s> PID file [%s] is of zero bytes",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
#---------------------
# Return, if offline..
#---------------------
return $iReturnCode unless VCSDef_MonitorExit::ONLINE == $iReturnCode;
if ( open ( PIDFILE, $sPidFile ) ) {
( $iPid ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iPid = '' unless defined $iPid; # Avoid undefs..
close ( PIDFILE ) || # Close file..
&logWarn ( 20118,
"<%s> Could not close PID file [%s] after read [%s]",
$sMyName, $sPidFile, $! );
}
else {
&logError ( 20119,
"<%s> Failed to open PID file [%s] for read: [%s]",
$sMyName, $sPidFile, $! );
return VCSDef_MonitorExit::OFFLINE; # Failure..
}
#------------------------
# Check if PID is valid..
#------------------------
if ( $iPid =~ /\d+/ && # If the valid number..
kill ( 0, $iPid ) ) { # is a PID that's alive..
&logTrace ( 20120,
"<%s> PID [%s] from PID file [%s] exists",
$sMyName, $iPid, $sPidFile );
#-----------------------
# Search in proc table..
#-----------------------
if ( SAPNW04::GetPidDetails ( $iPid,
\@lProcessHash ) ) {
#--------------
# Got details..
#--------------
foreach $rhlProc ( @lProcessHash ) {
&logTrace ( 20121,
"<%s> Process details: UID [%s] PID [%s] PPID [%s] ARGS [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
#--------------
# Now compare..
#--------------
if ( ( $$rhlProc { UID } == $iUid ) && # Owner match..
$$rhlProc { COMMAND } =~ /\b$sProc\b/ ) { # Filter match..
&logTrace ( 20122,
"<%s> PID [%s] owned by UID [%s] with ARGS [%s] contains [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$$riPid = $iPid; # Store..
}
else {
&logTrace ( 20123,
"<%s> Ignoring PID [%s] owned by UID [%s] with ARGS [%s] with string [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
}
else {
&logTrace ( 20124,
"<%s> Could not get details for PID [%s]",
$sMyName, $iPid );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
else {
&logTrace ( 20125, "<%s> PID [$iPid] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
@lProcessHash = (); # Truncate..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetProcMonDetails ( IN String InstName
IN String SAPSID
IN String ProcMon
IN String StartProfile
OUT RefHashList ProcMonDetails );
Description: Gives PID file and process string for each ProcMon value
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sSAPSID SAP system name defined during installation
$sProcMon List of SAP processes to monitor
$sStartProfile Specifies the full path to the start-profile
$rhlProcMonDetails Stores details of PID file and process string
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetProcMonDetails {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sSAPSID,
$sProcMon,
$sStartProfile,
$rhlProcMonDetails ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20126, "Subroutine <%s> called with:
InstName [%s]
SAPSID [%s]
ProcMon [%s]
StartProfile [%s]
rhlProcMonDetails [%s]",
$sMyName,
$sInstName, $sSAPSID, $sProcMon, $sStartProfile, $rhlProcMonDetails );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1; # Set to true..
#----------------------------------------------
# Derive our resource type and resource names..
#----------------------------------------------
my $sResourceType = ( $0 =~ m@([^/]+)@g ) [-2];
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
#-------------------------
# Define local variables..
#-------------------------
my ( $sProc, $sTmpProc, $sPidFile, $sInstProfile, %hsProcMon, $sHost ) = ();
my $sArch = 0;
my %hsArch = ( 0 => '',
1 => 'JAVA',
2 => 'ABAP',
3 => 'ADDIN' );
my @lsProcMon = $sProcMon =~ /([^\s]+)/g;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
map {
$sArch |= 1 if /^jc$/;
$sArch |= 2 if /^dw$/;
} @lsProcMon;
#----------------------------
# Insert jlaunch, if needed..
#----------------------------
push @lsProcMon, 'jlaunch' if ( $sArch & 1 ); # jc located..
my $sPIDDir = "/tmp/.VRTS$sResourceType/$sResourceName/PID";
#---------------------------------------------
# Derive instance profile from start profile..
#---------------------------------------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
#---------------------------------------------
# Derive virtual hostname from start profile..
#---------------------------------------------
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##; # Get hostname..
%$rhlProcMonDetails = (); # Truncate..
#------------------------------
# Create PID folder if needed..
#------------------------------
if ( -d $sPIDDir ) {
&logTrace ( 20127, "<%s> PID folder [%s] exists",
$sMyName, $sPIDDir );
}
elsif ( ! mkpath ( $sPIDDir, 0, 0700 ) ) {
&logWarn ( 20128, "<%s> Failed to create PID folder [%s]",
$sMyName, $sPIDDir );
return 0; # Cannot proceed..
}
#-----------------------------------------------
# Create PID file and process strings for each..
#-----------------------------------------------
foreach $sProc ( @lsProcMon ) {
$sPidFile = "$sPIDDir/pidfile.$sProc";
#----------------------------------------
# Handle sapstart and ADDIN differently..
#----------------------------------------
if ( $sProc eq 'sapstart' ) {
$sTmpProc = "$sProc pf=.*$sSAPSID.*$sInstName.*$sHost";
#$sTmpProc = "$sProc pf=$sStartProfile";
}
elsif ( $sProc eq 'jc' && # jc defined..
$hsArch { $sArch } eq 'ADDIN' ) { # in ADDIN..
$sTmpProc = "jcontrol pf=.*$sSAPSID.*$sInstName.*$sHost"; # look for jcontrol..
}
elsif ( $sProc eq 'jlaunch' ) {
$sTmpProc = "$sProc pf=.*$sSAPSID.*$sInstName.*$sHost.*server\\d";
}
elsif( $sProc eq 'gwrd' || $sProc eq 'icman' ){
$sTmpProc = "$sProc.*pf=.*$sSAPSID.*$sInstName.*$sHost";
}
else {
$sTmpProc = "$sProc.sap${sSAPSID}_${sInstName}.*pf=.*$sSAPSID.*$sInstName.*$sHost";
#$sTmpProc = "$sProc.sap${sSAPSID}_${sInstName}.*pf=$sInstProfile";
}
&logTrace ( 20129,
"<%s> Process [%s] Search Pattern [%s] PID file [%s]",
$sMyName, $sProc, $sTmpProc, $sPidFile );
push @{ $hsProcMon { $sProc } }, $sPidFile, $sTmpProc;
}
%$rhlProcMonDetails = %hsProcMon; # Now store..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int Monitor ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String MonitorProgram,
IN String SAPAdmin,
IN String ProcMon
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer SecondLevelMonitor );
Description: Performs the in-depth monitoring
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sMonitorProgram Full path to external monitor program
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sProcMon List of SAP processes to monitor
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub Monitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sMonitorProgram,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20130, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
MonitorProgram [%s]
SAPAdmin [%s]
ProcMon [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
SecondLevelMonitor [%s]",
$sMyName,
$sEnvFile, $sInstName, $sInstType, $sMonitorProgram,
$sSAPAdmin, $sProcMon, $sSAPMonHome, $sSAPSID, $sStartProfile,
$iSecondLevelMonitor );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-------------------------------------------------------
# Upper bound..
# Time in EPOCH when entry pt started + VCS time limit..
#-------------------------------------------------------
my $iTillWhen = $^T + SAPNW04::GetEngineTimeout ( 1 ); # With margin..
#----------------------------------------------
# In-depth monitoring, if correct time to run..
#----------------------------------------------
if ( VCSagentFW::RunSecondLevelMonitor ( $iSecondLevelMonitor ) ) {
#--------------------------
# Just In Time Validation..
#--------------------------
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPNW04::DelayedAttributeCheck ( $sEnvFile,
$sSAPMonHome,
$sStartProfile ) ) ) {
&logTrace ( 20131,
"<%s> Delayed attribute check completed successfully",
$sMyName );
}
else {
&logError ( 20132,
"<%s> Attribute validation failed. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
&logTrace ( 20133,
"<%s> Proceeding with second level monitoring", $sMyName );
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPNW04::SecondLevelMonitor ( $sEnvFile,
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ) ) ) {
&logTrace ( 20134,
"<%s> SAP Instance [%s] online with status [%s] after SLM",
$sMyName, $sInstName, $iReturnCode );
}
else {
&logError ( 20135,
"<%s> SAP Instance [%s] NOT online. Status [%s]",
$sMyName, $sInstName, $iReturnCode );
return $iReturnCode; # Get out..
}
}
#------------------------------------------------
# Exit if external monitor has not been defined..
#------------------------------------------------
return $iReturnCode unless defined $sMonitorProgram;
#---------------------------------------
# MonitorProgram defined..
# Separate the executable and the args..
#---------------------------------------
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
if ( VCSDef_MonitorExit::ONLINE == # and found online..
( $iReturnCode = # by the status..
SAPNW04::ExternalMonitor ( $sSAPAdmin, # after execution..
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) ) {
&logTrace ( 20136,
"<%s> SAP Instance [%s] found online with status [%s]
after executing external monitor [%s] with args [%s]",
$sMyName, $sInstName, $iReturnCode, $sExtCmd, $sExtCmdArgs );
}
else {
&logError ( 20137,
"<%s> SAP Instance [%s] NOT online with external monitor
[%s] with args [%s]. Status [%s]",
$sMyName, $sInstName, $sExtCmd, $sExtCmdArgs, $iReturnCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ChkResName ( IN String ResName,
IN String SAPSID,
IN String InstType );
Description : Checks if resource has been configured
Parameters :
$sResName Resource Name to check
$sSAPSID SAP system name defined during installation
$sInstType String identifier that classifies the SAP server instance type
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ChkResName {
#----------------
# Get Arguments..
#----------------
my ( $sResName,
$sSAPSID,
$sInstType ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20138, "Subroutine <%s> called with:
ResName [%s]
SAPSID [%s]
InstType [%s]",
$sMyName, $sResName, $sSAPSID, $sInstType );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------------
# Validate string for resource..
#-------------------------------
return 0 unless ( $sResName =~ /\S/o ); # Must be a non-white string..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my $sCmdArgs = "-display $sResName -attribute InstType SAPSID";
#-----------------------
# Define valid matches..
#-----------------------
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE',
'AENQREP' => 'AENQUEUE',
'JENQREP' => 'JENQUEUE' );
my ( $iExitCode, @lsCmd ) = ();
&logTrace ( 20139,
"<%s> Executing Cmd [%s] with Args [%s]",
$sMyName, $sCmd, $sCmdArgs );
#--------------------------
# Fire command and verify..
#--------------------------
( @lsCmd ) = grep {
( s/\n// || 1 ) && # Chomp, and make true..
/InstType|SAPSID/ && # Contains these..
s/.*\s+// # Get last field..
} readpipe ( "$sCmd $sCmdArgs" ); # From output..
#--------------------
# Collect exit code..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20140,
"<%s> Cmd [%s] with Args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
$iReturnCode = 0; # Failure..
}
elsif ( ( 2 == scalar @lsCmd ) && # Got both values..
( $sSAPSID eq $lsCmd [-1] ) && # SAPSID is a match..
defined $hsInstMatch { uc $sInstType } && # InsType is defined..
$hsInstMatch { uc $sInstType } eq uc $lsCmd [0] ) { # And a correct pair..
&logTrace ( 20141,
"<%s> Resource [%s] defined in cluster with InstType [%s] SAPSID [%s]",
$sMyName, $sResName, $lsCmd [0], $lsCmd [-1] );
}
else {
&logError ( 20142,
"<%s> Resource [%s] not a matching ENQUEUE variant for this resource",
$sMyName, $sResName );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : Int DelayedAttributeCheck ( IN String EnvFile,
IN String SAPMonHome,
IN String StartProfile );
Description : Just In Time Validation
Parameters :
$sEnvFile Full path to the environment file for SAP
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sStartProfile Specifies the full path to the start-profile
Returns : Integer value as defined below:
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub DelayedAttributeCheck {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sSAPMonHome,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20143, "Subroutine <%s> called with:
EnvFile [%s]
SAPMonHome [%s]
StartProfile [%s]",
$sMyName, $sEnvFile, $sSAPMonHome, $sStartProfile );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#-----------------------------------------
# Validate each of the attribute in turn..
#-----------------------------------------
#-----------------------
# EnvFile has to exist..
#-----------------------
if ( ! -e $sEnvFile ) {
&logError ( 20144,
"<%s> EnvFile [%s] does not exist", $sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
#-------------------
# Validate SAPHome..
#-------------------
if ( ! -d $sSAPMonHome ) {
&logError ( 20145,
"<%s> SAPMonHome [%s] not a valid directory", $sMyName, $sSAPMonHome );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
#----------------------------
# Startprofile has to exist..
#----------------------------
if ( ! -r $sStartProfile ) {
&logError ( 20146,
"<%s> StartProfile does not exist [%s]", $sMyName, $sStartProfile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Unknown..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool UpdateSAPLog ( IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile,
IN String MessageText );
Description : Update SAP log with passed message string..
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$sMessageText Message text for update
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub UpdateSAPLog {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sInstType,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
$sMessageText ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20147, "Subroutine <%s> called with:
InstName [%s]
InstType [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]
MessageText [%s]",
$sMyName, $sInstName, $sInstType, $sSAPAdmin, $sSAPSID,
$sStartProfile, $sMessageText );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my $sDate = strftime '%H:%M:%S %d %b %Y', localtime;
my $sHost = ( uname ) [1];
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
my $sCpyHeader = '+' . '-' x 75 . '+';
my $sCmnt = "|";
#------------------------
# Define logging format..
#------------------------
format SAPLOG =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
@ Date: @<<<<<<<<<<<<<<<<<<<<< Node: @<<<<<<<<<<<<<<<<<< @
$sCmnt, $sDate, $sHost, $sCmnt
@ InstName: @<<<<<<<<<<<< InstType: @<<<<<<<<<< SAPSID: @<<< @
$sCmnt, $sInstName, $sInstType, $sSAPSID, $sCmnt
@ Start profile: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sStartProfile, $sCmnt
@ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @
$sCmnt, $sMessageText, $sCmnt
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sCpyHeader
.
#-----------------------
# Open file for update..
#-----------------------
if ( sysopen ( SAPLOG, $sLogFile, O_CREAT|O_WRONLY|O_APPEND|O_SYNC, 0644 ) ) {
&logTrace ( 20148,
"<%s> Opened log file [%s] succesfully for update", $sMyName, $sLogFile );
write SAPLOG; # Update..
unless ( close ( SAPLOG ) ) {
&logError ( 20149,
"<%s> Failed to close log file [%s] after update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
}
else {
&logError ( 20150,
"<%s> Failed to open log file [%s] for update: [%s]",
$sMyName, $sLogFile, $! );
$iReturnCode = 0; # Failure..
}
#----------------
# Set ownership..
#----------------
my ( $iUid, $iGid ) = ( getpwnam $sSAPAdmin ) [2, 3]; # Should not fail..
if ( chown ( $iUid, $iGid, $sLogFile ) ) {
&logTrace ( 20151,
"<%s> Set ownership of [%s] to UID [%s] GID [%s]",
$sMyName, $sLogFile, $iUid, $iGid );
}
else {
&logError ( 20152,
"<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s]",
$sMyName, $sLogFile, $iUid, $iGid, $! );
$iReturnCode = 0; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CleanIPC ( IN String SAPAdmin,
IN String EnvFile,
IN String SAPSID,
IN String InstName,
IN Integer Timeout );
Description : Cleans IPC resources for given SAPSID
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sSAPSID SAP system name defined during installation
$sInstName String identifier that uniquely identifies a SAP server instance
$iTimeout Timeout in seconds
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CleanIPC {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sSAPSID,
$sInstName,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20153, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
SAPSID [%s]
InstName [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sSAPSID, $sInstName, $iTimeout );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $iInstId, $iExitCode, @lsCmdOut ) = ();
( $iInstId ) = $sInstName =~ /(\d{2})$/o; # Get the last two..
my $sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/cleanipc";
my $sCmdArgs = "$iInstId remove";
my $sLogFile = "/usr/sap/$sSAPSID/$sInstName/log/" .
"${sSAPSID}_${sInstName}.log";
#---------------
# Validate Cmd..
#---------------
if ( ! -e $sCmd ) {
&logError ( 20154,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$sCmd = "/usr/sap/$sSAPSID/$sInstName/exe/cleanipc";
if ( ! -e $sCmd ) {
&logError ( 20155,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
}
if ( ! -x $sCmd ) {
&logError ( 20156,
"<%s> Command [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#------------------
# Execute command..
#------------------
&logTrace ( 20157,
"<%s> Executing Cmd [%s] with args [%s] within [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
if ( SAPNW04::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
&logTrace ( 20158,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! $iExitCode ) {
&logError ( 20159,
"<%s> Command [%s] with args [%s] timed out in [%s] sec",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
$iReturnCode = 0; # Failure..
}
else {
&logError ( 20160,
"<%s> Command [%s] with args [%s] failed with exit code [%s]. Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
$iReturnCode = 0; # Failure..
}
#------------------
# Update log file..
#------------------
if ( scalar @lsCmdOut ) {
if ( sysopen ( SAPLOG, $sLogFile,
O_CREAT|O_WRONLY|O_APPEND|O_SYNC, 0644 ) ) {
&logTrace ( 20161,
"<%s> Opened log file [%s] succesfully for update",
$sMyName, $sLogFile );
#------------------------------
# Put information for message..
#------------------------------
unshift ( @lsCmdOut, "Cleanipc command output:\n" );
print SAPLOG "$_\n" foreach ( @lsCmdOut ); # Update..
unless ( close ( SAPLOG ) ) {
&logError ( 20162,
"<%s> Failed to close log file [%s] after update: [%s]",
$sMyName, $sLogFile, $! );
}
}
else {
&logError ( 20163,
"<%s> Failed to open log file [%s] for update: [%s]",
$sMyName, $sLogFile, $! );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetEngineTimeout ( IN Bool UseMargin );
Description : Calculates engine timeout for entry point
Parameters :
$bUseMargin Flag to indicate if safety margin is requested
boolean value in the set of {0,1} where
0 No safety margin needed
1 Safety margin to be used
Returns: Time in secs.
-------------------------------------------------------------------------
=cut
sub GetEngineTimeout {
#----------------
# Get Arguments..
#----------------
my ( $bUseMargin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20164, "Subroutine <%s> called with:
UseMargin [%s]",
$sMyName, $bUseMargin );
#-------------------------
# Define local variables..
#-------------------------
my ( $sAttribute, $sCommand, $sCommandArgs,
$iEngineTimeout, $iExitCode ) = ();
#----------------------------------
# Grace margins from VCS timeouts..
#----------------------------------
my %hiGraceMargin = ( 'MonitorTimeout', 10, # Seconds..
'OnlineTimeout', 10,
'OfflineTimeout', 10,
'CleanTimeout', 10 );
#--------------------------------------------------
# Attempt to get resource level overridden values..
#--------------------------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sCommand = $sCmdHares; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sCommandArgs = "-value $sResourceName $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs 2>/dev/null" ) )
=~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20165,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
}
elsif ( ! $iEngineTimeout ) { # Undefined value..
&logTrace ( 20166, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
}
else { # Success..
&logTrace ( 20167, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
unless ( $iEngineTimeout ) {
$sCommand = $sCmdHatype; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sResourceType = 'SAPNW04' if $sResourceType !~ /\w/; # Ensure..
$sCommandArgs = "-value $sResourceType $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs" ) ) =~ s/\n//;
$iExitCode = $? >> 8; # Get exit status..
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode ) {
&logTrace ( 20168,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
elsif ( ! $iEngineTimeout ) { # Empty value..
&logTrace ( 20169, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
else { # Success..
&logTrace ( 20170, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
}
else {
&logTrace ( 20171, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#----------------------------
# Apply margin if requested..
#----------------------------
if ( $bUseMargin && # Margin requested..
$iEngineTimeout >= $hiGraceMargin { $sAttribute } ) { # And valid..
$iEngineTimeout -= $hiGraceMargin { $sAttribute }; # Apply..
&logTrace ( 20172,
"<%s> Setting up [%s] sec margin. Returning [%s]",
$sMyName, $hiGraceMargin { $sAttribute }, $iEngineTimeout );
}
return ( $iEngineTimeout ); # Secs..
}
=pod
-------------------------------------------------------------------------
Function : bool KillSAPProcs ( IN String InstName,
IN String ProcMon,
IN String SAPAdmin,
IN String SAPSID,
IN String StartProfile );
Description : Kills processes for a given SAP instance..
Parameters :
$sInstName String identifier that uniquely identifies a SAP server instance
$sProcMon List of SAP processes to monitor
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub KillSAPProcs {
#----------------
# Get Arguments..
#----------------
my ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20173, "Subroutine <%s> called with:
InstName [%s]
ProcMon [%s]
SAPAdmin [%s]
SAPSID [%s]
StartProfile [%s]",
$sMyName,
$sInstName, $sProcMon, $sSAPAdmin, $sSAPSID, $sStartProfile );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#----------------------
# Set local variables..
#----------------------
my ( @liGoners, @liUnDead ) = ();
#-------------------------------------
# If called during online or offline..
#-------------------------------------
if ( ( caller 1 )[3] eq 'SAPNW04::Start' || # Start logic..
( caller 1 )[3] eq 'SAPNW04::Stop' ) { # Stop logic..
@liGoners = @liRunningProcs; # Get global..
}
else {
#----------------------------
# Get processes for killing..
#----------------------------
SAPNW04::GetProcState ( $sInstName,
$sProcMon,
$sSAPAdmin,
$sSAPSID,
$sStartProfile,
\@liGoners,
0 ); # Use regular..
}
#------------------------------------------------------------------
# We do a two level kill. The SIGINQ ensures that the PID is a
# valid process before we actually issue the SIGKILL. We don't want
# to report a failure for SIGKILL in case of defunct or missing
# processes.
#------------------------------------------------------------------
if ( scalar @liGoners ) {
#----------------------
# Failed to kill some..
#----------------------
if ( @liUnDead = grep {
kill ( 0, $_ ) && # Valid..
! kill ( 9, $_ ) # and could NOT be killed..
} @liGoners ) { # From what's found..
&logError ( 20174,
"<%s> PIDs not killed [%s] Total not killed [%s]",
$sMyName, join ( ' ', @liUnDead ), scalar @liUnDead );
$iReturnCode = 0; # Failure..
}
else { # All killed..
&logInfo ( 20175,
"<%s> Killed PIDs [%s] Total killed: [%s]",
$sMyName, join ( ' ', @liGoners ), scalar @liGoners );
}
}
else {
&logTrace ( 20176,
"<%s> Could not locate any process for SAP Instance [%s]",
$sMyName, $sInstName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int SecondLevelMonitor ( IN String EnvFile,
IN String InstName,
IN String InstType,
IN String SAPAdmin,
IN String ProcMon,
IN String SAPMonHome,
IN String SAPSID,
IN String StartProfile,
IN Integer TillWhen );
Description : Does in-depth monitoring, if enabled.
Parameters :
$sEnvFile Full path to the environment file for SAP
$sInstName String identifier that uniquely identifies a SAP server instance
$sInstType String identifier that classifies the SAP server instance type
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sProcMon List of SAP processes to monitor
$sSAPMonHome Directory defining the location of the SAP monitoring utilities
$sSAPSID SAP system name defined during installation
$sStartProfile Specifies the full path to the start-profile for this instance
$iTillWhen Represents the upper limit set by engine in EPOCH
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub SecondLevelMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstName,
$sInstType,
$sSAPAdmin,
$sProcMon,
$sSAPMonHome,
$sSAPSID,
$sStartProfile,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20177, "Subroutine <%s> called with:
EnvFile [%s]
InstName [%s]
InstType [%s]
SAPAdmin [%s]
ProcMon [%s]
SAPMonHome [%s]
SAPSID [%s]
StartProfile [%s]
TillWhen [%s]",
$sMyName,
$sEnvFile, $sInstName, $sInstType, $sSAPAdmin, $sProcMon,
$sSAPMonHome, $sSAPSID, $sStartProfile, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my %hsArch = ( 1 => 'JAVA',
2 => 'ABAP',
3 => 'ADDIN' );
my $sArch = 0;
my ( $sCmd, $sCmdArgs, $sSwitch, $sHost, $sInstProfile,
$iRetCode, $iInstId, $iTimeout ) = ();
my $bNotOnlineFlag = 0;
#--------------------------------
# Identify the SAP architecture..
#--------------------------------
map {
$sArch |= 1 if /^jc$/;
$sArch |= 2 if /^dw$/;
} $sProcMon =~ /([^\s]+)/g;
if ( $hsArch { $sArch } ) {
$sSwitch = $hsArch { $sArch };
&logTrace ( 20178,
"<%s> Identified SAP Architecture [%s] from ProcMon [%s]",
$sMyName, $sSwitch, $sProcMon );
}
else {
&logTrace ( 20179,
"<%s> Could not identify SAP Architecture from ProcMon [%s]",
$sMyName, $sProcMon );
$sSwitch = 'DEFAULT'; # Mark it default..
}
#----------------
# Assign values..
#----------------
( $sInstProfile = $sStartProfile ) =~ s/START_/${sSAPSID}_/;
( $sHost = $sStartProfile ) =~ s#.*/.*?_[^_]+_##; # Get hostname..
( $iInstId ) = $sInstName =~ /(\d{2})$/o; # Get the last two..
#-----------------------
# Do the correct stuff..
#-----------------------
if("JAVA" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
$iTimeout = $iTillWhen - time;
my $iVersion = ();
$iReturnCode = GetVersionInfo($sSAPSID,$sInstName,$sSAPAdmin,$sEnvFile,$iTimeout,\$iVersion);
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/jcmon";
if ($iVersion >= 720) {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
y
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
else {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecJCMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
&logError ( 20180,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("ABAP" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/dpmon";
$sCmdArgs = "-info pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecDpMon ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
$sCmd = "$sSAPMonHome/sapinfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapcontrol";
$sCmdArgs =" -nr $iInstId -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecGetProcList ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
$sCmdArgs = "ashost=$sHost sysnr=$iInstId";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecSAPInfo ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20181,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
elsif("ADDIN" eq $sSwitch) {
if ( $sInstType =~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/dpmon";
$sCmdArgs = "-info pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecDpMon ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
$sCmd = "$sSAPMonHome/sapinfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
$sCmd = "/usr/sap/$sSAPSID/SYS/exe/run/sapcontrol";
$sCmdArgs =" -nr $iInstId -function GetProcessList";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecGetProcList ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
else {
$sCmdArgs = "ashost=$sHost sysnr=$iInstId";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecSAPInfo ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
$iTimeout );
}
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
}
$iTimeout = $iTillWhen - time;
my $iVersion = ();
$iReturnCode = GetVersionInfo($sSAPSID,$sInstName,$sSAPAdmin,$sEnvFile,$iTimeout,\$iVersion);
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
#--------------------------
# Re-set command and args..
#--------------------------
if ( -x "/usr/sap/$sSAPSID/$sInstName/j2ee/os_libs/jcmon" ) { # SAPNW04..
$sCmd = "/usr/sap/$sSAPSID/$sInstName/j2ee/os_libs/jcmon";
}
elsif ( -x "/usr/sap/$sSAPSID/SYS/exe/run/jcmon" ) { # SAPNW04s..
$sCmd = "$sSAPMonHome/jcmon";
}
if ($iVersion >= 720) {
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
y
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
else{
#-------- DO NOT INDENT --------#
$sCmdArgs = "pf=$sInstProfile << EOF
20
0
0
EOF";
#-------- DO NOT INDENT --------#
}
$iTimeout = $iTillWhen - time;
$iRetCode = SAPNW04::ExecJCMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout );
#-------------------------------------------
# Update, status only when it's not online..
#-------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iRetCode ) {
$iReturnCode = $iRetCode;
}
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20182,
"<%s> Encountered unsupported InstType [%s] for SAP Arch [%s]",
$sMyName, $sInstType, $sSwitch );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
if ( $sInstType !~ /^(dialog|central)$/io ) {
#-----------------------
# Set command and args..
#-----------------------
$sCmd = "$sSAPMonHome/ensmon";
$sCmdArgs = "pf=$sInstProfile 2";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecEnsMon ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
#---------------------
# If offline, return..
#---------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ||
VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
elsif ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
$bNotOnlineFlag = 1;
}
if( $sProcMon =~ /ms/ ){
$sCmd = "$sSAPMonHome/msprot";
$sCmdArgs = "-t -k 1 -n 2 -r 5 pf=$sInstProfile";
$iTimeout = $iTillWhen - time;
$iReturnCode = SAPNW04::ExecMsProt ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout );
}
if( VCSDef_MonitorExit::TIMEOUT == $iReturnCode ) {
return $iReturnCode;
}
if ( 1 == $bNotOnlineFlag && ( VCSDef_MonitorExit::OFFLINE != $iReturnCode ) ) {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logError ( 20183,
"<%s> Encountered unsupported InstType [%s]. Has to be one of
[enqueue aenqueue jenqueue enqrep aenqrep jenqrep]",
$sMyName, $sInstType );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExternalMonitor ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer TillWhen );
Description : Handles user defined external monitor program
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Absolute path to external monitor program
$sCmdArgs Command line arguments, if any, for Cmd
$iTillWhen Represents the upper limit set by engine in EPOCH
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExternalMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20184, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
TillWhen [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my ( $iExitCode, $iTimeout, @lsCmdOut ) = ();
my $iBuf = 5; # Secs..
#-------------------------
# Handled exit code hash..
#-------------------------
my %hiExitCodes = ( 0, VCSDef_MonitorExit::ONLINE,
110, VCSDef_MonitorExit::ONLINE,
1, VCSDef_MonitorExit::OFFLINE,
100, VCSDef_MonitorExit::OFFLINE );
#---------------------------------------------
# Check if command can be found and executed..
#---------------------------------------------
if ( ! -e $sCmd ) {
&logError ( 20185,
"<%s> External monitor [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20186,
"<%s> External monitor [%s] not executable.",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ( $iTimeout = $iTillWhen - ( time + $iBuf ) ) <= 5 ) { # Lack of time..
&logError ( 20187,
"<%s> Insufficient time to proceed with external monitor [%s].
Short by [%s] sec", $sMyName, $sCmd, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
#--------------------------------------------
# Return if validation failed at this point..
#--------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
return $iReturnCode;
}
&logTrace ( 20188,
"<%s> Executing external monitor with Command [%s] Args [%s] in [%s] secs",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
#----------------------
# Execute the command..
#----------------------
SAPNW04::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
#------------------------
# Report on exit status..
#------------------------
if ( ! defined $iExitCode ) {
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20189,
"<%s> Command [%s] with args [%s] timed out",
$sMyName, $sCmd, $sCmdArgs );
$iExitCode = 'undef';
}
elsif ( $hiExitCodes { $iExitCode } &&
VCSDef_MonitorExit::ONLINE ==
$hiExitCodes { $iExitCode } ) {
&logTrace ( 20190,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
else {
&logWarn ( 20191,
"<%s> Command [%s] with args [%s] execution failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdOut ) );
}
#--------------------------------
# Setup appropriate return code..
#--------------------------------
$iReturnCode = $hiExitCodes { $iExitCode } ||
VCSDef_MonitorExit::UNKNOWN;
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ExecLocalCmd ( IN String User,
IN String EnvFile,
IN String Command,
IN String CommandArgs,
OUT RefInt ExitCode,
IN Integer Timeout,
OUT ListReference CmdOut );
Description : Wrapper function for
Sys::RunWithEnvCmdWithOutputWithTimeOut to collect output
of the command.
Parameters :
$sUser UNIX user to run the command as
$sEnvFile Absolute path to location of EnvFile to source
$sCommand Absolute path to location of command
$sCommandArgs Arguments to command
$riExitCode Reference to collect exit code of command
$iTimeout Time limit to execute the command
$rlsCmdOut Stores o/p from command if successful
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ExecLocalCmd {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
$riExitCode,
$iTimeout,
$rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace( 20192, "Subroutine <%s> called with:
User [%s]
EnvFile [%s]
Command [%s]
CommandArgs [%s]
riExitCode [%s]
Timeout [%s]
rlsCmdOut [%s]",
$sMyName,
$sUser, $sEnvFile, $sCommand, $sCommandArgs, $riExitCode,
$iTimeout, $rlsCmdOut );
#---------------------------------------
# Setup return code to hopeful success..
#---------------------------------------
my $iReturnCode = 1;
#-------------------
# Set up arguments..
#-------------------
my $bSourceUserEnv = 0; # Do not source..
my $bTimedOut = 0; # Timeout variable..
@$rlsCmdOut = (); # Reset..
#-----------------------------------
# Verify timeout is greater than 1..
#-----------------------------------
if ( $iTimeout <= 1 ) {
&logError ( 20193,
"<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s].",
$sMyName, $iTimeout, $sCommand, $sCommandArgs );
return 0;
}
#----------------------
# Set LOGNAME to user..
#----------------------
my $sOldLogName = $ENV { LOGNAME }; # Backup..
$ENV { LOGNAME } = $sUser; # Now set..
&logTrace ( 20194,
"<%s> Executing Command [%s] with Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
$iReturnCode = Sys::RunWithEnvCmdWithOutputWithTimeOut ( $sEnvFile,
$bSourceUserEnv,
$sCommand,
$sCommandArgs,
$riExitCode,
$sUser,
$rlsCmdOut,
\$bTimedOut,
$iTimeout );
#---------------------------
# Remove trailing newlines..
#---------------------------
chomp @$rlsCmdOut;
#--------------------
# Check return code..
#--------------------
if ( $iReturnCode ) { # No error with command execution..
if ( $$riExitCode ) { # Failure..
&logTrace ( 20195,
"<%s> Command [%s] with args [%s] returned exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20196,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
}
}
else { # Execution error..
@$rlsCmdOut = (); # Reset..
if ( $bTimedOut ) { # We timed out..
&logError ( 20197,
"<%s> Command [%s] with args [%s] did not complete within [%s] seconds",
$sMyName, $sCommand, $sCommandArgs, $iTimeout );
$$rlsCmdOut [0] = 'timeout'; # Timeout..
}
else { # Failure due to something else..
&logError ( 20198,
"<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut",
$sMyName );
}
}
#----------
# Restore..
#----------
defined $sOldLogName ? $ENV { LOGNAME } = $sOldLogName:delete $ENV { LOGNAME };
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetPidDetails ( IN Integer Pid,
OUT RefList ProcList );
Description : Gets long process details for a known Pid if running
Parameters :
$iPid PID whose details are requested
$rlProcList Ref to List to store details
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetPidDetails {
#----------------
# Get Arguments..
#----------------
my ( $iPid,
$rlProcList ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20199, "Subroutine <%s> called with:
Pid [%s]
rlProcList [%s]",
$sMyName, $iPid, $rlProcList );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------
# Validate PID..
#---------------
unless ( defined $iPid && # Catch undefs..
$iPid =~ /^\d+$/ && # And invalid PIDs..
kill ( 0, $iPid ) ) { # And defunct ones..
&logError ( 20200,
"<%s> PID [%s] is invalid", $sMyName, $iPid );
return 0;
}
#-------------------------
# Define local variables..
#-------------------------
my ( $sPsCmd, $sPsCmdArgs, $sLang, $sFmt, $sUnix95, $sSwitch, $iExitCode,
%hsProc ) = ();
$sSwitch = $^O; # Get OS..
@$rlProcList = (); # Truncate..
#-------------
# Store LANG..
#-------------
$sLang = $ENV { LANG };
$ENV { LANG } = 'C';
#---------------------------
# Switch to the correct OS..
#---------------------------
if("solaris" eq $sSwitch) {
$sPsCmd = "/usr/ucb/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("hpux" eq $sSwitch) {
#-----------------------
# Force XPG4 behaviour..
#-----------------------
$sUnix95 = $ENV { UNIX95 };
$ENV { UNIX95 } = 'XPG4';
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "-p $iPid -xxlo uid,pid,ppid,args";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
elsif("aix" eq $sSwitch) {
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("linux" eq $sSwitch) {
$sPsCmd = "/bin/ps";
$sPsCmdArgs = "wwo uid,pid,ppid,args $iPid";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
&logTrace ( 20201, "<%s> OS [%s] PsCmd [%s] PsCmdArgs [%s]",
$sMyName, $sSwitch, $sPsCmd, $sPsCmdArgs );
#-------------------
# Validate command..
#-------------------
if ( ! -x $sPsCmd ) {
&logError ( 20202,
"<%s> ps(1b) command [%s] is not executable", $sMyName, $sPsCmd );
return 0; # Failure..
}
#-------------------------------
# Fire command and get details..
#-------------------------------
@hsProc { qw ( UID PID PPID COMMAND ) } =
map {
s/\n//; # Chomp..
s/^\s+//; # Strip leading spaces..
/^$sFmt$/o; # Extract fields..
} readpipe ( "$sPsCmd $sPsCmdArgs" ); # From the command..
$iExitCode = $? >> 8; # Get exit code..
#------------------------
# Restore env variables..
#------------------------
defined $sLang ? $ENV { LANG } = $sLang:delete $ENV { LANG };
defined $sUnix95 ? $ENV { UNIX95 } = $sUnix95:delete $ENV { UNIX95 };
#------------------
# Check exit code..
#------------------
if ( $iExitCode ) {
&logError ( 20203,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sPsCmd, $sPsCmdArgs, $iExitCode );
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
&logWarn ( 20340,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
SAPNW04::DeletePidFile ( $sResourceName );
%hsProc = (); # Truncate..
return 0;
}
#---------------------
# Fill up the bucket..
#---------------------
push ( @$rlProcList, \%hsProc ); # Update..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CreatePidFile ( IN String PidFile,
In Integer Pid );
Description : Creates PID file with given PID
Parameters :
$sPidFile File to create
$iPid PID to store
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CreatePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$iPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20204, "Subroutine <%s> called with:
PidFile [%s]
Pid [%s]",
$sMyName, $sPidFile, $iPid );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------
# Check against undefs..
#-----------------------
unless ( defined $iPid && $iPid =~ /^\d+$/o) {
$iPid ||= 'undef'; # Prevent undefs.
&logError ( 20205, "<%s> PID [%s] is not a valid positive number",
$sMyName, $iPid );
return 0; # Proceed no further..
}
#------------------
# Create PID file..
#------------------
&logTrace ( 20206,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
if ( sysopen ( PIDFILE, $sPidFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print PIDFILE $iPid, "\n"; # Update..
unless ( close ( PIDFILE ) ) {
&logWarn ( 20207,
"<%s> Failed to close PidFile [%s] after update: [%s]",
$sMyName, $sPidFile, $! );
$iReturnCode = 0;
}
}
else {
&logWarn ( 20208,
"<%s> Failed to create PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
$iReturnCode = 0;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool DeletePidFile ( IN String ResourceName );
Description : Deletes PID files for the VCS resource.
Parameters :
$sResourceName ResourceName for which the PID files needs to be deleted.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeletePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sResourceName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20319, "Subroutine <%s> called with:
ResourceName [%s]",
$sMyName, $sResourceName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sPidFileDir, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20320,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
$sPidFileDir = "/tmp/.VRTSSAPNW04/" . $sResourceName . "/PID" ;
if ( -d $sPidFileDir ) {
$iRet = system("/bin/rm -rf $sPidFileDir") ;
if ( $iRet == 0 ) {
&logTrace ( 20321,
"<%s> Successfully deleted PID files in the directory [%s].",
$sMyName, $sPidFileDir );
$iReturnCode = 0;
}
else {
&logWarn ( 20322,
"<%s> Failed to delete PID files in directory [%s]. Remove the files manually.",
$sMyName, $sPidFileDir );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20323,
"<%s> PID files for VCS resource [%s] doesn't exist.",
$sMyName, $sResourceName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecJCMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on jcmon command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to jcmon binary
$sCmdArgs Argument list for jcmon
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecJCMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20209, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20210,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20211,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20212,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20213,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPNW04::GetJCMonStatus ( \@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20214,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20215,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecMsProt ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN String InstType,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on msprot command.
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to msprot binary
$sCmdArgs Argument list for msprot
$sInstType String identifier that classifies the SAP server instance type
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecMsProt {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20324, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
InstType [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $sInstType,
$iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $sEntryPointName, $iExitCode, @lsCmdOut ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20325,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20326,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20327,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20328,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20329,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 4 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20330,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20331,
"<%s> Cmd [%s] failed with exit code [%s]. Returning [%s]",
$sMyName, $sCmd, $iExitCode, $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecEnsMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN String InstType,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on ensmon command.
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to ensmon binary
$sCmdArgs Argument list for ensmon
$sInstType String identifier that classifies the SAP server instance type
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecEnsMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$sInstType,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20216, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
InstType [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $sInstType,
$iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $sEntryPointName, $iExitCode, @lsCmdOut ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20217,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20218,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20219,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20220,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20221,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 4 == $iExitCode &&
$sInstType =~ /^(|a|j)enqueue$/io ) {
if ( $sEntryPointName eq 'monitor' ) {
&logCritical ( 20222,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
else {
&logTrace ( 20223,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Replication Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
elsif ( 8 == $iExitCode ) { # Up already..
if ( $sInstType =~ /^(|a|j)enqueue$/io ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20224,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $iReturnCode );
}
elsif ( $sInstType =~ /^(|a|j)enqrep$/io ) {
&logCritical ( 20225,
"<%s> Cmd [%s] with args [%s] exited with [%s].
Not able to connect to ENQUEUE Server!!",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20226,
"<%s> Cmd [%s] failed with exit code [%s]. Returning [%s]",
$sMyName, $sCmd, $iExitCode, $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecDpMon ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Execute dpmon command in given timeout
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to dpmon binary
$sCmdArgs Argument list for dpmon
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecDpMon {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20332, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20333,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20334,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20335,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20336,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20337,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 156 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20338,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20339,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecSAPInfo ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Execute sapinfo command in given timeout
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapinfo binary
$sCmdArgs Argument list for sapinfo
$iTimeout Time in seconds for execution
Parameters :
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecSAPInfo {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20227, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20228,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20229,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20230,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20231,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20232,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif ( 2 == $iExitCode ) { # Server is down..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20233,
"<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s].
Returning [%s]", $sMyName, $sCmd, $sCmdArgs, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
else { # Error..
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20234,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetJCMonStatus ( IN RefStrList rlsCmdOut );
Description : Decides on status of SAP Instance based on given jcmon
output.
Parameters :
$rlsCmdOut Reference to list containing output from jcmon execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetJCMonStatus {
#----------------
# Get Arguments..
#----------------
my ( $rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20235, "Subroutine <%s> called with:
rlsCmdOut [%s]",
$sMyName, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $sTmp, $sKey ) = ( '' ) x 2;
my ( $iSrv, $iStopped, $iRunning ) = ( 0 ) x 3;
my %hsCmdOut = map { /\b(dispatcher|server\d*)\b.*?\d\|(.*?)\s*\|/o } @$rlsCmdOut;
foreach $sKey ( sort keys %hsCmdOut ) {
$sTmp .= "Server Name [$sKey] State [$hsCmdOut{$sKey}]\n";
if ( $sKey =~ /server/o ) {
++ $iSrv;
++ $iStopped if $hsCmdOut { $sKey } eq 'Stopped';
++ $iRunning if $hsCmdOut { $sKey } eq 'Running';
}
}
&logTrace ( 20236, "<%s> SAP jcmon status : ---\n%s", $sMyName, $sTmp );
#-----------------
# Check on state..
#-----------------
if ( defined $hsCmdOut { dispatcher } && # Defined..
$hsCmdOut { dispatcher } eq 'Running' && # Dispatcher running..
$iRunning ) { # One server running..
&logTrace ( 20237,
"<%s> Found Dispatcher and [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
elsif ( defined $hsCmdOut { dispatcher } && # Defined..
( $hsCmdOut { dispatcher } eq 'Stopped' || # Dispatcher stopped..
$iStopped == $iSrv ) ) { # or all servers stopped..
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20238,
"<%s> Dispatcher or all [%s] server(s) stopped. Returning [%s]",
$sMyName, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20239,
"<%s> Status of SAP instance undecided:\n%sReturning [%s]",
$sMyName, $sTmp, $iReturnCode );
}
( $sTmp, $sKey ) = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineENQGrp ( IN String Sys,
IN String Grp,
IN String Reason,
IN String FaultedNode );
Description : Pre-online trigger for SAPNW04
Parameters :
$sSys System where the group is asked to be made online
$sGrp Group for which preonline has been invoked
$sReason Contains the string MANUAL or FAULT
$sFaultedNode Cluster node where the fault occurred due to FAULT
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineENQGrp {
#----------------
# Get Arguments..
#----------------
my ( $sSys,
$sGrp,
$sReason,
$sFaultedNode ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20240, "Subroutine <%s> called with:
Sys [%s]
Grp [%s]
Reason [%s]
FaultedNode [%s]",
$sMyName,
$sSys, $sGrp, $sReason, $sFaultedNode );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHares; # Get global..
my %hsInstMatch = ( 'ENQREP' => 'ENQUEUE',
'AENQREP' => 'AENQUEUE',
'JENQREP' => 'JENQUEUE' );
my ( $i, $iExitCode, $sRes, $sDisp, $sGroup, $sNodeName, $sEnqSrvRes,
$sCmdArgs, $sTempNode, $sEnqRes, $sInstType, $sFailHost,
$sKey, $sSAPSID, @lsHaresOut, @lsCpy, @lsValidNodes, @lsEnqReps,
@lsEnques, %hsEnqueues, %hsFltd, %hsEnqReps,
%hsEnqRepGrps, %hsEnqRepHosts, %hsSwEnqReps, %hsOnlineEnqueues ) = ();
my $sOSVer = ();
#---------------------
# Validate arguments..
#---------------------
if ( $sReason eq 'MANUAL' ) {
&logTrace ( 20241,
"<%s> Invoked during a normal switch-over or online.", $sMyName );
}
elsif ( $sSys =~ /\S/ && ! inet_aton ( $sSys ) ) {
&logError ( 20242,
"<%s> Destination cluster node [%s] cannot be resolved",
$sMyName, $sSys );
$iReturnCode = 0; # Error..
}
elsif ( $sFaultedNode ne 'UNDEF' && $sFaultedNode =~ /\S/ && ! inet_aton ( $sFaultedNode ) ) {
&logError ( 20243,
"<%s> Faulted cluster node [%s] cannot be resolved",
$sMyName, $sFaultedNode );
$iReturnCode = 0; # Error..
}
elsif ( ! -e $sCmd ) {
&logError ( 20244,
"<%s> Command [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
elsif ( ! -x $sCmd ) {
&logError ( 20245,
"<%s> Command [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Error..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-------------------------------------------------------
# Bug in VCS for FAULT. Verify group is really faulted..
#-------------------------------------------------------
# hasys -list SysState=RUNNING
$sCmd = $sCmdHasys;
$sCmdArgs = "-state";
my ( @lsHasysRunning, @lsHasysFault, @lsHasysOut, %hsHasysRunning, %hsHasysFault ) = ();
@lsHasysOut = readpipe ( "$sCmd $sCmdArgs" );
shift @lsHasysOut;
@lsHasysRunning = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(RUNNING)$/$1/ )
} @lsHasysOut;
@lsHasysFault = grep {
( s/\n// || 1 ) &&
( s/.*:// || 1 ) && # for DR ...
( s/^(\S+).*(FAULTED|EXITED)$/$1/ )
} @lsHasysOut;
%hsHasysRunning = map { $_ => 1 } @lsHasysRunning;
&logTrace ( 20246,
"<%s> List of systems where VCS running [%s]",
$sMyName, join ( ' ', @lsHasysRunning ) );
%hsHasysFault = map { $_ => 1 } @lsHasysFault;
&logTrace ( 20247,
"<%s> List of systems where VCS Faulted [%s]",
$sMyName, join ( ' ', @lsHasysFault ) );
$sCmd = $sCmdHares;
$sCmdArgs = "-list Group=$sGrp State=FAULTED";
@lsHaresOut = grep {
( s/\n// || 1 ) &&
s/\s+.*//
} readpipe ( "$sCmd $sCmdArgs" );
#-------------------
# Verify exit code..
#-------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20248,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s].
Group [%s] does not have any faulted resources.",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, $sGrp );
#-----------------------------
# Check for node FAULT event..
#-----------------------------
if ( $sFaultedNode eq 'UNDEF' && $sReason eq 'FAULT' ) {
&logWarn ( 20249,
"<%s> Missing faulted node name.
Possible node FAULT event detected", $sMyName );
}
elsif ( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' ) {
&logWarn ( 20250,
"<%s> Missing source node name.", $sMyName );
}
elsif ( ($sOSVer = $^O eq 'solaris' ? ( uname ) [2] : '') eq "5.10" ) {
#---------------------------------------------------------------
# Add zone specific support for Enqueue when zone itself faults.
#---------------------------------------------------------------
&logInfo ( 20251,
"<%s> Checking if the Group [%s] is configured for Solaris non-global zones",
$sMyName, $sGrp );
my $sOut = ();
my @lsOut = ();
my $iCount = ();
$sCmdArgs = "-display -attribute ContainerName -group $sGrp -type SAPNW04";
@lsHaresOut = grep { (s/\n// || 1) } readpipe ( "$sCmd $sCmdArgs" );
shift @lsHaresOut;
foreach $sOut (@lsHaresOut) {
@lsOut = split( '\s+', $sOut);
$iCount = scalar @lsOut;
if( (4 == $iCount) && ($lsOut[2] =~ /$sSys/ || $lsOut[2] =~ /global/) ) {
&logWarn ( 20252,
"<%s> ContainerName attribute is configured.
Possible zone [%s] FAULT event detected", $sMyName, $lsOut[3] );
last;
}
}
}
}
else {
&logTrace ( 20253,
"<%s> Group [%s] has [%s] resource(s) in FAULTED state",
$sMyName, $sGrp, join ( ' ', @lsHaresOut ) );
}
#----------------
# Re-initialise..
#----------------
$sCmdArgs = "-display -type SAPNW04 -attribute " .
"State Group InstType EnqSrvResName SAPSID";
#---------------------------------------------
# Assume the group name is valid and proceed..
#---------------------------------------------
@lsHaresOut = grep { s/\n// || 1 } readpipe ( "$sCmd $sCmdArgs" );
#-----------------------------------------
# Check if command executed successfully..
#-----------------------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20254,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
return 0; # Error..
}
elsif ( $lsHaresOut[0] =~ /10554.*No resource exists with/o ) {
&logError ( 20255,
"<%s> Cmd [%s] with args [%s] failed with reason [%s]",
$sMyName, $sCmd, $sCmdArgs, $lsHaresOut[0] );
return 0; # Error..
}
$sFailHost = $sSys; # Set to default..
push @lsHaresOut, "#"; # Insert trailing de-marker..
@lsCpy = @lsHaresOut; # Backup..
#---------------------------------------------------
# Mark all ENQUEUE/ENQREP resources in given group..
#---------------------------------------------------
@lsEnques =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /Group.*\s+(\S+)/ && # Mark the group name..
( $sGroup = $1 ) && 0 ) || # Store, and always make false..
( s/^(\S+).*InstType.*\s # Mark resource..
((|A|J)ENQ(UEUE|REP))/$1:$2/ix && # If ENQUEUE or ENQREP variant..
++ $i ) || # Set flag..
( $i && # If flag..
s/.*SAPSID.*\s+// ) || # Get the SAPSID..
( $i && # If flag..
s/#/sprintf ( $sGroup, -- $i )/e ) # Print group.. reset flag..
} @lsCpy;
&logTrace ( 20256,
"<%s> Searching ENQUEUE resource in group [%s]", $sMyName, $sGrp );
&logTrace ( 20257,
"<%s> Enques values are [%s]", $sMyName, join(' ', @lsEnques) );
#-------------------
# Start processing..
#-------------------
while ( 3 == ( ( $sRes, $sSAPSID, $sGroup ) = splice ( @lsEnques, 0, 3 ) ) ) {
( $sRes, $sInstType ) = $sRes =~ /([^:]+)/g;
#-------------------------------
# Passed group has ENQ(UE|REP)..
#-------------------------------
if ( $sGrp eq $sGroup ) {
if ( $sInstType =~ /ENQUEUE/io ) {
&logInfo ( 20258,
"<%s> +------- Group [%s] has ENQUEUE variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsEnqueues { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
elsif ( $sInstType =~ /ENQREP/io ) {
&logInfo ( 20259,
"<%s> +------- Group [%s] has ENQREP variant -------+",
$sMyName, $sGrp );
#--------
# Store..
#--------
push @{ $hsSwEnqReps { $sRes } },
$sSAPSID, $sInstType, $sGroup; # Store..
}
}
&logTrace ( 20260,
"<%s> Resource [%s] SAPSID [%s] InstType [%s] found in Group [%s]",
$sMyName, $sRes, $sSAPSID, $sInstType, $sGroup );
}
#-----------------------------------------------
# Find online resources and list their details..
#-----------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise..
$i = 0;
&logTrace ( 20261,
"<%s> Looking for all ONLINE SAPNW04 resources", $sMyName );
@lsEnqReps =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
( /^(\S+).*Group.*\s+(\S+)/ && # Mark resource, and group name..
( $sGroup = "$1:$2" ) && 0 ) || # Store, and always make false..
( s/.*\s(\S+)\s+ONLINE$/$1/ && ++ $i ) || # If online, get node name, set flag..
( $i && # If flag..
/EnqSrvResName|InstType|SAPSID/ && # and contains one of these..
s/.*\s+// ) || # get the last field..
( $i && # If flag, use demarker..
s/#/sprintf ( $sGroup, -- $i )/e ) # to print the group name.. reset flag..
} @lsCpy; # From the copy..
&logTrace ( 20262,
"<%s> EnqReps [%s]", $sMyName, join(' ', @lsEnqReps) );
while ( 5 == ( ( $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID, $sGroup ) = splice ( @lsEnqReps, 0, 5 ) ) ) {
$sNodeName =~ s/.*://; # Remove cluster component, under GCO..
( $sRes, $sGroup ) = $sGroup =~ /([^:]+)/g;
#----------------------------------
# Store only ENQ(UE|REP) variants..
#----------------------------------
if ( $sInstType =~ /ENQREP/io ) {
&logTrace ( 20263, "<%s> Located ENQREP variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvResName [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsEnqReps { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
elsif ( $sInstType =~ /ENQUEUE/io ) {
$sEnqSrvRes = ""; # Truncate..
&logTrace ( 20264, "<%s> Located ENQUEUE variant. Resource [%s] details:
Group [%s] Node [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s]",
$sMyName, $sRes, $sGroup, $sNodeName, $sEnqSrvRes, $sInstType, $sSAPSID );
push @{ $hsOnlineEnqueues { $sRes } },
$sGroup, $sEnqSrvRes, $sInstType, $sSAPSID, $sNodeName;
}
}
#--------------------------------------------
# Validate if group has ENQ(UE|REP) variant..
#--------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
if ( keys %hsEnqueues ) {
&logInfo ( 20265,
"<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s].",
$sMyName, $sGrp, join ( ' ' , keys %hsEnqueues ) );
}
elsif ( keys %hsSwEnqReps ) {
#------------------------------------------
# Get all valid nodes for the faulted REP..
#------------------------------------------
@lsCpy = @lsHaresOut; # Re-initialise.
$sRes = join ( '|', keys %hsSwEnqReps );
$sDisp = join ( ' ', keys %hsSwEnqReps );
&logInfo ( 20266,
"<%s> Failover Group [%s] has ENQREP variant resource(s) [%s]",
$sMyName, $sGrp, $sDisp );
%hsFltd = map { $_ => 1 } # All faulted nodes..
grep { # Grep'ed here..
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*FAULTED/$2/ # Pick all nodes where FAULTed..
} @lsCpy; # From cmd output..
@lsCpy = @lsHaresOut; # Re-initialise.
@lsValidNodes =
grep {
( s/\n// || 1 ) && # Chomp, and always make true..
s/^($sRes).*State\s+(\S+).*LINE/$2/ || # Pick the node not FAULTed..
s/^($sRes).*EnqSrvResName.*\s+(\S+)/::$2/ # And EnqSrvResName..
} @lsCpy; # From cmd output..
#-------------------------------------------------
# Now extract EnqSrvResName and configured nodes..
#-------------------------------------------------
@lsCpy = @lsValidNodes; # Re-use..
@lsValidNodes = (); # Truncate..
foreach $sKey ( @lsCpy ) {
if ( $sKey =~ /^::/ ) { # EnqResName found..
( $sEnqRes = $sKey ) =~ s/:://;
}
else {
$sKey =~ s/.*://; # Remove cluster component, under GCO..
push ( @lsValidNodes, $sKey ) unless $hsFltd { $sKey };
}
}
&logTrace ( 20267,
"<%s> Nodes on which Service Group not in FALUTED state [%s]",
$sMyName, join(' ', @lsValidNodes) );
( $sRes ) = keys %hsSwEnqReps; # Take one..
#--------------------
# Remove duplicates..
#--------------------
%hsFltd = (); # Truncate..
@lsValidNodes = grep { ! $hsFltd { $_ } ++ } @lsValidNodes;
&logTrace ( 20268,
"<%s> One of ENQREP resource(s) [%s] defines EnqSrvResName as [%s].
Details for ENQREP resource [%s]:
InstType [%s] SAPSID [%s]. Possible failover nodes [%s]",
$sMyName, $sDisp, $sEnqRes, $sRes,
${ $hsSwEnqReps { $sRes } } [1], ${ $hsSwEnqReps { $sRes } } [0],
join ( ' ', @lsValidNodes ) );
#--------------------------------------------------------
# Check if the node on which service group is configured
# is Running at this moment..
#--------------------------------------------------------
@lsValidNodes = grep { $hsHasysRunning { $_ } } @lsValidNodes;
&logTrace ( 20269,
"<%s> Valid nodes for ENQREP failover targets [%s]",
$sMyName, join ( ' ', @lsValidNodes ) );
#--------------------------
# If online ENQUEUE found..
#--------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } ) {
&logTrace ( 20270,
"<%s> Details for defined ENQUEUE resource [%s]:
InstType [%s] SAPSID [%s] online on node [%s]",
$sMyName, $sEnqRes, ${ $hsOnlineEnqueues { $sEnqRes } } [2],
${ $hsOnlineEnqueues { $sEnqRes } } [-2],
${ $hsOnlineEnqueues { $sEnqRes } } [-1] );
}
else {
&logWarn ( 20271,
"<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster", $sMyName );
}
#-----------------------------
# Now validate EnqSrvResName..
#-----------------------------
if ( defined $hsOnlineEnqueues { $sEnqRes } && # Defined..
( $hsInstMatch { ${ $hsSwEnqReps { $sRes } } [1] } eq # InstType pair..
${ $hsOnlineEnqueues { $sEnqRes } } [2] ) && # is a match..
( ${ $hsSwEnqReps { $sRes } } [0] eq # SAPSID..
${ $hsOnlineEnqueues { $sEnqRes } } [-2] ) ) { # matches..
$sTempNode = ${ $hsOnlineEnqueues { $sEnqRes } } [-1]; # Get the online node..
( $sFailHost ) = grep { # Find the node other than..
! /^($sTempNode|$sFaultedNode)$/o && # ENQUEUE online or faulted..
! $hsHasysFault{$_} # nodes faulted..
} @lsValidNodes; # From all posibilities..
#---------------------------------------------------
# Check if we are in a position to failover safely..
#---------------------------------------------------
if ( $sFaultedNode ne 'UNDEF' || $sReason ne 'MANUAL' ||
( $sFaultedNode eq 'UNDEF' && $sReason eq 'MANUAL' && (scalar @lsHasysFault || $sTempNode eq $sSys)) ) {
if ( defined $sFailHost ) {
&logInfo ( 20272,
"<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s]",
$sMyName, $sTempNode, $sGrp, $sFailHost );
}
else { # Prevent onlining..
&logError ( 20273,
"<%s> Could not locate any node to online Group [%s]",
$sMyName, $sGrp );
return $iReturnCode; # Error.. Prevent online of ENQREP..
}
}
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20274,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20275,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
else {
&logError ( 20276,
"<%s> Failover group [%s] does not have any online ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
}
else {
&logInfo ( 20277,
"<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant",
$sMyName, $sGrp );
return 0; # Do nothing..
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
&logTrace ( 20278,
"<%s> +----- ENQREP online node and group details -----+", $sMyName );
#----------------------------------------------
# Remove ENQREPs whose EnqRepSrv aren't found..
#----------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ! $hsEnqueues { ${$hsEnqReps { $sKey } }[1] } ) { # Not in passed group..
&logTrace ( 20279,
"<%s> EnqResName [%s] resource not found in Grp [%s].
Marked resource [%s] invalid",
$sMyName, ${$hsEnqReps { $sKey } }[1], $sGrp, $sKey );
delete $hsEnqReps { $sKey }; # Then delete..
}
else {
++ $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Else store online node..
++ $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Else store group..
&logTrace ( 20280,
"<%s> Online node [%s] Group [%s]",
$sMyName, ${$hsEnqReps{$sKey}}[-1], ${$hsEnqReps{$sKey}}[0] );
}
}
#------------------------------------------------
# Validate if we have any online ENQREP variant..
#------------------------------------------------
if ( ! keys %hsEnqReps && $sReason ne 'MANUAL' ) {
$sFailHost = $sSys; # Fail-over to the default node..
&logCritical ( 20281,
"<%s> Corresponding ENQREP server(s) not found ONLINE in cluster.
Onlining group [%s] on node [%s]", $sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20282,
"<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return $iReturnCode; # Success..
}
else {
&logError ( 20283,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
return 0; # Error..
}
}
#-----------------------------------------------
# Check if we have ENQREPs in different groups..
#-----------------------------------------------
if ( keys %hsEnqRepGrps > 1 ) {
&logCritical ( 20284,
"<%s> ENQREP configured in different service groups [%s]",
$sMyName, join ( ' ', keys %hsEnqRepGrps ) );
}
#----------------------------------------------
# Now check if we have a unique failover node..
#----------------------------------------------
if ( keys %hsEnqRepHosts > 1 ) {
&logCritical ( 20285,
"<%s> ENQREP found online on different nodes [%s]",
$sMyName, join ( ' ', keys %hsEnqRepHosts ) );
#------------------------------------------
# Delete entries for all other than JENQREP..
#------------------------------------------
foreach $sKey ( keys %hsEnqReps ) {
if ( ${$hsEnqReps { $sKey } }[2] ne 'JENQREP' ) {
&logError ( 20286,
"<%s> Marking resource [%s] with InstType [%s] as invalid",
$sMyName, $sKey, ${$hsEnqReps { $sKey } }[2] );
#--------------------------
# Delete in correct order..
#--------------------------
delete $hsEnqRepHosts { ${$hsEnqReps { $sKey } }[-1] }; # Delete node first..
delete $hsEnqRepGrps { ${$hsEnqReps { $sKey } }[0] }; # Delete group next..
delete $hsEnqReps { $sKey }; # Now the resource..
}
}
}
#-------------------------
# Find out failover node..
#-------------------------
foreach $sKey ( keys %hsEnqReps ) {
&logTrace ( 20287,
"<%s> EnqRep server [%s] details:
Group [%s] EnqSrvRes [%s] InstType [%s] SAPSID [%s] online on [%s]",
$sMyName, $sKey,
${ $hsEnqReps { $sKey } }[0], ${ $hsEnqReps { $sKey } }[1],
${ $hsEnqReps { $sKey } }[2], ${ $hsEnqReps { $sKey } }[3],
${ $hsEnqReps { $sKey } }[4] );
#-----------------------------------------------------------
# Enqueue has been defined in EnqResName of ENQREP variant..
#-----------------------------------------------------------
if ( scalar @{ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } } ) { # EnqResName is correct..
if ( ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0] ne # SAPSID of ENQUEUE variant..
${$hsEnqReps { $sKey }}[3] ) { # ne SAPSID of ENQREP..
&logError ( 20288,
"<%s> SAPSID [%s] of ENQREP resource [%s] differs from
SAPSID [%s] of ENQUEUE resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[3], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqReps { $sKey } }[1] );
}
elsif ( uc ${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1] ne # ENQUEUE variant..
$hsInstMatch { uc ${$hsEnqReps {$sKey }}[2] } ) { # not correct match..
&logError ( 20289,
"<%s> InstType [%s] of ENQREP resource [%s] not a match for
InstType [%s] of ENQUEUE resource [%s]", $sMyName,
${$hsEnqReps { $sKey }}[2], $sKey,
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqReps { $sKey } }[1] );
}
else { # All okay..
&logTrace ( 20290,
"<%s> EnqSrvResName [%s] matches with:
ENQUEUE SAPSID [%s] InsType [%s] Group [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[0],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[1],
${ $hsEnqueues { ${$hsEnqReps { $sKey }}[1] } }[2] );
#-----------------------------------------------------
# Failover to ENQREP's node, if not the FAULTED node..
#-----------------------------------------------------
$sFailHost = ${ $hsEnqReps { $sKey } }[-1] eq $sFaultedNode ? $sSys :
${ $hsEnqReps { $sKey } }[-1];
}
}
else { # EnqResName is wrong..
&logError ( 20291,
"<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s]",
$sMyName, ${$hsEnqReps { $sKey }}[1], $sKey );
}
}
&logInfo ( 20292, "<%s> Failing over Group [%s] to node [%s]",
$sMyName, $sGrp, $sFailHost );
#-------------------------------
# Online group to default node..
#-------------------------------
if ( SAPNW04::OnlineGrp ( $sGrp,
$sFailHost ) ) {
&logInfo ( 20293, "<%s> Issued online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
}
else {
&logError ( 20294,
"<%s> Could not issue online of Group [%s] on node [%s]",
$sMyName, $sGrp, $sFailHost );
$iReturnCode = 0; # Do nothing..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool OnlineGrp ( IN String Grp,
IN String Sys );
Description : Pre-online trigger for SAPNW04
Parameters :
$Grp Cluster group to online
$sSys System where the group is asked to be made online
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub OnlineGrp {
#----------------
# Get Arguments..
#----------------
my ( $sGrp,
$sSys ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20295, "Subroutine <%s> called with:
Grp [%s]
Sys [%s]",
$sMyName, $sGrp, $sSys );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Define local variables..
#-------------------------
my $sCmd = $sCmdHagrp; # Get global..
my @lsCmdArgs = ( "-online", "-nopre", "$sGrp", "-sys", "$sSys" );
my $iExitCode = undef;
&logTrace ( 20296, "<%s> Executing Command [%s] with arguments [%s]",
$sMyName, $sCmd, join( ' ', @lsCmdArgs ) );
#-------------------------------
# Validate and execute command..
#-------------------------------
if ( ! -e $sCmd ) {
&logError ( 20297,
"<%s> Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCmd ) {
&logError ( 20298,
"<%s> Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = 0; # Failure..
}
else { # Execute..
&logTrace ( 20299,
"<%s> Executing Cmd [%s] with args [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ) );
system ( $sCmd, @lsCmdArgs ); # Execute..
#-------------------------
# Check execution status..
#-------------------------
if ( $iExitCode = $? >> 8 ) {
&logError ( 20300,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20301,
"<%s> Cmd [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCmd, join ( ' ', @lsCmdArgs ), $iExitCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetVersionInfo ( IN String SAPSid,
IN String InstName,
IN String SAPAdmin,
IN String EnvFile,
IN Integer Timeout);
Description : Get the kernel version of jlaunch
Parameters :
$sSAPSid SAPSID attribute of the SAP resource
$sInstName Instance name attribute of the SAP resource
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$iTimeout Time in seconds for execution
$riVersion Reference to version of jlaunch
Returns : integer value which represents the kernel version of jlaunch
-------------------------------------------------------------------------
=cut
sub GetVersionInfo {
#----------------
# Get Arguments..
#----------------
my ( $sSAPSid,
$sInstName,
$sSAPAdmin,
$sEnvFile,
$iTimeout,
$riVersion ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20341, "Subroutine <%s> called with:
sSAPSid [%s]
InstName [%s]
SAPAdmin [%s]
EnvFile [%s]
Timeout [%s]",
$sMyName,
$sSAPSid,$sInstName,$sSAPAdmin, $sEnvFile, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut,$sVersionFile,$iVersion ,$sCmd,$sCmdArgs) = ();
$iVersion = 0 ;
#---------------------------------------------
# Attempt to get the kernel version.
#---------------------------------------------
$sVersionFile = "/tmp/.VRTSSAPNW04/" . $sSAPSid . "_" . $sInstName . "_". "versionfile";
if ( ! -e $sVersionFile ) {
&logTrace ( 20342, "<%s> Version file [%s] does not exist",
$sMyName, $sVersionFile );
}
elsif ( ! -s $sVersionFile ) {
&logTrace ( 20343, "<%s> Version file [%s] is of zero bytes",
$sMyName, $sVersionFile );
}
elsif ( open ( VERSIONFILE, $sVersionFile ) ) {
( $iVersion ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iVersion = '' unless defined $iVersion; # Avoid undefs..
close ( VERSIONFILE ) || # Close file..
&logTrace ( 20344,
"<%s> Could not close Version file [%s] after read [%s]",
$sMyName, $sVersionFile, $! );
$$riVersion = $iVersion; # Store.
return $iReturnCode;
}
else {
&logTrace ( 20345,
"<%s> Failed to open Version file [%s] for read: [%s]",
$sMyName, $sVersionFile, $! );
}
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCmd = "/usr/sap/$sSAPSid/SYS/exe/run/sapcontrol";
$sCmdArgs = "-nr $iInstID -function GetVersionInfo";
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20346,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20347,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20348,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut ) ) {
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20349,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get version of jlaunch.
#------------------------------------------------------
foreach ( @lsCmdOut ) {
if ( $_ =~ /\b(jlaunch)\b\,\s*(\d+)\b/io)
{
$iVersion = $2 ;
$$riVersion = $2 ; # Store.
}
}
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20351,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20352,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
#------------------
# Create Version file..
#------------------
&logTrace ( 20353,
"<%s> Creating Version file [%s]",
$sMyName, $sVersionFile);
if ( sysopen ( VERSIONFILE, $sVersionFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print VERSIONFILE $iVersion, "\n"; # Update..
unless ( close ( VERSIONFILE ) ) {
&logWarn ( 20354,
"<%s> Failed to close VersionFile [%s] after update: [%s]",
$sMyName, $sVersionFile, $! );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
}
else {
&logWarn ( 20355,
"<%s> Failed to create VersionFile [%s] with Version [%s]",
$sMyName, $sVersionFile, $iVersion );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool DeleteVersionFile ( IN String SAPSid,
IN String InstName );
Description : Deletes version file for kernel.
Parameters :
$sSAPSid SAPSID attribute of the SAP resource
$sInstName Instance name attribute of the SAP resource
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeleteVersionFile {
#----------------
# Get Arguments..
#----------------
my ( $sSAPSid,$sInstName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20356, "Subroutine <%s> called with:
SAPSid [%s]
InstName [%s]",
$sMyName, $sSAPSid, $sInstName);
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sVersionFile, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20357,
"<%s> Deleting version file.",
$sMyName);
$sVersionFile = "/tmp/.VRTSSAPNW04/" . $sSAPSid . "_" . $sInstName . "_". "versionfile"; ;
if ( -f $sVersionFile ) {
$iRet = system("/bin/rm -rf $sVersionFile") ;
if ( $iRet == 0 ) {
&logTrace ( 20358,
"<%s> Successfully deleted version file[%s].",
$sMyName, $sVersionFile );
$iReturnCode = 0;
}
else {
&logWarn ( 20359,
"<%s> Failed to delete version file [%s]. Remove the file manually.",
$sMyName, $sVersionFile );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20360,
"<%s> Version file [%s] doesn't exist.",
$sMyName, $sVersionFile );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecGetProcList ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Instance based on sapcontrol command.
Parameters :
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to sapcontrol binary
$sCmdArgs Argument list for sapcontrol
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecGetProcList {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20361, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20362,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20363,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20364,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
$iReturnCode = SAPNW04::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
if( defined $iExitCode ){
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20365,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPNW04::GetSapControlStatus (\@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20366,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif( $iExitCode == 4 ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20367,
"<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped",
$sMyName, $sCmd );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20368,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetSapControlStatus ( IN RefStrList CmdOut );
Description : Decides on status of SAP Instance based on given sapcontrol
output.
Parameters :
$rlsCmdOut Reference to list containing output from sapcontrol execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetSapControlStatus {
#----------------
# Get Arguments..
#----------------
my ( $rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20369, "Subroutine <%s> called with:
rlsCmdOut [%s]",
$sMyName, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $iSrv, $iRunning ) = ( 0 ) x 2;
foreach ( @$rlsCmdOut ) {
if ( $_ =~ /\b(Dispatcher)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
&logTrace ( 20370, "<%s> Dispatcher is in running state",$sMyName );
last;
}
}
#-----------------
# Check on state..
#-----------------
if ( $iRunning ) { # One server running..
&logTrace ( 20371,
"<%s> Found [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20372,
"<%s> Status of SAP instance undecided.\nReturning [%s]",
$sMyName, $iReturnCode );
}
return $iReturnCode;
}
1; # So PERL knows its included..
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPComponents/ 0000755 0000000 0000000 00000000000 13320062025 023313 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPComponents/SAPComponents.pm 0000555 0000000 0000000 00000344367 13320062025 026364 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPComponents/SAPComponents.pm,v 1.7 2013/04/25 12:01:34 avaidya Exp $
#
# $sAuthor: $
#
# $Date: 2013/04/25 12:01:34 $
# $Revision: 1.7 $
#
# Provides: SAPComponents
# Author: rajeevk
# crAgent Build: 1.91 2009/09/07 08:42:27
# crAgent Run Date: 24 Aug, 2010
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
#------------
# Be strict..
#------------
use strict;
#----------------------
# Declare the package..
#----------------------
package SAPComponents;
use ag_i18n_inc;
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use Sys; # Support generalized UNIX commands
use Proc; # For calls to the process routines
use Comms; # For calls to socket(3C) routines
use Version; # Version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#--------------------------------
# Include standard PERL modules..
#--------------------------------
use Fcntl;
use Socket;
use File::Path qw ( mkpath );
use File::stat;
my ( $CLUS_HOME, $sPrefix ) = ();
#------------------------
# Setup VCS/VCSone home..
#------------------------
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.x/VCSOne..
$CLUS_HOME ||= $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone";
}
else { # VCS 4.x..
$CLUS_HOME ||= $ENV { VCS_HOME } ||= "/opt/VRTSvcs";
}
( $sPrefix ) = $CLUS_HOME =~ /.*(vad|vcs(|one))$/;
#-----------------------------------------
# Define module-vendor specific commands..
#-----------------------------------------
my $sCmdHares = $HARES ||= "$CLUS_HOME/bin/hares";
my $sCmdHatype = $HATYPE ||= "$CLUS_HOME/bin/hatype";
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: SAPComponents.pm,v 1.7 2013/04/25 12:01:34 avaidya Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#-----------------
# Define globals..
#-----------------
my ( $iSapStartSrv, @liRunningProcs ) = (); # Global.
#--------------------------------
# Define SAPComponents subroutines..
#--------------------------------
=pod
-------------------------------------------------------------------------
Function : bool ArgsValid ( IN String EntryPointName,
IN String SAPAdmin,
IN String EnvFile,
IN String InstProfile,
IN String ComponentType,
IN Integer SecondLevelMonitor,
IN String MonitorProgram );
Description : Validates the ArgList passed to the entry point.
Parameters :
$sEntryPointName Entry point name
$localSAPAdmin The dedicated user for the SAP Components
$localEnvFile Absolute path to environment file to source
$localInstProfile Specifies the full path and file name of the SAP Instance Profile.
$localComponentType String identifier that classifies and describes the SAP Component.
$localSecondLevelMonitor Cycle count to run in-depth monitoring
$localMonitorProgram Full path to external monitor program
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ArgsValid {
#----------------------------------------
# Set up local vars from passed in ones..
#----------------------------------------
my ( $sEntryPointName,
$localSAPAdmin,
$localEnvFile,
$localInstProfile,
$localComponentType,
$localSecondLevelMonitor,
$localMonitorProgram ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20001, "Subroutine <%s> called with:
EntryPointName [%s]
SAPAdmin [%s]
EnvFile [%s]
InstProfile [%s]
ComponentType [%s]
SecondLevelMonitor [%s]
MonitorProgram [%s]",
$sMyName, $sEntryPointName, $localSAPAdmin, $localEnvFile,
$localInstProfile, $localComponentType, $localSecondLevelMonitor,
$localMonitorProgram );
#-------------------------------------
# Set return code to hopeful success..
#-------------------------------------
my $iReturnCode = 1;
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my ( @lsMissing, %hsArgList ) = ();
my @lsArgs =
qw ( EntryPointName SAPAdmin EnvFile InstProfile ComponentType
SecondLevelMonitor MonitorProgram );
@hsArgList { @lsArgs } = @_; # Assign..
#----------------------------------------
# Reqd. attributes based on entry point..
#----------------------------------------
my @lsOnlineArgs = qw ( EnvFile SAPAdmin InstProfile ComponentType );
my @lsOfflineArgs = qw ( SAPAdmin InstProfile ComponentType );
my @lsMonitorArgs = qw ( SAPAdmin InstProfile ComponentType );
my @lsCleanArgs = qw ( SAPAdmin InstProfile );
my %hlsNeeded = ( 'online' => \@lsOnlineArgs,
'offline' => \@lsOfflineArgs,
'monitor' => \@lsMonitorArgs,
'clean' => \@lsCleanArgs );
my @lsReqdArgs = @{ $hlsNeeded { $sEntryPointName } };
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20002,
"<%s> The following mandatory fields were not set [%s], Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return, if failed..
#-----------------------------
# Remove SLM file, if exists..
#-----------------------------
if ( $sEntryPointName ne 'monitor' ) {
VCSagentFW::RunSecondLevelMonitor ( 1 ); # Delete..
}
#-------------------------------
# Individual validation starts..
#-------------------------------
my ($sSAPSID, $sInstName, $sSAPHost) = ();
my (@lsWords) = ();
(@lsWords) = split( /\//, $localInstProfile);
($sSAPSID, $sInstName, $sSAPHost) = split(/_/, $lsWords[-1]);
#-------------------------------------------------------
# Validation for online offline monitor entry point(s)..
#-------------------------------------------------------
if ( $sEntryPointName =~ /^(online|offline|monitor)$/o ) {
#------------------------------
# Validate parameter SAPAdmin..
#------------------------------
if ( ! defined getpwnam $localSAPAdmin ) {
&logError ( 20003, "<%s> SAPAdmin [%s] is not a valid UNIX login",
$sMyName, $localSAPAdmin );
$iReturnCode = 0; # Failure..
}
}
#---------------------------------------
# Validation for online entry point(s)..
#---------------------------------------
if ( $sEntryPointName eq "online" ) {
#-----------------------------
# Validate parameter EnvFile..
#-----------------------------
if ( ! -e $localEnvFile ) {
&logError ( 20004, "<%s> EnvFile [%s] file does not exist",
$sMyName, $localEnvFile );
$iReturnCode = 0; # Failure..
}
#---------------------------------------
# Validate SAPHost..
#---------------------------------------
if ( ! inet_aton ( $sSAPHost ) ) {
&logError ( 20005,
"<%s> InstProfile [%s] not terminated with valid hostname [%s]",
$sMyName, $localInstProfile, $sSAPHost );
$iReturnCode = 0; # Failure..
}
#------------------------------------
# Validate parameter MonitorProgram..
#------------------------------------
if ( $localMonitorProgram =~ /(\S+)/ && # Defined..
! -x $1 ) {
&logError ( 20006, "<%s> MonitorProgram [%s] is not executable",
$sMyName, $1 );
$iReturnCode = 0; # Failure..
}
#-------------------------------
# Validate parameter InstProfile..
#-------------------------------
if ( ! -e $localInstProfile ) { # move it to only online
&logError ( 20007,
"<%s> InstProfile [%s] directory does not exist",
$sMyName, $localInstProfile );
$iReturnCode = 0; # Failure..
}
}
#----------------------------------
# Validation for all entry points..
#----------------------------------
#-----------------------------------------
# SAPSID.. must be three characters long..
#-----------------------------------------
if ( $sSAPSID !~ /^\S{3}$/o ) {
&logError ( 20008,
"<%s> SAPSID [%s] has to be exactly 3 non-white alpha-numeric characters long",
$sMyName, $sSAPSID );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# InstName. Last two chars 00 - 99..
#-----------------------------------
unless ( $sInstName =~ /(\d{2})$/o ) {
&logError ( 20009,
"<%s> Last two characters of InstName [%s] not between 00-99",
$sMyName, $sInstName );
$iReturnCode = 0; # Failure..
}
#-----------------------
# Valid ComponentTypes..
#-----------------------
my %hsInstTypes = ( 'Gateway' => 1,
'WebDispatcher' => 1,
'MDM' => 1 );
if ( ! $hsInstTypes { $localComponentType } ) {
&logError ( 20010,
"<%s> InstType [%s] invalid. Has to be one of [%s]",
$sMyName, $localComponentType, join ( ' ', keys %hsInstTypes ) );
$iReturnCode = 0; # Failure..
}
$iReturnCode ||
&logWarn ( 20011,
"<%s> Some of the attributes could not be validated. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode ;
}
=pod
-------------------------------------------------------------------------
Function : bool Start ( IN String ComponentType,
IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName,
IN String SAPHost
IN Integer SecondLevelMonitor
IN String MonitorProgram);
Description : Start logic needed for online entry pt
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sSAPAdmin The dedicated user for the SAP Components
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$sSAPHost SAP Instance virtual host name
$iSecondLevelMonitor Cycle count to run in-depth monitoring
$sMonitorProgram External Monitor command
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Start {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName,
$sSAPHost,
$iSecondLevelMonitor,
$sMonitorProgram ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20012, "Subroutine <%s> called with:
ComponentType [%s]
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]
SAPHost [%s]
SecondLevelMonitor [%s]
MonitorProgram [%s]",
$sMyName, $sComponentType, $sEnvFile, $sInstProfile, $sSAPAdmin,
$sSAPSID, $sSAPHome, $sInstName, $sSAPHost, $iSecondLevelMonitor, $sMonitorProgram );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-------------------------
# Define local variables..
#-------------------------
my ( $sCommand, $sCommandArgs, $iTillWhen, $iExitCode, $iTimeout,
@lsCmdout, @liPids ) = ();
#------------------------------------------------
# Whack any preexisting SAPComponents processes..
#------------------------------------------------
&logTrace ( 20013,
"<%s> Killing SAPComponents processes for this instance", $sMyName );
if ( SAPComponents::KillSAPComponentsProcesses ( $sInstProfile,
$sComponentType,
$sSAPAdmin ) ) {
&logTrace ( 20014,
"<%s> Processes for this instance do not exist before start-up",
$sMyName );
}
else {
&logError ( 20015,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#--------------------
# Return, if failed..
#--------------------
$iReturnCode || return $iReturnCode;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
$iTillWhen = $^T + SAPComponents::GetEngineTimeout ( 1 );
my $iInstID = ();
#--------------------------------------------------------
# Clean IPC resources for the instance ..
#--------------------------------------------------------
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
( @lsCmdout, $iExitCode, $iTimeout ) = ();
&logTrace ( 20016,
"<%s> Cleaning IPC resources for SAP instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20017,
"<%s> Insufficient time to run cleanipc. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20018,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#--------------------
# Return, if failed..
#--------------------
$iReturnCode || return $iReturnCode;
my ($sKillFile, $sShutdownFile, @lsFiles ) = ();
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20019,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20020,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20021, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
}
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ? ">>& /dev/null":
"1>> /dev/null 2>&1";
#------------------------------------------
# Define start command and args variables..
#------------------------------------------
( @lsCmdout, $iExitCode, $iTimeout ) = ();
if( $sComponentType =~ /^MDM$/o ) {
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = "-nr $iInstID -function StartService $sSAPSID";
&logTrace ( 20334,
"<%s>Starting SAPComponents instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20335,
"<%s>Insufficient time to continue boot up. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20336,
"<%s>Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#--------------------
# Delay entry point..
#--------------------
my $iSleepTime = 10; # Secs..
sleep $iSleepTime; # Sec..
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = "-nr $iInstID -function Start";
}
else
{
$sCommand = "$sSAPHome/startsap";
$sCommandArgs = "r3 $sInstName $sSAPHost $sRdStr";
}
&logTrace ( 20022,
"<%s> Starting SAPComponents instance with Cmd [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------
# Request startup..
#------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20023,
"<%s> Insufficient time to continue boot up. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20024,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#-------------------
# Return if failed..
#-------------------
$iReturnCode || return $iReturnCode;
#--------------------
# Delay entry point..
#--------------------
my $iSleepTime = 10; # Secs..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
@liPids = (); # Initialise..
sleep $iSleepTime; # Sec..
&logTrace ( 20025,
"<%s> Confirming start-up with [%s] sec in hand",
$sMyName, $iTimeout - $iSleepTime );
#---------
# Do FLM..
#---------
if ( VCSDef_MonitorExit::ONLINE ==
SAPComponents::GetProcState ( \@liPids,
$sComponentType,
$sSAPAdmin,
$sInstProfile,
1 ) ) { # Running FFLM..
#---------------------
# Start-up confirmed..
#---------------------
&logInfo ( 20026,
"<%s> Process check confirmed start-up of this instance of SAP Component",
$sMyName );
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20027,
"<%s> Process check could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
}
}
#---------------------------------------------
# Delay Entry point for SeconfLevel monitoring
#---------------------------------------------
if ( $iSecondLevelMonitor ) { # If enabled..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
@liPids = (); # Initialise..
sleep $iSleepTime; # Sec..
&logTrace ( 20028,
"<%s> Confirming start-up with [%s] sec in hand by health check",
$sMyName, $iTimeout - $iSleepTime );
#---------
# Do SLM..
#---------
if ( VCSDef_MonitorExit::ONLINE == # Online after..
SAPComponents::SecondLevelMonitor ( $sComponentType, # Running SLM..
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPHome,
$sInstName,
$sSAPHost,
$iTillWhen ) ) {
#---------------------
# Start-up confirmed..
#---------------------
&logInfo ( 20029,
"<%s> Second Level Monitor confirmed start-up of this instance of SAP Component",
$sMyName );
$iReturnCode = 1; # Success..
last;
}
else {
&logTrace ( 20030,
"<%s> Second Level Monitor could not confirm start-up. Sleeping for [%s] sec",
$sMyName, $iSleepTime );
$iReturnCode = 0; # Failure..
}
}
}
#----------------------------------------------------------
# MonitorProgram defined..
# Delay Entry proint to confirm startup by external monitor
#----------------------------------------------------------
if ( $sMonitorProgram =~ /\S+/ ) {
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
while ( ( $iTimeout = $iTillWhen - time ) > 10 ) {
if ( VCSDef_MonitorExit::ONLINE == # and found online..
SAPComponents::ExternalMonitor ( $sSAPAdmin,
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) {
&logTrace ( 20031,
"<%s> Confirmed start-up of SAP component after external monitor [%s]
with args [%s]",
$sMyName, $sExtCmd, $sExtCmdArgs );
$iReturnCode = 1; # Success..
last;
}
else {
&logError ( 20032,
"<%s> Could not confirm start-up after
executing external monitor [%s] with args [%s]. Sleeping for [%s] sec",
$sMyName, $sExtCmd, $sExtCmdArgs, $iSleepTime );
sleep $iSleepTime; # Sec..
$iReturnCode = 0; # Failure..
}
}
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Stop ( IN String ComponentType,
IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName
IN String SAPHost );
Description : Stop logic needed for offline entry pt
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sSAPAdmin The dedicated user for the SAP Components
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$sSAPHost SAP Instance virtual host name
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Stop {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName,
$sSAPHost ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20033, "Subroutine <%s> called with:
ComponentType [%s]
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]
SAPHost [%s]",
$sMyName, $sComponentType, $sEnvFile, $sInstProfile, $sSAPAdmin,
$sSAPSID, $sSAPHome, $sInstName, $sSAPHost );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPComponents::GetEngineTimeout ( 1 ); # With margin..
#------------------------------------------
# Declare stop command and args variables..
#------------------------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode, $iSleepTime,
@lsCmdout, @liPids ) = ();
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ? ">>& /dev/null":
"1>> /dev/null 2>&1";
#------------------------------------
# Define stop command and arguments..
#------------------------------------
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
if( $sComponentType =~ /^MDM$/o ) {
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = "-nr $iInstID -function Stop";
&logTrace ( 20337,
"<%s>Stopping SAPComponents with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20338,
"<%s>Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20339,
"<%s>Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#--------------------
# Delay entry point..
#--------------------
my $iSleepTime = 10; # Secs..
sleep $iSleepTime; # Sec..
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = "-nr $iInstID -function StopService $sSAPSID";
}
else
{
$sCommand = "$sSAPHome/stopsap";
$sCommandArgs = "r3 $sInstName $sSAPHost $sRdStr";
}
&logTrace ( 20034,
"<%s> Stopping SAPComponents with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20035,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20036,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
#--------------------
# Delay entry point..
#--------------------
if ( $iReturnCode ) { # Success..
#-----------------
# Set sleep time..
#-----------------
$iSleepTime = 10; # Sec..
&logInfo ( 20037,
"<%s> Delaying exit to confirm shutdown..", $sMyName );
#--------------------
# Delay entry point..
#--------------------
while ( ( $iTimeout = $iTillWhen - time ) > 20 ) {
#-----------------------
# Wait before retrying..
#-----------------------
sleep $iSleepTime; # Secs..
SAPComponents::GetProcState ( \@liPids,
$sComponentType,
$sSAPAdmin,
$sInstProfile,
0 ); # Request regular..
#------------------------------
# Check for pending processes..
#------------------------------
if ( scalar @liPids ) {
#-----------------------------------------------
# Check if the last process is not sapstartsrv..
#-----------------------------------------------
if ( 1 == scalar @liPids && # Last remaining..
defined $iSapStartSrv && #
$iSapStartSrv == $liPids [0] ) {
last;
}
&logTrace ( 20038,
"<%s> Could not confirm shutdown. Retrying in [%s] sec.
Delaying kill with [%s] sec in hand",
$sMyName, $iSleepTime, $iTimeout - $iSleepTime );
}
else {
&logInfo ( 20039,
"<%s> Confirmed shutdown of SAPComponents instance",
$sMyName );
last; # Get out..
}
}
}
#-----------------------------------------------
# Whack any persisting SAPComponents processes..
#-----------------------------------------------
&logTrace ( 20040,
"<%s> Killing SAPComponents processes for this instance", $sMyName );
if ( SAPComponents::KillSAPComponentsProcesses ( $sInstProfile,
$sComponentType,
$sSAPAdmin ) ) {
&logTrace ( 20041,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
}
else {
&logError ( 20042,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
my ($sKillFile, $sShutdownFile, @lsFiles ) = ();
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20043,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20044,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20045, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# Remove preexisting IPC resources..
#-----------------------------------
#----------------------------------------
# Define cleanipc command and arguments..
#----------------------------------------
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
&logTrace ( 20046,
"<%s> Stopping SAPComponent with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20047,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20048,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
&logError ( 20049,
"<%s> Could not remove all IPC resources for User [%s]",
$sMyName, $sSAPAdmin );
$iReturnCode = 0; # Failure..
}
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
SAPComponents::DeletePidFile ( $sResourceName );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool Kill ( IN Integer CleanReason,
IN String ComponentType,
IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin,
IN String SAPSID,
IN String SAPHome,
IN String InstName
IN String SAPHost );
Description : Forces shutdown of resource needed for clean entry point
Parameters :
$iCleanReason Why clean was called
$sComponentType String identifier that classifies and describes the SAP Component.
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sSAPAdmin The dedicated user for the SAP Components
$sSAPSID SAP System ID
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$sSAPHost SAP Instance virtual host name
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub Kill {
#----------------
# Get Arguments..
#----------------
my ( $iCleanReason,
$sComponentType,
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPSID,
$sSAPHome,
$sInstName,
$sSAPHost ) = @_;
#-----------------------------
# Figure out why were called..
#-----------------------------
my ( $sCleanReason, %hsCleanReasons ) = ();
my @lsCleanStrings = qw ( Offline_timed_out Offline_was_ineffective
Online_timed_out Online_was_ineffective
Found_offline_unexpectedly Monitor_timed_out );
@hsCleanReasons { 0 .. $#lsCleanStrings } = @lsCleanStrings; # Populate..
( $sCleanReason = $hsCleanReasons { $iCleanReason } || # Reason..
$iCleanReason ) =~ s/_/ /g;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20050, "Subroutine <%s> called with:
CleanReason [%s]
ComponentType [%s]
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]
SAPSID [%s]
SAPHome [%s]
InstName [%s]
SAPHost [%s]",
$sMyName, $sCleanReason, $sComponentType, $sEnvFile, $sInstProfile,
$sSAPAdmin, $sSAPSID, $sSAPHome, $sInstName, $sSAPHost );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------------------------------------------------------------
# Upper bound.. Time in EPOCH when entry pt started + VCS time limit..
#---------------------------------------------------------------------
my $iTillWhen = $^T + SAPComponents::GetEngineTimeout ( 1 ); # With margin..
#--------------------------
# Declare local variables..
#--------------------------
my ( $sCommand, $sCommandArgs, $iTimeout, $iExitCode,
@lsFiles, @lsCmdout ) = ();
#-------------------------------------------
# Get re-direct string based on user shell..
#-------------------------------------------
my $sRdStr = ( getpwnam $sSAPAdmin ) [-1] =~ /csh$/o ? ">>& /dev/null":
"1>> /dev/null 2>&1";
#------------------------------------
# Define clean command and arguments..
#------------------------------------
if( $sComponentType !~ /^MDM$/o ) {
$sCommand = "$sSAPHome/stopsap";
$sCommandArgs = "r3 $sInstName $sSAPHost $sRdStr";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
unless ( $hsCleanReasons { $iCleanReason } eq 'Offline_timed_out' ||
$hsCleanReasons { $iCleanReason } eq 'Offline_was_ineffective' ) {
#-------------------
# Try to be gentle..
#-------------------
&logInfo ( 20340,
"<%s> Attempting to stop SAPComponents with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#--------------------
# Request shutdown..
#--------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20341,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20342,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
}
}
#-----------------------------------------
# Whack any persisting SAPComponents processes..
#-----------------------------------------
&logTrace ( 20054,
"<%s> Killing SAPComponents processes for this instance", $sMyName );
if ( SAPComponents::KillSAPComponentsProcesses ( $sInstProfile,
$sComponentType,
$sSAPAdmin ) ) {
&logTrace ( 20055,
"<%s> Processes for this instance do not exist after shutdown",
$sMyName );
}
else {
&logError ( 20056,
"<%s> Could not remove all processes for this instance. Exiting",
$sMyName );
$iReturnCode = 0; # Failure..
}
#-----------------------------------
# Remove preexisting IPC resources..
#-----------------------------------
#----------------------------------------
# Define cleanipc command and arguments..
#----------------------------------------
my $iInstID = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
$sCommand = "$sSAPHome/cleanipc";
$sCommandArgs = "$iInstID remove";
( $iExitCode, $iTimeout, @lsCmdout ) = (); # Truncate..
&logTrace ( 20057,
"<%s> Stopping SAP Component with Command [%s] Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
#------------------------
# Request shutdown..
#------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20058,
"<%s> Insufficient time to continue shutdown. Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = 0; # Failure..
}
elsif ( $iReturnCode =
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout ) ) {
&logTrace ( 20059,
"<%s> Cmd [%s] with args [%s] executed successfully",
$sMyName, $sCommand, $sCommandArgs );
}
else {
&logError ( 20060,
"<%s> Could not remove all IPC resources for User [%s]",
$sMyName, $sSAPAdmin );
$iReturnCode = 0; # Failure..
}
my ($sKillFile, $sShutdownFile ) = ();
#------------------
# Remove kill.sap..
#------------------
$sKillFile = "/usr/sap/$sSAPSID/$sInstName/work/kill.sap";
if ( -e $sKillFile ) {
&logTrace ( 20061,
"<%s> Located file [%s] for removal", $sMyName, $sKillFile );
push ( @lsFiles, $sKillFile );
}
#----------------------
# Remove shutdown.sap..
#----------------------
$sShutdownFile = "/usr/sap/$sSAPSID/$sInstName/work/shutdown.sap";
if ( -e $sShutdownFile ) {
&logTrace ( 20062,
"<%s> Located file [%s] for removal", $sMyName, $sShutdownFile );
push ( @lsFiles, $sShutdownFile );
}
#-------------------
# Remove the files..
#-------------------
if ( scalar @lsFiles && ! Sys::UnlinkFilesAsUser ( @lsFiles ) ) {
&logError ( 20063, "<%s> Failed to remove stale file(s) [%s]",
$sMyName, join ( ' ', @lsFiles ) );
$iReturnCode = 0; # Failure..
}
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
SAPComponents::DeletePidFile ( $sResourceName );
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetResourceState ( IN String ComponentType,
IN String SAPAdmin,
IN String InstProfile );
Description : First level monitor to determine state of resource.
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sSAPAdmin The dedicated user for the SAP Components
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetResourceState {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sSAPAdmin,
$sInstProfile ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20064, "Subroutine <%s> called:
ComponentType [%s]
SAPAdmin [%s]
InstProfile [%s]",
$sMyName, $sComponentType, $sSAPAdmin, $sInstProfile );
my @liDummyPids = ();
my $iReturnCode = SAPComponents::GetProcState ( \@liDummyPids,
$sComponentType,
$sSAPAdmin,
$sInstProfile,
1 ); # Use FFLM..
if ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logTrace ( 20065,
"<%s> Found all required processes. Return code set to [%s]",
$sMyName, $iReturnCode );
}
else {
&logTrace ( 20066,
"<%s> Did not find all required processes. Returning [%s]",
$sMyName, $iReturnCode );
}
#--------------------------------
# Populate the global PID array..
#--------------------------------
@liRunningProcs = @liDummyPids;
&logTrace ( 20067,
"<%s> Populating global running proclist with [%s] PIDs [%s]",
$sMyName, scalar @liRunningProcs, join ( ' ', @liRunningProcs ) );
return ( $iReturnCode );
}
=pod
-------------------------------------------------------------------------
Function : int GetProcState ( OUT ListReference OnlinePids,
IN String ComponentType,
IN String SAPAdmin,
IN String InstProfile,
IN Integer UseFFLM );
Description : First level monitor to determine state of resource.
Parameters :
$rliOnlinePids PIDs of relevant running processes
$sComponentType String identifier that classifies and describes the SAP Component.
$sSAPAdmin The dedicated user for the SAP Components
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$iUseFFLM Filtering procedure
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
105 ONLINE with confidence level 50 VCSDef_MonitorExit::PARTIAL_ONLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; Statf ( $sKey eq 'sapstart' ) { # Check sapstart found ..
$iSapstartPid = $iPid;
unshift ( @$rliOnlinePids, $iPid ); # Insert at the front..
}
e couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub GetProcState {
#----------------
# Get Arguments..
#----------------
my ( $rliOnlinePids,
$sComponentType,
$sSAPAdmin,
$sInstProfile,
$iUseFFLM ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20068, "Subroutine <%s> called with:
OnlinePids [%s]
ComponentType [%s]
SAPAdmin [%s]
InstProfile [%s]
UseFFLM [%s]",
$sMyName, $rliOnlinePids, $sComponentType, $sSAPAdmin,
$sInstProfile, $iUseFFLM );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#----------------------
# Initialise Variables..
#----------------------
my ( $iProcessCount, $iUseRFLM, $iFound, $iUid, $iPid, $sLang,
$sKey, $rhlProc, $sPidFile, $sProc, $sTemp,
@hProcListHash, @lsUpdates, @lsValues,
%hiProcPids, %hsSrvrDetails, %hsCopy ) = ();
@$rliOnlinePids = ();
#------------------------------------
# Attempt to get monitoring details..
#------------------------------------
if ( ( 0 == ( $iUid = getpwnam $sSAPAdmin ) ) && # User is the super-user..
( 2 == $iUseFFLM ) ) { # And called to kill-by-UID..
&logTrace ( 20069, "<%s> Unsafe to kill processes by User [%s] UID [%s].
Using filter-based approach.", $sMyName, $sSAPAdmin, $iUid ),
$iUseFFLM = 1;
}
if ( $iUseFFLM != 2 ) { # Called for first level check..
if ( SAPComponents::GetSrvrDetails ( $sComponentType,
$sInstProfile,
\%hsSrvrDetails ) ) {
&logTrace ( 20070,
"<%s> Got details for monitoring SAPComponents instance", $sMyName );
%hsCopy = %hsSrvrDetails; # Backup..
$iUseRFLM = scalar keys %hsCopy; # Set to entire count..
}
else {
&logError ( 20071,
"<%s> Failed to get details for monitoring SAPComponents instance",
$sMyName );
return VCSDef_MonitorExit::UNKNOWN;
}
#---------------------------------
# Check if we attempt to be fast..
#---------------------------------
if ( $iUseFFLM ) { # FFLM..
$iUseRFLM = 0; # Hopefully skip..
foreach $sKey ( keys %hsCopy ) { # Use copy..
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nSAPComponents process [$sKey]\n"; # Display string..
#----------------
# Read in pairs..
#----------------
while ( ( $sPidFile, $sProc ) = splice ( @lsValues, 0, 2 ) ) {
#-----------
# Run FFLM..
#-----------
$iFound = SAPComponents::FFLMStatus ( $sPidFile,
$sProc,
$iUid,
\$iPid );
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
$sTemp .= "PID File [$sPidFile]\n";
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FFLM Status [$iFound]\n\n";
}
@{ $hsCopy { $sKey } } = @lsUpdates;
#------------------------
# Handle monitor status..
#------------------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
push ( @$rliOnlinePids, $iPid ); # Push..
}
else {
++ $iUseRFLM; # Mark it for RFLM..
}
}
#----------------
# Print summary..
#----------------
&logTrace ( 20072,
"<%s> SAPComponents instance process details ---%s\n\n",
$sMyName, $sTemp );
( $sTemp, $sPidFile, $sProc ) = (); # Release memory..
}
else { # Use RLFM..
#-----------------------------------------
# Mark status of each service as offline..
#-----------------------------------------
$iFound = VCSDef_MonitorExit::OFFLINE; # Set to offline..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
while ( scalar @lsValues ) {
push ( @lsUpdates, splice ( @lsValues, 0, 2 ), $iFound );
}
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
}
}
}
else { # Called for Kill..
&logTrace ( 20073,
"<%s> Called to get processes for User [%s] UID [%s]",
$sMyName, $sSAPAdmin, $iUid );
++ $iUseRFLM;
}
#-----------------------
# Regular slow :-( FLM..
#-----------------------
if ( $iUseRFLM ) {
&logTrace ( 20074,
"<%s> Running regular first level monitor", $sMyName );
#----------------------------------
# Set LANG for better performance..
#----------------------------------
$sLang = $ENV { LANG }; # Backup..
$ENV { LANG } = 'C'; # Now set..
#-----------------------------------
# Call processes and store in hash..
#-----------------------------------
$iProcessCount = Proc::GetLongProcessListHash ( \@hProcListHash );
#----------
# Restore..
#----------
defined $sLang ? $ENV { LANG } = $sLang : delete $ENV { LANG }; # Restore..
#----------------------
# Check if we got any..
#----------------------
if ( $iProcessCount ) {
&logTrace ( 20075,
"<%s> Got [%s] processes from proc table for filtering",
$sMyName, $iProcessCount );
}
else {
&logError ( 20076,
"<%s> Call to get process list did not return any processes",
$sMyName );
return VCSDef_MonitorExit::OFFLINE; # Offline..
}
#-----------------------
# Search for processes..
#-----------------------
foreach $rhlProc ( @hProcListHash ) {
#--------------------------------------------------------------
# Each $rhlProc is a ref. to a hash with the following keys..
# "UID" =>
# "PID" =>
# "PPID" =>
# "COMMAND" =>
#--------------------------------------------------------------
next unless defined $$rhlProc { UID }; # Bug in Proc::GetLongProcessListHash..
next if $$rhlProc { PID } == $$; # Skip self..
$iPid = $$rhlProc { PID }; # Assign..
&logTrace ( 20077, "<%s> Searching UID [%s] PID [%s] PPID [%s] CMD [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
if ( $$rhlProc { UID } == $iUid ) { # Process owner..
#-----------------------------------------------
# Look for processes that were offline in FFLM..
#-----------------------------------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
foreach $sKey ( keys %hsCopy ) {
@lsUpdates = (); # Reset..
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
#--------------------------------------------------
# Should have details per three elements of array..
#
#--------------------------------------------------
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
if ( VCSDef_MonitorExit::OFFLINE == $iFound ) { # Earlier marked offline..
if ( $$rhlProc { COMMAND } =~ /$sProc/ ) { # Now found..
unshift ( @$rliOnlinePids, $iPid ); # Store..
if( $$rhlProc { COMMAND } =~ /sapstartsrv/o ){
$iSapStartSrv = $iPid; # Populate global..
}
&logTrace ( 20078,
"<%s> Found PID [%s] PPID [%s] CMD [%s] with filter [%s]",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND },
$sProc );
$hiProcPids { $sKey } = $iPid; # Store..
$iFound = VCSDef_MonitorExit::ONLINE; # Mark online..
}
}
#----------------
# Update status..
#----------------
push ( @lsUpdates, $sPidFile, $sProc, $iFound );
}
@{ $hsCopy { $sKey } } = @lsUpdates; # Update..
}
}
else { # Request for kill..
&logTrace ( 20079,
"<%s> Pushing PID [%s] with PPID [%s] Cmd [%s] on stack",
$sMyName, $iPid, $$rhlProc { PPID }, $$rhlProc { COMMAND } );
push ( @$rliOnlinePids, $iPid ); # Store..
}
}
}
}
#------------------------------------
# Set final status for each process..
#------------------------------------
my ( $iOnline, $iOffline, $sEntryPointName ) = ();
( $sEntryPointName = $0 ) =~ s#.*/##; # Basename..
$sTemp = ''; # Ensure..
foreach $sKey ( keys %hsCopy ) {
@lsValues = @{ $hsCopy { $sKey } }; # Get values..
$sTemp .= "\nProcess [$sKey]\n";
while ( ( $sPidFile, $sProc, $iFound ) =
splice ( @lsValues, 0, 3 ) ) {
#-----------------------------------
# Create PID files for use in FFLM..
#-----------------------------------
if ( $iUseRFLM && # In RFLM..
$iUseFFLM != 2 && # Asked to filter..
$hiProcPids { $sKey } && # PID populated..
( $sEntryPointName =~ /^(monitor|online)$/o ) ) { # In monitor or online..
&logTrace ( 20080,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $hiProcPids { $sKey } );
#---------
# Create..
#---------
if ( SAPComponents::CreatePidFile ( $sPidFile,
$hiProcPids { $sKey } ) ) {
&logTrace ( 20081,
"<%s> Successfully created PID file [%s]", $sMyName, $sPidFile );
}
else {
&logError ( 20082,
"<%s> Could not create PID file [%s] successfully",
$sMyName, $sPidFile );
}
}
#-------------
# Set status..
#-------------
if ( VCSDef_MonitorExit::ONLINE == $iFound ) {
$iOnline = $iFound;
}
elsif ( VCSDef_MonitorExit::OFFLINE == $iFound ) {
$iOffline = $iFound;
}
$sTemp .= "Srch Process [$sProc]\n";
$sTemp .= "FLM Status [$iFound]\n\n";
}
$sTemp .= "--------------------";
}
#-------------------
# Set final status..
#-------------------
$iReturnCode = $iOffline || $iOnline || VCSDef_MonitorExit::UNKNOWN;
#------------------------------------------------
# Reset status based on PIDs, if not in monitor..
#------------------------------------------------
if ( $sEntryPointName ne 'monitor' &&
( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) &&
scalar @$rliOnlinePids ) {
$iReturnCode = VCSDef_MonitorExit::PARTIAL_ONLINE;
&logTrace ( 20083,
"<%s> Found [%s] PIDs [%s] for this instance of SAPComponents.
Resetting return code to [%s]",
$sMyName, scalar @$rliOnlinePids, join ( ' ', @$rliOnlinePids ),
$iReturnCode );
}
#-----------------------
# Report on FLM status..
#-----------------------
if ( $iUseFFLM != 2 ) { # Request to filter..
&logTrace ( 20084,
"<%s> SAPComponents process details ---\n%s\nReturn code is [%s]",
$sMyName, $sTemp, $iReturnCode );
$sTemp = undef; # Release..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int Monitor ( IN String ComponentType,
IN String EnvFile,
IN String InstProfile,
IN String MonitorProgram,
IN String SAPAdmin,
IN String SAPHome,
IN String InstName,
IN String SAPHost
IN Integer SecondLevelMonitor );
Description: Performs the in-depth monitoring
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sMonitorProgram Full path to external monitor program
$sSAPAdmin The dedicated user for the SAP Components
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$sSAPHost SAP Instance virtual host name
$iSecondLevelMonitor Cycle count to run in-depth monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if in-depth monitoring cannot be completed.
-------------------------------------------------------------------------
=cut
sub Monitor {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sEnvFile,
$sInstProfile,
$sMonitorProgram,
$sSAPAdmin,
$sSAPHome,
$sInstName,
$sSAPHost,
$iSecondLevelMonitor ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20085, "Subroutine <%s> called with:
ComponentType [%s]
EnvFile [%s]
InstProfile [%s]
MonitorProgram [%s]
SAPAdmin [%s]
SAPHome [%s]
InstName [%s]
SAPHost [%s]
SecondLevelMonitor [%s]",
$sMyName, $sComponentType,$sEnvFile, $sInstProfile, $sMonitorProgram,
$sSAPAdmin, $sSAPHome, $sInstName, $sSAPHost, $iSecondLevelMonitor );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
my $iTillWhen = undef;
#----------------------------------------------
# In-depth monitoring, if correct time to run..
#----------------------------------------------
if ( VCSagentFW::RunSecondLevelMonitor ( $iSecondLevelMonitor ) ) {
#--------------------------
# Just In Time Validation..
#--------------------------
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPComponents::DelayedAttributeCheck ( $sEnvFile,
$sInstProfile,
$sSAPAdmin ) ) ) {
&logTrace ( 20086,
"<%s> Delayed attribute check completed successfully",
$sMyName );
}
else {
&logError ( 20087,
"<%s> Attribute validation failed. Returning [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
&logTrace ( 20088,
"<%s> Proceeding with second level monitoring", $sMyName );
#-------------------------------------------------------
# Upper bound..
# Time in EPOCH when entry pt started + VCS time limit..
#-------------------------------------------------------
$iTillWhen = $^T + SAPComponents::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == ( $iReturnCode =
SAPComponents::SecondLevelMonitor ( $sComponentType, # Running SLM..
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPHome,
$sInstName,
$sSAPHost,
$iTillWhen ) ) ) {
&logTrace ( 20089,
"<%s> SAPComponents instance online with status [%s] after SLM",
$sMyName, $iReturnCode );
}
else {
&logError ( 20090,
"<%s> SAPComponents instance NOT online after SLM. Status [%s]",
$sMyName, $iReturnCode );
return $iReturnCode;
}
}
#------------------------------------------------
# Exit if external monitor has not been defined..
#------------------------------------------------
return $iReturnCode unless defined $sMonitorProgram;
#---------------------------------------
# MonitorProgram defined..
# Separate the executable and the args..
#---------------------------------------
my ( $sExtCmd, $sExtCmdArgs ) = $sMonitorProgram # Separate
=~ /(\S+)\s*(.*)/; # Cmd and args..
$sExtCmdArgs = '' unless defined $sExtCmdArgs; # Prevent undefs..
if ( $sExtCmd ) { # Defined..
#----------------------------------------
# Get time bearings, if not got earlier..
#----------------------------------------
$iTillWhen ||= $^T + SAPComponents::GetEngineTimeout ( 1 );
if ( VCSDef_MonitorExit::ONLINE == # and found online..
( $iReturnCode = # by the status..
SAPComponents::ExternalMonitor ( $sSAPAdmin,
$sEnvFile,
$sExtCmd,
$sExtCmdArgs,
$iTillWhen ) ) ) {
&logTrace ( 20091,
"<%s> SAPComponents instance found online with status [%s]
after executing external monitor [%s] with args [%s]",
$sMyName, $iReturnCode, $sExtCmd, $sExtCmdArgs );
}
else {
&logError ( 20092,
"<%s> SAPComponents instance NOT online after executing external monitor
[%s] with args [%s]. Status [%s]",
$sMyName, $sExtCmd, $sExtCmdArgs, $iReturnCode );
}
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int DelayedAttributeCheck ( IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin );
Description : Just In Time Validation
Parameters :
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sSAPAdmin The dedicated user for the SAP Components
Returns : Integer value as defined below:
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub DelayedAttributeCheck {
#----------------
# Get Arguments..
#----------------
my ( $sEnvFile,
$sInstProfile,
$sSAPAdmin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20093, "Subroutine <%s> called with:
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]",
$sMyName, $sEnvFile, $sInstProfile, $sSAPAdmin );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
#--------------------------------------------
# Create hash to weed out empty args values..
#--------------------------------------------
my @lsArgs = qw ( EnvFile InstProfile SAPAdmin );
my @lsReqdArgs = qw ( EnvFile InstProfile SAPAdmin );
my ( @lsMissing, %hsArgList ) = ();
@hsArgList { @lsArgs } = @_; # Assign..
#-----------------------
# Check what's missing..
#-----------------------
if ( @lsMissing = grep { $hsArgList { $_ } !~ /\S/o } @lsReqdArgs ) {
&logError ( 20094,
"<%s> The following mandatory fields were not set [%s], Total [%s]",
$sMyName, join ( ' ', @lsMissing ), scalar @lsMissing );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#--------------------
# Return, if failed..
#--------------------
if ( VCSDef_MonitorExit::ONLINE != $iReturnCode ) {
return $iReturnCode;
}
#----------------------------------
# Validate parameter InstProfile..
#----------------------------------
if ( ! -e $sInstProfile ) {
&logError ( 20095,
"<%s> InstProfile [%s] file does not exist",
$sMyName, $sInstProfile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#------------------------------
# Validate parameter EnvFile..
#------------------------------
if ( ! -e $sEnvFile ) {
&logError ( 20096,
"<%s> EnvFile [%s] file does not exist",
$sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
#-------------------------------
# Validate parameter SAPAdmin..
#-------------------------------
if ( ! defined getpwnam $sSAPAdmin ) {
&logError ( 20097,
"<%s> SAPAdmin [%s] is not a valid UNIX login",
$sMyName, $sSAPAdmin );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int SecondLevelMonitor ( IN String ComponentType,
IN String EnvFile,
IN String InstProfile,
IN String SAPAdmin,
IN String SAPHome,
IN String InstName,
IN String SAPHost,
IN Integer TillWhen );
Description : Does in-depth monitoring, if enabled.
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sEnvFile Absolute path to environment file to source
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$sSAPAdmin The dedicated user for the SAP Components
$sSAPHome SAP Instance Home
$sInstName SAP Instance Name
$sSAPHost SAP Instance virtual host name
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if the command cannot be completed.
-------------------------------------------------------------------------
=cut
sub SecondLevelMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sEnvFile,
$sInstProfile,
$sSAPAdmin,
$sSAPHome,
$sInstName,
$sSAPHost,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20098, "Subroutine <%s> called with:
ComponentType [%s]
EnvFile [%s]
InstProfile [%s]
SAPAdmin [%s]
SAPHome [%s]
InstName [%s]
SAPHost [%s]
TillWhen [%s]",
$sMyName, $sComponentType, $sEnvFile, $sInstProfile, $sSAPAdmin,
$sSAPHome, $sInstName, $sSAPHost,$iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iTimeout, $iExitCode, $sCommand, $sCommandArgs, $iInstID, @lsCmdout ) = ();
($iInstID ) = $sInstName =~ /(\d{2})$/o;
#---------------------------------------------
# Declare monitor command and args variables..
#---------------------------------------------
$sCommand = "$sSAPHome/sapcontrol";
$sCommandArgs = "-host $sSAPHost -nr $iInstID -function GetProcessList";
#-------------------------------
# Validate and execute command..
#-------------------------------
if ( ( $iTimeout = $iTillWhen - time ) <= 10 ) { # Get time bearings..
&logError ( 20099,
"<%s> Insufficient time to continue in-depth monitoring.
Short by [%s] sec",
$sMyName, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN; # Failure..
}
elsif ( $sComponentType =~ /^(Gateway|WebDispatcher|MDM)$/o ) {
$iReturnCode = SAPComponents::ExecSAPControl ( $sComponentType,
$sSAPAdmin,
$sEnvFile,
$sCommand,
$sCommandArgs,
$iTimeout );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExecSAPControl ( IN String ComponentType,
IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer Timeout );
Description : Decides on status of SAP Component based on sapcontrol command.
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sSAPAdmin UNIX user dedicated for this instance of SAP
$sEnvFile Full path to the environment file for SAP
$sCmd Full path to jsmon binary
$sCmdArgs Argument list for jsmon
$iTimeout Time in seconds for execution
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
-------------------------------------------------------------------------
=cut
sub ExecSAPControl {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTimeout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20100, "Subroutine <%s> called with:
ComponentType [%s]
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
Timeout [%s]",
$sMyName, $sComponentType,
$sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTimeout );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#-------------------------
# Define local variables..
#-------------------------
my ( $iExitCode, @lsCmdOut ) = ();
#-------------------
# Validate command..
#-------------------
if ( ! -e $sCmd ) {
&logError ( 20101,
"<%s> SAP Cmd [%s] does not exist", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20102,
"<%s> SAP Cmd [%s] is not executable", $sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $iTimeout < 10 ) {
&logError ( 20103,
"<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s]",
$sMyName, $iTimeout, $sCmd, $sCmdArgs );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
$iReturnCode = SAPComponents::ExecLocalCmd ( $sSAPAdmin, # User context..
$sEnvFile, # Use envfile..
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdOut );
if( defined $iExitCode && 3 == $iExitCode ){
#-------------------------------
# Command execution successful..
#-------------------------------
&logTrace ( 20104,
"<%s> Cmd [%s] with args [%s] ran successfully with exit code [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode );
#------------------------------------------------------
# Get status based on state of dispatcher and servers..
#------------------------------------------------------
$iReturnCode = SAPComponents::GetCompStatus ( $sComponentType, \@lsCmdOut );
@lsCmdOut = (); # Free..
}
elsif ( ! defined $iExitCode ) { # Time-out..
$lsCmdOut [0] ||= 'undef'; # Set if not defined..
$iReturnCode = $lsCmdOut [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
&logError ( 20105,
"<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s]",
$sMyName, $sCmd, $sCmdArgs, $iTimeout, $iReturnCode );
}
elsif( 4 == $iExitCode || 1 == $iExitCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
&logError ( 20106,
"<%s> Cmd[%s] executed successfully with exit code [%s] indicating all processes stopped",
$sMyName, $sCmd, $iExitCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logError ( 20107,
"<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s]
Returning [%s]", $sMyName, $sCmd, $iExitCode,
join ( chr 012, @lsCmdOut ), $iReturnCode );
}
return $iReturnCode;
}
=pod
---------------------------------------------------------------------------------------
Function : int GetCompStatus ( IN String ComponentType,
IN RefStrList CmdOut );
Description : Decides on status of SAP Instance based on given sapcontrol
output.
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$rlsCmdOut Reference to list containing output from jsmon execution.
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
---------------------------------------------------------------------------------------
=cut
sub GetCompStatus {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$rlsCmdOut ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20108, "Subroutine <%s> called with:
ComponentType [%s]
rlsCmdOut [%s]",
$sMyName, $sComponentType, $rlsCmdOut );
#-------------------------------------------
# Set return code optimistically to online..
#-------------------------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------------
# Validate against empty list..
#------------------------------
return VCSDef_MonitorExit::UNKNOWN unless scalar @$rlsCmdOut;
#-------------------------
# Define local variables..
#-------------------------
my ( $sTmp, $sKey ) = ( '' ) x 2;
my ( $iSrv, $iRunning ) = ( 0 ) x 2;
my %hsCmdOut = ();
foreach ( @$rlsCmdOut ) {
if( $sComponentType =~ /^Gateway$/o ) {
if ( $_ =~ /\b(Gateway)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
&logTrace ( 20109, "<%s> Gateway is in running state",$sMyName );
last;
}
}
if( $sComponentType =~ /^MDM$/o ) {
if ( $_ =~ /\b(mds|mdis|mdss)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
&logTrace ( 20343, "<%s> MDM is in running state",$sMyName );
last;
}
}
else {
if ( $_ =~ /\b(Web\s+Dispatcher)\b\,\s+(.*?)\s*\d/io &&
$2 =~ /Green\,\s+running/io ) {
++ $iSrv;
++ $iRunning;
&logTrace ( 20110, "<%s> Web Dispatcher is in running state",$sMyName );
last;
}
}
}
#-----------------
# Check on state..
#-----------------
if ( $iRunning ) { # One server running..
&logTrace ( 20111,
"<%s> Found [%s] of [%s] server(s) running. Returning [%s]",
$sMyName, $iRunning, $iSrv, $iReturnCode );
}
else {
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
&logWarn ( 20112,
"<%s> Status of SAP instance undecided:\n%sReturning [%s]",
$sMyName, $sTmp, $iReturnCode );
}
( $sTmp, $sKey ) = (); # Free..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int ExternalMonitor ( IN String SAPAdmin,
IN String EnvFile,
IN String Cmd,
IN String CmdArgs,
IN Integer TillWhen );
Description : Handles user defined external monitor program
Parameters :
$sSAPAdmin The dedicated user for the SAP Components
$sEnvFile Absolute path to environment file to source
$sCmd User defined utilty to execute
$sCmdArgs Command line arguments
$iTillWhen Time in EPOCH left for IInd level monitoring
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 110 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if the command cannot be completed.
-------------------------------------------------------------------------
=cut
sub ExternalMonitor {
#----------------
# Get Arguments..
#----------------
my ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
$iTillWhen ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20113, "Subroutine <%s> called with:
SAPAdmin [%s]
EnvFile [%s]
Cmd [%s]
CmdArgs [%s]
TillWhen [%s]",
$sMyName, $sSAPAdmin, $sEnvFile, $sCmd, $sCmdArgs, $iTillWhen );
#------------------
# Hopeful success..
#------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE;
#------------------------
# Setup local variables..
#------------------------
my ( $iExitCode, $iTimeout, @lsCmdout ) = ();
my $iBuf = 5; # Secs..
#-------------------------
# Handled exit code hash..
#-------------------------
my %hiExitCodes = ( 0, VCSDef_MonitorExit::ONLINE,
110, VCSDef_MonitorExit::ONLINE,
1, VCSDef_MonitorExit::OFFLINE,
100, VCSDef_MonitorExit::OFFLINE,
VCSDef_MonitorExit::TIMEOUT,
VCSDef_MonitorExit::TIMEOUT );
#---------------------------------------------
# Check if command can be found and executed..
#---------------------------------------------
if ( ! -e $sCmd ) {
&logError ( 20114,
"<%s> External monitor [%s] does not exist",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ! -x $sCmd ) {
&logError ( 20115,
"<%s> External monitor [%s] not executable.",
$sMyName, $sCmd );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEnvFile =~ /\S/ && ! -e $sEnvFile ) {
&logError ( 20116,
"<%s> EnvFile [%s] does not exist", $sMyName, $sEnvFile );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( ( $iTimeout = $iTillWhen - ( time + $iBuf ) ) <= 5 ) { # Lack of time..
&logError ( 20117,
"<%s> Insufficient time to proceed with external monitor [%s].
Short by [%s] sec", $sMyName, $sCmd, abs ( $iTimeout ) );
$iReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
#--------------------------------------------
# Return if validation failed at this point..
#--------------------------------------------
unless ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
return $iReturnCode;
}
&logTrace ( 20118,
"<%s> Executing external monitor with Command [%s] Args [%s] in [%s] secs",
$sMyName, $sCmd, $sCmdArgs, $iTimeout );
#----------------------
# Execute the command..
#----------------------
SAPComponents::ExecLocalCmd ( $sSAPAdmin,
$sEnvFile,
$sCmd,
$sCmdArgs,
\$iExitCode,
$iTimeout,
\@lsCmdout );
#------------------------
# Report on exit status..
#------------------------
if ( ! defined $iExitCode ) {
$lsCmdout [0] ||= 'undef'; # Set if not defined..
$iExitCode = $lsCmdout [0] eq 'timeout'? VCSDef_MonitorExit::TIMEOUT: # Timeout..
VCSDef_MonitorExit::UNKNOWN; # Failure..
}
elsif ( $hiExitCodes { $iExitCode } &&
VCSDef_MonitorExit::ONLINE ==
$hiExitCodes { $iExitCode } ) {
&logTrace ( 20119,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdout ) );
}
else {
&logWarn ( 20120,
"<%s> Command [%s] with args [%s] execution failed with exit code [%s].
Cmd output [%s]",
$sMyName, $sCmd, $sCmdArgs, $iExitCode, join ( chr 012, @lsCmdout ) );
}
#--------------------------------
# Setup appropriate return code..
#--------------------------------
$iReturnCode = $hiExitCodes { $iExitCode } ||
VCSDef_MonitorExit::UNKNOWN;
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool CreatePidFile ( IN String PidFile,
In Integer Pid );
Description : Creates PID file with given PID
Parameters :
$sPidFile File to create
$iPid PID to store
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub CreatePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$iPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20121, "Subroutine <%s> called with:
PidFile [%s]
Pid [%s]",
$sMyName, $sPidFile, $iPid );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#-----------------------
# Check against undefs..
#-----------------------
unless ( defined $iPid && $iPid =~ /^\d+$/o) {
$iPid ||= 'undef'; # Prevent undefs.
&logError ( 20122, "<%s> PID [%s] is not a valid positive number",
$sMyName, $iPid );
return 0; # Proceed no further..
}
#------------------
# Create PID file..
#------------------
&logTrace ( 20123,
"<%s> Creating PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
if ( sysopen ( PIDFILE, $sPidFile, O_WRONLY|O_SYNC|O_CREAT|O_TRUNC,
0600 ) ) {
print PIDFILE $iPid, "\n"; # Update..
unless ( close ( PIDFILE ) ) {
&logWarn ( 20124,
"<%s> Failed to close PidFile [%s] after update: [%s]",
$sMyName, $sPidFile, $! );
$iReturnCode = 0;
}
}
else {
&logWarn ( 20125,
"<%s> Failed to create PID file [%s] with PID [%s]",
$sMyName, $sPidFile, $iPid );
$iReturnCode = 0;
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int FFLMStatus ( IN String PidFile,
IN String Proc,
IN Integer Uid,
OUT RefInt Pid );
Description: Checks status of Process listed in PidFile, if running
Parameters :
$sPidFile Absolute path to PID file of service
$sProc Process string to search for in proc table
$iUid UNIX UID of owner
$riPid Reference to existing PID
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
-------------------------------------------------------------------------
=cut
sub FFLMStatus {
#----------------
# Get Arguments..
#----------------
my ( $sPidFile,
$sProc,
$iUid,
$riPid ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20126, "Subroutine <%s> called with:
PidFile [%s]
Proc [%s]
UID [%s]
riPid [%s]",
$sMyName, $sPidFile, $sProc, $iUid, $riPid );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = VCSDef_MonitorExit::ONLINE; # Success..
$$riPid = 0; # Reset..
#-------------------------
# Define local variables..
#-------------------------
my ( $iPid, $rhlProc, @lProcessHash ) = ();
#----------------------------------
# Start by testing the attributes..
#----------------------------------
if ( $sProc !~ /\S/ ) {
&logError ( 20127, "<%s> Called with empty [%s] process string",
$sMyName, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -e $sPidFile ) {
&logTrace ( 20128, "<%s> PID file [%s] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
elsif ( ! -s $sPidFile ) {
&logWarn ( 20129, "<%s> PID file [%s] is of zero bytes",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
#---------------------
# Return, if offline..
#---------------------
return $iReturnCode unless VCSDef_MonitorExit::ONLINE == $iReturnCode;
if ( open ( PIDFILE, $sPidFile ) ) {
( $iPid ) = grep { ( s/\n// || 1 ) && # Chomp..
s/.*?(\d+)$/$1/ # Get PID..
} ;
$iPid = '' unless defined $iPid; # Avoid undefs..
close ( PIDFILE ) || # Close file..
&logWarn ( 20130,
"<%s> Could not close PID file [%s] after read [%s]",
$sMyName, $sPidFile, $! );
}
else {
&logError ( 20131,
"<%s> Failed to open PID file [%s] for read: [%s]",
$sMyName, $sPidFile, $! );
return VCSDef_MonitorExit::OFFLINE; # Failure..
}
#------------------------
# Check if PID is valid..
#------------------------
if ( $iPid =~ /\d+/ && # If the valid number..
kill ( 0, $iPid ) ) { # is a PID that's alive..
&logTrace ( 20132,
"<%s> PID [%s] from PID file [%s] exists",
$sMyName, $iPid, $sPidFile );
#-----------------------
# Search in proc table..
#-----------------------
if ( SAPComponents::GetPidDetails ( $iPid,
\@lProcessHash ) ) {
#--------------
# Got details..
#--------------
foreach $rhlProc ( @lProcessHash ) {
&logTrace ( 20133,
"<%s> Process details: UID [%s] PID [%s] PPID [%s] ARGS [%s]",
$sMyName, $$rhlProc { UID }, $$rhlProc { PID }, $$rhlProc { PPID },
$$rhlProc { COMMAND } );
#--------------
# Now compare..
#--------------
if ( ( $$rhlProc { UID } == $iUid ) && # Owner match..
$$rhlProc { COMMAND } =~ /$sProc/ ) { # Filter match..
&logTrace ( 20134,
"<%s> PID [%s] owned by UID [%s] with ARGS [%s] contains [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$$riPid = $iPid; # Store..
}
else {
&logTrace ( 20135,
"<%s> Ignoring PID [%s] owned by UID [%s] with ARGS [%s] with string [%s]",
$sMyName, $iPid, $$rhlProc { UID }, $$rhlProc { COMMAND }, $sProc );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
}
else {
&logTrace ( 20136,
"<%s> Could not get details for PID [%s]",
$sMyName, $iPid );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
}
else {
&logTrace ( 20137, "<%s> PID [$iPid] does not exist",
$sMyName, $sPidFile );
$iReturnCode = VCSDef_MonitorExit::OFFLINE; # Failure..
}
@lProcessHash = (); # Truncate..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool KillSAPComponentsProcesses ( IN String InstProfile
IN String ComponentType,
IN String SAPAdmin );
Description : Kills processes for this instance of SAPComponents
Parameters :
$sInstProfile Instance profile file for the SAP Component Instance
$sComponentType String identifier that classifies and describes the SAP Component.
$sSAPAdmin The dedicated user for the SAP Components
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub KillSAPComponentsProcesses {
#----------------
# Get Arguments..
#----------------
my ( $sInstProfile,
$sComponentType,
$sSAPAdmin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20138, "Subroutine <%s> called with:
InstProfile [%s]
ComponentType [%s]
SAPAdmin [%s]",
$sMyName, $sInstProfile, $sComponentType, $sSAPAdmin );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1; # Success..
#-------------------------
# Set up local variables..
#-------------------------
my ( @liGoners, @liUnDead ) = ();
#---------------------------------------------
# Get list of processes running for this Uid..
#---------------------------------------------
if ( ( caller 1 )[3] eq 'SAPComponents::Start' ) { # During online..
@liGoners = @liRunningProcs; # Get PIDs to kill..
}
else {
SAPComponents::GetProcState ( \@liGoners,
$sComponentType,
$sSAPAdmin,
$sInstProfile,
0 ); # Set filtering choice..
}
#--------------------------
# Sort in ascending order..
#--------------------------
@liGoners = sort { $a <=> $b } @liGoners;
#------------------------------------------------------------------
# We do a two level kill. The SIGINQ ensures that the PID is a
# valid process before we actually issue the SIGKILL. We don't want
# to report a failure for SIGKILL in case of defunct or missing
# processes.
#------------------------------------------------------------------
if ( scalar @liGoners ) {
#----------------------
# Failed to kill some..
#----------------------
if ( @liUnDead = grep {
kill ( 0, $_ ) && # Valid..
! kill ( 9, $_ ) # and could NOT be killed..
} @liGoners ) { # From what's found..
&logError ( 20139,
"<%s> PIDs not killed [%s] Total not killed [%s]",
$sMyName, join ( ' ', @liUnDead ), scalar @liUnDead );
$iReturnCode = 0; # Failure..
}
else { # All killed..
&logInfo ( 20140,
"<%s> Killed PIDs [%s] Total killed: [%s]",
$sMyName, join ( ' ', @liGoners ), scalar @liGoners );
}
}
else {
&logTrace ( 20141,
"<%s> Could not locate any process this instance of SAPComponents",
$sMyName );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool ExecLocalCmd ( IN String User,
IN String EnvFile,
IN String Command,
IN String CommandArgs,
OUT RefInt ExitCode,
IN Integer Timeout,
OUT ListReference Cmdout );
Description : Wrapper function for
Sys::RunWithEnvCmdWithOutputWithTimeOut to collect output
of the command.
Parameters :
$sUser UNIX user to run the command as
$sEnvFile Absolute path to location of EnvFile to source
$sCommand Absolute path to location of command
$sCommandArgs Arguments to command
$riExitCode Reference to collect exit code of command
$iTimeout Time limit to execute the command
$rlsCmdout Stores o/p from command if successful
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub ExecLocalCmd {
#----------------
# Get Arguments..
#----------------
my ( $sUser,
$sEnvFile,
$sCommand,
$sCommandArgs,
$riExitCode,
$iTimeout,
$rlsCmdout ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20142, "Subroutine <%s> called with:
User [%s]
EnvFile [%s]
Command [%s]
CommandArgs [%s]
riExitCode [%s]
Timeout [%s]
rlsCmdout [%s]",
$sMyName,
$sUser, $sEnvFile, $sCommand, $sCommandArgs, $riExitCode,
$iTimeout, $rlsCmdout );
#---------------------------------------
# Setup return code to hopeful success..
#---------------------------------------
my $iReturnCode = 1;
#-------------------
# Set up arguments..
#-------------------
my $bSourceUserEnv = 0; # Do not source..
my $bTimedOut = 0; # Timeout variable..
@$rlsCmdout = (); # Reset..
#-----------
# Validate..
#-----------
if ( ! -e $sCommand ) {
&logError ( 20143,
"<%s> Cmd [%s] does not exist", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( ! -x $sCommand ) {
&logError ( 20144,
"<%s> Cmd [%s] is not executable", $sMyName, $sCommand );
$iReturnCode = 0; # Failure..
}
elsif ( $iTimeout <= 1 ) {
&logError ( 20145,
"<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s].",
$sMyName, $iTimeout, $sCommand, $sCommandArgs );
$iReturnCode = 0; # Failure..
}
$iReturnCode || return $iReturnCode; # Return if failed..
#----------------------
# Set LOGNAME to user..
#----------------------
my $sOldLogName = $ENV { LOGNAME }; # Backup..
$ENV { LOGNAME } = $sUser; # Now set..
&logTrace ( 20146,
"<%s> Executing Command [%s] with Args [%s]",
$sMyName, $sCommand, $sCommandArgs );
$iReturnCode = Sys::RunWithEnvCmdWithOutputWithTimeOut ( $sEnvFile,
$bSourceUserEnv,
$sCommand,
$sCommandArgs,
$riExitCode,
$sUser,
$rlsCmdout,
\$bTimedOut,
$iTimeout );
#---------------------------
# Remove trailing newlines..
#---------------------------
chomp @$rlsCmdout;
#--------------------
# Check return code..
#--------------------
if ( $iReturnCode ) { # No error with command execution..
if ( $$riExitCode ) { # Failure..
&logTrace ( 20147,
"<%s> Command [%s] with args [%s] returned exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
$iReturnCode = 0; # Failure..
}
else {
&logTrace ( 20148,
"<%s> Command [%s] with args [%s] executed successfully with exit code [%s]",
$sMyName, $sCommand, $sCommandArgs, $$riExitCode );
}
}
else { # Execution error..
@$rlsCmdout = (); # Reset..
if ( $bTimedOut ) { # We timed out..
&logError ( 20149,
"<%s> Command [%s] with args [%s] did not complete within [%s] seconds",
$sMyName, $sCommand, $sCommandArgs, $iTimeout );
$$rlsCmdout [0] = 'timeout'; # Timeout..
}
else { # Failure due to something else..
&logError ( 20150,
"<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut",
$sMyName );
}
}
#----------
# Restore..
#----------
defined $sOldLogName ? $ENV { LOGNAME } = $sOldLogName : delete $ENV { LOGNAME };
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetPidDetails ( IN Integer Pid,
OUT RefList ProcList );
Description : Gets long process details for a known Pid if running
Parameters :
$iPid PID whose details are requested
$rlProcList Ref to List to store details
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetPidDetails {
#----------------
# Get Arguments..
#----------------
my ( $iPid,
$rlProcList ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20151, "Subroutine <%s> called with:
Pid [%s]
rlProcList [%s]",
$sMyName, $iPid, $rlProcList );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
#---------------
# Validate PID..
#---------------
unless ( defined $iPid && # Catch undefs..
$iPid =~ /^\d+$/ && # And invalid PIDs..
kill ( 0, $iPid ) ) { # And defunct ones..
&logError ( 20152,
"<%s> PID [%s] is invalid", $sMyName, $iPid );
return 0;
}
#-------------------------
# Define local variables..
#-------------------------
my ( $sPsCmd, $sPsCmdArgs, $sLang, $sFmt, $sUnix95, $sSwitch, $iExitCode,
%hsProc ) = ();
$sSwitch = $^O; # Get OS..
@$rlProcList = (); # Truncate..
#-------------
# Store LANG..
#-------------
$sLang = $ENV { LANG };
$ENV { LANG } = 'C';
#---------------------------
# Switch to the correct OS..
#---------------------------
if("solaris" eq $sSwitch) {
$sPsCmd = "/usr/ucb/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("hpux" eq $sSwitch) {
#-----------------------
# Force XPG4 behaviour..
#-----------------------
$sUnix95 = $ENV { UNIX95 };
$ENV { UNIX95 } = 'XPG4';
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "-p $iPid -xxlo uid,pid,ppid,args";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
elsif("aix" eq $sSwitch) {
$sPsCmd = "/usr/bin/ps";
$sPsCmdArgs = "axwwl $iPid";
$sFmt = '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)';
}
elsif("linux" eq $sSwitch) {
$sPsCmd = "/bin/ps";
$sPsCmdArgs = "wwo uid,pid,ppid,args $iPid";
$sFmt = '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)';
}
&logTrace ( 20153, "<%s> OS [%s] PsCmd [%s] PsCmdArgs [%s]",
$sMyName, $sSwitch, $sPsCmd, $sPsCmdArgs );
#-------------------
# Validate command..
#-------------------
if ( ! -x $sPsCmd ) {
&logError ( 20154,
"<%s> ps(1b) command [%s] is not executable", $sMyName, $sPsCmd );
return 0; # Failure..
}
#-------------------------------
# Fire command and get details..
#-------------------------------
@hsProc { qw ( UID PID PPID COMMAND ) } =
map {
s/\n//; # Chomp..
s/^\s+//; # Strip leading spaces..
/^$sFmt$/o; # Extract fields..
} readpipe ( "$sPsCmd $sPsCmdArgs" ); # From the command..
$iExitCode = $? >> 8; # Get exit code..
#------------------------
# Restore env variables..
#------------------------
defined $sLang ? $ENV { LANG } = $sLang : delete $ENV { LANG };
defined $sUnix95 ? $ENV { UNIX95 } = $sUnix95 : delete $ENV { UNIX95 };
#------------------
# Check exit code..
#------------------
if ( $iExitCode ) {
&logWarn ( 20155,
"<%s> Cmd [%s] with args [%s] failed with exit code [%s]",
$sMyName, $sPsCmd, $sPsCmdArgs, $iExitCode );
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
&logWarn ( 20330,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
SAPComponents::DeletePidFile ( $sResourceName );
%hsProc = (); # Truncate..
return 0;
}
#---------------------
# Fill up the bucket..
#---------------------
push ( @$rlProcList, \%hsProc ); # Update..
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : bool GetSrvrDetails ( IN String ComponentType,
IN String InstProfile,
OUT RefHashList SrvrDetails );
Description : Gives PID file and process string for given server type
Parameters :
$sComponentType String identifier that classifies and describes the SAP Component.
$sInstProfile Specifies the full path and file name of the SAP Instance Profile.
$rhlSrvrDetails Stores details of PID file and process string
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub GetSrvrDetails {
#----------------
# Get Arguments..
#----------------
my ( $sComponentType,
$sInstProfile,
$rhlSrvrDetails ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20156, "Subroutine <%s> called with:
ComponentType [%s]
InstProfile [%s]
SrvrDetails [%s]",
$sMyName, $sComponentType, $sInstProfile, $rhlSrvrDetails );
#-----------------------------
# Set return code to success..
#-----------------------------
my $iReturnCode = 1; # Set to true..
#-------------------
# Define variables..
#-------------------
my ( $sKey, $sProc, $sPidFile, $sPIDDir, $sResourceType,
$sResourceName, $iPat, $sSAPHome, $sSAPSID, $sInstName,
$sSAPHost, $iInstID, $sTmpProc, @lsWords, @lsProcMon) = ();
#----------------------------------------------
# Derive our resource type and resource names..
#----------------------------------------------
$sResourceType = ( $0 =~ m@([^/]+)@g ) [-2];
$sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
$sPIDDir = "/tmp/.VRTS$sResourceType/$sResourceName/PID";
#------------------------------
# Create PID folder if needed..
#------------------------------
if ( -d $sPIDDir ) {
&logTrace ( 20157, "<%s> PID folder [%s] exists",
$sMyName, $sPIDDir );
}
elsif ( ! mkpath ( $sPIDDir, 0, 0700 ) ) {
&logWarn ( 20158, "<%s> Failed to create PID folder [%s]",
$sMyName, $sPIDDir );
return 0; # Cannot proceed..
}
( @lsWords ) = split( /\//, $sInstProfile );
( $sSAPSID, $sInstName, $sSAPHost ) = split ( /_/, $lsWords [-1] );
( $iInstID ) = $sInstName =~ /(\d{2})$/o;
$sSAPHome = "/usr/sap/$sSAPSID/$sInstName/exe";
#---------------------------------------
# Define ProcMon for different Component
#---------------------------------------
push @lsProcMon, 'sapstart';
if ( $sComponentType =~ /^Gateway$/o ){
push @lsProcMon, 'gw';
}
elsif ( $sComponentType =~ /^WebiDispatcher$/o ) {
push @lsProcMon, 'wd';
}
elsif ( $sComponentType =~ /^MDM$/o ){
push @lsProcMon, 'sapstartsrv';
push @lsProcMon, 'md';
push @lsProcMon, 'mdexe';
}
%$rhlSrvrDetails = (); # Truncate..
#-----------------------------------------------
# Set appropriate filter strings and PID files..
#-----------------------------------------------
foreach $sProc ( @lsProcMon ) {
$sKey = "srchstr_${sProc}";
$sPidFile = "$sPIDDir/pidfile.$sKey";
if ( ( $sProc eq 'sapstart') || ( $sProc eq 'sapstartsrv') ) {
$sTmpProc = qr|$sProc\spf=.*$sSAPSID.*$sInstName.*$sSAPHost|;
}
elsif ( ( $sProc eq 'wd' ) || ( $sProc eq 'gw' ) ) {
$sTmpProc = qr|$sProc.sap${sSAPSID}_${sInstName}.*pf=.*profile/${sSAPSID}_${sInstName}_${sSAPHost}|;
}
elsif ( $sProc eq 'md' ) {
$sTmpProc = qr|.*${sProc}[is]*s.*sap${sSAPSID}_${sInstName}|;
}
elsif ( $sProc eq 'mdexe' ) {
$sTmpProc = qr|.*${sSAPSID}/${sInstName}/exe/md[is]*s.*|;
}
@{ $$rhlSrvrDetails { $sProc } } = ( $sPidFile, $sTmpProc ); # Store..
&logTrace ( 20159, "<%s> Generating filter [%s] for process [%s] with PID file [%s]",
$sMyName, $sTmpProc, $sProc, $sPidFile );
}
return $iReturnCode;
}
=pod
-------------------------------------------------------------------------
Function : int GetEngineTimeout ( IN Bool UseMargin );
Description : Calculates engine timeout for entry point
Parameters :
$bUseMargin Flag to indicate if safety margin is requested
boolean value in the set of {0,1} where
0 No safety margin needed
1 Safety margin to be used
Returns: Time in secs.
-------------------------------------------------------------------------
=cut
sub GetEngineTimeout {
#----------------
# Get Arguments..
#----------------
my ( $bUseMargin ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20160, "Subroutine <%s> called with:
UseMargin [%s]",
$sMyName, $bUseMargin );
#-------------------------
# Define local variables..
#-------------------------
my ( $sAttribute, $sCommand, $sCommandArgs,
$iEngineTimeout, $iExitCode ) = ();
#----------------------------------
# Grace margins from VCS timeouts..
#----------------------------------
my %hiGraceMargin = ( 'MonitorTimeout', 10, # Seconds..
'OnlineTimeout', 10,
'OfflineTimeout', 10,
'CleanTimeout', 20 );
#--------------------------------------------------
# Attempt to get resource level overridden values..
#--------------------------------------------------
my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME };
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
#-----------------------------------
# Query if it has already been set..
#-----------------------------------
if ( defined $::giEPTimeout && # Defined..
$::giEPTimeout =~ /^\d+/ ) { # to an integer..
$iEngineTimeout = $::giEPTimeout;
&logTrace ( 20161,
"<%s> Using AEPTimeout [%s] as EP timeout value",
$sMyName, $iEngineTimeout );
}
else {
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
$sCommand = $sCmdHares; # Get global..
$sCommandArgs = "-value $sResourceName $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs 2>/dev/null" ) )
=~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20162,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
}
elsif ( ! $iEngineTimeout ) { # Undefined value..
&logTrace ( 20163, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
}
else { # Success..
&logTrace ( 20164, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
#-----------------------------------------
# Form query string based on entry point..
#-----------------------------------------
unless ( $iEngineTimeout ) {
$sCommand = $sCmdHatype; # Get global..
( $sAttribute = $sEntryPointName ) =~ s/(.*)/\u$1Timeout/;
$sResourceType = "SAPComponents" if $sResourceType !~ /\w/; # Ensure..
$sCommandArgs = "-value $sResourceType $sAttribute";
#----------------------------------
# Fire command and collect output..
#----------------------------------
( $iEngineTimeout = readpipe ( "$sCommand $sCommandArgs" ) ) =~ s/\n//;
#--------------------
# Check exit status..
#--------------------
if ( $iExitCode = $? >> 8 ) {
&logTrace ( 20165,
"<%s> Command [%s] with Args [%s] failed with exitcode [%s]",
$sMyName, $sCommand, $sCommandArgs, $iExitCode );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
elsif ( ! $iEngineTimeout ) { # Empty value..
&logTrace ( 20166, "<%s> Could not get [%s] from engine",
$sMyName, $sAttribute );
$iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0;
}
else { # Success..
&logTrace ( 20167, "<%s> Got [%s] as [%s] sec from engine",
$sMyName, $sAttribute, $iEngineTimeout );
}
}
}
#----------------------------
# Apply margin if requested..
#----------------------------
if ( $bUseMargin && # Margin requested..
$iEngineTimeout >= $hiGraceMargin { $sAttribute } ) { # And valid..
$iEngineTimeout -= $hiGraceMargin { $sAttribute }; # Apply..
&logTrace ( 20168,
"<%s> Setting up [%s] sec margin. Returning [%s]",
$sMyName, $hiGraceMargin { $sAttribute }, $iEngineTimeout );
}
return ( $iEngineTimeout ); # Secs..
}
=pod
-------------------------------------------------------------------------
Function : bool DeletePidFile ( IN String ResourceName );
Description : Deletes PID files for the VCS resource.
Parameters :
$sResourceName ResourceName for which the PID files needs to be deleted.
Returns : boolean value in the set of {0,1} where
0 false
1 true
-------------------------------------------------------------------------
=cut
sub DeletePidFile {
#----------------
# Get Arguments..
#----------------
my ( $sResourceName ) = @_;
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20329, "Subroutine <%s> called with:
ResourceName [%s]",
$sMyName, $sResourceName );
#--------------------------------------
# Set Return Code Optimistically to 1..
#--------------------------------------
my $iReturnCode = 1;
my ( $sPidFileDir, $iRet ) = ();
#-------------------
# Delete PID files..
#-------------------
&logTrace ( 20344,
"<%s> Deleting PID files for VCS resource [%s]",
$sMyName, $sResourceName );
$sPidFileDir = "/tmp/.VRTSSAPComponents/" . $sResourceName . "/PID" ;
if ( -d $sPidFileDir ) {
$iRet = system("/bin/rm -rf $sPidFileDir") ;
if ( $iRet == 0 ) {
&logTrace ( 20331,
"<%s> Successfully deleted PID files in the directory [%s].",
$sMyName, $sPidFileDir );
$iReturnCode = 0;
}
else {
&logWarn ( 20332,
"<%s> Failed to delete PID files in directory [%s]. Remove the files manually.",
$sMyName, $sPidFileDir );
$iReturnCode = 1;
}
}
else {
&logTrace ( 20333,
"<%s> PID files for VCS resource [%s] doesn't exist.",
$sMyName, $sResourceName );
}
return $iReturnCode;
}
1; # So PERL knows its included..
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPComponents/monitor 0000555 0000000 0000000 00000044141 13320062025 024732 0 ustar root root #------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPComponents/monitor.pl,v 1.2 2010/09/09 06:03:53 rkumar Exp $
#
# $sAuthor: $
#
# $Date: 2010/09/09 06:03:53 $
# $Revision: 1.2 $
#
# Provides: SAPComponents
# Author: rajeevk
# crAgent Build: 1.91 2009/09/07 08:42:27
# crAgent Run Date: 24 Aug, 2010
# Modification History:
# Known bugs/caveats:
#------------------------------------------------------------------
eval 'exec /opt/VRTSperl/bin/perl -Sw $0 ${1+"$@"}'
if 0;
#---------------------------------------------------------
# Define the exact order to look for our agent framework..
#---------------------------------------------------------
BEGIN {
my $sVCSperl = undef;
my $sVCSagntfwHome = "/opt/VRTS/.ACCLib";
( my $sDirName = $0 ) =~ s#(.*)/.*$#$1#;
if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCSOne..
$sVCSperl = "$ENV{CLUSTER_HOME}/lib";
}
else { # VCS..
$sVCSperl = "/opt/VRTSperl/lib/site_perl";
}
$ENV { VCS_LOG_AGENT_NAME } ||= "SAPComponents"; # export Agent name for PreOnline logging..
unshift ( @INC, $sDirName,
"$sVCSagntfwHome/vcs",
"$sVCSagntfwHome/system",
"$sVCSagntfwHome/network",
$sVCSperl );
}
#------------
# Be strict..
#------------
use strict 'refs';
use strict 'vars';
#-------------------------------------
# Include required framework modules..
#-------------------------------------
use ag_i18n_inc;
use Sys; # For call to RunCmdArgsAsUser
use Version; # ACC Library version display generator
use VCSagentFW; # Primary Agent Interface to the ACC Library
use VCSDefines; # This contains constants that VCS uses
#-----------------------------------------
# Include the required SAPComponents module..
#-----------------------------------------
use SAPComponents;
#-----------------------------------------------------------------------
# Add our version number to the version hash and check if versions are
# requested..
#-----------------------------------------------------------------------
my $sVer = "\$Id: monitor.pl,v 1.2 2010/09/09 06:03:53 rkumar Exp $::ETVHeader";
Version::TellVersion ( $sVer );
#----------------------------------------------------------------------
# If versions are requested, print all of the framework module versions
# to stdout, then exit 0..
#----------------------------------------------------------------------
if ( 1 == Version::CheckForVersionRequest ( $ARGV [0] ) ) {
#------------------------------------------------------------------
# Found the request to display all versions -- did that, now quit..
#------------------------------------------------------------------
exit 0;
}
#-----------------------------------
# Work out entry point information..
#-----------------------------------
my $sResourceName = $ARGV [0];
my ( $sEntryPointName, $sResourceType ) = reverse $0 =~ m@([^/]+)@g;
$sResourceType = 'SAPComponents' if $sResourceType !~ /\w/;
#---------------------------------------------------------
# Set up the return code here (this gets over written once
# the entry point is called).
#---------------------------------------------------------
my $iAgentReturnCode = 0;
if ( $sEntryPointName eq "monitor" ) {
$iAgentReturnCode = VCSDef_MonitorExit::UNKNOWN;
}
elsif ( $sEntryPointName eq "clean") {
$iAgentReturnCode = VCSDef_CleanExit::FAILED;
}
#------------------------------------
# Setup Category ID for UMI logging..
#------------------------------------
my $iCategoryID = 55035;
my $iCleanReason = undef;
#-----------------------------------------
# Use Script50Agent style attribute list..
#-----------------------------------------
my $iCnt = 0;
my ( $sKey, @lsArgVals, %hsAttribs ) = ();
my @lsAttrs =
qw ( ResLogLevel State IState EnvFile SAPAdmin InstProfile
ComponentType SecondLevelMonitor MonitorProgram );
#------------------------------------------------------------------
# ArgList for type SAPComponents:
# ResLogLevel EnvFile SAPAdmin InstProfile ComponentType
# SecondLevelMonitor MonitorProgram
#------------------------------------------------------------------
my ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..,
$argIState, # Dummy attribute for FFDC..,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argComponentType,
$argSecondLevelMonitor,
$argMonitorProgram ) = ();
my ( $argSAPSID, $argInstName, $argInstID, $argSAPHost, $argSAPHome, @lsWords ) = ();
$sResourceName = shift;
$iCleanReason = shift if ( $sEntryPointName eq 'clean' );
if ( $ENV { CLUSTER_HOME } ) { # VCS One/VCS 5.0
#--------------
# Get vectors..
#--------------
do {
push @{ $hsAttribs { $ARGV [$iCnt] } },
@ARGV [ $iCnt + 2 .. $iCnt + 1 + $ARGV [$iCnt + 1] ];
} while ( ( $iCnt += $ARGV [$iCnt + 1] + 2 ) <= $#ARGV );
( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..,
$argIState, # Dummy attribute for FFDC..,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argComponentType,
$argSecondLevelMonitor,
$argMonitorProgram ) = @lsArgVals = map { @$_ } @hsAttribs { @lsAttrs };
if ( defined $hsAttribs { AEPTimeout } ) {
$::giEPTimeout = ${ $hsAttribs { AEPTimeout } }[0];
}
}
else {
#-------------------------
# Get values VCS 4.1 style
#-------------------------
( @lsArgVals ) = ( $argResLogLevel, # For ACCLib..
$argState, # Dummy attribute for FFDC..,
$argIState, # Dummy attribute for FFDC..,
$argEnvFile,
$argSAPAdmin,
$argInstProfile,
$argComponentType,
$argSecondLevelMonitor,
$argMonitorProgram ) = @ARGV;
}
unshift ( @lsArgVals, $iCleanReason ) if ( $sEntryPointName eq "clean" ); # Insert clean reason..
unshift ( @lsArgVals, $sResourceName ); # Insert resource name..
(@lsWords) = split( /\//, $argInstProfile);
($argSAPSID, $argInstName, $argSAPHost) = split(/_/, $lsWords[-1]);
($argInstID ) = $argInstName =~ /(\d{2})$/o;
$argSAPHome = "/usr/sap/$argSAPSID/SYS/exe/run";
#---------------------------------
# Populate FFDC helper variables..
#---------------------------------
$::gsUser = $argSAPAdmin;
$::gsEnvFile = $argEnvFile;
unless ( VCSagentFW::SetupEntry ( $sEntryPointName,
$iCategoryID,
\$iCleanReason,
\@lsArgVals ) ) {
#------------------------------------------------------------------
# Some number of the "Standard Agent" arguments failed the
# validation. Note that the validation subroutine has already
# logged the attributes that failed the validation criteria. Exit
# now with the earlier defined value of $iAgentReturnCode.
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-------------------------------------
# Send the parameters for validation..
#-------------------------------------
if ( SAPComponents::ArgsValid ( $sEntryPointName,
$argSAPAdmin,
$argEnvFile,
$argInstProfile,
$argComponentType,
$argSecondLevelMonitor,
$argMonitorProgram ) ) {
&logTrace ( 20169, "<%s> All arguments validated successfully!",
$sEntryPointName );
}
else {
#---------------------------------------------------------------
# Some number of the arguments failed the validation..
# Exit now with the earlier defined value of iAgentReturnCode..
#---------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
}
#-----------------------------------
# Args checked out ok, so continue..
#-----------------------------------
#------------------------------------------
# Declare routines to handle entry points..
#------------------------------------------
my %routines = ( "monitor" => \&MonitorEntryPoint,
"online" => \&OnlineEntryPoint,
"offline" => \&OfflineEntryPoint,
"clean" => \&CleanEntryPoint );
#----------------------------------------------------------
# Depending on our entry point, call the correct function..
#----------------------------------------------------------
if ( $routines { $sEntryPointName } ) {
$iAgentReturnCode = $routines { $sEntryPointName }->();
}
else { # Unknown entry pt..
&logError ( 20170,
"Agent called with unsupported entry point specification of [%s]",
$sEntryPointName );
++ $iAgentReturnCode;
}
#------------------------------------------------------------------
# Exit the entry point, using the iAgentReturnCode we have set up..
#------------------------------------------------------------------
&entryPointExit ( $iAgentReturnCode );
#-------------------------------------------------------------
# End of &main(), IE: no more execution logic; only subroutine
# definitions follow..
#-------------------------------------------------------------
=pod
#-------------------------------------------------------------
Function : int MonitorEntryPoint ( void );
Description : Monitors resource of type SAPComponents
Returns : Integer value as defined below:
100 OFFLINE VCSDef_MonitorExit::OFFLINE
110 ONLINE with confidence level 100 VCSDef_MonitorExit::ONLINE
99 UNKNOWN; State couldn't be determined VCSDef_MonitorExit::UNKNOWN
?? HUNG: External monitor timed out VCSDef_MonitorExit::TIMEOUT
The entry point hangs if in-depth monitoring cannot be completed.
#-------------------------------------------------------------
=cut
sub MonitorEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20171, "Subroutine <%s> called", $sMyName );
#-----------------------------------------
# Check if at least the processes are up..
#-----------------------------------------
my $SAPComponents_Status = SAPComponents::GetResourceState ( $argComponentType,
$argSAPAdmin,
$argInstProfile );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $SAPComponents_Status ) {
$SAPComponents_Status = VCSDef_MonitorExit::OFFLINE;
}
#------------------------------------------------
# Exit if, not online after a superficial check..
#------------------------------------------------
if ( VCSDef_MonitorExit::ONLINE == $SAPComponents_Status ) {
&logTrace ( 20172,
"<%s> Resource [%s] online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPComponents_Status );
}
else {
&logTrace ( 20173,
"<%s> Resource [%s] NOT online with state [%s] after first level check.",
$sMyName, $sResourceName, $SAPComponents_Status );
return $SAPComponents_Status;
}
#--------------------------------
# Start monitoring the resource..
#--------------------------------
$SAPComponents_Status = SAPComponents::Monitor ( $argComponentType,
$argEnvFile,
$argInstProfile,
$argMonitorProgram,
$argSAPAdmin,
$argSAPHome,
$argInstName,
$argSAPHost,
$argSecondLevelMonitor );
return $SAPComponents_Status;
}
=pod
#---------------------------------------------------------------
Function : int OnlineEntryPoint ( void );
Description : Attempts to online a resource of type SAPComponents
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OnlineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20174, "Subroutine <%s> called", $sMyName );
my $iReturnCode = SAPComponents::GetResourceState ( $argComponentType,
$argSAPAdmin,
$argInstProfile );
#------------------------
# Discard partial cases..
#------------------------
if ( VCSDef_MonitorExit::PARTIAL_ONLINE == $iReturnCode ) {
$iReturnCode = VCSDef_MonitorExit::OFFLINE;
}
#------------------------
# Start only if offline..
#------------------------
if ( VCSDef_MonitorExit::OFFLINE == $iReturnCode ) {
if ( SAPComponents::Start ( $argComponentType,
$argEnvFile,
$argInstProfile,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName,
$argSAPHost,
$argSecondLevelMonitor,
$argMonitorProgram ) ) {
&logInfo ( 20175, "<%s> Resource [%s] started up successfully.",
$sMyName, $sResourceName );
}
else {
#------------------------------------------------------------------
# Here, the SAPComponents::Start routine informed us that the online
# did not work; however, all we can do is to return zero,
# effectively telling the VCS engine not to wait at all before
# invoking the monitor Entry Point, which is THE mechanism used by
# VCS to determine a resource's state.
#------------------------------------------------------------------
&logError( 20176, "<%s> Failed to online resource", $sMyName );
}
}
elsif ( VCSDef_MonitorExit::ONLINE == $iReturnCode ) {
&logInfo ( 20177, "<%s> Processes for resource instance already up", $sMyName );
}
else { # Unknown..
&logError ( 20178,
"<%s> Attempt to online resource instance in invalid state", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : int OfflineEntryPoint ( void );
Description : Attempts to offline a resource of type SAPComponents
Returns : Time in seconds to delay run of monitor entry point
#---------------------------------------------------------------
=cut
sub OfflineEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20179, "Subroutine <%s> called", $sMyName );
#----------------------------------------------
# Offline the resource if not offline already..
#----------------------------------------------
if ( VCSDef_MonitorExit::OFFLINE ==
SAPComponents::GetResourceState ( $argComponentType,
$argSAPAdmin,
$argInstProfile ) ) {
&logInfo ( 20180, "<%s> Processes for resource instance down already.",
$sMyName );
}
elsif ( SAPComponents::Stop ( $argComponentType,
$argEnvFile,
$argInstProfile,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName,
$argSAPHost ) ) {
&logInfo ( 20181,
"<%s> Shutdown resource [%s] successfully.",
$sMyName, $sResourceName );
}
else {
&logError ( 20182, "<%s> Failed to offline resource", $sMyName );
}
return 0; # Seconds to pause before calling monitor..
}
=pod
#---------------------------------------------------------------
Function : bool CleanEntryPoint ( void );
Description : Attempts to clean up a resource of type SAPComponents
Returns : boolean value in the set of {0,1} where
0 true
1 false
#---------------------------------------------------------------
=cut
sub CleanEntryPoint {
#-----------------
# Announce Entry..
#-----------------
my $sMyName = ( caller 0 )[3];
&logTrace ( 20183, "Subroutine <%s> called", $sMyName );
#-----------------
# Clean resource..
#-----------------
if ( SAPComponents::Kill ( $iCleanReason,
$argComponentType,
$argEnvFile,
$argInstProfile,
$argSAPAdmin,
$argSAPSID,
$argSAPHome,
$argInstName,
$argSAPHost ) ) {
#--------------
# Kill worked..
#--------------
return VCSDef_CleanExit::PASSED;
}
else {
#--------------
# Kill failed..
#--------------
&logError ( 20184, "<%s> Failed to clean resource", $sMyName );
return VCSDef_CleanExit::FAILED;
}
}
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTSagents/ha/bin/SAPComponents/SAPComponents.xml 0000555 0000000 0000000 00000023352 13320062025 026534 0 ustar root root
Veritas High Availability Agent 5.1 for SAP Components
UNIX
Script
4.0
Symantec
Specifies the logging detail performed by the agent for the resource.
Valid values are:
ERROR - Only logs error messages.
WARN - Logs above plus warning messages.
INFO - Logs above plus informational messages.
TRACE - Logs above plus trace messages. This is very verbose and should only be used during initial configuration or for troubleshooting and diagnostic operations.
Example: INFO
Default Value: INFO
INFO
WARN
ERROR
TRACE
Used to enable second-level monitoring and specify how often it is run. Second-level monitoring is a deeper, more thorough state check of the configured SAPComponents instance. The numeric value specifies how often that the second-level monitoring routines are run. Zero (0) means never run the second-level monitoring routines. One (1) would mean to run it every monitor interval. Two (2) means to run the second-level monitoring routines every second monitor interval, and so on.
Care should be taken when setting this attribute to large numbers. For example, if the MonitorInterval is set to 60 seconds,
and the SecondLevelMonitor is set to 100, then the second level check would only get performed every 100 minutes, which may not be as often as intended. In order to provide maximum flexibility, the value set is not checked for an upper limit. Thus, you could cause the second level check to occur once a month, if that is what is desired.
Example: 1
Default Value: 0
Full path and file name of an external, user-supplied monitor program. If specified, the monitor entry point will execute this file to perform an additional server state check. There are no restrictions for what actions the external monitor program performs to determine the state of a SAPComponents instance server. The only constraint is that the external monitor program must return one of the following integer values:
0 (server is online)
110 (server is online)
100 (server is offline)
1 (server is offline)
All other (server state is unknown)
Symantec recommends storing the external monitor utility on the shared disk directory to ensure the file is always available on the online system. Arguments are supported.
Example:
1. $ServerRoot/bin/myMonitor.pl
2. $ServerRoot/bin/myMonitor.sh arg1 arg2
Default Value: ""
UNIX user name defined as the administrative owner of SAP Instance.
Storing SAPAdmin in system naming services is not supported, for example: NIS, NIS+ and LDAP servers. The agent operations use this user name to execute their respective core subroutines.
Example: gw1adm
Default Value: No default value
Full path of file name to source within the Unix shell to set the environment prior to executing SAP start scripts, monitor utilities, stop scripts and environment cleanup utilities.
The following shell environments are supported: ksh, sh, csh.
The syntax of this file must be in accordance with the shell of the user specified by the SAPAdmin attribute.
Symantec recommends storing this file on the shared disk directory to ensure the file is always available on the online system.
Example: /usr/sap/GW1/G00/envfile
Default: ""
Specifies the full path and file name of the SAP Instance Profile. Typically the Instance Profile is found in /usr/sap/SAPSID/SYS/profile and has a name of the form 'SAPSID'_'InstName'_'VIRTUALHOSTNAME'.
Example: /usr/sap/GW1/SYS/profile/GW1_G00_sapgwrd
Default: ""
String identifier that classifies and describes the SAP component type.
The InstType values are case in-sensitive.
-------------------------------------------------
Instance Type Description
-------------------------------------------------
Gateway SAP Gateway Server
WebDispatcher SAP Web Dispathcer
MDM SAP MDM Component
-------------------------------------------------
Example: Gateway
Default: Gateway
Gateway
WebDispatcher
MDM
./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTS/ 0000755 0000000 0000000 00000000000 13320062025 016260 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTS/messages/ 0000755 0000000 0000000 00000000000 13320062025 020067 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTS/messages/en/ 0000755 0000000 0000000 00000000000 13320062025 020471 5 ustar root root ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTS/messages/en/VRTSvcsHPSAPNW04.bmc 0000555 0000000 0000000 00000032676 13320062025 023712 0 ustar root root G• Q¯bzen HAD U N! O” @ | Ð Öá N! Nw | N N˜ Ø N¡ NÄ @ NÏ Ot Ð O{ O” h Ðÿÿÿÿ _ ¢ Ó O ˆ ï K § ` Á
_
‡
´
æ _ÿÿÿÿÿÿÿÿ †ÿÿÿÿ Ãÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ /ÿÿÿÿÿÿÿÿÿÿÿÿ Zÿÿÿÿ ›ÿÿÿÿÿÿÿÿÿÿÿÿ Æ
9
n
µÿÿÿÿÿÿÿÿ
óÿÿÿÿ - sÿÿÿÿ ›ÿÿÿÿ Ï ýÿÿÿÿ :ÿÿÿÿÿÿÿÿÿÿÿÿ jÿÿÿÿ ¦ÿÿÿÿÿÿÿÿ Íÿÿÿÿ 3 z  ü ; x £ Ëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ûÿÿÿÿ " Vÿÿÿÿÿÿÿÿ ˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ éÿÿÿÿ @ÿÿÿÿ l ·ÿÿÿÿÿÿÿÿÿÿÿÿ óÿÿÿÿÿÿÿÿ %ÿÿÿÿ P Š  ïÿÿÿÿÿÿÿÿÿÿÿÿ 'ÿÿÿÿÿÿÿÿ ]ÿÿÿÿ ½ÿÿÿÿÿÿÿÿ üÿÿÿÿ Gÿÿÿÿ o ¡ Îÿÿÿÿÿÿÿÿ Eÿÿÿÿ Œÿÿÿÿ ´ Ü ÿÿÿÿÿÿÿÿ E ™ÿÿÿÿ Ö G wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ » ÿ C ºÿÿÿÿ ë tÿÿÿÿ ¦ÿÿÿÿ ÿÿÿÿ Kÿÿÿÿÿÿÿÿÿÿÿÿ ˜ Ùÿÿÿÿ ùÿÿÿÿ + jÿÿÿÿ žÿÿÿÿ Úÿÿÿÿÿÿÿÿ > „ÿÿÿÿ Î ÿÿÿÿ F q ·ÿÿÿÿ kÿÿÿÿ ° ! !Nÿÿÿÿ !v !¡ !çÿÿÿÿ "1 "‡ "×ÿÿÿÿÿÿÿÿÿÿÿÿ # #[ÿÿÿÿÿÿÿÿ #˜ #Ñ #ù $$ÿÿÿÿÿÿÿÿÿÿÿÿ $n $” $æ %Aÿÿÿÿ %€ %¼ÿÿÿÿÿÿÿÿ %ù &5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ &{ &¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ '
'X '“ 'È ( (U (ÿÿÿÿÿÿÿÿÿÿÿÿ ) ); )y )¸ )ð *0ÿÿÿÿ *’ *ûÿÿÿÿ +D +u +ª +èÿÿÿÿÿÿÿÿ , ,3ÿÿÿÿ ,r ,šÿÿÿÿ ,áÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ - -: -q -²ÿÿÿÿ -ì . .Dÿÿÿÿ .iÿÿÿÿÿÿÿÿÿÿÿÿ .¾ .æÿÿÿÿ / /9 /ÿÿÿÿ /É 0 0_ÿÿÿÿ 0‡ 0² 0øÿÿÿÿ 1B 1˜ 1è 2 2H 2Žÿÿÿÿÿÿÿÿ 2Ø 3(ÿÿÿÿ 3h 3¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 3ò 4 4Eÿÿÿÿ 4‹ 4Õ 51ÿÿÿÿÿÿÿÿÿÿÿÿ 5 E%s:<%s> The following mandatory fields were not set [%s]. Total [%s] B%s:<%s> StartProfile [%s] not terminated with valid hostname [%s] ?%s:<%s> Last two characters of InstName [%s] not between 00-99 -%s:<%s> SAPAdmin [%s] not a valid UNIX login B%s:<%s> SAPSID [%s] has to be exactly 3 non-white characters long 2%s:<%s> SAPSID [%s] has to begin with an alphabet 5%s:<%s> InstType [%s] invalid. Has to be one of [%s] c%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least one of [dw jc] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] Y%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least [en] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] ]%s:<%s> Incorrect value for ProcMon [%s]. Has to include at least [er enr] for InstType [%s] X%s:<%s> Incorrect value(s) [%s] in ProcMon found. Must be one of [%s] for InstType [%s] >%s:<%s> EnqSrvResName [%s] invalid resource of Type [SAPNW04] $%s:<%s> EnvFile [%s] does not exist )%s:<%s> StartProfile [%s] does not exist .%s:<%s> SAPMonHome [%s] not a valid directory +%s:<%s> MonitorProgram [%s] not executable F%s:<%s> Some of the attributes could not be validated. Returning [%s] #%s:<%s> Could not log successfully 9%s:<%s> Persistent processes exist for SAP instance [%s] 8%s:<%s> Failed to execute cleanipc. Returning with [%s] ,%s:<%s> Failed to remove stale file(s) [%s] '%s:<%s> Cmd [%s] timed out in [%s] sec =%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] '%s:<%s> Cmd [%s] timed out in [%s] sec =%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] .%s:<%s> SAP start command [%s] does not exist 1%s:<%s> SAP start command [%s] is not executable C%s:<%s> In-sufficient time [%s] to execute Cmd [%s] with Args [%s] :%s:<%s> Confirmed start-up of SAP Instance with PIDs [%s] 6%s:<%s> Cmd [%s] with Args [%s] timed out in [%s] sec B%s:<%s> Cmd [%s] failed with exit code [%s]:[%s]. Cmd output [%s] $%s:<%s> Sending SIGINT to PIDs [%s] 0%s:<%s> Confirmed shutdown of SAP Instance [%s] *%s:<%s> Failed to send SIGINT to PID [%s] 9%s:<%s> Persistent processes exist for SAP instance [%s] ,%s:<%s> Failed to remove stale file(s) [%s] 8%s:<%s> Failed to execute cleanipc. Returning with [%s] #%s:<%s> Could not log successfully :%s:<%s> Attempting to shutdown SAP Instance [%s] normally $%s:<%s> Sending SIGINT to PIDs [%s] C%s:<%s> Sucessfully sent SIGINT to PIDs [%s]. Waiting for [%s] sec D%s:<%s> Failed to give SIGINT to PIDs [%s]. Proceeding with SIGKILL 6%s:<%s> Proceeding with SIGKILL for SAP Instance [%s] ;%s:<%s> Confirmed no processes exist for SAP instance [%s] 9%s:<%s> Persistent processes exist for SAP instance [%s] '%s:<%s> Executed cleanipc successfully $%s:<%s> Failed to execute cleanipc. ,%s:<%s> Failed to remove stale file(s) [%s] #%s:<%s> Could not log successfully 0%s:<%s> Failed to get details with ProcMon [%s] >%s:<%s> Call to get process list did not return any processes M%s:<%s> Missing sapstart process. Found master dw process PID [%s] PPID [%s] S%s:<%s> Missing process [%s], though 'dw' master [%s] exists. Retrying in [%s] sec (%s:<%s> Missing jc after recursive call G%s:<%s> Missing process [%s], though 'jc' exists. Retrying in [%s] sec 8%s:<%s> Missing sapstart process in first level monitor .%s:<%s> Called with empty [%s] process string '%s:<%s> PID file [%s] is of zero bytes 6%s:<%s> Could not close PID file [%s] after read [%s] 4%s:<%s> Failed to open PID file [%s] for read: [%s] )%s:<%s> Failed to create PID folder [%s] 4%s:<%s> Attribute validation failed. Returning [%s] 2%s:<%s> SAP Instance [%s] NOT online. Status [%s] \%s:<%s> SAP Instance [%s] NOT online with external monitor [%s] with args [%s]. Status [%s] ;%s:<%s> Cmd [%s] with Args [%s] failed with exit code [%s] G%s:<%s> Resource [%s] not a matching ENQUEUE variant for this resource $%s:<%s> EnvFile [%s] does not exist .%s:<%s> SAPMonHome [%s] not a valid directory )%s:<%s> StartProfile does not exist [%s] 9%s:<%s> Failed to close log file [%s] after update: [%s] 6%s:<%s> Failed to open log file [%s] for update: [%s] C%s:<%s> Failed to set ownership of [%s] to UID [%s] GID [%s]: [%s] $%s:<%s> Command [%s] does not exist $%s:<%s> Command [%s] does not exist '%s:<%s> Command [%s] is not executable :%s:<%s> Command [%s] with args [%s] timed out in [%s] sec P%s:<%s> Command [%s] with args [%s] failed with exit code [%s]. Cmd output [%s] 9%s:<%s> Failed to close log file [%s] after update: [%s] 6%s:<%s> Failed to open log file [%s] for update: [%s] 3%s:<%s> PIDs not killed [%s] Total not killed [%s] ,%s:<%s> Killed PIDs [%s] Total killed: [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] @%s:<%s> Encountered unsupported InstType [%s] for SAP Arch [%s] s%s:<%s> Encountered unsupported InstType [%s]. Has to be one of [enqueue aenqueue jenqueue enqrep aenqrep jenqrep] -%s:<%s> External monitor [%s] does not exist .%s:<%s> External monitor [%s] not executable. S%s:<%s> Insufficient time to proceed with external monitor [%s]. Short by [%s] sec .%s:<%s> Command [%s] with args [%s] timed out Z%s:<%s> Command [%s] with args [%s] execution failed with exit code [%s]. Cmd output [%s] C%s:<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s]. I%s:<%s> Command [%s] with args [%s] did not complete within [%s] seconds =%s:<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut %s:<%s> PID [%s] is invalid .%s:<%s> ps(1b) command [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] 0%s:<%s> PID [%s] is not a valid positive number 8%s:<%s> Failed to close PidFile [%s] after update: [%s] 5%s:<%s> Failed to create PID file [%s] with PID [%s] '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] f%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Replication Server!! A%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Returning [%s] Z%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Not able to connect to ENQUEUE Server!! <%s:<%s> Cmd [%s] failed with exit code [%s]. Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] A%s:<%s> Dispatcher or all [%s] server(s) stopped. Returning [%s] ;%s:<%s> Status of SAP instance undecided:
%sReturning [%s] 9%s:<%s> Destination cluster node [%s] cannot be resolved 5%s:<%s> Faulted cluster node [%s] cannot be resolved $%s:<%s> Command [%s] does not exist '%s:<%s> Command [%s] is not executable F%s:<%s> Missing faulted node name. Possible node FAULT event detected "%s:<%s> Missing source node name. N%s:<%s> Checking if the Group [%s] is configured for Solaris non-global zones W%s:<%s> ContainerName attribute is configured. Possible zone [%s] FAULT event detected ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] 8%s:<%s> Cmd [%s] with args [%s] failed with reason [%s] 9%s:<%s> +------- Group [%s] has ENQUEUE variant -------+ 8%s:<%s> +------- Group [%s] has ENQREP variant -------+ B%s:<%s> Failover Group [%s] has ENQUEUE variant resource(s) [%s]. @%s:<%s> Failover Group [%s] has ENQREP variant resource(s) [%s] G%s:<%s> Corresponding ENQUEUE resource(s) is NOT online in the cluster J%s:<%s> Rejecting ENQUEUE node [%s]. Failing over group [%s] to node [%s] 7%s:<%s> Could not locate any node to online Group [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] K%s:<%s> Failover group [%s] does not have any online ENQ(UEUE|REP) variant D%s:<%s> Failover group [%s] does not have any ENQ(UEUE|REP) variant e%s:<%s> Corresponding ENQREP server(s) not found ONLINE in cluster. Onlining group [%s] on node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] ;%s:<%s> ENQREP configured in different service groups [%s] 4%s:<%s> ENQREP found online on different nodes [%s] <%s:<%s> Marking resource [%s] with InstType [%s] as invalid ^%s:<%s> SAPSID [%s] of ENQREP resource [%s] differs from SAPSID [%s] of ENQUEUE resource [%s] e%s:<%s> InstType [%s] of ENQREP resource [%s] not a match for InstType [%s] of ENQUEUE resource [%s] E%s:<%s> EnqResName [%s] value is in-correct for ENQREP resource [%s] -%s:<%s> Failing over Group [%s] to node [%s] 1%s:<%s> Issued online of Group [%s] on node [%s] :%s:<%s> Could not issue online of Group [%s] on node [%s] %s:<%s> Cmd [%s] does not exist #%s:<%s> Cmd [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] $%s:<%s> SAP Cmd [%s] does not exist C%s:Agent called with unsupported entry point specification of [%s] /%s:<%s> Resource [%s] started up successfully. "%s:<%s> Failed to online resource 3%s:<%s> Processes for resource instance already up =%s:<%s> Attempt to online resource instance in invalid state 6%s:<%s> Processes for resource instance down already. -%s:<%s> Shutdown resource [%s] successfully. #%s:<%s> Failed to offline resource !%s:<%s> Failed to clean resource Q%s:<%s> Failed to delete PID files in directory [%s]. Remove the files manually. $%s:<%s> SAP Cmd [%s] does not exist $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] <%s:<%s> Cmd [%s] failed with exit code [%s]. Returning [%s] $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] R%s:<%s> Cmd [%s] with args [%s] exited with [%s]. Cmd output [%s]. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] 1%s:<%s> Deleting PID files for VCS resource [%s] '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] <%s:<%s> Failed to close VersionFile [%s] after update: [%s] <%s:<%s> Failed to create VersionFile [%s] with Version [%s] F%s:<%s> Failed to delete version file [%s]. Remove the file manually. $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] X%s:<%s> Cmd[%s] executed successfully with exit code 4 indicating all processes stopped L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] 9%s:<%s> Status of SAP instance undecided.
Returning [%s] ./pkgs/VRTSsapcms/VRTSsapcms/opt/VRTS/messages/en/VRTSvcsHPSAPComponents.bmc 0000555 0000000 0000000 00000013025 13320062025 025332 0 ustar root root G• R|ãYen HAD ž N" NØ @ p è Öû N" N_ p Ng N£ h N« N¾ \ NÊ NØ ¬ è 1 e ’ × ? “ Ö ÿÿÿÿÿÿÿÿÿÿÿÿ Yÿÿÿÿ Ÿÿÿÿÿÿÿÿÿÿÿÿÿ àÿÿÿÿ ÿÿÿÿÿÿÿÿ Uÿÿÿÿÿÿÿÿ ¤ÿÿÿÿÿÿÿÿ úÿÿÿÿÿÿÿÿ mÿÿÿÿ ³ÿÿÿÿ ãÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿ bÿÿÿÿ ’ÿÿÿÿ Øÿÿÿÿ ^ÿÿÿÿÿÿÿÿÿÿÿÿ ¤ÿÿÿÿ êÿÿÿÿ
0ÿÿÿÿÿÿÿÿ
m
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
åÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ _ÿÿÿÿÿÿÿÿ —ÿÿÿÿ Üÿÿÿÿ L • Æ óÿÿÿÿ
'ÿÿÿÿ
x
Ëÿÿÿÿ [ ºÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿ I z ¬ Ôÿÿÿÿÿÿÿÿ +ÿÿÿÿ ‰ÿÿÿÿ ½ ùÿÿÿÿ 2ÿÿÿÿ d É 8ÿÿÿÿÿÿÿÿ h Œ ³ÿÿÿÿÿÿÿÿÿÿÿÿ ú Gÿÿÿÿ ˆÿÿÿÿ ¨ Úÿÿÿÿÿÿÿÿ Fÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ À æ ÿÿÿÿ ^ ˜ Éÿÿÿÿ ð E%s:<%s> The following mandatory fields were not set [%s], Total [%s] 0%s:<%s> SAPAdmin [%s] is not a valid UNIX login )%s:<%s> EnvFile [%s] file does not exist A%s:<%s> InstProfile [%s] not terminated with valid hostname [%s] .%s:<%s> MonitorProgram [%s] is not executable 2%s:<%s> InstProfile [%s] directory does not exist P%s:<%s> SAPSID [%s] has to be exactly 3 non-white alpha-numeric characters long ?%s:<%s> Last two characters of InstName [%s] not between 00-99 5%s:<%s> InstType [%s] invalid. Has to be one of [%s] F%s:<%s> Some of the attributes could not be validated. Returning [%s] B%s:<%s> Could not remove all processes for this instance. Exiting =%s:<%s> Insufficient time to run cleanipc. Short by [%s] sec ,%s:<%s> Failed to remove stale file(s) [%s] A%s:<%s> Insufficient time to continue boot up. Short by [%s] sec K%s:<%s> Process check confirmed start-up of this instance of SAP Component R%s:<%s> Second Level Monitor confirmed start-up of this instance of SAP Component o%s:<%s> Could not confirm start-up after executing external monitor [%s] with args [%s]. Sleeping for [%s] sec B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec ,%s:<%s> Delaying exit to confirm shutdown.. 5%s:<%s> Confirmed shutdown of SAPComponents instance B%s:<%s> Could not remove all processes for this instance. Exiting ,%s:<%s> Failed to remove stale file(s) [%s] B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec 9%s:<%s> Could not remove all IPC resources for User [%s] E%s:<%s> Attempting to stop SAPComponents with Command [%s] Args [%s] B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec B%s:<%s> Could not remove all processes for this instance. Exiting B%s:<%s> Insufficient time to continue shutdown. Short by [%s] sec 9%s:<%s> Could not remove all IPC resources for User [%s] ,%s:<%s> Failed to remove stale file(s) [%s] D%s:<%s> Failed to get details for monitoring SAPComponents instance >%s:<%s> Call to get process list did not return any processes 4%s:<%s> Could not create PID file [%s] successfully 4%s:<%s> Attribute validation failed. Returning [%s] A%s:<%s> SAPComponents instance NOT online after SLM. Status [%s] l%s:<%s> SAPComponents instance NOT online after executing external monitor [%s] with args [%s]. Status [%s] E%s:<%s> The following mandatory fields were not set [%s], Total [%s] -%s:<%s> InstProfile [%s] file does not exist )%s:<%s> EnvFile [%s] file does not exist 0%s:<%s> SAPAdmin [%s] is not a valid UNIX login M%s:<%s> Insufficient time to continue in-depth monitoring. Short by [%s] sec $%s:<%s> SAP Cmd [%s] does not exist '%s:<%s> SAP Cmd [%s] is not executable B%s:<%s> Insufficient time [%s] to execute Cmd [%s] with args [%s] F%s:<%s> Cmd [%s] with args [%s] timed out in [%s] sec. Returning [%s] [%s:<%s> Cmd[%s] executed successfully with exit code [%s] indicating all processes stopped L%s:<%s> Cmd [%s] failed with exit code [%s]. Cmd output [%s] Returning [%s] ;%s:<%s> Status of SAP instance undecided:
%sReturning [%s] -%s:<%s> External monitor [%s] does not exist .%s:<%s> External monitor [%s] not executable. $%s:<%s> EnvFile [%s] does not exist S%s:<%s> Insufficient time to proceed with external monitor [%s]. Short by [%s] sec Z%s:<%s> Command [%s] with args [%s] execution failed with exit code [%s]. Cmd output [%s] 0%s:<%s> PID [%s] is not a valid positive number 8%s:<%s> Failed to close PidFile [%s] after update: [%s] 5%s:<%s> Failed to create PID file [%s] with PID [%s] .%s:<%s> Called with empty [%s] process string '%s:<%s> PID file [%s] is of zero bytes 6%s:<%s> Could not close PID file [%s] after read [%s] 4%s:<%s> Failed to open PID file [%s] for read: [%s] 3%s:<%s> PIDs not killed [%s] Total not killed [%s] ,%s:<%s> Killed PIDs [%s] Total killed: [%s] %s:<%s> Cmd [%s] does not exist #%s:<%s> Cmd [%s] is not executable C%s:<%s> Insufficient time [%s] to execute Cmd [%s] with Args [%s]. I%s:<%s> Command [%s] with args [%s] did not complete within [%s] seconds =%s:<%s> Failed in call to RunWithEnvCmdWithOutputWithTimeOut %s:<%s> PID [%s] is invalid .%s:<%s> ps(1b) command [%s] is not executable ;%s:<%s> Cmd [%s] with args [%s] failed with exit code [%s] )%s:<%s> Failed to create PID folder [%s] C%s:Agent called with unsupported entry point specification of [%s] /%s:<%s> Resource [%s] started up successfully. "%s:<%s> Failed to online resource 3%s:<%s> Processes for resource instance already up =%s:<%s> Attempt to online resource instance in invalid state 6%s:<%s> Processes for resource instance down already. -%s:<%s> Shutdown resource [%s] successfully. #%s:<%s> Failed to offline resource !%s:<%s> Failed to clean resource ./pkgs/catalog/ 0000555 0000000 0000000 00000000000 13320062025 012256 5 ustar root root ./pkgs/catalog/swlock 0000555 0000000 0000000 00000000000 13320062025 013474 0 ustar root root ./pkgs/catalog/VRTSsapnw04/ 0000755 0000000 0000000 00000000000 13320062025 014273 5 ustar root root ./pkgs/catalog/VRTSsapnw04/VRTSsapnw04/ 0000755 0000000 0000000 00000000000 13320062025 016306 5 ustar root root ./pkgs/catalog/VRTSsapnw04/VRTSsapnw04/postremove 0000555 0000000 0000000 00000006212 13320062025 020436 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: avaidya $
# $Date: 2012/10/30 12:16:58 $
# $Revision: 1.8 $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/install/postremove.vad,v 1.8 2012/10/30 12:16:58 avaidya Exp $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPNW04
#-------------------------
# Set VCS base directories
#-------------------------
CLUS_HOME=/opt/VRTS
AGENT_HOME=/opt/VRTSagents/ha
AGENT_ETC=/etc/VRTSagents/ha
#----------------------
# Set Agent directories
#----------------------
AgentDirectories="${AGENT_HOME}/bin/${AgentName} ${AGENT_ETC}/conf/${AgentName}"
#-------------------------
# Set Agent symbolic links
#-------------------------
AgentFilesToRemove="${AgentName}Agent online offline clean open core"
#-----------------------------------------------------------------------------
# ****** No further configurable settings ******
#-----------------------------------------------------------------------------
#--------------------------------------------
# Define full paths to commands and constants
#--------------------------------------------
RM=/bin/rm
RMDIR=/bin/rmdir
LS=/bin/ls
#-------------------
# Update the BMC map
#-------------------
cd /opt/VRTS/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for AgentFileToRemove in ${AgentFilesToRemove}
do
${RM} -f ${AGENT_HOME}/bin/${AgentName}/${AgentFileToRemove}
done
#-----------------------------
# Remove the agent directories
#-----------------------------
for AgentDir in ${AgentDirectories}
do
if [ -d ${AgentDir} ]; then
AgentDirContentList=`${LS} ${AgentDir}`
if [ -z "${AgentDirContentList}" ]; then
${RMDIR} ${AgentDir} || echo "Warning: Problems removing directory [${AgentDir}]"
else
echo "Notice: Directory [${AgentDir}] is not empty and will not be removed."
fi
fi
done
./pkgs/catalog/VRTSsapnw04/VRTSsapnw04/postinstall 0000555 0000000 0000000 00000003734 13320062025 020615 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: avaidya $
# $Date: 2012/10/30 12:16:58 $
# $Revision: 1.11 $
#
# $Header: /project/isv-agent/VProAgents/SAPNW04/install/postinstall.vad,v 1.11 2012/10/30 12:16:58 avaidya Exp $
#--------------------------------------------------------------------
#-------------------------
# Set CLUS base directories
#-------------------------
if [ ! -d "${CLUS_HOME}" ]; then
CLUS_HOME=/opt/VRTS
fi
#------------------
# Define commands..
#------------------
LN="/bin/ln"
#--------------------------------------------------------
# Create Symbolic Link for open entry point
#--------------------------------------------------------
$LN -s /opt/VRTSagents/ha/bin/SAPNW04/monitor /opt/VRTSagents/ha/bin/SAPNW04/open
#--------------------------------------------------------
# Re-create the BMC map with the newly installed messages
#--------------------------------------------------------
cd ${CLUS_HOME}/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
./pkgs/catalog/VRTSsapnw04/VRTSsapnw04/INFO 0000555 0000000 0000000 00000006116 13320062025 016771 0 ustar root root file
path /etc
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPNW04
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cf
type f
size 582
cksum 2297875387
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cmd
type f
size 918
cksum 1554919161
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.hpux.xml
type f
size 5902
cksum 2157042721
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /etc/VRTSagents/ha/conf/SAPNW04/main.cf
type f
size 3688
cksum 1708557691
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /etc/VRTSagents/ha/conf/SAPNW04/preonline
type f
size 5659
cksum 2348625335
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /opt
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en/VRTSvcsHPSAPNW04.bmc
type f
size 13758
cksum 4293742839
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /opt/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPNW04
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.pm
type f
size 212692
cksum 2735603214
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.xml
type f
size 15303
cksum 1781639821
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /opt/VRTSagents/ha/bin/SAPNW04/clean
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
file
path /opt/VRTSagents/ha/bin/SAPNW04/monitor
type f
size 20680
cksum 1297181809
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916371
file
path /opt/VRTSagents/ha/bin/SAPNW04/offline
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
file
path /opt/VRTSagents/ha/bin/SAPNW04/online
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
control_file
path INDEX
size 208
mode 0444
mtime 1383916371
tag INDEX
result none
control_file
path INFO
size 3161
mode 0444
mtime 1383916371
tag INFO
result none
control_file
path postinstall
size 2012
cksum 1617726643
mode 0544
mtime 1383916371
tag postinstall
result none
control_file
path postremove
size 3210
cksum 1702965824
mode 0544
mtime 1383916371
tag postremove
result none
./pkgs/catalog/VRTSsapnw04/VRTSsapnw04/INDEX 0000555 0000000 0000000 00000000320 13320062025 017074 0 ustar root root fileset
tag VRTSsapnw04
data_model_revision 2.40
instance_id 1
control_directory VRTSsapnw04
size 287773
revision 5.0.16.0
title "VRTSsapnw04 Files"
mod_time 1383916380
create_time 1383916380
state available
./pkgs/catalog/VRTSsapnw04/pfiles/ 0000755 0000000 0000000 00000000000 13320062025 015555 5 ustar root root ./pkgs/catalog/VRTSsapnw04/pfiles/_ACL 0000555 0000000 0000000 00000000070 13320062025 016234 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/VRTSsapnw04/pfiles/_OWNER 0000555 0000000 0000000 00000000125 13320062025 016530 0 ustar root root # default_realm=vcshp034.vxindia.veritas.com
num_entries=2
user:root:00
group:sys:00
./pkgs/catalog/VRTSsapnw04/pfiles/_LOCK_FILE 0000555 0000000 0000000 00000000000 13320062025 017155 0 ustar root root ./pkgs/catalog/VRTSsapnw04/pfiles/INFO 0000555 0000000 0000000 00000000243 13320062025 016233 0 ustar root root control_file
path INDEX
size 1222
mode 0444
mtime 1383916371
tag INDEX
result none
control_file
path INFO
size 199
mode 0444
mtime 1383916371
tag INFO
result none
./pkgs/catalog/VRTSsapnw04/pfiles/INDEX 0000555 0000000 0000000 00000002306 13320062025 016351 0 ustar root root product
tag VRTSsapnw04
data_model_revision 2.40
instance_id 1
control_directory VRTSsapnw04
revision 5.0.16.0
title "Veritas High Availability Agent for SAP NetWeaver by Symantec"
mod_time 1383916380
create_time 1383916380
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapnw04
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
./pkgs/catalog/VRTSsapwebas71/ 0000755 0000000 0000000 00000000000 13320062025 014754 5 ustar root root ./pkgs/catalog/VRTSsapwebas71/VRTSsapwebas71/ 0000755 0000000 0000000 00000000000 13320062025 017450 5 ustar root root ./pkgs/catalog/VRTSsapwebas71/VRTSsapwebas71/postremove 0000555 0000000 0000000 00000006742 13320062025 021610 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: vchappav $
# $Date: 2009/08/21 10:36:54 $
# $Revision: 1.6 $
# $Header: /project/isv-agent/VProAgents/SAPWebAS71/install/postremove.vad,v 1.6 2009/08/21 10:36:54 vchappav Exp $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPWebAS71
#-------------------------
# Set VCS base directories
#-------------------------
CLUS_HOME=/opt/VRTS
AGENT_HOME=/opt/VRTSagents/ha
AGENT_ETC=/etc/VRTSagents/ha
#----------------------
# Set Agent directories
#----------------------
AgentDirectories="${AGENT_HOME}/bin/${AgentName} ${AGENT_ETC}/conf/${AgentName}"
#-------------------------
# Set Agent symbolic links
#-------------------------
AgentFilesToRemove="${AgentName}Agent online offline clean preonline core"
ConfFilesToRemove="main.cmd core"
#-----------------------------------------------------------------------------
# ****** No further configurable settings ******
#-----------------------------------------------------------------------------
#--------------------------------------------
# Define full paths to commands and constants
#--------------------------------------------
RM=/bin/rm
RMDIR=/bin/rmdir
LS=/bin/ls
#-------------------
# Update the BMC map
#-------------------
cd /opt/VRTS/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for AgentFileToRemove in ${AgentFilesToRemove}
do
${RM} -f ${AGENT_HOME}/bin/${AgentName}/${AgentFileToRemove}
done
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for ConfFileToRemove in ${ConfFilesToRemove}
do
${RM} -f ${AGENT_ETC}/conf/${AgentName}/${ConfFileToRemove}
done
#-----------------------------
# Remove the agent directories
#-----------------------------
for AgentDir in ${AgentDirectories}
do
if [ -d ${AgentDir} ]; then
AgentDirContentList=`${LS} ${AgentDir}`
if [ -z "${AgentDirContentList}" ]; then
${RMDIR} ${AgentDir} || echo "Warning: Problems removing directory [${AgentDir}]"
else
echo "Notice: Directory [${AgentDir}] is not empty and will not be removed."
fi
fi
done
./pkgs/catalog/VRTSsapwebas71/VRTSsapwebas71/postinstall 0000555 0000000 0000000 00000004200 13320062025 021744 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: vchappav $
# $Date: 2009/08/21 10:36:54 $
# $Revision: 1.6 $
# $Header: /project/isv-agent/VProAgents/SAPWebAS71/install/postinstall.vad,v 1.6 2009/08/21 10:36:54 vchappav Exp $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPWebAS71
#-------------------------
# Set CLUS base directories
#-------------------------
if [ ! -d "${CLUS_HOME}" ]; then
CLUS_HOME=/opt/VRTS
fi
#-------------------------
# Set VCS base directories
#-------------------------
if [ ! -d "${VCS_AGENT}" ]; then
VCS_AGENT=/opt/VRTSagents/ha
fi
#-------------------------------
# Create preonline link ..
#-------------------------------
LN=/bin/ln
${LN} -s ${VCS_AGENT}/bin/${AgentName}/monitor ${VCS_AGENT}/bin/${AgentName}/preonline
#--------------------------------------------------------
# Re-create the BMC map with the newly installed messages
#--------------------------------------------------------
cd ${CLUS_HOME}/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
./pkgs/catalog/VRTSsapwebas71/VRTSsapwebas71/INFO 0000555 0000000 0000000 00000006217 13320062025 020135 0 ustar root root file
path /etc
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPWebAS71
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.cf
type f
size 521
cksum 2957400520
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.cmd
type f
size 833
cksum 3890954790
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /etc/VRTSagents/ha/conf/SAPWebAS71/SAPWebAS71Types.hpux.xml
type f
size 5303
cksum 2146035025
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /etc/VRTSagents/ha/conf/SAPWebAS71/main.cf
type f
size 13625
cksum 2919509824
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /etc/VRTSagents/ha/conf/SAPWebAS71/preonline
type f
size 5839
cksum 154404436
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /opt
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en/VRTSvcsHPSAPWebAS71.bmc
type f
size 11571
cksum 3135304497
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /opt/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPWebAS71
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/SAPWebAS71.pm
type f
size 191531
cksum 1773283274
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/SAPWebAS71.xml
type f
size 12345
cksum 366525545
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/clean
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPWebAS71/monitor
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/monitor
type f
size 19595
cksum 1238444748
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916373
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/offline
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPWebAS71/monitor
file
path /opt/VRTSagents/ha/bin/SAPWebAS71/online
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPWebAS71/monitor
control_file
path INDEX
size 217
mode 0444
mtime 1383916373
tag INDEX
result none
control_file
path INFO
size 3226
mode 0444
mtime 1383916373
tag INFO
result none
control_file
path postinstall
size 2176
cksum 2758713442
mode 0544
mtime 1383916373
tag postinstall
result none
control_file
path postremove
size 3554
cksum 3600057706
mode 0544
mtime 1383916373
tag postremove
result none
./pkgs/catalog/VRTSsapwebas71/VRTSsapwebas71/INDEX 0000555 0000000 0000000 00000000331 13320062025 020240 0 ustar root root fileset
tag VRTSsapwebas71
data_model_revision 2.40
instance_id 1
control_directory VRTSsapwebas71
size 270336
revision 5.0.10.0
title "VRTSsapwebas71 Files"
mod_time 1383916381
create_time 1383916381
state available
./pkgs/catalog/VRTSsapwebas71/pfiles/ 0000755 0000000 0000000 00000000000 13320062025 016236 5 ustar root root ./pkgs/catalog/VRTSsapwebas71/pfiles/_ACL 0000555 0000000 0000000 00000000070 13320062025 016715 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/VRTSsapwebas71/pfiles/_OWNER 0000555 0000000 0000000 00000000125 13320062025 017211 0 ustar root root # default_realm=vcshp034.vxindia.veritas.com
num_entries=2
user:root:00
group:sys:00
./pkgs/catalog/VRTSsapwebas71/pfiles/_LOCK_FILE 0000555 0000000 0000000 00000000000 13320062025 017636 0 ustar root root ./pkgs/catalog/VRTSsapwebas71/pfiles/INFO 0000555 0000000 0000000 00000000243 13320062025 016714 0 ustar root root control_file
path INDEX
size 1227
mode 0444
mtime 1383916373
tag INDEX
result none
control_file
path INFO
size 199
mode 0444
mtime 1383916373
tag INFO
result none
./pkgs/catalog/VRTSsapwebas71/pfiles/INDEX 0000555 0000000 0000000 00000002313 13320062025 017030 0 ustar root root product
tag VRTSsapwebas71
data_model_revision 2.40
instance_id 1
control_directory VRTSsapwebas71
revision 5.0.10.0
title "Veritas High Availability Agent for SAP WebAS by Symantec"
mod_time 1383916381
create_time 1383916381
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapwebas71
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
./pkgs/catalog/VRTSsaplc/ 0000755 0000000 0000000 00000000000 13320062025 014101 5 ustar root root ./pkgs/catalog/VRTSsaplc/pfiles/ 0000755 0000000 0000000 00000000000 13320062025 015363 5 ustar root root ./pkgs/catalog/VRTSsaplc/pfiles/_ACL 0000555 0000000 0000000 00000000070 13320062025 016042 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/VRTSsaplc/pfiles/_OWNER 0000555 0000000 0000000 00000000125 13320062025 016336 0 ustar root root # default_realm=vcshp034.vxindia.veritas.com
num_entries=2
user:root:00
group:sys:00
./pkgs/catalog/VRTSsaplc/pfiles/_LOCK_FILE 0000555 0000000 0000000 00000000000 13320062025 016763 0 ustar root root ./pkgs/catalog/VRTSsaplc/pfiles/INFO 0000555 0000000 0000000 00000000243 13320062025 016041 0 ustar root root control_file
path INDEX
size 1215
mode 0444
mtime 1383916376
tag INDEX
result none
control_file
path INFO
size 199
mode 0444
mtime 1383916376
tag INFO
result none
./pkgs/catalog/VRTSsaplc/pfiles/INDEX 0000555 0000000 0000000 00000002277 13320062025 016166 0 ustar root root product
tag VRTSsaplc
data_model_revision 2.40
instance_id 1
control_directory VRTSsaplc
revision 5.0.8.0
title "Veritas High Availability Agent for SAP liveCache by Symantec"
mod_time 1383916382
create_time 1383916382
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsaplc
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
./pkgs/catalog/VRTSsaplc/VRTSsaplc/ 0000755 0000000 0000000 00000000000 13320062025 015722 5 ustar root root ./pkgs/catalog/VRTSsaplc/VRTSsaplc/postremove 0000555 0000000 0000000 00000006221 13320062025 020052 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPLiveCache/install/postremove.vad,v 1.5 2009/08/21 10:36:20 vchappav Exp $
#
# $Author: vchappav $
# $Date: 2009/08/21 10:36:20 $
# $Revision: 1.5 $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPLiveCache
#-------------------------
# Set VCS base directories
#-------------------------
CLUS_HOME=/opt/VRTS
AGENT_HOME=/opt/VRTSagents/ha
AGENT_ETC=/etc/VRTSagents/ha
#----------------------
# Set Agent directories
#----------------------
AgentDirectories="${AGENT_HOME}/bin/${AgentName} ${AGENT_ETC}/conf/${AgentName}"
#-------------------------
# Set Agent symbolic links
#-------------------------
AgentFilesToRemove="${AgentName}Agent online offline clean core"
#-----------------------------------------------------------------------------
# ****** No further configurable settings ******
#-----------------------------------------------------------------------------
#--------------------------------------------
# Define full paths to commands and constants
#--------------------------------------------
RM=/bin/rm
RMDIR=/bin/rmdir
LS=/bin/ls
#-------------------
# Update the BMC map
#-------------------
cd /opt/VRTS/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for AgentFileToRemove in ${AgentFilesToRemove}
do
${RM} -f ${AGENT_HOME}/bin/${AgentName}/${AgentFileToRemove}
done
#-----------------------------
# Remove the agent directories
#-----------------------------
for AgentDir in ${AgentDirectories}
do
if [ -d ${AgentDir} ]; then
AgentDirContentList=`${LS} ${AgentDir}`
if [ -z "${AgentDirContentList}" ]; then
${RMDIR} ${AgentDir} || echo "Warning: Problems removing directory [${AgentDir}]"
else
echo "Notice: Directory [${AgentDir}] is not empty and will not be removed."
fi
fi
done
./pkgs/catalog/VRTSsaplc/VRTSsaplc/postinstall 0000555 0000000 0000000 00000003343 13320062025 020225 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
#
# $Header: /project/isv-agent/VProAgents/SAPLiveCache/install/postinstall.vad,v 1.8 2009/08/21 10:36:20 vchappav Exp $
#
# $Author: vchappav $
# $Date: 2009/08/21 10:36:20 $
# $Revision: 1.8 $
#--------------------------------------------------------------------
#-------------------------
# Set CLUS base directories
#-------------------------
if [ ! -d "${CLUS_HOME}" ]; then
CLUS_HOME=/opt/VRTS
fi
if [ ! -d "${CLUS_ETC}" ]; then
CLUS_ETC=/etc/VRTSvad
fi
#--------------------------------------------------------
# Re-create the BMC map with the newly installed messages
#--------------------------------------------------------
cd ${CLUS_HOME}/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path ${CLUS_HOME}/messages/en
) 1> /dev/null 2>&1
echo ""
./pkgs/catalog/VRTSsaplc/VRTSsaplc/INFO 0000555 0000000 0000000 00000006271 13320062025 016407 0 ustar root root file
path /etc
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPLiveCache
type d
mode 0755
uid 2
gid 2
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.cf
type f
size 702
cksum 1335705560
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.cmd
type f
size 1255
cksum 3025678840
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /etc/VRTSagents/ha/conf/SAPLiveCache/SAPLiveCacheTypes.hpux.xml
type f
size 7163
cksum 3573517887
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /etc/VRTSagents/ha/conf/SAPLiveCache/main.cf
type f
size 9549
cksum 3094652807
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en/VRTSvcsHPSAPLiveCache.bmc
type f
size 9516
cksum 1703643779
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPLiveCache
type d
mode 0755
uid 2
gid 2
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/SAPLiveCache.pm
type f
size 131865
cksum 2629903263
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/SAPLiveCache.xml
type f
size 15001
cksum 265055751
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/clean
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPLiveCache/monitor
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/lccluster
type f
size 785
cksum 2739312007
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/monitor
type f
size 20469
cksum 3485506308
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916375
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/offline
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPLiveCache/monitor
file
path /opt/VRTSagents/ha/bin/SAPLiveCache/online
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPLiveCache/monitor
control_file
path INDEX
size 201
mode 0444
mtime 1383916376
tag INDEX
result none
control_file
path INFO
size 3268
mode 0444
mtime 1383916376
tag INFO
result none
control_file
path postinstall
size 1763
cksum 4280739865
mode 0544
mtime 1383916375
tag postinstall
result none
control_file
path postremove
size 3217
cksum 1444407842
mode 0544
mtime 1383916375
tag postremove
result none
./pkgs/catalog/VRTSsaplc/VRTSsaplc/INDEX 0000555 0000000 0000000 00000000311 13320062025 016510 0 ustar root root fileset
tag VRTSsaplc
data_model_revision 2.40
instance_id 1
control_directory VRTSsaplc
size 204754
revision 5.0.8.0
title "VRTSsaplc Files"
mod_time 1383916382
create_time 1383916382
state available
./pkgs/catalog/VRTSsapcms/ 0000755 0000000 0000000 00000000000 13320062025 014265 5 ustar root root ./pkgs/catalog/VRTSsapcms/pfiles/ 0000755 0000000 0000000 00000000000 13320062025 015547 5 ustar root root ./pkgs/catalog/VRTSsapcms/pfiles/_ACL 0000555 0000000 0000000 00000000070 13320062025 016226 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/VRTSsapcms/pfiles/_OWNER 0000555 0000000 0000000 00000000125 13320062025 016522 0 ustar root root # default_realm=vcshp034.vxindia.veritas.com
num_entries=2
user:root:00
group:sys:00
./pkgs/catalog/VRTSsapcms/pfiles/_LOCK_FILE 0000555 0000000 0000000 00000000000 13320062025 017147 0 ustar root root ./pkgs/catalog/VRTSsapcms/pfiles/INFO 0000555 0000000 0000000 00000000243 13320062025 016225 0 ustar root root control_file
path INDEX
size 1219
mode 0444
mtime 1383916377
tag INDEX
result none
control_file
path INFO
size 199
mode 0444
mtime 1383916377
tag INFO
result none
./pkgs/catalog/VRTSsapcms/pfiles/INDEX 0000555 0000000 0000000 00000002303 13320062025 016340 0 ustar root root product
tag VRTSsapcms
data_model_revision 2.40
instance_id 1
control_directory VRTSsapcms
revision 5.1.5.0
title "Veritas High Availability Agent for SAP Components by Symantec"
mod_time 1383916382
create_time 1383916382
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapcms
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
./pkgs/catalog/VRTSsapcms/VRTSsapcms/ 0000755 0000000 0000000 00000000000 13320062025 016272 5 ustar root root ./pkgs/catalog/VRTSsapcms/VRTSsapcms/postremove 0000555 0000000 0000000 00000006734 13320062025 020433 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: rkumar $
# $Date: 2010/09/16 09:02:16 $
# $Revision: 1.2 $
# $Header: /project/isv-agent/VProAgents/SAPComponents/install/postremove.vad,v 1.2 2010/09/16 09:02:16 rkumar Exp $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPComponents
#-------------------------
# Set VCS base directories
#-------------------------
CLUS_HOME=/opt/VRTS
AGENT_HOME=/opt/VRTSagents/ha
AGENT_ETC=/etc/VRTSagents/ha
#----------------------
# Set Agent directories
#----------------------
AgentDirectories="${AGENT_HOME}/bin/${AgentName} ${AGENT_ETC}/conf/${AgentName}"
#-------------------------
# Set Agent symbolic links
#-------------------------
AgentFilesToRemove="${AgentName}Agent online offline clean core"
ConfFilesToRemove="main.cmd core"
#-----------------------------------------------------------------------------
# ****** No further configurable settings ******
#-----------------------------------------------------------------------------
#--------------------------------------------
# Define full paths to commands and constants
#--------------------------------------------
RM=/bin/rm
RMDIR=/bin/rmdir
LS=/bin/ls
#-------------------
# Update the BMC map
#-------------------
cd /opt/VRTS/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for AgentFileToRemove in ${AgentFilesToRemove}
do
${RM} -f ${AGENT_HOME}/bin/${AgentName}/${AgentFileToRemove}
done
#-----------------------------------------------------------
# Remove the agent's symbolic links if they are still around
#-----------------------------------------------------------
for ConfFileToRemove in ${ConfFilesToRemove}
do
${RM} -f ${AGENT_ETC}/conf/${AgentName}/${ConfFileToRemove}
done
#-----------------------------
# Remove the agent directories
#-----------------------------
for AgentDir in ${AgentDirectories}
do
if [ -d ${AgentDir} ]; then
AgentDirContentList=`${LS} ${AgentDir}`
if [ -z "${AgentDirContentList}" ]; then
${RMDIR} ${AgentDir} || echo "Warning: Problems removing directory [${AgentDir}]"
else
echo "Notice: Directory [${AgentDir}] is not empty and will not be removed."
fi
fi
done
./pkgs/catalog/VRTSsapcms/VRTSsapcms/postinstall 0000555 0000000 0000000 00000003703 13320062025 020575 0 ustar root root #!/bin/sh
#--------------------------------------------------------------------
# $Copyright: Copyright (c) 2013 Symantec Corporation.
# All rights reserved.
#
# THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF
# SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED
# WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION.
#
# The Licensed Software and Documentation are deemed to be commercial
# computer software as defined in FAR 12.212 and subject to restricted
# rights as defined in FAR Section 52.227-19 "Commercial Computer
# Software - Restricted Rights" and DFARS 227.7202, "Rights in
# Commercial Computer Software or Commercial Computer Software
# Documentation", as applicable, and any successor regulations. Any use,
# modification, reproduction release, performance, display or disclosure
# of the Licensed Software and Documentation by the U.S. Government
# shall be solely in accordance with the terms of this Agreement. $
# $Author: rkumar $
# $Date: 2010/09/16 09:02:16 $
# $Revision: 1.2 $
# $Header: /project/isv-agent/VProAgents/SAPComponents/install/postinstall.vad,v 1.2 2010/09/16 09:02:16 rkumar Exp $
#--------------------------------------------------------------------
#----------------------------------
# Configurable settings:
# Define agent name
#----------------------------------
AgentName=SAPComponents
#-------------------------
# Set CLUS base directories
#-------------------------
if [ ! -d "${CLUS_HOME}" ]; then
CLUS_HOME=/opt/VRTS
fi
#-------------------------
# Set VCS base directories
#-------------------------
if [ ! -d "${VCS_AGENT}" ]; then
VCS_AGENT=/opt/VRTSagents/ha
fi
#--------------------------------------------------------
# Re-create the BMC map with the newly installed messages
#--------------------------------------------------------
cd ${CLUS_HOME}/messages/en
(
${CLUS_HOME}/bin/bmcmap -create en had -path /opt/VRTS/messages/en
) 1> /dev/null 2>&1
echo ""
./pkgs/catalog/VRTSsapcms/VRTSsapcms/INFO 0000555 0000000 0000000 00000011157 13320062025 016756 0 ustar root root file
path /etc
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPComponents
type d
mode 0755
uid 2
gid 2
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPComponents/SAPComponentsTypes.cf
type f
size 513
cksum 2936334178
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /etc/VRTSagents/ha/conf/SAPComponents/main.cf
type f
size 2251
cksum 2721030651
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /etc/VRTSagents/ha/conf/SAPNW04
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cf
type f
size 582
cksum 2297875387
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.cmd
type f
size 918
cksum 1554919161
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /etc/VRTSagents/ha/conf/SAPNW04/SAPNW04Types.hpux.xml
type f
size 5902
cksum 2157042721
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /etc/VRTSagents/ha/conf/SAPNW04/main.cf
type f
size 3688
cksum 1708557691
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /etc/VRTSagents/ha/conf/SAPNW04/preonline
type f
size 5659
cksum 2348625335
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /opt
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTS/messages/en/VRTSvcsHPSAPComponents.bmc
type f
size 5653
cksum 2163721701
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /opt/VRTS/messages/en/VRTSvcsHPSAPNW04.bmc
type f
size 13758
cksum 2047378913
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /opt/VRTSagents
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPComponents
type d
mode 0755
uid 2
gid 2
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPComponents/SAPComponents.pm
type f
size 116983
cksum 2274986320
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /opt/VRTSagents/ha/bin/SAPComponents/SAPComponents.xml
type f
size 9962
cksum 633749930
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /opt/VRTSagents/ha/bin/SAPComponents/clean
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPComponents/monitor
file
path /opt/VRTSagents/ha/bin/SAPComponents/monitor
type f
size 18529
cksum 159655939
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1383916377
file
path /opt/VRTSagents/ha/bin/SAPComponents/offline
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPComponents/monitor
file
path /opt/VRTSagents/ha/bin/SAPComponents/online
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPComponents/monitor
file
path /opt/VRTSagents/ha/bin/SAPNW04
type d
mode 0755
uid 0
gid 3
owner root
group sys
file
path /opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.pm
type f
size 212692
cksum 2735603214
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /opt/VRTSagents/ha/bin/SAPNW04/SAPNW04.xml
type f
size 15303
cksum 1781639821
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /opt/VRTSagents/ha/bin/SAPNW04/clean
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
file
path /opt/VRTSagents/ha/bin/SAPNW04/monitor
type f
size 20680
cksum 1297181809
mode 0500
uid 0
gid 3
owner root
group sys
mtime 1370448506
file
path /opt/VRTSagents/ha/bin/SAPNW04/offline
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
file
path /opt/VRTSagents/ha/bin/SAPNW04/online
type s
size 0
mode 0555
uid 2
gid 2
link_source /opt/VRTSagents/ha/bin/SAPNW04/monitor
control_file
path INDEX
size 204
mode 0444
mtime 1383916377
tag INDEX
result none
control_file
path INFO
size 4730
mode 0444
mtime 1383916377
tag INFO
result none
control_file
path postinstall
size 1987
cksum 3534186595
mode 0544
mtime 1383916377
tag postinstall
result none
control_file
path postremove
size 3548
cksum 1487321549
mode 0544
mtime 1383916377
tag postremove
result none
./pkgs/catalog/VRTSsapcms/VRTSsapcms/INDEX 0000555 0000000 0000000 00000000314 13320062025 017063 0 ustar root root fileset
tag VRTSsapcms
data_model_revision 2.40
instance_id 1
control_directory VRTSsapcms
size 443542
revision 5.1.5.0
title "VRTSsapcms Files"
mod_time 1383916382
create_time 1383916382
state available
./pkgs/catalog/INDEX 0000755 0000000 0000000 00000013423 13320062025 013060 0 ustar root root distribution
layout_version 1.0
data_model_revision 2.40
uuid 7e30968e-4877-11e3-8f9c-0013217c52aa
mod_time 1383916382
create_time 1383916380
path_max 1023
name_max 255
media
sequence_number 1
product
tag VRTSsapnw04
data_model_revision 2.40
instance_id 1
control_directory VRTSsapnw04
revision 5.0.16.0
title "Veritas High Availability Agent for SAP NetWeaver by Symantec"
mod_time 1383916380
create_time 1383916380
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapnw04
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
fileset
tag VRTSsapnw04
data_model_revision 2.40
instance_id 1
control_directory VRTSsapnw04
size 287773
revision 5.0.16.0
title "VRTSsapnw04 Files"
mod_time 1383916380
create_time 1383916380
state available
product
tag VRTSsapwebas71
data_model_revision 2.40
instance_id 1
control_directory VRTSsapwebas71
revision 5.0.10.0
title "Veritas High Availability Agent for SAP WebAS by Symantec"
mod_time 1383916381
create_time 1383916381
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapwebas71
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
fileset
tag VRTSsapwebas71
data_model_revision 2.40
instance_id 1
control_directory VRTSsapwebas71
size 270336
revision 5.0.10.0
title "VRTSsapwebas71 Files"
mod_time 1383916381
create_time 1383916381
state available
product
tag VRTSsaplc
data_model_revision 2.40
instance_id 1
control_directory VRTSsaplc
revision 5.0.8.0
title "Veritas High Availability Agent for SAP liveCache by Symantec"
mod_time 1383916382
create_time 1383916382
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsaplc
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
fileset
tag VRTSsaplc
data_model_revision 2.40
instance_id 1
control_directory VRTSsaplc
size 204754
revision 5.0.8.0
title "VRTSsaplc Files"
mod_time 1383916382
create_time 1383916382
state available
product
tag VRTSsapcms
data_model_revision 2.40
instance_id 1
control_directory VRTSsapcms
revision 5.1.5.0
title "Veritas High Availability Agent for SAP Components by Symantec"
mod_time 1383916382
create_time 1383916382
os_name HP-UX
os_release ?.11.*
os_version *
directory /
all_filesets VRTSsapcms
is_locatable true
copyright "
Copyright (c) 2013 Symantec Corporation. All rights reserved. Symantec,
the Symantec Logo, the Checkmark Logo are trademarks or registered trademarks
of Symantec Corporation or its affiliates in the U.S. and other countries.
Other names may be trademarks of their respective owners.
The Licensed Software and Documentation are deemed to be commercial
computer software as defined in FAR 12.212 and subject to restricted
rights as defined in FAR Section 52.227-19 \"Commercial Computer Software
- Restricted Rights\" and DFARS 227.7202, et seq. \"Commercial Computer
Software and Commercial Computer Software Documentation\", as applicable,
and any successor regulations. Any use, modification, reproduction release,
performance, display or disclosure of the Licensed Software and Documentation
by the U.S. Government shall be solely in accordance with the terms of this
Agreement.
"
fileset
tag VRTSsapcms
data_model_revision 2.40
instance_id 1
control_directory VRTSsapcms
size 443542
revision 5.1.5.0
title "VRTSsapcms Files"
mod_time 1383916382
create_time 1383916382
state available
./pkgs/catalog/dfiles/ 0000555 0000000 0000000 00000000000 13320062025 013524 5 ustar root root ./pkgs/catalog/dfiles/_ACL 0000555 0000000 0000000 00000000070 13320062025 014205 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/dfiles/_PROD_DFLT_ACL 0000555 0000000 0000000 00000000070 13320062025 015642 0 ustar root root # default_realm=vcshp034
user_obj:rwict
any_other:r----
./pkgs/catalog/dfiles/_OWNER 0000555 0000000 0000000 00000000125 13320062025 014501 0 ustar root root # default_realm=vcshp034.vxindia.veritas.com
num_entries=2
user:root:00
group:sys:00
./pkgs/catalog/dfiles/_LOCK_FILE 0000555 0000000 0000000 00000000000 13320062025 015126 0 ustar root root ./pkgs/catalog/dfiles/INFO 0000755 0000000 0000000 00000000212 13320062025 014202 0 ustar root root control_file
path INDEX
size 194
mode 0444
mtime 1383916382
tag INDEX
control_file
path INFO
size 198
mode 0444
mtime 1383916382
tag INFO
./pkgs/catalog/dfiles/INDEX 0000755 0000000 0000000 00000000302 13320062025 014316 0 ustar root root distribution
layout_version 1.0
data_model_revision 2.40
uuid 7e30968e-4877-11e3-8f9c-0013217c52aa
mod_time 1383916382
create_time 1383916380
path_max 1023
name_max 255
media
sequence_number 1
./docs/ 0000755 0000000 0000000 00000000000 13320062025 010632 5 ustar root root ./docs/vcs_saplivecache_install.pdf 0000755 0000000 0000000 00002766641 13320062025 016406 0 ustar root root %PDF-1.4
%âãÏÓ
72 0 obj
<>
stream
xÚ…SMk1½ëWèPB[Š<}.¹7®Û@Ø°‰Sâ[ %nI/ùû wµÒÊ?íXóÞèfAoäð@°¡ß“ø:ˆÕHC>
- -“Bãåp ÷ p–à*Á]‚Û»ßÜ|~g¶¶Qa×(ø9;Á¯Ód´VuØ?$ø‘)=—/yÆhå|ÃÛ&¸nªAÓéöx\ÆTf´QØfs'.k Ü¢u‚‹?y£òæHË7Z_²£¹«ë\ä*‡»\“
õKC.T²ë,»© Q¦Í>›usß.sÓïòµ½{ì@nô?gæmrsÒô!.¦(¡¾~îÓy‚=èPÖìP¹èÖ*—ësõûS|M‡5Î6>[œoá&‹Þ..@GOì˜Ù{0x\Q+Ö·A¼Îs«ÉU`äÃAPõHßvŠWÚxM í›ä/×Þ—!ò’¶W[ë¿¢§güžÃ²¡Vaœµã¼–v>
stream
xÚµ<Ûr ¹qïü
>Ðä®Ä â~qö)%‘”ÌX¼SÚÐO[å¸RÙTå) ‘ϱ?0Ý8$æô3çPëríˆ4
ïÝhÀ Þÿï9¼ÿ>ðß üëýÁÙ¹9´åðþ¯öÐÀÿìaˆ‡1ºÉwxÿÛÁÏƘcü|ÁÏWü<âç ?—øyøñþ?ûhkÒTs(Ò ŽŸoƒÑ)L5:1ú?Ÿû˜›¶€íδ>‰Ÿðs+æqÁMÕê‹lsy]üT$îF+º›F©ø9ÇÏŸÚ ¶qù”—DvÚ÷5S÷CŸåKÿõ©OÚvu³9ç)Ú íÅ6d1“±øxFÛiwÕ)ÿµ3ou!¶º ¨)&x×ñ´:(…D‡½˜<ßg 6š)ù¡ ûÊ>õÕþÒÿ Ñ7e›8š‹ÎÙÇÎÔ‡¾ý¯Tëä¢XÒ• “sè8àSßiòH%×N)ˆu~ìÛmŸ?“!ÉL•JYÅÊ*‡ûD™3"HàŸ\$ø:‹£n ¼‹SLb{ Œ·SÉfVÇsj( ¥Æ2#èþ¡ËúCÇÐ>× –Ç×2eWT\Rñ‚õ`§ÄÌ×}Èó3÷fª¦¨Ü&;
(’n³¹–,B 5mƒÏºÿE®ÅF {)|Œ”j òæ œâùl”»(Ìô:›s L¥&Žð—>ýFa¨f©kxÒmˆó~J1©Ð³Ïº–
#ó ’ñÕ¬0åv]N.“ÉN%à.âÙxgœÜ³¿…oÕ©ZPk W)³Á“‚+e03Õ ™ŸØ,ÎGj|Á`šÌ‘ ˜{ÝËË¿^ì (»5ä¤OtÞåI{mÎ#)šoûï¡ iáˆÖ¶àl†‹a±ÏÿMÈiP&Ù m±œãn4@¬ãkìÐg ÷ç9È ,ÍSûÊÚN€'fj‡.<8”`«DwCýé箌IvBåaÈþÂÔ)*@@›øJ£—à c¨~TN’¯”ÇH÷*€.é6æàZ Õ¤œÎ”Å€¬>Å SÞtB~é?}î ¸”sçª,rÖ?ÇšÕp5Àjä†æÈ”zý8ye•Ãb ¢!“½>ú’z2–D\ Mž5cvZ_Ae³ Ú6ÙÉæ"F<¿ÍÀýdøÀ I´ Ì˨MÔúÆ
8''ŸQº¥Ò¦â¬¾gTC8){x¢™Äud3®?Ë%UJ”kV2< ËäB ¨ñ»ÒÒÙADëä4õw܌ς‚¢o†„¾¤ ¯eaðÕNÆ—7
C°`ìiÈ(קx»qBEõ`†I B9øRJ°“ƒ„ŽC^éƧùøÁ l«ABÎéòœ‰| ¢EeÙ¸©ŒHÓD [‰r>º0Å"X¶‘¤š{ôø>éD&ÍÅÜâr•O4;|à®6Ïœ|¥Ñì“ mñ Í™BO·¶ï³Êú›¾õkƒ>mÂ1>p”Íyok–+”éœÇŠ"æo76,·7AçÕ'šJúÉ*âÃHx%5Õ¸”%ß}GÅ« i‘9ÇxÛS¿%HŠŸÌd€3÷¿ÒÕeGÛB¡-MJ^Œ¹ëÞv|wÄcÒ,g ‰‡Åt/UNÙ€k%$Z(XEéAªr0SöVßí,WOrÕX]2VN¹oÎûJF®`PÁõ`=#šþ Ý鹨 x°Ž¡J®P_ê*¨ €vó¥>šÉÉÈ+B I»YkîiÅt› ŽT«³ý––NgM¨¿)%Ún ~1 ³«{RŠ¤_G%c#tüöò lh™¶
¨Õ‡7ö| 6‡µf×UÂBÖT“œòÙØ–ƒþ]±=ŠJ:Ó
‹ ‹_WI,êã h@ö@]\ÓÙ¼,5¨D¢}%Cž:ÞkéÌ ¤2ÊF”8׈±wf-‚[ÁÀWIëÁ¶çôÒ¢Ô§ð&Ú%’D'Ð Lc «îjÒÁ¿Qw0Ÿ}ì¿^
/ iü¾Z–G%JÙ‰·Ô©ßð8ĭ<Òïa\ò®ÄÕDÏq¼\Ú'V(¥ªU'çÂÂÚvôYÀ¬s<+GÃË-µÈu
Ž¾¼}‰'£’Áïx‚~_b8zÓIHy Z£R `…ÿkjIoæjàUÿý3_ã¤à }r_&jÇÁTiš‹ŽFIdÁ£(z%‘¸•gÖÆnÒ¯d[_ÎØñ|1ؤ¼QüÄþÑɉv+ËAæ¹±>~-åv)N ÕJƒüHãóð YI&µãŽv#/SBƒ7»I`üŽi™/S´ÿŸ¨'ˆÚšÖ8!Ä“ >pä[]S¼N§íÀçT¾ïf‚C ù Íøðšd•$8Wv6Äxxo]cö?½‡H@Nýf; >Å/ðù٥Α¿ršX±»BÝ“â‹"Ìä\£âèX©N€¯‡“%N>ö´ ó¬1rõ É»¤rwù ivM¼›|ÔþŽòô¢ãúwªpl²Õé{Ë‹.£Ï!'®”@ccv9‡\l¥‘y‘ÍkÏÚ™7‡Ìͧ¢µ ®šqgc"òF[#Õ²ÉfÌØèç iò# À‚ ¶¢äÛaà˱Å-?§®Â4ZÃ'^],Êôcåt cUÀkíxx2%¢é÷
úJ`HôIoç8îý,f3¸ûªÌÍX†ìœ#:âG
Ñ}m§}JË[lŠ/bLO¢öZ%¤ïYvÃ^ûè“yC'<ŽQ"z~As$§ÆæÍä‹| Ë+%JR uòžðË5êÐÍ¡A ¶Ëõ·ï¿Pš<ÏûÄVEŒ #?çÖ¨uÚeÆ÷Už(ÞÖÙÀìfrôñ\Z¶hÌbÐF×ykß* F2î<^(óßoìjRèÍ¢ŒKJur
r] \;ÿHüT,Áùcž«áŒý3O‘“T²ú!áuëiGsÜ^(ëÚ_ßñVJ¼¥3ÞöÏÔ+gsï#l¶ŽÉf…x£Š-“íg~Ç9«tÈ=ÿH-gÜ· tËÜÆNÔ÷lbÞX”0µÔ–ý‡N‘3ªH?s„ØB ..CÒë‚„û‘"·‹’€–Þ¨HCãJ»$öÇ{‡ƒ‘Ôô¢Ä‡%•Á4Ik$ä¬(³< (xæ%ÙâûÀØu[6ˆ§ÿÅF]œ¢n£ ÌV¢C5rCñÈÔtæÝ¢çÇdÄchËf•aîA€ mY`jl.J´'Ô¯ SÊŸ²åž¨+›“C’+žýã1sY8c/†S0PxK9
T!m•{ Åj˜²;~káy‰U›¾õ°0ß?q ..o“‰è$_SïáâBjkþ¾FaM,ì-¬Cé²›®Uÿ~žâLú\È#XG>(s¹Å£!䨩NØðÀaþ ,4ÖvÌÂAÏæ…¾[ˆñfq|8µúx¶±;šmAåv;º¤ÓúŒE×¼øåAõ”±•±öTÊn PVŸ5ñ{ÿÑ{ɦyŽÙ—ζñ¬ÿôŽGA´;ò¥èu†(ù+ŠzIR5Þ/p
ozâ
;>p^læGòMF¸"NØ/Ä<³mŽÎit¾]¤àÃG.»=þ LÇBEž)NŸQˆ’”GRⱟ?d©Äx ¬à<ÖR‹ö—0ßíøA‰™åb|N-càSœtpÓz78ð›Ú†NEªÜd-Ç¥ÍX¦K™·¦½ÂQþ‘Æxïyí/Äð1#æÐ (ðš£#K½Ã{-Tá^¾Duùž™šmÙ¥ ±,‰‡ãó IK©å9d„{ –Ž]g*fš=¼¾‰0&¸,”49i÷š¿§àÑi0DG(¶æ~¤%â3
¬¨c5QÂ;
<s9§iþã'oóêz©œcrVŒaš—¹éÁ{ß‚xlÁ2ym•j›»¤IfKô;U\§Ÿjø~áhM×~E8‚
“Ëa/bcoj„dCݾòè1isp?qc(.E¡Se8Ä)'v_p G• œ€ ÑÒùwºÇÅ«v|87Â\EúNˆ&²ÜÈV0A“ÙçaMÙú¼k‡F´úlýÀžÖò Uš}›‹ñ݇è‹À3ºiéÝ”¬œö»Û̶+wm¢¶ ¥ ÉàmY¹ü‹Q·ø?B6IîFiÉ f
I.K¹1!‹¬’Ð_Ó©szS—v/Vß^„ZÁx§ô˜<Ð2 J<{÷¸¢¬³§”W Bœl•3g>)}ÜÈX4 …v¬Œ%+9«%–¸ ¿´G$"?¯ Ê6çG;úc –ýÞÿÎiðm0•lš–U°IU€?v7¹û7v‰•šµÔo8
)Úø"ØQ¹kçöæ Üé× ßðÈʺƒ„a -û óXÑUö~¥ QçÖ{¼,a ä0{¿ƒ„a £&‹it1ùVíª¯URoV„4²' {‘&}·Q=ì;~³UÛ¼sçæã=ÞNÄ š¡ÙÛ‚ÿ/Ê6¡P¯’q°øfUÁâ à«U]QKѼ ã‚®ÌJèEšñúp–Ì?ÒkŒ¨L•Iq$w–ýÎ_HŠj· ›,æ¹”TØ T$ä#½Ö¬s&ü³Þ„ßEàš7
<Ã2rHh'ÓÚÒ÷‰i0» ßM ¶b*ßM ,)´²´ ¿_Xû*»šÆ†@µ’Nñ&Mõh¾yÂÚqø[½ÿ4¶F
±Ö~jÛmè!4ëÃ1xÛ†C?Ò&Âsj2 GÏã†æâ.öxÒ×õFW½©lžaØ¡ï‹,¾Øb Ö¸‚9 Ñ^æ =7ׇ.¥iËʲ+oçÎÅs˜ Ÿ¨¡BŠªñ›]:§„|*¡J{Ô)sÀ;JkÚa-›ÔQkðGm¾×‹€ÖŠ×VŠ“×)o•·¨ÐG¼õåø`íå·+E …O©®åµ ÝÑP‡ ܃ÄÀWúà± Å ×´‘÷ŠFÆç«ö‹¿Ì‹íLŽ©ux± ´õþ1«× õ @ÇtG97¼§tC¹)°ãËoV™Ý¸£&‰5lC8£Xà’±ozí—ç:§ý¥ô>í¥Ú_š×^ÀxyÛ$ïõ´ ƒÞ»¤UÛóšÙ~_`ã ŸåHFqÍæÕlÿIŬšôšI7›—¿v#w»¶Å ןUk̘æ }oç’>±½üÒBÀâ)Ã÷H/Ëç9ñV U sÉ‹à¡&u‚[j¾hVgÌtØ`¥z
‘ÖŸŠØíh,zcHÊ.½e²´Ósxêƒqª½ø>´7푪´öÀ#Vžðl-íq/†öAzãË Û‚úñ¾£5‡?…Ã_Ûú½ýzsð?øü_l#ÿ¯èù'ÿþíâõ÷âuÌßžÿpý?š&:endstream
endobj
82 0 obj
4603
endobj
85 0 obj
<>
stream
xÚ}SMOÃ0 ½çW䀦q s>›\ÑXC…Á´Û$6!†þ>qצuƒPÕçD}~/¶SàÕ^í#”ñ=°ëŠMfÀ=¯Þ˜ä É¥¶ÜÚ ŒæÕ‰w .«÷Þ÷ ¼/†œ9ÂÂ=ÂaŠðL’ÎfåXáLøÓ`†°@X!¬–iu—ì癳’ ¬ÕCÕI‚-2žÑø>sÎQé6’
\–5¦ /$˜! Ò¹ËËTÆ-ªþPÕà…5™ªM}™æ)XŸ.²CÔô—ÔßnŠµÿŠH ¤TCzW
+TpCNWÌ–°½ÞfÛ¤÷#H¡ðRÚá‚Œ ŒpPäzÚ4,m÷eÎ"߇f±.i÷”ì‹.R»jxlŒl#¨úqÛm–Þé¡rÌ’_ÿÿËúÔYåÜTÉø•áûSo_oWì«®òÑÏ?˜·´[AŒÇ†Ñî;F›sdþµ~&.ïwendstream
endobj
86 0 obj
365
endobj
90 0 obj
<>
stream
xÚÅÛncÇíÝ_á‡MÑ´ÍÉÜçL Y²½ÆÚ–mÙë:Oš èh Ú?ë÷… Ù3âåH:Þ AÑ“Ý„äpx'‡2§÷ÿ;1§÷?Ágÿÿùä¯÷'ß/Í© Oïÿ~bO
üÏž†x£|p§÷_NþøbŒÉßÞÿ£ý÷è‡2J˜sü,ñó?·ø¹jÿnŸë]2Ö…¡I'áç ?wí³ÆÏ~ ‘ò\vY¶ è¸4¤luž/C(^ Íf:Ó¶:G0ýF™q½då¦xÕXyTþ݆ eÈAò³™ÁÏè›$‰e“Og弑 \x3J\Vùµ³ÏºLÛçå…
`[n„^Œ³ex@ç Õ+ÄæêÜãc˜«süü—Npn0Šª(LŒ‘gÝ5ºWÔV ¤«3€Fvñ sUêç 0”$p®w6Ù!ŒY@Ö»®©Ÿ dÎ: çÍB»ÌªVÔOÒ‘‡9›ÔÃú]åõR]åԙơ$Iç¾)úœªá\úãh†¨œÄ¢Ùÿº#^èMD/ï¨öV
{)IøÄà‰‹Æê¢Éï‰)ƒÐÉ~)èwzò®ŒñC;ö©á,ÛÙWTé= \5jÐÁç!iÔ<*„à†ÓÃ>I£l¢Ä%Mž×J@ QEó¹ N«tÀºsò:“=~¤ â çQW6IEÑÁšáHß ëöF"΋èÔÄíVJD¡õOƒb\JÝU…µçñYY¨£K ¼«þ¦Ùkσ¬î‹~ Œ
hEv¢›vA©ç
¸§@~yÙé\ ˆ£ ‰U5›)mR)P×'ˆIá{ˆ†Ê7qQ
%Ët±õJwÒ‰À!B’g\ÐÈùQ¹¤ÕV
¢Nh—ñf |FÏe!=–1 ü‚š tÇÎ
È ¥ ½má‘êÌÙa´A¸¢ž|ÝØ_ ÷ÀŠ`„¶—“˜ð&—2€{iH×ÔŸû ^ŒoÍ~æÍ~q—²ý¯>€(`ͪLˆÃ! ê”2k[h›!y
DM…¶ö rNîB
ƒÚYwÇ9nŒƒK’Ý®Á…<5C"µòØK–âx€ÐÎÙ
Q<÷ðEsôÐ9'~A+¿5ÏÚŸö¶>MÀ2|û„À¬+óœr¡´h%@¹–Ž½m0epÊaÝå/⣠#x¸h!uMs9N[·ñþaDZf#¸¡¡é3™A¹‰q‘˜¨ñ T¹šd>•‘ò9è V–~” Í&¶³êõ šÌ´ þQ©ÿÖ-'ê!̦ãC˜Ý7ÛÄv
kv«Ì¹º5Þ5SYëM
¦šh ³Ó÷¿fN7¡ g¶ñ‚øáè.éÜž½ `踰[/ŽR83âª7Pé¢ 3û¢¢·úؤ¦›ýjbÌÙA¦'ž»NVç\'ð&'k¥ë̃´Â©!Ï«:XéB~ÓÙc;–ü›»
¬iA¨gü§>
à“=,–M˜¨\.¨ro满 óÑnÈ`ÍØîIU·R"]¬:'Ñí{Cçr ZQ±à¬ÃJb{“yÈä V4T°ÎõApFH-œÎ¦çˆÆÊ3ëñx\ câtžöË´ñ£+3›ÁB©u”2)¬ùÓäc l¤Ú(rì9ÅœÙÎX8‰;j KªÌ©C-C9±µhÈ\J[ d Zò…•0 ].jø±¬ÃTÀ霵;nØxûa¤¥3: Yë ±í.:ìÀ:ÞJ…B Š¯ÿÌ¢„³q>GÁ¢Óæýò.«Ü¬š˜Ùh<HQáÞf
!iXÎ;ç} 'O—B@\M -(P› PŸsÔÏ'ê'\- V\ Á (¬ñÔô{Ϊ*¾¡ñ ÃY$fÃ22ŠˆQu·sP9XÉ „ÑÈõƒ®Ècg̼ñƒ>4Üå¡Ö߸\q‚„¡)sÑ{v:DR(¥´_mMžßí§ˆ+Äæ ô>w/ûV=6èï‚€g}Ó ùXNöà#$ðÿS“Eo(òœ9¹’R€žC=‘} Ÿ ò€ÑkÁÐC9Ã(Õ45£ ±àô‹Ã÷·:ù„ÒHènC=lQKŸtS²P^° û)òÏ´™ÚЩ/˜mÌÒì„ά¼r§©¹…g¯ëê˜ù 3«ða‡Z¾kŽþ~w^¸EøÏϯX¯é[ˆkû¡žéÁ…FŽcc¥B¾¢Ë:›]Pö„ðÖ> á$o[Z„H¤» }èÒ¤y òíèøœu.` N'qDhìi-!‚Î3Ì]‹wŽ$Ù?“I3lߪ9ämRLv€‚ƒÓ’õ$Im,”Lö@+¨‰–ÎC!rÙ#%å=0⾊äbïsψôU–¯y!9ýö—T¾óo5ê%!e t0|êM/aÍYöï>™¦˜^À?ìaÜÙ±¶qœüäÊ ÛáÚ(Ï&XðZá¹/ðßGyû9Ó1oëË!'qGÃxç‚ÏÔý0:©®·§·ºyêØæ© PŽ¥>øƒ²0²P^Ÿ{Þhê7pléè´¾K ˜ÙÛ±¾ér2ïÝdu¸üçG*ƒ'úH»¦~%ÛM‹›hEÐÚOlÁqy8 ¾–‡‹j hŽç@T£'#1«n,Û°ÏY}Oò˜¡Ò(ˆÝL4Ýøì\0þi‡/Y*”“‰·¹aÓï¥*æZf0x˜tfìáT‹Äº ô¯mP0Ïblbdeá‰o§%KÈ©‡ç7ãdà³
Ï^Zl· 8±wÕ¶dé‡Óu'ÿÝëN '» }ÓaÀR°¯ŠæØËwGuÜ
ÃCN1ÓÔ¼µ4;‡Ö*::Gl~óžÓ KKN©ûË'eX2Ö°ÄqØC{ G )žÉÖ6Äjã ¾€ä¿Çº*;/æûºn-Kî` ~RUS%ÎÈ¢×Ï~ NÒ’é†Ç2 }ó.jO}#êJü±ºnÃß±G(q8í½ã4°d Y„ãL¼—8çꕃ_SY?Nt68ÿuI`+MŒƒE…0Èý;fyû[ Ž4g{ Äá½Çªa÷
CÓÇbj
Füv$Ûú{~жNŽŠ‡€°_8bnâ¤Ò6Ê‹Áµô
_ ÙŒcË.8D[ŸîU[Ù wžŽðµ·H®íD>±~‡;T¢œŒòB…ë Å
ÈgºÄ·…«s89 ½XŒN€3k=£û7ÔàñD¯_j¹· ^©†…q-K!){•.×U+ ½±¬›À9êÔ ùRB
Ç$+cÁå%É[šgÏéóöÔO–¦:(wU®ù²|òî¹\+©ýQ]‡·!Ìr~Àf¦VM£Žú›IÐ"
;9'p¦‚¾µáøŸÃ (ºÄ5>Œ«²°¤Éh~•…‡Éû½«ÊóÅ’É)yèší™++ aë& {o1äñÝO L/F,L¥\ßÕŸx\žS.ûµÍš§U:ÛÏôǨìg×;+>{wKÙ%¼÷5–‚î<Æ ¬%ÞúKFáAÙŠ›0…jÛàCŒBÇÛùqÇä]ñ‡µî¸Í"
jþLƒåêÐ2Í6ÅNæ·Ü“JÛßž s
Ê÷C-óÌ1¶E/ŒÕ¢8ê†FÞõDºÁ½P ]ÃÑÄ…úÃ,¶¢÷'^Z¤0r”
ýñÈrÇWØ‘Pœ&Ho b î@í6Z]Ûÿ¿ÔÉ!¯°×y§‘œÝ7Âæô»púÓ—¿×¿Þžü»ÎB¾ÀeòÏ“Çö?øç/¯oïo8¿œ<žþ hý
[Ëkendstream
endobj
91 0 obj
3051
endobj
96 0 obj
<>
stream
xÚÅÙn7ð]_¡‡¢M‹vÃkyô±%ù@$[—c¸Oš h
´íïwÈIÍ wµ’AhÙžÎ}Ñbºýw"¦Ûp,àÿÇÉ/ÛÉÛ¹˜ºéö·‰œ
ø'§R·Ó¶õurºýu’®ñÒR° ÇRºm´’úÇxhhl£…¬’]äc—…HοGÀå½p”B‰ùkìëJn(T5µñ LÆØšÀ
/N—\á(Yc?5$#±ÀÒÏ3Å»ì»T”΂º‹Ô1ê䡬¢âùMæ ¶c’xŽ¹&v̦¸)¿ÀiÆAäzF§ÏëL
Ô ü(¨xC‡sy•¹Âlõi²5ðvŒ&1¤À‘l äRÇ€v8]J:¼Í §ŠžR±ØqV™N4HeNÉ(ØjÖ4Š'õ¹—KfS-<Ü-±« Nè,¶Žœ3ä9Ž”C–c~J}Ò5nØ’Ü_rù—¥–fâwùg³\+_ÈïâÜÛì \¼vÙr}ž
êhm㩲«YE€eÑ î'D”eØûÌâ5®Ø³ºÙ”
]þ tˆÝJ Þd•ìÓ{)ºÿ‚[œbzr“–1{0öå& 7@7®‹Ñ¥Rr;ŸåháX‹‰£WAÙw®xÕ[ìŽÅÂûp¡@™Òêk7•jtËÁKy¿Éw•Î{w²`Z°u°h5î;®+F5ÆÙµý%Ûâ²f#’cHœ¦{^‰Ó’(*Øfì;ÒúÐ V^£ÊLÛÙ&XÎ#¯óÊ»ÆpÀ‚‰·œÓÕ ¿á,® ®·ž‘x—qG«µo\àn@{Zmtã¼äüg®æ§v¦QCªjâΣ}€Ëôá¢Ê }‘«ÛŸ® (L N £ÿŒ#DC ϯWxdm¯,ƒÜö-¾Ñxó!¡®ñQ\:°-¿Æ#^i Ÿ†š%³…ÔŒ˜Ï%ñíq§Ý!ýýñˇ‡Ö6ôwÇDžÊQ[ Pðg¡$ ¬Ë P˜ý1h)—ë/?V#½äeWS Úð¾2G›éíñX½î™l… ‹22{,Ø{’ ú“=t´âhq6;îL`dF°S|Ò 4h”Ä…3h™O`Šrm,鸡±œYæ|†gš™$pÇ
†Óubܤå=¡©(:V~Qhj9´’»,4Ac"§B“€ÿ/¡yÌ¿
í×JÆž &uF¡âªFz'äE®ª òǯíÆÖׯÝã6wÏà ŽÞZ†ý„Í|‹Ã:4£Î=ÝÒ(qq £TÕ r‰€¬ˆöµ®È ãÆpa÷¸EÂ-€×£^ w0¦n2ž3’wðöê|!JË~JìPºþM½Õ–Ðdïæ*” HÇ!ï°“Ãôïé¢ìÖ “\=XaÆz–¶3)12X”Á}1Ô?iÕ¡±3¦¸Lj…d$V—Œ«Z¨´S§Äød£etÏ ÷•?Ãüüzþ‚YEû|!°tÁ<8|z I:0_eh„:œR1¡]ŠÙ¢ò&QM@)WCcHI
% 4‰V®¯l'CH]UrÜ“ƒÖñAI272¦zÙ}¾qÍÛ$Ò–âŒ\ôpçÒÐŒ{¨Â â Yäiu…]+nþ ¥pN ˸¼·”Âk{踲ñL2p9i.1¥ÇŠùÙæ I°LÜUÅ:S°Ž[(Ïd Ñ Ýáœs¨,A| „}Er²«†ñ:¦ÄŠ$C+èâà Á[`…®*O×ÀéwV©Ó‹ô(oÅ°]Ã_K0ú®_Ù(ök MES2ªÅbG¾xÅàÒ&š"ž9ñ Øs‰N¤^\î⃫³_[fËôrÖã
΋yJBGN?£%ÓØnÁ{¹ñ:r†‘=m=%E<¡<ÃØŠ@³J˸ÙW&wÑ´²N«bD “³äWŸ±DÔm¼ëö¾¶«<²
8ƒó9ýRÕ9†ßdEM¬ÒÁ
.Å>mó˜û¿ö¢ .nk\œaå4$4ÅH< þuÀ€ê-°ÔŽkl÷W9Äðg«DèÔ¤SÚ›J]žU^éËð 9yFg{ÎXT×Ã×Q°]¦ªÎ‚t!`Z¥ØC¯ôñiÉxÉpúÞXã~Â^4¼ªTÕp|̪r‰×/&¤'%
™Uß ïAÚüç|¢@ˆ¹ÖŒZ"ò§zç¦L»Ò»kh¿esê#öÃdÆ«m¦"¦?™é‡ÏGߧoï'¥Uäg8-ô
LZpùòIÀ×O_ ^¾//8Ÿ&‡éŸ@ë?µendstream
endobj
97 0 obj
1964
endobj
102 0 obj
<>
stream
xÚµUÛNÜ@ }ÏWŒT µR™ÎýÒG´ÝÀioÙKé¾!Tu+µ/ýýz’Å“‰¢„0 9>>öØ Áš_•`Í-˜~懲¦z7L*Ö|©$ð#™±ÌZÏu´¬9V¯B—Ì>™5šU2›dvoš¯è ×ʆI23t¹D³À§%á’Vð !Ë[T²ÇÓü5‘¥c??©!A#¸ó
ß&sUÄ6Š òpÈ!K‘›@à7˜üHzÒìÐg×F(PÕè(rŠZ–è8ÁE0¥ « Å …Hm¸¡%ÊEŸa˜öu2×(bVpyã¥Uì*R ƒçÆ`ð3FØbšÔJ€xCx¶Ïï`mhÖ㚟ÓÂm›éû¤FÀ Ò¢¶:æè?A©—…³ŠàìÿåøÛ¦WöÙGMˆ
ÿA e€f‹šPüÕPʃ ?NV£wnˆA§lœg5Òæ7Œ) ΢è`€#ñ¹Ê¥){SÂ;ï¯êd’=Á8>’•v°•\¯]1õ:H@Ú'r™£YáfÛv½®m¢êˆ~Þ Vu»{C÷ªT-ûEKŒp–×PÞ~eSl7)s•Ì§w]ÎÂI¢’åÄ,:ÅÝ=XLÉ@Þ{r+Hž‚9öä
J©é„ÁV¤,°2t¹òòM¶¦S!”ä ó^—7°›ñCêŸ ö¿ÍÅ“z^àä†âGc'ç
ú vnØí±÷Þ¾.« mŽ` \ëß*(tïIÀßûâá=# |î« û\¿atÄendstream
endobj
103 0 obj
591
endobj
108 0 obj
<>
stream
xÚ] ·•@ßçWÌC`$ØM§ÈûÁ{_ƒ±%9BdÙ²F1´Oâ`±ÞÅîKþþ«5ÕSÅjÍÑØÔRkYÕuÔ$/?§Ûwÿº™nßý}~y1ÿþùæÏïnþôÍt[äöÝ?nÊí4ÿ*·j·Úìäâ·ï~¹ùýÇišÚ Þýçús+'ÍyÙ_¾é/é/oûËëõßîú˛ǹ”IN5Ê÷—ýå‡õåûþòc¹ïYô[ÎÇw\ÌO™ãmœjÙ\Ó’q^!g Ƶ9…\c\LÈA }$ô‘ÐG2 u*SÈ1 µLÈ9ä˜Z+ä rЇ@ }ô¡Ð‡B
}(ôaЇA }8ôáЇC
úhÐGƒ>ôÐG@ }$ô‘ÐG2 2MÈ9ä˜)r9æCjœBúèC >úPèC¡…> ú0èà ‡> úpèá}4è£A }ôÐGB }$ô‘̇Nr9æCKœBŽùÐ:AN çƒ>¤?g=âÚC@:ÆÐ6|*+üÕßíý9ÿøøzsõ 5‡ æËé&Œ‘ñ*ÿ¾ß÷kм„Ï/Ö¸ú›54_¸o·Šœ& r½_ïýå¶Ý>ߨÕ_>à·ëg{»FîŽeL÷êìo›?Óið¥«àwýEö‚æcîoÖÏý·õÖ¾Zo÷›íG údŽ¹çzëHÊ®ìkŒ›?ãr¹dÜ s3Î ˆÓ9æfœBŽùÐ2AN çc>´VÈ1 ÚÛˆq\È|úS†ÂFê†]¾{_¯_ÚÃ÷¼ÌßóZëðJyRæ8LÕü«õë»\âýgŠÎÞÅâ.C~Á·%À6õÜÐïhõTŠ ¯•hsE"RŽïr,Ñêܾ˜d|._T¢]éqªžCfc£º@N!×7ÿ‡dœ@Î!—Œ›U3Î }4è£A
úè# €>úHè#¡d>zEÅ8… óÑ+*Æ ä rÌG¯¨Ç|,UÖ#îzEUZŠ×•ÖÂóŶ6ÊÓ4™½_S¿ZSÿ´–º?Žäb'Í1Ÿ±÷=W ärq³Æ ä rÉ8ƒ>ú0èà ƒ> úpèá‡>ôÑ }ôÐG@ }$ô‘ÐG2 2UÈä˜)r
9æCê9œCúèC >úPèC¡ƒ> ú0èà ‡> úpè£A
úhÐG@ }ôÐGB }$óÑöŒSÈ1 ½aÏ8œCŽùè
{Æ1 kþ^í»»ç:ç1ûok[ü§íD/;µ&~µß©œ&mþd·O™«hé=õ»„ß©ÿº¦~¿ŸãÓxÅk @:_§wiïðgu õÙ®ã³üËšÙ·ëÛå ?î«é¬~ü°þ¶þíõšüní%|3vFõNœ2Š:ìÄA\2®wâ Î Œë8ˆSÈ5ÆõN ÄA }ô‘ÐGB É|,8ˆSÈ1 K'âr9æcéÄA óq mð#îjYßGÕAÙØËúŒ~VÑØ'†jŒ™=ÝÿÿidzŸðÕÚñôv½ìýzg߯?x¿ LÈ”!³17Èã–éÇ„SÈ5Æ-Ó 'sÈ%ãúHè#™™
äṙ” r9‡ ó!µBÎ }ô!Ї@
}(ô¡Ð‡B }ôaЇC }8ôÑ }4è£A }ôÐGB }$ó¡Ó9œCŽùÐR!gc>´È1 瀽 qÇ8“eêæc¶®Mž7ÛihÛvØ21Ô‡Ôã"…\cÜ21”p9‡\"®.C g Æ•9… óQë9œCúèC >úPèC¡ƒ> ú0èà ‡> úpè£A
úhÐG@ }ôÐGB }$óqŽœ§c>Αár9æã 9Î }ô!Ї@
}(ô¡Ð‡B }ôaЇC }8ôÑ }4è£A }ôÐGB }$óqŽœ'sÈ1 çȉp9æã 9ŽùX#§‘» 9µ:FN¯öÛTHÕ|…«ɇ„‡áâãzx…8œC.·„Wˆ3ÈãJœBŽùXÂ+Ä ä rЇ@ }ô¡Ð‡B
}ôaЇA }8ôáЇC
úhÐGƒ>úè# €>úHè#™%¼BœBŽùXÂ+Ä ä rÌÇ^!Î }ô!Ї@
}(ô¡Ð‡B }ôaЇC }8ôÑ }4è£A }ôÐGB }$ó±„WˆÈ9ä˜%¼BœAŽùXÂ+Ä1 kxÕ®.³!¼òí¬Ói;!çõ:Sg\½[¢OpÕ!‹1,
ÆeœB®!®När¹d\©3È1 çv„SÈA }ô!Ї@
}(ô¡Ð‡A }ôáЇC }8ôÑ }4è# €>úHè#¡„>’ù8/°#œAŽù8/°#œBŽù8/°#œ@Î!}ô!Ї@
}(ô¡Ð‡A }ôaЇC }8ôÑ }4è# €>úè#¡„>’ù8/°#œBŽù8/°#œ@Î!Ç|œØŽùXÃ"ŸxX¤qe륗ëBˆ·û]2ª
éÆX¨2Ì›+„)ÃÁzT…0a˜3 YèÂŒaÈB§¦ c„YfA˜a”YPfA™cŒY0fÁ™gœYpf¡1 YhÌB0 Á,³ÌB2 É,$²Ðc&„Ã… 0!L†,ôh aÂ0g³ Ì‚0 Â,(³ Ì‚2 Æ,³`Ì‚1 Î,8³àÌBc³Ð˜…`‚Yf!˜…d’YHdaY‡N0e²°,B'˜0̆,, Ð †,Üë‘ì{LËø¹îö‡‹ôm÷P®ŸÖ÷gn‹ãÇöîuÄœÍ(÷ ’`œC.·Ìû$œA.7WŒSÈ5ÆôÐG@ }$ô‘ÐG2 ËVéˆSÈ1 ËVéˆÈ9ä˜e«tÄ1 çÍKâˆ{¨=|¨=ª^Ùü~[~Žg0,•ÃT‡,Îû×nûÞbÙ^ýðbÕÈüÿ*Šøóª‘>÷KbÈì ”Ÿ‹S³ñ.ïöGŽ ³»RÊ÷“¸ª åKJù9VœKª!‹£`‘q
¹Æ¸9^dœ@Î!—Œ›cFÆä …>úPèà ƒ> ú0èá‡> úhÐGƒ>ôÐG@ }ô‘ÐGB É|,Ä)䘥U€8œCŽùXZˆc> ¶4;àôÉáz塀ÿŠÃ¡ö9<„°œ£%—~ÈóãæÈž¾ u©"ïÖºóÍçZ'}RcÈãÝŠ¿Ø8Eo—F›×Ωš[>&mÈöê‘Pmn]Œ7ý¼TÜO6×¾rÖK_ó7×ù¾ßn³§™6ÞL–B‡§üùM6_o?ØýeÏáL«¾NÌj®r´NŒq9‡\2nnŠ0Î Œ››"ŒSÈA }ôaЇA }8ôáÐGƒ>ôÑ €>úè# „>úH棯cœBŽùèëÄ'sÈ1 }ã rЇ@ }ô¡Ð‡B
}(ôaЇA }8ôáЇC
úhÐGƒ>ôÐG@ }$ô‘ÐG2 }ãr9棯cœAŽùèëÄÇ|…l2í;rkÿN=bÑ™—SÆðêØ^9yËæØžœZŒ×~ÏN¿´r’oåhŽãã|‚œ@Î!—Œkr¹`\@ }ô‘ÐGB }$óÑçŒ1Î Ç|,#ˆSÈ1 ËH âr9èC >úPèC¡…> ú0èà ƒ> úpèá}4è£A }ôÐG@ }$ô‘ÌÇ2€8… ó±Œ N çc>–‘ Ä1 ó¸ãfeïØ5CþSGo îðçµûz¥ð!³ù>§m+²ÎÜ€]Æ#.ù¿]ÂoÖ¿};žuÞG· ]ù` ]Â)äãb‚œ@Î!—Œ[öÑ%œAŽù8ï£K8… óqÞG—p9‡ óqÞG—p9èC >úPèC¡…>ú0èà ƒ> úpèá}4è£A
úè# €>úHè#™ó>º„È9ä˜ó>º„3È1 ç}t Ç|œ[ZyÄ]ïÀëƒ
ØØîñôníÅ{yåÀËÒê©õÞÅ]FKò»CáÖ ¼º,¸6‡¡?l©C¾×Î í³Oëøyž×lq
õ!3ÖQ(½Ùòø‰ Í*¹ ~7 …º,ÜjmÈìpåâr¹d\_½…8ƒ\0®/àBœBúè# €>úHè#¡d>–¥\ˆSÈ1 Ëj.Ä ä rÌDz¢ qÌÇuÜC]P†º €?bŸØôïsÓàæ–PŸõ·ÏñZá=7JŒø3§ÞÏO²×‚»ÌHñ;ŒC¤ù ŽC N!××Ç!'sÈ%â–qÄä˜e q
9æc‡@œ@Î!}ô!Ї@
}(ô¡Ð‡A }ôaЇC }8ôÑ }4è# €>úè#¡„>’ùXÆ!§c>–qÄ ä rÌÇ28æãa•ûw½ETò˧·×!á¯Ð?;
É!Ûkí©¾ˆ½e”ü-‚áéä^†Ì®Lèïƒ Qúh>ÿ¥fï;ÊOûWMçß.W /W'œC.÷阢§9ƒ\0nY®N8…\c\@ }ôÐGB }$óq^®N8… óq^®N8œCŽù8/W' ó±v’ŽÜC5P‡j`jãz´ç—楑}Õ×ÔXt¬'/uÀŸ û)E†Ìà ȹ0h½ct—új]§ÉÊ€É:ô }Y ßï‡u5àÛn‰û}
PÚhñ¨`œC.7× Œ3Èãæ€q
¹Æ¸€>úè# „>úHæ£× ŒSÈ1 ½`œ@Î!Ç|ô€qÌÇÃÒäî¸0¹-i¿Õ
á<×?û ﯔ×ý0ÅoàjËßO:—{üyuEßAÜˬ+úló!õOÛÖú_†=øµi^l·Öº´ÿï.÷³/ÊÓÆ|Æí¸úre=|©Ó¼XÞvqŸ+òlj.ó½^Œ§Š¦ž¦I‡4Gû(®.N çKÆ•
9ƒ\0®È)ä >úèC …>úPèà ƒ> úpèá‡> úhÐGƒ>ôÐG@ }$ô‘ÐGB É|ôá*Æä˜>\Å8… óч«'sÈA }ô!ЇB
}(ôaЇA }ôáЇC }4è£A
úè# €>úHè#¡d>z”Ê8… óÑ£TÆ ä rÌGRÇ|< W p×£ÔV~ë(u—ãSQj+_¥¶òF©»Ì¾0J=Jýý Þ¯‘ëÝšãËá4µ ¹îò9ˆ8çŠ#U>s¿»ÁÂCØiùåa§% ;ŸàÖ°óIN çKÆ=„Or¹`ÜCØù$§ƒ>úèC >úPèC¡ƒ> ú0èá‡> úpè£A
úhÐG@ }ô‘ÐGB }$ó±†Or9æc
;ŸärÌÇv>É ä rЇ@ }ô¡Ð‡B
}ôaЇA }8ôáЇC
úhÐGƒ>úè# €>úHè#™5ì´da§% ;-YØiÉÂNKvZ²°Ó’…–,ì´da§}~zLßH¹î÷ã-ºQýýAìùõ6Ò{¿ x4÷QNµ”!óK”ôÝúòa»Xåv"O?PyŠá_o¥øi}ûrŒéúª¦šC¿ÛNPyó…w¶,÷!W¸ ±É©u“»ÔW¶¢–¹¡ä©¾ á·{0·e~Ôo±÷†œ¼
yÁ~®:CêúhŸaÆ5ÆÍU'ãr¹dÜ\u2Î ŒkÐGƒ>ôÐG@ }ô‘ÐGB É|ô‰q
9æ£oSÂ8œCŽùèÛ”0Î }ô!Ї@
}(ô¡Ð‡B }ôaЇC }8ôÑ }4è£A }ôÐGB }$óÑ·)aœ@Î!Ç|ômJgc>ú6%Œc>ÖC®nS¢ÃÈV•qþk{ðîÉSãúY sÀ²Ïçê”û KôMi‡l¯…â'=¸‹k7-ÖNzðÄ>ìÚñû>탌õé¡xÆ ä rɸ¬3ÈâzŸãrÌGïaœ@Î!Ç|hc> – p× ¬r0~¿ @ÞXç¼JÛ (e}|º Œ_6ãøa{°òõüú¸b‘1¿kTõãå«øëƒ]A^o§,oÿãs ;s»¡f;~TG§TÙinú
øóN©ê=+ZŽ Ãý¾CÛÊø®Ì„XúsÌøbéåµ³¢¶Q)·»s±Þ_6ÎÚ-›ún[ÕeåÕщ^/·ÏêÍ~‹üRê-;¼«÷ƒÃØ1c½£MCÞÝ>”·Wnl.ÛÛœj8×MêÃWöè¨ò%Fžÿÿî’ œC6õÝqëá»ûÜú´:—Ibã}ÃJ3†Â´0LÖfÄaÎ0fÁ™gœYhÌBc³ÌB0 Á,³ÌB2 ‰,,m%‚)Ã…¥¡D0a˜3 YXIC bºÌ϶¾~·¦˜nÿ¨·ÿåÑûåíÿ>ú3;5;Ssáoç ¬[èéöÝ¿n—A‰?½ª·wÿsóvþ5ÇñmòÛù–jYþ0ÏÛÿûùøß¿qc“Λ–šâ—Oï|y÷_7VëðnúôîŸ7ÿ¸‘ôGiÏïVz›Ó£«œÓNRNÈm.¯pNWn_Ì¿¾ùó»åÔÊê›c+Û|™æs+äê‚õûƒm9ßòóvy¨ÓrG®ñé¾/›–{8ï/ÄCšÞÜßþ÷œ×ÿü Ôendstream
endobj
109 0 obj
5354
endobj
168 0 obj
<>
stream
xÚ]¯äÆq@ß÷W܇XH {ÌfWUW½Òj¥,"i?åDy2à Oùûa÷ìð^²È½çî] iW‡M²ÏLVwOwïþïÅt÷î/ËÇ÷ËÿÿëÅŸÞ½øãËé®Ô»w}Qî¦ååNôNÕ.VíîÝ?^üóoÓ4}Ó?þµ|Û?ÞöýãUÿxÿ/ïþ{½:äâs¤~›f{ˆ•šïòûþñKÿø°Þ`Üï§õãõŠüxMµ´Mª1_¬ä”]Ÿz\ö~Mù{è¼$Ö,¿Ò·ëeßop/—ùÞ¯ùõsÿxÓ?þ¼»ýÃtjm—5¥óquñjƒ«/·ŸòÇõÞã> 7F½ˆ´táëSnü] Iæ
jýãŸúGÝ >_Â=á÷&ÿ¼>×7볾ܾ_ÿ~Æïç,~™ÜRªË7¬lµÈ äãl‚\…œA.×fÈ)ä ‡> úpè# €>úæ£N3ärÌG-r9æ£Îä*ä rÐG…>*ôQ¡>úèC¡…>úPèà ƒ> úhÐGƒ>ôáЇC }8ôÐG@ Á|ÈT 'c>¤L«3È1 2Ïc>¤N—è
ÉÌéퟩ%?ˆýÝÚ®{ЊLMÖbr)µ¦«ûm½è×m{²\–ÖFâ_¾ß°©”'»DI)œ´©çžµ’oøÍšø¯Û»æîм”š¥EJÂîñmCx{õÒ‚®eNW?Þ¨_¾Ü¢ùÉOõ½NV?yÊÜ°ïUÕ<åÔŸÔ°XŽUÍß¡£rŒqÁ¸¥ cœBÎ×Ë1Æ äã–rŒqr9棗cŒc>Ör,sçåXÙ–yã«ÿÝ}i”~gÅúM"]xR ”fÇ÷¿’o¶CË/8'|ÿûn;’ñþZrn‹/¹Hï—Gz*scÜ’£Œ«3Èã–‹q
9gœÈA
}ôaЇA }4è£A
úpèá‡>úè# `>úHãrÌG i`œ@ŽùèÆUÈä
}Tè£B }ô!ЇB
}(ô¡Ð‡A }ôÑ }4èá‡> úpè# €>‚ùè-tÆ ä˜ÞBg\…œAŽùè-tÆ1 £…~Ìééœá4=cÎpÛŸ—¦{K)ž5Ý—FÀhéïð“æû<Åh¾ïè'5ßGó8§qÜ<Üh N!çŒÍc äãFó˜prЇA
úhÐGƒ> úpèá€>úè#˜kó˜p
9æãÚ<&œ@Žù¸6 W!gƒ>*ôQ¡
}ô!Ї@
}(ô¡Ð‡B }ôaÐGƒ>ôÑ ‡> úpèá€>úæãÚ<&œ@Žù¸6 W!gc>®ÍcÂ1 ×ì#ì¸u¬õniuÖqô¶y¤ÏfÊ–:1¶Þì§mÆŒ û°-ã–$æ9%±|id_v5G¹Ò–œkÛ Á÷sµ»ÐŸÓóôyW‰šÒHmµÑmÜÒedœBÎ7È äãúÔ â*ä
}ô!Ї@
}(ô¡Ð‡A }ôaÐGƒ>ôÑ ‡> úpè# €>úæcô-§c>Fßq9æcT€ˆ«3ÈA ú¨ÐG…>úèC …>úPèC¡ƒ> ú0è£A
úhЇC }8ôáÐG@ }ó1ú–ˆÈ1 £o‰¸
9ƒ ó1ú–ˆc>nÁQÜsÙRçÒäkw.MžÔ¹Üáu.Mžß¹Ü¥ñ„Þbo’DNá ³8-ß©Þ¿2ùâî^oökÎÐÝ‹æÅj}ÕX˜¦ ¹ÔO_‡i}ËŸÖÿöݽòÔYÔíœÞn|•^¡ôå2Óœ.Ì=Är
9g\_.ƒ8\c\_.ƒ¸
9ƒ ôQ¡
}TèC >úPèC¡…>ú0èà ƒ>ôÑ }8ôáЇC }ôÐG0 u*È1 µL«3È1 už!§ƒ>*ôQ¡
}ô!Ї@ }(ô¡Ð‡B }ôaÐGƒ>ôÑ }8ôáЇC }ô̇Lä*ä ṙ”r
9æCæ9æcíqêY°_öÁ~"_/د^êd)ÅÓ`?¿Xi tÝݼÔjQó}^§^_o¯7ñ|‹mc¸\ÔæÅÚóÝÎq.yëšÓ¼Øû
GÞo;d?v1¡^J˹q4(¸¥+Å8\cÜÒ•b\…œA.·t¥}TèC >úPèC¡…>ú0èà ƒ>ôÑ }8ôáЇC }ôÐG0 }Pšq9æ£J3®BÎ Ç|ôAiÆ1 ×õ ‡Ü‰PÒ ôüÕ#žæ§E<íðÇ›ã-õøÉâ––Â44?ÖSF¢ûd{›Sy(ºO{GË/ã–Ïaù>OÈ^zy‘ó&…-Ùt™û7eaKå+„-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØRaK†-¶T`ØR9 [ªsê!N_/l©\f“”"¶‹JI>Ò‡ËÝ‘¥™×7×Þ§sБkKzÒD>¥+6M7OI< S´Tz&ù)ŸS4J¼šŸæѸ¢þ^ºI食0ãrqËO˜qr¹`Üòfœ2n ØwúîÅú×û ORRŠ§ƒ<}¯Î–p0ÈS.åà>ó@}°Ë=ßb߯œk~Ž'üœ{Whn9‰>dòéŸuß5ñœõÿúû¶€ï³ÿ¡¦f¨èѳåf(ârq:A®BÎ ŒëÍPÄ)ä }4è£A }8ôáЇC }ôÌÇh†"N Ç|Œf(â*ä rÌÇh†"Žùø´2û »Ua²eè_Ù‡¬¯%áë/¯ÌúI 6§´Ï‚".eÎøã•Ù,—麃º¬öÕÄ%ßa ¸[‹$è,¦Áú¶°ùîÏiè#GsKÉ Ž ® !®BÎ Œë#GˆSÈ9ãz•8èC …>úPèC¡ƒ> ú0è£A
úhЇC }8ôáÐG@ }ó1ªlÄ ä˜Qe#®BÎ Ç|Œ*qÌÇÛyÀ×Ù¶]Ö'žàUz—kj)ÓúyÉêÉ~¶Ì|†$üIËÜdéÜGJâhúaŽ0- †5„õˆ‚U†ÃaYhÌBcœYpfÁ™…`‚Yf!…>׉0e²Ð':& Cz[a•aÆ0f¡2 •Y¨Ì‚0 Â,³ Ì‚2 Ê,(³`Ì‚1 Æ,4f¡1 YpfÁ™gœYf!˜…@Æ<Á„aȘ!Xe˜1 Y Cn{^ pv4 ?Ú¡»“Yžf»mŒÆ¥Î9±ÓÆhŸž‘„ƒ¹Î¸„–táÑ
˜¸4ËänL»h« :]ã·–ðg•Kñœ‡+V××W¬ ®BÎ Œë+V§sÆ ô!Ї@
}(ô¡Ð‡B }ôaÐGƒ>ôÑ ‡> úpèá€>úæc¬XAœ@Žù+VW!gc>ÆŠÄ1 ·x¤Î ®G臘—úðó>ËTËŦ²=Uò_×JöígN•\*ç ´O!íÚTOîr_ëý°V‡?®'ܽÿL3¢/{‘ ‰°KöôÍv‘–Ÿâñf„ÕKX~Å“,ûî eò„Ÿ `Ù7Ÿ°šðçL?J·>³•µäÒp½tC\…œA.×K7Ä)ä q£tCœ@Žù¥â*ä rÌÇ(ÝÇ|ÜÖã pvv>Oÿe=dÁ šeœ±»¿ðåsË©¶$×R²Ÿ9é×4ãO<é7'ÀÏùm’sóëSM~æœ_;~Êãs~kË/õÅçüJÍ÷>œÙC\0®Ïì!N!çˆ3{ˆÈ5Æõ™=ÄUÈä˜1³‡8æC>§=àÎK©i[¢ý~ x»=¯üãgGTdiüÕ”Øéž"qˆƒ•¾³K9¾Ïu!ëÛ“xñ‡WÞ¦?šËÁ³ â˜-o%ùö{¾I´
âŒKæ„?wg,:J© ¯9Xe˜1,6ÖLæ‹ & cœYpfÁ™g‚Yf!…ë#€ Ã…ëú"€U†Ã…ëÚ"€! ×Zä;Eú UT/m)Îöøµ¢Jßþ1rb ˆ³G—”ã ?® ï·Ñ#¿n¼ ö]ô9Å£` ÆãÚ 9…œ3Î ärq1Aúè#˜ 8Á8… ó1&e'c>Ƥ â*ä rÐG…>*ôQ¡>úèC¡…>úPèà ƒ> úhÐGƒ>ôáЇC }8ôÐG@ Á|ŒaKÄ ä˜1l‰¸
9ƒ ó1†-Ç|\'e9;Ûi´ï6¾aÇç¬
Ÿ—ÛÆÐéˆ@»Ìb)µo÷«v"ò-_ Œ2¾Yû´¯×5”¯Ò’˾ìfI)þ¼í¿Þ&ûÙÑÓÖƼÖ>Å·Û.÷.üäç²xðP‡1‹„ëA‹ˆ«3Èãzà"ârθ »ˆ8èC …>úPèC¡ƒ> ú0è£A
úhЇC }8ôáÐG@ }ó1â'c>FH#â*ä rÌÇkD óq@9àÚÔÃPˆ¾qµš=#bŸÂ’ÿÃÒöÑåvÙV÷G÷{Îdã’Ü” â3“.5á æ
_¯MƒWûÓ[¬å;þ¸ ]sïÃ~Öp®ž®>5”åfùyÏf
,fIø“Æ»¦²Å`?èaj÷-¥ÓÕÑm m¼¿ðt«X jÂÇþqL }Œ+§|›Ã+Œë[W"N!çŒë[W"N ××·®D ôaЇA
úhÐGƒ> úpèá€>úè#˜±u%ârÌÇغq9æcl@€¸
9ƒ ôQ¡
}TèC >úPèC¡…>ú0èà ƒ>ôÑ }8ôáЇC }ôÐG0 c^q9æcL-#®BÎ Ç|ŒéeÄ1 Ÿö :ÀÚé äR¤?dY,eoòî.ü±”sNö)ý•åµ(î’`ý•~e³œ!§Áàåâ%?ïYei)T+ ÿ²(Ç^ÔœØa5B¸^ ®BÎ ŒëÕârθ± (á }8ôáЇC }ôÐG0 ×hW ä˜k´+á*ä rÌÇ5Ú•pÌÇ:¹•¹ózdÚÖ9¿[‹³ ¶³AÛH£~ð¥Dºú¹•É"ÌÊœ’= +Ó‹-Ø JݳymÎw„uÏòmîé곺géžúAžŸÕ=‹ÆÚýeUÏ(ŠkJì¸(&œ3nÅ„È5Æ¢˜pr¹`\@ }óq-Š 'c>®E1á*ä rÌǵ(& óqÛRì€k‡Ç•-ÅB ûšeùjk³”ìSJÇ"“–’€¥ãÒÜm³§«ÏJGm—‰>) ûh•DYá؇ÇJ~ÐÃá1Ää‚q}x q
9g\ Cœ@®1N¡…>úPèà ƒ> úhÐGƒ>ôáЇC }8ôÐG@ Á|ŒÊq9æcT¦ˆ«3È1 £2E óq«L¸óÊÔå¤2}{¿4î4Toé?-Ý}§‹÷tÁkÂZ«œ—OX)<ŽVo)±ý²¼í š ?ë›}u ‘S>«`{áÕë㣷zr
Û¿Ùžû~»Vï>œrŠ¸Ý™tÔ7ýû°Kí°¾!\¯oW!g Æõúq
9g\¯o}4èá‡> úpè# €>‚ùõ
ârÌǨoW!gc>F}ƒ8æco2w«oêi¸ZY~ÔZŸ³sÏ>…ÃêmÇl·öéá?â ÚõؾÛ-ò^ ôÍúñ¹€ö~ŒQjºËÙ`]ü²’ðÇ'.¿Ê©åW> Hë»^ôžá?]€¹¼è}ÞN?½Ó¬®)Õ|>sc\ ÍE\…œA.·ôN§sÆ-½SÆA }(ô¡Ð‡B
}ôaЇA
úhÐGƒ> úpèá‡>úè#˜¾Zq9棖 rr9æ£Î3ärÐG…>*ôQ¡>úèC …>úPèà ƒ> úhÐGƒ>ôÑ ‡> úpè# €>‚ùi‚\…œAŽù2CN!Ç|È\ Ç|ÜöC=àÚÙ);enÖ ]ØaÓ¥Í5]x6t×ô’ñ—Ûá§ýàÔþØ¢-%ñaMâ‡õþ}{ÞΫýš
·Héœ ¥Ú—ƽµû)ÍieÎÇÃ5”†5„õ”« 3†ÂúâI‚)Ã…±r’`Â0da,›$Xe˜1 YK& †,ÜL pçeeÙ–«Óúû{õèÞ×`—ÄÛmáwÿoïÖA¤×ÛßöÙvPý”PËÏ˜Ç ã–üa\…œA.·æŒSÈ9ã´@úPèà ƒ> ú0è£A
úhЇC }8ôÐG@ }ó1¶CœBŽùÛ‚!N Ç|ŒmÁW!gƒ>*ôQ¡
}ô!Ї@
}(ô¡Ð‡B }ôaÐGƒ>ôÑ ‡> úpèá€>úæcl †8 ó1¶C\…œAŽùÛ‚!ŽùXÇ&ÊÆ&úxP-_/\W.Ó$)Ù³ðœÅxøœð/
Ï™G Œ§ÄÞo'‡ßl_äåI[ìež_äh^„q
9G\Ÿaœ@®1®L«3È1 }^„q
9è£B ú¨Ð‡@ }ô!ЇB
}(ôaЇA }4è£A
úhЇC }8ôÐG@ Á|ôyÆUÈä˜>/Â8… óÑçEÇ||ZüŸ±: úÚgÊöM„Û¹…Ï÷ùEeÞ'sÞ¼PÞÉûëá7S‚(’÷×co §*¢ Q$ï¯ÇÝ ¬ F˜`Ž°O+&XCX0 Á,³ÈÂíÄ`‘ÁCnÇ+ &²p;+XAL0ÁŒaÌBe*³P™a„YfA™e”YPfÁ˜cŒYhÌBc³àÌ‚3 Î,8³ÌB0 ,ÜVøK0dáv°‚¨_‚Ã…ÛIÀ
"~6šiž±m3í»wëÓÝ äî/ÿxðçñGY~ÉQíNû(…ß-Ñ[8¾þÅß׿è›ÿ}åïÿd¾ÿÓzéß^üõÅŸÞ-†|³ÍÔÒ<‰,•`Ô‡O_·yQ¯©o±] òÇÝÞKk›myù_^üï‹žÖ?–O“þH:Ƀ›ÆC^‰ÛŸï‰Û5{ññî–´þ W7#~endstream
endobj
169 0 obj
6334
endobj
244 0 obj
<>
stream
xÚœMoÜ6@ïû+öP-Úª$g8$¯EâÄ©Û?ZÄ· iP4zê߯(Ç\Kä&n˜°6Wo5äZ»ýÕ¿;·¿z7/çŸ?v?_í~:qû²¿z¿ó{7ÿó{ e cž,ùýÕÇÝ·wι\‹›ZœÕⲯ¿»úóP)ÍJî*ÞÖâºÏkqR‹W+ç')]½ó¬Åïí·óU½¦˜ó¸â¯KÿZq¤Ï!ê}¾sÁ¯¹Ä8sÈä
ãR€\„\f\öƒ>2ôQ }è£0 âä"ä˜ñ r
9æC‚ƒœ@Î }ô!Ї@
}(ô¡ÐG„>"ô¡}ôaЇA úHÐG‚>2ô‘¡ }dè£@ ú(̇:9… ó¡ÞAN gc>4È1 *n*% 8qŸøXù:côòxʨq E&k•¾©Å›V¼jS°—mFöv5œÃ”í¬ ék“Ë‹v¶ónšéç{F“uµŸµéâÒ¹ÓÖ¹eâøÛzözÛþ÷PãæኬæÐa!–»³õ3(eXBØ ?& 3†„ͱa‘a™`â<ÔaÈ‚xÇ0a˜1 YÆ,³ Ì‚0 Ê,(³ Ì‚2 ‘YˆÌBdŒY0fÁ˜…Ä,$f!1 ‰YÈÌBf2³P˜…Â,dAc˜0̆,¨ ‹ C4x†! ÷Ó&?àÚ´)u“˜ú~¶³¥mf±Ì;nW•æÛ7hê*Þ°ÙO‘ɹÐÕ>ù*³ŸÃ:™ŸRìûxÚê\¯—t¾n¥Ã—óüÒ/ÖìHs‡?oý=Ì1o»¾ÕQÙ¹Hû¶,A .·5Y² FJêñóvÉ«˜ÏÖ‹¡ý]Ò¶Ágd˜¶®¦mˆ‹Ëˆ[Ò6Ä)äãjÚ†8œAŽùXÒ6Ä1 KüÉ2à>Ü“’¨
75‡·_ {úŠË=zwwÈW7û<,ÄA¥—íD§ë…ý³Q„Ú'çR×âñà4¾HýÍ_—5ûÚÍ lÒÒµ5ZÒ$˜†E†e„©g˜2,!,:† Ø…È,³`Ì‚1 ‰YHÌBb2³™…Ì,df¡0 …Y(ÈB ¦ Cê ˆ0a˜1 Y¨ƒ Â…û¡oÄ ú´¦`Oú&g2®Ý ¾¦ƒóh³ÅŸ4&„ù]Z*]c׉›uæp}d«½îDßµó¿²€íò’„®ýcsìyÔ™Sú/í¢X“ƒvø0(®FeÄEÈeÆÕÀŒ8…\b\͈ÈA ú(ÐG>
ó±„hÄ)ä˜%J#N gc>–H8æã>VÛ€{ˆÕâ»X]—òž«½õµoZ¼¼nøl *})“ÔP¶iâu«}ˆ¶oÖ%Å9Í(]ů¼Òr¿…³=ɱ\¦Ø”%¯æ`1ÃÏ à¬ þ´|ÆêÐ_ÈQ”e\fÜ e§KŒ›£,ãr¹Â¸}è£0 5Ê2N!Ç|Ô(Ë8œAŽùÐ Ç|´(ÛqŸ‰²u3çûÃz u³¬º‰KÏ»'3ý|j©]Ø4»Ô9]Ï’mJÁwäé:Ü\ µÉ»¾çÝ>±+Œórr™qÁCN!—7J'ƒ>úPèC¡…>"ô¡}ôaЇA }$è#A úÈÐG†>2ôQ }è£0 õÉaÆEÈ1 õÉaÆ)ä˜úä0ãr9èC >úPèC¡…>"ô¡}Dèà ƒ> úHÐG‚>ô‘¡ }dè#C ú(ÐGa>jÖÁ8… óQ³Æ ä rÌGÍ:Ç|<<9Üs-ë.눃g%NZqÞÖEnÖ™Èõ:×pS®KÚ›ÆÎFkDíµMFóÅuí :¥þ$Ç–[´nôø÷ÝãÌu:§=xÑ:u9Øa¿øÌ^»ÌyGÊ¡kñæ°×¾¹š]XéªÃ:â r…q5¬#.B.3®†uÄ)äã2ô‘¡ }dè£@ ú(ÌÇÖ§c>–°Ž8œAŽùXÂ:â˜û°>ÀÖQ}ø}Zל ,* žáy;üîDݧÒÐ5°í\ݦ"˜1¬ ¬îQ,2,#Ì× *Ä)ä㼃œ@Î Çdø !}ô!Ї@
}(ô¡Ð‡B úˆÐG„> ú0èà }$è#A úÈÐG†>2ôQ }æ#89œAŽù¨» Œ‹c>ê.ãrЇ@ }ô!ЇB
}(ô¡}Dèà ƒ> ú0è#A úHÐG†>2ô‘¡}è£@ …ù¨» Œ‹c>ê.ãrÌGÝe`œ@Î }ô!Ї@
}(ô¡ÐG„>"ô¡}ôaЇA úHÐG‚>`f.05˜› LÎfçÓsù¹Âü\a~®0?W˜Ÿ+ÌÏæç
ós…ù¹Âüüዶ='þ¯•qÕª¸ýº÷ñÑñr¨ó ^Äö±þ导Ÿ_¨`äöÂ_íó¡ }âG–·Gê‡Ýû‡¿«—W‹bó´jid .‹<î½®¯†Ü·¾Æ6¨äöØ^ç7¹ûgWÛú8—¦µKÑé£ßÜÒÉ{âáø@<Ôù°»Ýÿ=·õ eÆ^3endstream
endobj
245 0 obj
1958
endobj
267 0 obj
<>
stream
xÚ¥YKo7¾ëWì!Z´aø~\ E’!ŠeK¶SÝ$A‘´hÍßïk‘; ®´Ra˜Þ•g†Ãy~CñîþÇŒw÷Ÿ`YÂï—Ùo÷³× Þ)øðóLt ~D§M§`RÙîþûì§çü׸ÜÆå!.»¸l㲌Ëc\qYgº·?ßÿ‘%J.˜µDj’õ..+Dm€Zêy›¨‹6C>¥4 žðÝdewCêxJé¥Ë‹¸¨!¥ŠIJ½É~ÊJ½ÌŠ.ðÙ¢•ÃÐÈB™N¹À¬Y¢Ë|Þdm I”
8’0ŽXOø Ö³„ü%vÕþ„ߥäL;EDØBŽ£skPÀR}Ϧct•†<®GòQz#ÚZÒ¤Tܱ ©].ÊÊclÇ… ²îÚ¸ÀÜý1 s€Þ#`Ï-‘óƒd† "lŸ¹o2÷Ç|ÈÝÄóI(³Ê]{>ÌÍ)é‹N`= AòÑhWP¢ !? l ö‰5©bü¹ß3¨N GÂNßgCE~QØ•†Ä´Ô–¥¼Í¯iƒÃ±K ì¶m¬§ü´Îìó\›6C„K&䵂˜G›k G¨¯²§ dùZÖùàQ&‡Ší&gléYmþÇþ¬¥—Ìru¥ +nî0,PÐM4!: ½0bƒ›QLOAØÇœBŠ¸šü:oAQÓ6a lÞœ ¹ÂÍ[AÓÜ`M(Ta©çˆH ì±ÔV!ŸÖb4
žÑíÓîÛ§cÉ*ƽ½6–0÷ <`kRä•B`\-¢ïi8JÀ±€3››5Jª,˜@ȯ *ȇ õ¹F} )´q„rŽ1 TC2âs 'ŠÚh‚Ó_qÆÎf¯± Vƒ™„š/õh3¶è
ßXûU‚q#kê °¦Ð“8Ùo"Ô4†yK˜Ï~€UÌ5Ì74Ó˜hTSÅÎt†ãkê a&¸µ9JÐÜ@‰ºÆÒÖ$àR‹˜fjâ e ÷ UøóÇè:ö¦«(æ‚?Býšû®ük<ØUÓ书"ö¹íð¥Di# \Ô!^•³+hg×.‹¥XREp¨4öŸæÝHŠG’²mSL“L*BYÙ¼Á]~Zç#rÕq1<‡Q) q
Êزi Š0:p)0¸85ñåÚcEA®äŠ)î Ów®rÖ¸‡UC3«©£QžyO÷.iYÎþH£ÜÃü+èfý܆ۆbN
By]By3àÓ¦oɈ© •pçθ£EZ£n8¦Qp=gRè[l †P!šÞžòTr6ºÑ“ JõHø.0´Üåªà'É iI4Ø¢¸†¨
&oDèí7=®-ç©US›IU¶v,Áðì ø¯É/iB±fÁÄU‹˜ØïQ‡ª÷„
†v`¨Ç®–LDq¶e:‘zBM~ÝŒ/Tê µ°;|þ”e\º* ZRK×wˆÇBDiѶïé ‚5>ð-Ì: LMõŽ—rª RýÿÍ/œc ›› 0V„»1MÓ'oE9¯/Îã|M´¸à.Wû¦ˆfPcÈpE¯(ùØŒ`}ºý¯É_œKÚ9µ„Qa ¾ÇfµP_$á1yŸM~šchS’ Æv爑ãôaäfÐùt}P3Ž™8õÆ"3ÍŒŠC>P£o0ª(Í¿ú¦+Nu”»Ü//[rpmÐ @×"í& ÖfS/¡KÁ€™AÒ $Ýç3P}µ‚ú'§:#…¿ ƒo×â•…'<£óÌ1ßÞÜg¼{¥»OßïéõïÁ€N˜3=sÖôÿÈO‰ È®Ÿod7ÿkv ?œ9Óg^ ÿXéÒ}Oëóírf¸†Í,ó0²~Oo6bYxû630cà·#å·Ù×ÙçLÞø6 Æ’»ô¼ ãQ ptú™ôl|žõä=‹<¬YÿƉž| ç€Kìò¬ç€“(±”á=Ÿè–ðûü½¹è þÞ ²œk å8ŽJ³>~ù(íAzˆ6 9,ãÁb vú;]ˆ»Û,<ÀjôN~âIçžâø^(Ž<_gÝŸ ë?J«áendstream
endobj
268 0 obj
1678
endobj
278 0 obj
<>
stream
xÚ\Ks Ç
¾óWì!vâ²=î÷Ãǵ$%–È¥¨%¥('WÙ®T”ªäüý ½TÏâÑ»³+—K#
»Ñhàc³züß…Y=þ+øóÛÅ_ /~ZÛ•-«Ç_/ìÊÀvâ*F7ùàVŸ/þòÉ“ðñŒwýñ€÷øxÂÇ5>®¾{üG—c}J.Bضsßtîø¸ì¯QÎOk³ªû³ fæý”²íÂ>}7Ï… ÍTKô·øØôÁçEÜ÷Óµ®^›ó²…°íñ³ÜH>›©A§)Ԩ˻–†Ë
5 ò‘ýÐQÔ•ÐDgº¢y£oû—Ò¢3Œ³àÖlå¶ëõZÈiVž¤œËn+WÔÊ x 'È]Wþ<¶ê~är… HÍÆ.¬É¹¢îîºïÕ–Úf È]ÍÜ€k’Šè;!¸Ù±©ÔYë»Ê›"õÙyòNpåÖ@hS™¼ ÝR#¸Þqú6ÊŽï?¿½üãáj–UòäŠÒÞtAO}³¶_Dîþvnÿïr–àwVqÀÜR÷I×]Ìý¾tÕ-u½ éÝJ ,Ê{eœÝEW%î‡ìI¨þ¾Ïäã¾òA_5A=8ÚÖÖ©Ú$ȺY› 'çPýV?¢è{J•Œ—ërœŠ\üY^ק0„°7]ØëþÚøô‰œ4˜FTÔô¡ÿë¶s¶×WýuŒ™‚ò@)û8V+ÈOˆÇ¶€‡ÈÇE,‹ÇÎÂÀ³râ<dª‚q bØôYjæ ÃK½œg ¢BØš:ü'꼟ûoç-P¬Ç§SȾ§²g×3»* ìƒbÇ;XP¾ KµÙ Ò¹?ßpaÛe¶f îÕ"¸ßuƆ¨ì-/Æ!l§djz ¬*)µèp#7¢œ¯ª4@å®îà˜çZ±$‹_ðÜtÜtí J—<º”èi™Á ͲK˜²¢·/ÑŒX—‰'¹;F¾ ,á zÁÈ5É«ÕX4Á,ä 3DØGe¾7„ÝÍ!›ú×4ML ¥¥®îúTg‹¼S’C7…â÷.O%û®$d§+yÎ?î(è>š†û€ixbxº=…ì£C œ™N_ʾxû_=ÄÂé´ÆÓïiÎNÛâ±.B„RÕ@Åç (¿¡@r§Iž¼Õäãi
#SÙ:ÎÚÌRn6Çyæ9\ÉC
®% ž7ƒ À.fˆœÜ öêÔ—‡¶LšzËöú–¢,8YÁ8H lD(IO“¸»Ù!P÷œÎš$àJu’盇\ ³j.qöëj>«ùî Ùe’~¦3"zN&5ÊDv6›h!fvÏ7]ïϳò…ëRÄ)ö… ×T!â¸ùÒ²!ÎxXÓ¢Šƒy³ËBÊ(è ‡?‚ühô¦L.Èq†@çvPmñu²€DÆóUê1M)Ä¥kô€ï“±‚| `=¸$ã‹ ? Ä"hFË… ±?šÉ‡…|fÙÑ~=˜µX-Uœ!À㱯é`Zú–&°K!âVÕÑ9'A82ÞX'ê©j¡HÇNÙ}Dž€kN
«…ÆÊ)Ÿà1<ìmªrw{û질ÁScœãҦς¹m×7œ{v—OtlÊíò”¢äþH'Í’÷»J–4l_ÿƃk’64ìê;úÀÍ»:Iyɲg%—eVœh2¼9TùÎ0H<2ý´Å´D•S> @!îpòõòk~´nM„ÀG»U‡2@GÏÃã†, âa¼£5a5 òN~ Yáu¼ä»¦•êgVË¢G7·ü‹à
4îäVbS§{¸ÕãxŠ‚8+„š!<6€%©‚Qõ+pÁ òóB& Û u7öTJµAicÂû‚¾ =A}f7Boâ„°Ø °P‘³X‚©º16À‡QSíÿ±Õ/½÷I’/¸‡$ XÁ¸V.}n©oÙò–éÀ–ËÑ`! ¥*Gdõæzx×J…8ȮËy9V3–íbI0]Ñ ìŽV§övºØîiÕ=PšK!Ò0š“·Ìƒ²Q.¼‘ÿ.äù`Á[¿Ê³urÊ2òè È•åË M¼Ø¯]Ot" Z.vX*¶^ÀÉç,î5ÝÄf T_ƒßÙd±ƒ/”¶¢Àêão¨OÛŒ |˜Ý*‹VŽ dý ‚ §¼Y:”·y*N*ìHjÎ[@ð"“‹C¡W³^ßJåD¥
©©TšZË¥lIÛ-Îê:YâÇy
ÝÕð“–’3í WwwØ jOëåäGœÃAmÿVëÆ<©JàJârX·˜ö ,}8´Ëú±5
[–ì°™ô„>+,
Ô”ô±ç†·¤µ|x‹bm^|‹ÂhwŽ'h
›â€
.ç’_²`·3'b—¿w´Ø4ëjtyã‚ Æ5&÷x“Ƶ”£â2±}A £ Cº¯ ¬>Ψ-‘¶sx®y烗ª áòX§ì« ?¯+âYB«µy‚ØÅÂF‡WÁç)V] +i&ˆ·ÒhWÓ/®u .ðN¢Üˆ›Ÿ€ˆQ}a¦qʤ¶ÔcGM/ ˜–_sa‡ê ·`]Yð(×ÕÙµëÝ¥ëBGP¥N¨´¦wEÄÁ+ãz/YSãþ7¡Té¯íŶ¸Vn`‚fv¯T“XîA¯x.a> ÌÁâU •#fª•SŸW ¬ØÙí¸¬³:*|»ª-\ÖáÞ¬Ú:èkúR·\¼©QÌý=^—Ô&©Gr ÷$†—S’ ç)qßÎ1æWÊ›E¸M/B$a¶´HöÔý 96ûGèÕc—hV?†Õ/Ÿ÷ÞÛk@Íû´Š[úVðƒ„·Šýÿì?HÖáÛ ýü–
묿_üºû˜Ü¬h1¼Rb°<²ðÉ×|ÂvÀy„lçG'ûfFï©—|¦.@Áh1NH0¡£¨œ`»Á53êã wðÁŸñ¾6XŠjÝ›;3EI}’{À:Ù9_Ì”|-Nb
§þŸ ð«b—µôÛv°íÍÅ¿Ûw›Ÿá™Z V¼ç™fƒ;Š/ï3Åžß/žVÿYÿ-ù ¬endstream
endobj
279 0 obj
3013
endobj
283 0 obj
<>
stream
xÚ½\Yo$·~ׯ˜‡`áN/ï#ÆìHÚ ¬îÙQž ØFH ’ –üÀ»%rêàL÷ÈÛØ–¾*’źÉ^µzü÷…Z=þKøûóÅw 7jW?]è•‚?z¥_yŸ†õêñ׋o^”Òÿúýã_GdFH—†U¾<®Êã¶<îËãûú³]áT¤ÌÈ×åq3>¡F©ÁeËàûòø2²Gpí—"ƒ[ ¶<> ¸5C|-OmÞu-ÏõyU&:`–³ëÊâ ÁS ²÷sWfLÕq¹…òøݸ<7vpÆ1ø(á-Þ›Uþ›Îؤj:R½«bÚW>wML‡|œÒC6†ñùT wuR—ˆÐ¤![ÍG©Þ!¤Óƒ³æ”T?nÌ* :í¢zQÆÔi|çV'ý¸¬€&„·ßm+ÝF4'c`g‹Š³Áµ=²Ãà.ð9K[Ѧ÷T_½Ãú&[ ü.ëšUlê÷õ//XÿÔ³(Qý&î~L ”ÍóÜÆNRÚãuî¹çuÑ1êŽÑ£'y0aKTµ ~–ÑÆâc¶Á ¯ê&ï±3“µœúÏåñ 6µ'<3䥬6À‡‹›[ž5àþ„{þÌ‚¬¸¨v“*aEnQå¸úh=xp/³Ôc—ª¡>¥>Ò`GÔ‡Àߧ>„Ùv¡Ï ÔÀç¹²h ?cÍÑSÀ:.+æ‰ ¢v½ zªAvƒÆjÐ ‰mrƒïؼþUݽ¨Xrd¹¤ ê$Ç¡?××õ<µ†ôgHóœ"†ª—oðf?“Ü명((‹¶[kîc œ»dû$$5ƒx#E÷lÁ‚xCÑç™BLc¦Ex-µ«]—ÍŽæ^Ådºãmëx[œúŽ¯‘s £³‰rm»!¹i}\WÈM}àhí@eMdÒ>TKí®ƒ‚|là1×¹>äêóà•cÀk¼Ü»W@•ºh?$6ÚJ ;®Ö—$J3ø=›•j ÃÝi5矫;„ÏXqÚæò@i´ ¬ÊŒÏÈ×8½ºåõxx“ãÓ³¿ näéßcí_8æÜ• b
òØ-“ÿÚBº²¾ïá 8àrÜÅaìTÔ-š†xæ”e|Ö”Ý z¢ ì@›¶ÜbY;Y±êÄ8Ãø 8®úúo^ tˆŒpÊÁ±³‹ƒJš!¯º¡ ï+Pk-Ó %ñsÆ ¡a‰Ÿå¢íÕ±àD"ä‡~V (õg1[ œƒÏ2› ®F¸@®´wUK‘$_5\G¬™u½MóÖŒ{ÁÚ&ŸKxnì ÁäI7hT ÛÈòÄÑÁª-öü“uà—ùÔwØ7nêÔ®q
t‰À 3Ø5Á_ò £·šÑly©£ÜBæÌ9ð¹´BîY(wp†ê¼ÄáxÚ¨Ô|§Š±ÕÐ}•>)„ ÅI‰v !ÈÀ’‘Ç‘ !ç#ƒŸ]•dŒð:§ØÌ*ƒ\°§$%–A’ —A!Aà#—Aª7â²2ˆ«ß»« ›ÌݼÖ4Á.mMSòi
?Ñš¦ði
Wkš2;Ñšž¹²·Ö4…ŸhMSø»ZÓ”ÙöŒÖ´ÄgVkº4Ú(¡ÔšVC¶ñ”T;éÒÎ8¤ú¿¶¦ùà³ZÓ”ì½iÊï}iaQã<Ô8šá¶,—²`«Q˜ß–çÊüÆb*yU{³[,¨ÝiÇèí Õ¼þÁžÕ ¢<ætˆú4b‹ˆÂÏŒû`˜‰ñZ ÷!+ì±ÙÑ’ØEÍ;!—zè´x ®ÈÂú“ M~HšÏïh“Ç
¶’*X5׆Y-ˆˆ] «ZM¯I !”
'5™rwª¤-ê'S&ðn[4L))ŸÙM“zfs};žN•KYŽñë¤ûn¼ ȵ®u'oÉUFAcµB´ÏXÑo°ýcШÇFå±ôZWôÄÑ:-_£ )Kh„T³Üž yÂúp^ëÇ‹Pâ`_:>5À°Ž‘ìº1k¹ »ù”úFŠ1ì~” ŒP´À“QXãêèhÖ´XmW]ÛÏ8‚°K!PFÄ»M¥±–ªëg¡Õ‡÷±\kLŒøvI€†H‡%vaRQ Îãh·´‹ ù×óJåQ _èŒ Ù ?"ÄÍL=dÍwþ¬dÅAJÂÞ̽y°;ÙFÕ`&µvÿlP-=›§J[ýÜ+p¾é
Ö¼e©m #\Þ2Uc Nù,n΀QçŸnË V”g¿ü^› ‹qèŽ].·7.Ç}ÆN Â^¸ÿйš^´¨ ”t.§s Iì%§Ï ÔôÎÆrWw¬™Þ%Þˆ;zS×y
RkŨŽÁ»Ð“üÌÖ
„ekäŸþª"Ùñ´™Rÿ€]ãñ!¹Š ;ž/ ¹6Ý*‰uç 6WÎï5eÓÓörnêÙ‚ÎSö’ÇøLyÍtí6A‰ŸÕ* ³\¶¦N§Ü惓(öerg§C6‰÷6Ýø
_'x'Tå£Ö–5½W0:›Tòz™ү•¶ôÊQ“ËŒI÷z2T_™‚§ÈÑŽFDØ|ÅåÛÐ%-§™S OÄ.’N/!vP‡ø›ìšÍzì›^'¯Ð–¥.²Z㎓›mªâþ¡<†ú:vÌ?rí ™Ûü¶ZÊ ¾
ðf8Ÿ +µú£[ýøëÁûø
æ4} ¦Å1ü ¨Rö· üþ hSÞ^ñí-$úVI¹øéítÀ‰b)Œ
“¢bäi~ì $ðö‘ÿ oú%Ž‘=‚D2]Âtßo[z¨Ä úà4HŽÌ#Cé®{u3@~AÑÈâŒ/¸)«“v:Ñ°)ÌñÕ€™Ü]üc<[ýžÁå-_«´©Q'ÄÛ{C¼Ñür±_ý xý3äæendstream
endobj
284 0 obj
2976
endobj
289 0 obj
<>
stream
xÚYKo7¾ëWì!0 ¡ÉáûZȲ µÊVø Š¦Ezhþ~‡”Eîp¸Ö£†aB+}3 çñ‘+‡õÏ™ ÖŸq¸Äÿ¯³_׳ó… ü°þ2SƒÄ?5(mkƒp^
ëï³_ ¥Tÿ¾^ÿ‘‘‘ M +m®Òp›†U>–ï ’¦¢ D&>OÃM ÆPR˜¨üMtÎ\yÖÂï«!Ÿå‡EßL°•¦ì]QqOà Dt|îM®ó ÐTËýèÒð*/o ×2Ãý=¶¤¾>+þ\ô§Öª¹²¬ç®xiSôÜU/=Áuõ\Á‡bÔåXÐ(-Œ&˜zG`E쬻qêù†Ð‰QãˆÔ£(fe϶£w€Ë¨NØý¶,r‹nz ` ¤e“+ýÌÂã6»ÎVTóîË#ª74¾0`ldú.ËjR,Ê «òÃã#Ùj\„Øó¨Úz!¥õØ
—"£aýX¡5ÂqÈãcqî²6gUA))œôô„g•a ›ë¤Ô£„Õ±Õµ¨Ñ[*DVýžVšRË~¼k§„ºÕ¿äÀ Bk¶¨9ÁD/40ccY©#©føªnÊ
jQ¸*Å7´Éx%$:i§çÙ
£Ñ¨À@›cö eÆv«c* ¢Æs»N‹ ö+>÷‹…@j Ê1ý< bň Ic@j´a ³ý{[ThÌU}o_•…}œvXë#ôýu c ¸ŠëÚgH c¸+gúÆ7Ô€ÆzÍ7´¶ù›2äÇO´W¾'¡– y[é5-ÙsZv«—Ô5 ¶åVÛ]Ú1ö† u<ï³ìÁNÕå"fNdð%çt Ûï{”¢ú”Ó@zcÊF
fdJoÅà‡fdÇ ¬Ã»‰ÕÐdµÝ¹ç4Q3 ´)Ñ´zꥲX»*½šR.
ÈbfR©žŠÚÊ{±FXLÁƒb‹b¥ßÇÕ\ªcŠÉ ÌÖÎK𪽠Í×4z¬aóÆŒÀ¡=×ÆS<¶cgûÈcsD+Áq§u(RhÊwƒ|蔥Î<6I‡¾tã˜yI®«ý%Ö*mÉEEOQ<ºäCѧ1¨+¶º.èÞÎi‰ï 7 ä³k£f´94˜ž²˜¢OŒ¥Tom׫††•¡9 /6Ì`´: ’{¾ZÕ&MD<ŠX¶Ò¶Jvh€ÜVÝŽM÷ô4šl‡ýÆg¦àt <,‘¶±¬£‹^Ò–ÿÛ¨Ñ?“; ɹC¡ûr§A Á 5Œ†Ã("@:úúV¸)'yÃ7ô‚Få hä¦îgœÁ±ëšØ9Ž#¢f.9í¾×‘ƒ7ºx‡Àˆ`»À£“鬶€NJŒj¬ì
ð¹”42‰´SüZayTlõÝü ‡þVúŸ¯O V—4œÄ¶«+Yx=Iïh¤§Ë.-ÁŒ)XzÞÚ°½0%,7&_—Ðœ]7¼ÌãéÄ ûhUPƨ0b‚b —;dzÙàSÝɾƒ‰Þœº¶Ta›t
ü´>
stream
xÚYKo 7 ¾ï¯˜C4h"ëAi¤k±Þµ“Eã÷#ð-@M‹ôÐü°ô–œYkV¤´ ÛaÙ»øHQ|SÒÝÅ÷…î.>â²ÆßÏ‹ß.+Ó¥îâÓÂtLgœï¼*ô¦»øºøåNk}÷ŠÖ
-oi¹¡å’–£WL¤T
F’k Û¿zû×ÝÁJ—{[Ý#qRf‡x=lCËybEË5-W»û[׫”‚`±,@à$'@Ï3ZNi9nx™÷ÞLÅ)U7ø@Ë»|©>gC•0Ðò‚WÀ! ¶£€¿Ï²ÝæÍ^fÉW“³Uê`¶É
¹Êç^æïV‚X¨ò9,™-³6YÆÁ”o´Ò ÈG Ÿ€X´®@k
N ›gxŸ—A€uÁË{PÎì}6úªÂçî®àJàšÏ8Œ+GÌn…É ¨ÞHî§y‹µ4³ Ê[Wè©P‚óVÅ” Øf}.sl®³¥ïÙùL†žH§1Qùdꆻ*Ý+¨¨ãóL¬…{aÞxÀ>&)¯@^åhÚqIéK@ÔrŸõtHZ~Ïÿ¡ú 18¼X|›ÎîÑMÐ ¶ûø5I+~üF‡úÞ
';8†nù÷â¶ùÝÄÝ$K|~(k±Sõu]a¦
úÄÑLÆsYqµE:Çé3IC:ki?¨JwV–t¨
6:l™´J^ ¥oÚ€M€Úi¸¦^%qȧÕY‹-Š¼¤c:€ Xú%`±µâ8Ú˜`\îÀzápVï°3ÿÖ=30‡îæÞBŽ®¤Œ [š(؇6‘˜YŽi£Õhè`8zF,N hj îS4Ó‡nÅêeU!%üdBËý¡ºâ8¹aˆOæõªÁ ’q ‡fsÏöͺۨ#–̈ÍcØjD´z]†žÛ³7dp@YÈp®/ç;‡Ã¢^ÈÊh»ù¦$¾Ó¦/»# „³L½Æqƒ=9®³œNæX Ú:°R*G7É?QeTç!öœÃ<•YM œx†>
fr5 ÒöØaÃÎÐ?mˆtà %øOl6ål\´Õ¬N%~fV/¡úõ~í–Æ¥Äæ8‡†M¨Ž‘£ç*ñH¤é˜8¯VE÷”O€£ŸÖlâì–ÈqJ^ÇõÔïtZ†þµ<ä;Ñ3xÃI^”í‚S½Tüm~SFÂaùÝ&¶œ`]H*±õ½£Ñ´nwœÚ:PhÄöÑ8òŸÏÛÎÖ;u1(g§ÿ‘x˜•z#»Œ8e9NüÌa]B
œk#9Z
§Ž~Dz ê"¸¶
÷¥Gg¬
¶çÄË|Ü£|Èk~-ƒ k¹0ÐÝN¬ŠX¹¦
t³$xÏ5ZþÝf¼´œê¢Ð’Ì£t ƒõœ©¥,‡8¿yA‚> îÿp óªh“ïêùæçcxv>.9´J;Ã@¦*Ññ^l’i\c fw fJû ÷Z:¤jjx¯¥FlUÄŠ÷bO”ŒPÉ£¼·>* <9G¦$èÌðŒ}iŽÎ
çÚJsçì^Èð°¥ sóû§_ëiÚ±bƒr†‡a$a˜Ö H3]IÜJ1Ø-%„1t«¥÷"2évŠA¥=+Å”ôsÛ0Ò3pâç¶a`Ç©±äúû÷n,…%‡yöwÚÓEIÜjL§ÔŠþ+%Æ…±½/ÑÏo =?IÆ•|”¨€ZÜÛ$™0<õ2ôÃ~›4·rµ€ß¿sLo |à>‚ÇláBçqز±Ã/‚V&æ/þÌ_céÓ?}
‘ʤ_ŸÆ§Ý•/%ÁLôpÿ[yÎîK³£“$àð×eé¸,Ÿçn²5[—TÞ+léÓFš¤fÛ§ÈÑ ‰.7-§kø7h«\ziø7`Oè%úQ³6½b¦±˜e z’OAˆ0ï!‹nXN1Œƒ¼”¦ø 8±×¶ªD3šËi!ØÓ 0.#ÎK¶K€ae¼8Ë’_#’‰¦Ñ.¥Q€ƒg\›c(ŸÏ‘ƒTw(À<ŽÄÓz¹qÿyBÜÓ|Y\w!¯ÿM]vendstream
endobj
296 0 obj
1737
endobj
303 0 obj
<>
stream
xÚ¥ZYoG ~ׯÐCO Ì}¼ŠZMlYGâªOÒ¢hZ´íß/9+Ï.‡³+yƒ k¯Lr9M„›V¤ÚÏÞ ¬ËirN ¥qÏ^Ì ÚE©‘²ûó?¿ž~Ù\70òyic ¸¬} /Tà®3EWÏÚÆ“A@hÎ5 å–±8=Ÿl[,xSŽÜ¥Ó0¤Á`LК†ïC ‘u‰¼ãq*Ìt)y&wÄIÚ&aÁ 5ù<'%Â,6í¥gn£@sŸÚiu™>ñûLŸt¹ŽºN˜éòŠssØ~Ö4™§:J:û¨–8æ#h?裚|fÿqÙGµ°K¬|ÞÀ>
¥çÚ—0_^Ž*¾ÏDZKð
Óf4}0âkâyŽ‰èeSËš Ö×ÄS¸À(éÅä6˜ðª‡
73(wg¿ùnU)@¹ULìhÊAçž‘ÏL9¬±‰ »¬,jÄ>˜°÷h` Vöü @ÚO -ƒ-ĵÕ}W€Ê#-uØàªéA+%‚ /Hp©DRž1Žá
kDDCUä3ñ†ÑF&lÚgM¬¬ Ëx~ÈÈ…™“ÏR Ã݆Ȅqt®%’Ä(_—GôG¦C™1ÍGt9J‹$TžÀ ±ªç"̸šè¾<ýž\‡‚ŽRK
zÄÔ׃+ZCΦâ·4œ€BË(o‹Yî
ㆅ¯qZ@—½ä9 (§ KL€i0¨KË@,ËOñ5^¾$££Ò"ÕÖㆆÛ6¥wá{)$4Æíš
Q pųßAæÃx¦‡‡yË(÷´%öU‹3ž
V-á‰6½;Ú" (@#yÆ:Š‘Âó'|Qàþû1\K³.@¨XnICûö…¥¼ E”žÉÙÀ`&xÉM¬éä¾.yšû¥÷lùŒ— Á9îè£T¦·ey|lIÐJ#¼n;Ý °…FIÓð¹£SÛMU»6WǵO•êÚ~ªÓOó|Oc ÷óÛnî
°N5ýH¡P)=W¯¯¤{–vZBršñìú9‹¶ì Ö炼¦µø†Žƒ~F±ÀiÇíñøÒèÆÏÅTSù¾™ƒÍ‹
´Hƒnž «ºp”d¹ Ñ\G±¬Ó<ù;ZÍø^+Ç œ³G*·´{ÞUÒPw´þõ»©nËKË!àx|ÆŠ–Þ·
9SÅAƒÕSbR«žÃ›¼Ž0bcfUŒÝ€N³Î{¹šr̯8Œc~´4º¦µê€a Ðf-4Œ T†[åšštEQ òŒd¤[<«¶Œ‡·`‹‹UŃ°¯}îé ®Y \dh«Q mè<\‘ (.ÛóªtÞG׌E¯MµX¢(˜Âgœª“bÂ@[[ÐW3Êþ…ÉžÇ&Œ4)ª¶ªªPaÔͶ-DŸ]ޯהc9€3ƒKŒü…9PÕWxÊq·³;…
n—³íÉ-œåŒH´J@Åj´÷Ù
]Š]•ßx§Fdb¤kÛ¢ÊhàkdVJÂ9Ý–ÙzI¶¯¡¸mÿ¯YˆYã!\¸ëo«Ñ'K&>¿ò«…à J«3ÕUE@í‰S>QHö†f ¾òŽŒ§Nï4›zŒ¿Ó¬É÷Å]÷œAfOÅ3™ ˆWk,A!€,v ùûròþí
T}ÂwUutª{ k7\l8µÅ–Xú:ÏÄÐ4ѬWÅVŸV—¹4‡´lÌ
«[+šO¹*ÝÓh†®%¹œãi ÞÄñPïM<Ÿ¼h Õ2¹aäçá¼N¹BT|g±v¾Å7¦ ~+%XF>ç y4ãYIé†m —ÄÊVËq(&0ˆœ^Á‹Èhç-ˆP—jY8ýQ<_3²™ A0íöC{IîÕe;r ]?ÔÔ3WäN˜kY3ŽÖc\zÖ“€yÝë[•‘Ö]¨™ÄM©A?QeÃþìß(À €†+é}i¼ÛÜOôWƒ¯M[çÛ¶›Ð4câ…,sÆ×Ô²høóÈF[#Îb|uB·ìÕ\ôÙÄ›f÷"¢Ò÷M ë»X 9{DßÖûš¯õ.'åõYE¸ª÷4ÉÙšfG·ž«±ÕXcñã I:U ¼ÔÄ} …žçÕ ,L L¤Ü´SË
ƒ³5wéÓö€²Ló7´ð¼¥ßçâygqz¶©–5²æ°
|j˜óuñHõ5ËlÔ×ÛÂ/—ßÛå‡Oƒû|û÷à ®£Á»îå·L
™ðß2§Ã«[½\ýµx€ÐTðK)¢‚!~x ò»ýÖç›ë…ƒêè #G¨iŸòw1ßý±pZWwÏ”,~[|\ Ð=/Þ
¨©¤ÁS:^Ð HÔ'AôãçS§gãó¢§ èÙË£šuw’é)z¨©¤ÁSNz8倒J>¡ãSËkøúÞ. ú½]˜®Á¹Êm‰¼¢xF#Úpä,rÀœ•<ýÆô÷5!î r°È|yòNùMf;Šçûžâ™ç·Åaù'Èú ñuŸendstream
endobj
304 0 obj
2252
endobj
312 0 obj
<>
stream
xÚ Ûn[Çñ]_Á‡6MÐäxog/@Ÿ
êf1–DI¤ì¸OÒ H
ô¥ýýάÌ=œË’‡t˜å™ÙݹÏì¬Íâùfñü3|\ß^üýùâÝ•Y”Åó/vaà?»°~\Œc b²‹çß/¾ýlŒIß=ÿkf°c@/ø±ÄGüØ´¯Wø±Å~¬+¡˜PÌ‚¢od×ÎM£½iëzï÷):ob?[‰:üxG0Â8„ìåÑÛF 7¼ýßY‚ÃP$Ï”%R \î¬@ ‹œÂáÝîMcíOøñüøón‹û„¼Ëƒó’Ð$¥kÞ:£(»Ià`Š€ìØ¥ƒÈdMÐÁ_›|&!}þL!
)ʳ|Ó w© Ëe?'dºÆ1ùÆö·[ªí´]ÜÅêضeXá&δ|ç 2[¼ þ½8˜»ÍÁŸ$Ýàì`!|š¡ÞšQšÂ¥×|rðjâGe'“0hä. ˆ H(‘Óxˆ(Q@ò¸FõÕ
ÅKœ‡¶Ð ²äÆ¥DŠ, §Xð¢xð=…옉7e0V²uIs”•Ñåäiv‡œNLI&!-vÊ™ šP®ÛÚ·4Iºä®™E°`‚îß(øä˜uex¥6 ºï%¹É5Sg2
EjÙk?
˜³2H.’?3SI@, b[xïšèÖJÄb.7€çÌQ'I “„|i‹?ѯ›îÕ‘¢;d¬Þ"N8Sô}¡^qÛ¾¾èÎÅcö5A±§û 8Ãi›.¾fÛ ç–JæS×ñBž4ÈXÔS÷" Ôò!8ý\›]öí"OLB¶~òGÛ¶Éuãç¥ÌrCB~2: ~B:;Ä( _hú¼<§îÚ_<Éä%Ø!A1Åx ç¸áe¿Ey1œZ zLi¥4— üMFƒÖV»åÊo!5â·JνRŠA0†Iy‹<%`Õœ’§@?)Ë^2ú%›Îë1Ø2$É™9õì¾Á‰4=Ä"exßÒú©q%$s üW°X +p>Q•Ö2w(øsˆ–ê7åy”„ÅÅ7¯üê`³®“]¸d`¿ò JxÉ ™:JçŠöÇ£\?ÚÅð_â3£s ‹!*YtQ©'i¬:-ŒRMîi#tI»¦Í´áÊë‹=Ê27Ïefðö-^Ä^oA.Q-dLþFq±Ôû ögï:w?6ÙÚ@æp½T« y~–SqÞA‰ ±SõËᢤ³¢alKƒÄU'_±XÙIb¬ÖCìCàSUC¤ÀY®!½…ˆÑIò¯Ô¿^sÇŸ“ý§Æ“-uT¡ÄKsÕ!8?ŒV*é±¾ñ¾&¾»Â,eÿ %Œµ¾ö`-;‚¹±³îø¹ñ }ßeí">Òx~;m»w;ô&Œn¯W™Pûrð³ÌÅ®Æ`FkC+݉ éï!O‹¹æ¡^vùìú…d½ì‚B’ÉBÒÂÁl‘ “¢Crüc;Ô L–”åÿœ¾ QP\òïÀ¬8POô Á%Íó¬· rOÉù‰c¬÷m!HKöËž«¯vÝ«e78tÚN¿Z†J=È]ž•YapL¥CŒ« 9X>,©j)ìΛ›¾^0¡‘cö ~Ê‚.i$Dz› ¬ð~gG¬ã‚€ŸêÎ{š®ö„û:&{!à „TKµgïÒ×èt.pÄ`4^àÈÎ…¡6€8äë©u3–t‚Ь€ÏI…\¡æSE{¿ÓK!“¯Ãþ˜ÀØ’¨?%…Äq…Žbpñ‹ âÁ¹’ÌLƒ+é- cØwmCŠ6cœŽ£¾âñ‘¢ê–%©ß =ÞÓÖ<Ð~]
—µ»Þ$
•ø’§mÕº¬›i]ô
×»ð¯=™ËA¥óÈzâp%Êé@å‚’ÈR¬ ?Yx
¡ÐѶ»Ñ¸Í§,–{Ðœœü-½}Ü»èâ-l¾rì^Ï·Þ΂õÇž§\SÜóœ7¤rŒc½Ò
’ý °3š•bç^£4¥Zýå|‚ öê$?îº(‰wQ\"žÈþWï·€• Ø/·D§(m¨ÞƒÓy<4Ìh g Íq6ÔÕN*¾ó¥Z5ÇfbÛ š(sGkø)U Tj*åÒ`§›ÛΰUÒ)¼fw eK5yK[¾Öì]™gAÁ ßµªÇ R|,Gž.·Ô[_Ò©M6¶¥
˜£uK¯aå×a>‹=Pu “–ŒŸ§uÞ?CäÈ3JÚU¯ o`7'ÉÔƒk+VÈ´wkŠý wƆiŒ¯™Is ù Uð äÓñgRʸ,¤È£‰œÖ) 1¼c¶SèŒæc { z)º˜´(ç[Ò›ƒm¶í5¶ÅPIáôzŠbkMÍ ÏëSx æ'™wˉŠ‹*†<·ó©¹B[²àÀZw6Wµf(3žP°÷ ¶–ìŒLç •Ã~F ú¯m0>ñ L ´¸ÇÁáÆ(ˆN>8TÄê#õ½ËË.Ì\C´ z#—PÁF±í© 88L€ýþTØ‹…55Ò-õâ õÁ
9dA±7-“ñÚ6
ð3ï€ýäÒsÛ8šGœ¿S¯òmðûœ=Ð;Ái!ýp˜¡”%oíFaÔ>Ëc_ñe…L†ÑbdŽÇgÈäsÌ*™~làê‹ØȽöZÏÅb9Þž´¯ ¨ŒCÌ…ãɶ9/¸¡:óª{CA_EñÛ L aâSg8GéœPŠ[Q¯zý f¬bÈÔâ“fwàŠÕ,H8œ2y‚7Y(/
س~L‰bäÐç?ÞÛD±Åsª<ŽT2r©çyb «dÐ'X}½¥ ^•Ä©VïÒÊœ–j4Ê„(Dœ øØ{Y\aн OÚ!Îx^Š‰Z "·&Ñ=N„ Ä ˜ N/ƧÚKø).ϼMU¢R%•üùÒ¢õ4:¢s·c ¨Þ>ö\|V±—¯"DûÑ1†î®'¸2ø O·Rnç êù|He¦±#êèÑ%¨Þ{ð×èY¼‡±Æ
¦°–!mà ÌhäÔî’ #°|È’ø<'of 5ؽ+)Í(ÁO cÆs:¹iæڵƄÄ(¶"³©Ï“9ÎdnAòèúüWA¸nÇz
©•®È5å‰Ýu'¸8$ï {Q{OÈfC<ê£Üòª% ÂØñÑZr”Hufò7×͘µ–À ‘‚Cø¬ÒÙ «ûÜž•Èr©¿ÿv†·{0¸¡ÏÓv¶|ùÜÍ⇰øù÷½ïõ+XÄÛ³_|\œð ¨Žmn¿øý"‚VýÖà§o1óo
õ׋_vÿ-ö¢#b0ïÝoq~©V½å3”‹ ¼ÛϾ§*§4v°ÁŸÅú½òŽc‚€f65êÞÓd½;ªŸ §Ú„Šn”Ðçµn@wŠdg'¹ÂqtÔ4}G{Çßi¦’Uö ~“ÝwØ1 Žr© ö7–¸¿ÈÉ/0oHIÐùÚ;ñ2²]ñ‚Šy|žt! åyf>? Éa'DcÆÜ‘Dð9ÿ¹@‚¿Ãg è ð^xúÉTßð±û>Aìp~½Ø.þ
´þšnendstream
endobj
313 0 obj
3536
endobj
317 0 obj
<>
stream
xÚ½[Yo#7~÷¯ÐÃ&Èæàð>^Y Ïñ)Ë3ë· Ù`±³@^²«ZcvW)µÛÎ"Hc$‹ÅâÇ:>¶ôêþ¿gzuÿ+<.àÿžý|öncV&¯î;3+
ÿ™•«¬rޮ}÷¤µþ>Îñq‹G|ìÿ~ÿ¯:Æh£Š‰b঎¹ÁÇ%>¶øøPõìêwƒÈ‡©Z«ƒJ! µ±åˆ¸O*5¬¸ªS|ÂÇ{||‹uµñãð‡©2碊E躬+ÚéT Vˆ¤+þ8 ƒŽvT|]\×Wõã9ýnø× OO¨÷ÝF¯Êt'ƒŒS1™:Cj¯Ö€Ý¥!>îÓ0ÛEõßݶỢ±D¥µ;´:«’‹-‚BP¾H+zJA•˜„ø2™¤Jšë ç´*AŠ C Zù(†¼
EUwñÊÛV¾‹õº€ùmi‚ o!Tøcn¹ªáãçAÅ` váè‰ÝÞ&úÌŸí#á³²úÇ<ôb⃠ÿ¨'vŒû¶€kÔÓ*êŽÁÕ&È8Ñ´ÍÉœ×Å©T¤“æö¤ŒO€¼âgû‰+rý;ê½ÑŠ›†[;%’×úPíÚFY9–Gkê=mkèyDšöfÉV÷+fM£î»ñÚ¨]qL£ »³ìi‰ºk¶Z>¡gv‘ tSÁ¶µYUÛˆT„âïi¦é”ð¶„N᣷mÛœŽ‡âºeÛãXrÑ6eÍF5I*[ŠEúü£K™Ðbß¾Ž2Á(h²¹ÖdðÔç,Äq@²eŠV(kq\ A0Aã£{R‚¬è£ßÐö÷fÆIb‡+L}¤MÙíØ5t™GMç-¯ÝÄìTÐF¨íÖ‹HàH+zÄŸÉÈÕqée{ !¼&'”ÍÛs ùÖÇ,F÷ö\¨™ä:_°çÈ95Ó>ñŽò'Ÿ7d4“ck[„úíé¨p’ñt|h/ô–FBÞáx(KYlÕ- UÞCÃ"ÖëpÖy$™ñØx!>£é¦=oƼ=½’@ãÓ.১/q ¦ÂNRÓ`MŒ»ÇØ µ_xŒ!|%#”½„-^·A™ÌuwOù»]ehˆÌ4Fb±ícÇ Í¦þa¸ÿ ¹~÷ô]ýò|X*mªB=J¯vyi—ƒÒÕ&¹
å8_gg¬¤i°’í|e‘ö'o{‚…ÂZHßÑð|I«¿k~°†J5t"LE™KÏ®ÙNgÖډ⣼= AUGˆ’EHwïµÌð&“^T“ZƒwdŽëbœÅõQÖÁ D@ËvzႱ" Á‡S!Él@âLç ¼„ðä›dA8\Þ®ºã¡ßóÂj–Ö7ôý‚WsE®»q‰kàtלªÑ€;t§™‹µŠ>åÍ]-]FF¼½ãñRÕÈýõ½ &Ø;ûÖ ÊP*Ý}Ÿ _AÉsÖ÷℃—Ï^˜ý}?Ò²Œ ¦hˆçŒ)Ën'
R„‚ÿS¢ú rÂør Âx‰ Þ¦tÂ1 tpÂÜA7x®¡×
«"´$Lº›°â@n0黆{žÛƒ7hÒ
Z'>-crî$-]œrV¸â‚rÊ·wÚçT„-cºZ÷ÞPze?Ó£ÊØd…ÚNp)“^TÄâ -¡½ eûÕ¸ 4ÁMµw_¢œ–1‚@2,¤¨·#¸Æ?A qñWH\ÙˤæèÜÁñH%®§Qux§BÊGìeW#üM0$øèÙŒÑÆ/$„²å
ŽÐA1.½˜
Âk0¦k.äÁj× ü‚ýµ- ø›©iÄ`ˆ¥CX›å&µ3¡¿´£X@;
¿´ 0eÝ!Ñó!G_ ÉZ97w=%(Û[Õy+ÆcÃRâ› ^œpFgf4^ÒÇÞÈ÷Ñ2·èp‚м] Ž…’|Dõ5Àç¡(ܾ^‘‚Ì +*|’“Æ·˜2iøù¶«¦»ƒLø²rm g SÐm¨‘šuLxY?/ŸÇÄT5Kªiý~_5èÕO~õë—Éçá£Ç·\\p¤Í+øàEþóÿ®_DcñÓWùñSÌüS úûÙo‡ŸêhÚ…øèJ©t“7±¬ÿj½¥xr*A^gâËë
nDn)ì1Æ„ô+àáœWÓÚ+%‘ë’ÒË~Þ-d‘îìðÝ ïi£˜ùèïƒLV©ä¦{—ÿFÈP Y(UË ¶8ää/¾l‚B×y>îµ»‰åß ý8g7ÐNÚ°p7ÊIø¡wë^ð‡i\øøfbåbùWm&„¥›³?Îp‚/ðŒ ƒE€À6þKáã ñüy”x óûÙ~õ Ðõ?¼3;¹endstream
endobj
318 0 obj
2565
endobj
322 0 obj
<>
stream
xÚ½[Yo G~ׯ˜ Y'Y8íºäÍG>˺eGo²Áb³À¾ìþý%»gªšEVOä†ÚšÑGÖÅ"?²ªÕææ'jsó gðó“×7'¯¶j77¿è‚z£ßxŸ†õææ“ •ÒÿýéæŸ#2¤Kêø¸ÅÇ[|œâã~üˆJŠlŒCΖIÈ žÍSdð€ïñaçp£íà‚að |œããséà‹ÒËܶñ ”ñžÑ´)¿Ýq=Ù
9r=#ò
/EÏ-Óc†þh¦çª^–ÁÝAáÇ—Žœ•aà×D<é!YÇÄ êpY“N¡Œ‘ûzIÚ
Ö®6gò`M”'óñ±üz_úõ‰ØÓdº.á/Å<¦V‰D`É\”á¼—¦3,Zz#x]glì^iû®<ÎeÆFÐh˜Æ3ª¢äEiêŒè‰vðJ 5
F3nÄF¦¶ø‰¬ƒK|º>^âãjßÌ”71m+‚„ Ž!§ÍDM ž#ß•¡ÞV“!‚0GÎ$&xYÚ9+“û¨ŒÞ;JîRÁ`W»TŠ=Â¥úÀ„<ª6šÁ» àÁ2ø=ª ¢åÊŽ÷¨fH|§EWÝT—toÜ—Íuv›õjH!±VÞWÅ ^SÓñCv¼{ w{*ù\§ì·ÉBkÞ®]~gÕàµcðãü§ŽÇûÏFfÉqŒ®39&ówÙq•‡ŒñsÇa x1Ÿ’;Á6;ŽìL«7‘aðƒ~Æ;dͧgÉÏÙ”@–÷ññ§"Ly€"¢x'Gå¿Òõ¸®ñƒz^Xä l¶ LE†ü¾¬á/Ó˜¬Ÿ<¢Ù$Á#B—é 2†rÛù×oè¾ß=Žèã!ÎbŒ ,kñ}oË@G›ùžþáHf¸UÖV8–:©ÇFâƒ"±‹`?Lüš:¹k6ÖUþËaõf’Ü©8ØôÊæg.u<‡—ºmñVàuµ…MY—Ó‚BSŠCdšŸ©tZçVi´[.‹ñ¼¦oË>x[VbCÃâ°åyãÍRŠÔÇ!‡°†ú4Ø#¨Op‘I/p “yc ÜÇÇàOä>nP@ZZe‹f'¾ÔÊìwâ«Ò²^¤ánð‘·ÜÐ%æ 0ÛPù¨[ xSKé’Q\f1³Èz>1ÇåVŒ 8—!1
òLÝ .+h‚’@@( \ƒ<È Æ:IäM´¼€ò 5Ò¦Væ´Ò4"sN™ÁÓ@ðëNèÖÒb™ `(–ÉtÒ@ƒQÉ{y”ÍePì¼ 4
„™Azvô2Xœ# g‡–A¢gÖ™‘žµ²]zæÓHÏZü1ô,û‘ž 6LøëHÏZäqôÌÁ“:¦?›žµ-®£gæP‰l¶å’!!okqG³?'
åeuJTÕe Õ’¤%xUÀ°vJr컥³nˆ°“¿)í3*àô4ªÅŒY^¨êG®¥¬”µ—`‹±öîj.Ûä‚5µ†HVM,:'Lâ›üYíó$p2ÚYÊ“~V0“7_»|‰ÊLæžæ
4 „4¤d™`*áÌBÚÞŸÆ} ÄÓœ˜²c+à<¤Ï| ç½S—þp¹Gé!
ºßQã%Õkô`„IêÌ©µ°í1à~‹9 «LÈ,eŸ(½ Õž²Ò<—[ŠúNÝR £ßߊÓ周ð>ö}ÐT{[g»¹^0aUÑ`§~¼-ƒâµ: ðû»"Îÿ…fÈ,ÝQrúy!̥Ĥž7 ¯)ò9ØÒLªò•Kº%f (%Y~HÞ1µïz5&p3F3øl;Ò ¤ #sòÂñŒÌ:5D—üA˜ß]ÀБºmˆó|¹/úZ:ûøHéU€ô†I·àS†ãÖ¥kÎfHœ<ƒót6ºÛ ÀcØâ_ÑÕ®ÎìBT”0‹LÕ Ýu¢gœ€²:$°x YvŽ Y
õŽšñyiO:Ú‚,[ñfÏùvIVè^¯¼›d¡™6ðž™j`òàìZxÍî…à€2|ÀA† ¡p»Ï±ó}ÿÊFµÞ‡"V[Z‰¹*ë>íˆW[ÛÈF=䜙4t/.Û>>¾ûƒä²f:—B²qjÌ›[™fa_m Ígð°\²Nÿ+Ũvy]JlÒÖë9¥ øNL¨°ÜâÅÌøhÝÉ5s}/Î ž_†`˜º3šñÖÌé¾úsîøœ-žkòJ zÚÛCó_]:å%^¬L¶ê±„¡WUGÐB•ÊLfxëG[– 6¤!TâÝ–Vî/³!ƒ'ÁbžfCl#A£îi6„ç©!rm`C1 šÿù1,.ƒß ¥^s
Âl:hIRggƒÎ
Öåƒå
#VçZüòÎȽ
+ÅŽÁ¥«s”OæéjA+øFðozº[°räÖ„±x-® ?#µÎŽ×|¶qáà¼HyâQ/ó ™¾Øqƒ@©Cp ÞºŽöÀÉF.ÃÓW‹5°däñ1&óWÄaY/ñ^Ô#µë/¸˜Œ^g"û†øî~E‹ìÕïñÐ$sÅ‹×ðV€VF¨dâ}¡Ì€ÂåRƒs³¶Óãµ\ù~øn©.´³>· ÏsÓúܶÅ??Vèl‰Æ^¬hq«c÷ÕMb ¼Ç†„VLêGÏOí0Uãn·kÚm¼²–°}“íª°Ô`§Œµ½‰ØîÀ)h+ؽ±§†˜5ƒ/Í f¬!3‘^ü‚€¤„õâ—Ã=ÎáŸé¡Êemwí' Io«B8ÒGŸ×N–U îüð-'ðG^˜²¥r*Æ° óŠQ`i
rKyWíé DòÕãMøn
ŸÈ•…?ÈE|ŒG
ÚY?¾ÕÊ<©Â°§mXmÅx_ïL´2 3Ö)@ ´ Þ3cj^¹GÏ a`xNÖªÝvÙjit1Õ×ÁV»$Š]s3&ƒ%;&ؽ † ƒ?ñf Ö¿4S¶ò®€‡„M¸‘ÞÏå››U›ŸÝæë ³ÏãGçaì6l<„O“6ðEPGËÿ*_mðÓ_?…Ô~*¢¿Ÿü¶Ó˜Dv‡u)TþŠözW—µ¶oDZøË×~jO "%RÓFa/@Àp”cèå
öÝ)¼ø²#ø¯Vkï@Ùƒƒæè§Õ`R ¯¥6º:™ÞeÀ7ªô:Üm•/æ$NïgZ¿ YÖ9 Ôýü¼Y·çµfˆøRróF^>
stream
xÚ½\[o\·~×¯Ø†Û ÍûE_ yµQ„êyµv•§ iPØúÒþýÎœ•ÈòìÑ*(ŸìJ3Cr8—o†‡Ò«ûÿžéÕý/ð¸€ÿ8ûpö~WƯî=3+
ÿ™•«‚Ê)î¿ýéQký8=·øxÀÇ9>>âã Wõ·?Ö¯·ø¸üîþŸU®±^9ë…ð5>îðqS »*⪒œ×á¯*Çíá ÖÚî ÓD7•ûKýº‘"RQFg!â
>~ªëÎÌ£¼³Bì¶Îâ>>·¯„»xeµä>¯Jº8$÷¶?X¬ q„ ¶ÛkBÙ–×fô¶Ž¸®½!Ûk´r. aókü^+í Ú$b9´Cã`fÖ©˜ 3ăi„¤¬ä¹ [Ôl÷¼Mˆ) 7S„œfÖÌnëtˆ ëP¹/gK)‹ã”m‚ÛÊxYG܈·)ªT:rQ†_#ˆ®«é^v¬ûš$lu*re ÍÙ%åå6ÝÖ±n*ߣ¶†°F¯LsO4öåºlU~Ýz½.ªœ¼^Ç׋,Sp&öoŒ ñÇ:ó]]±j¥îÒÖÁbÆ;F¹£Ë£ÒKVÁ8ÁóCY¾2¹ß/è'ßÿ¥r<ˆ0a‹U%GÁóÐkN'U¤†–D•® {°¥,µ÷nE“øI´‚²câ1‚G¹¹U#Ý°ëõÚ«â¥z6uw :i/Õ»3'»‡6îK!TÁG®k òCO—&iU¢Þ
z§ ì9šxñrj篃Ö{åA/\ì‹3KÖ]9uØ´mÁF¤®n+5>Æç³ o;¾¦ñ³ùíÏÒ…¨3Ä¥Úw 7«¿ºäqo ø³0hŠ)a`[ŠŸ œ+)…ç4H@ƒ´c À•’c‹ÿ[±o&å!Ûqž/4P'„™ûâÏ`{¬+ÎY7ƒ¸¥e}Ô/"Øs‰Bb)E˜j–*i›úÀ±NI’|W]øQ›D“˜j23‹{e¾rÑtø\yΩ/€
D©šT1¹{ŠŒ¶f
ï!}AE ÀÂ'οããüc<Ñ{jö°gÆÏìB{ð †h<,¨¿s× ƒÙTÇ—± âY4BÞŸi®Z $b¶ÓCü
]Q«Ï*gIK«IŠÇ!ˆD/ç8-íŽR"*ð‚rMcn³®
ÇýÑXÁ-p0I]ÒXôq ù› ·¯‡¢©½Û¢²—+ Eç2¶ôUÖI!÷1- ŠàËÊùT%3ª‡ƒ {{z”“£6çÿTùvt#DiࣛÍ
££9P‚"Á 92dPUÐ^PžW¸¦Ž¥÷i‹‘Ó f9#È0¹húïEë1åÉ…
weŽÇdR²íOôŽ·…J²‹—Tü>h3òAƼŸÓ€ty†ä]< œ½Åk矾'þsšŽžÐ “3rOLGaof
‡)ÕIói¨—•#7‹©‡m/v‘ý¢·3ð–/r`(EK“00lÉ’ò’F‘–@G±[ @ìÃä `M &Áù‚f#ª0ªä–urÀ‹:Â4á$es_8« o;õ‡U)Jî]©¨ðñþlÚoÙnõíÌcŠŸ>}úìáÓž?ývöëôÍ€3É?q<ûZ¿•ôÌ×¾!ïÔA7²q‰MØr·a¾üä‹Ó†ÊÎgDèT„wBÇ&&eL”#c¦æŸ”Üàí ?Rõ*É1†ñ¼(‡…&#oͲ]+nf Âbï¢;²UD;˜Ýæ'ý~í¨êÿk¬¸Bµ›âèûŠ»M§_ù‡îv: •ñRéçÕynhH*Y9núÍ ®Ð¡¯¦åZ O,K÷ÕþïúC\Qg|àýO_äzz þ¤cí &Ç!€Ðèè¿Eƒ~ðJclóPGÊÊFI>ߌz²Œ§ÿ[žSÚz!±éëZúŽÓñç‘°Ú:¯rHK—‡õ…¶’|ª–¦ÊQï—Çã½ÔÈÝoV°µ,Ncˆm€o iw"¤9 u™·KWæÀº’±}Á_X ¦n†çUN0ò:Ï &˜Ïèš;în«áò´‰AO/ •+r‚áåp]¢p%¾º:Ú^‚z«ä$xÚê·)!fÌQðtN#ržº;ÝÝѦ-´MšÀXwZò„tBNÅ òfÐKPœhMtÒ àD€y;ªèG§æ€! q1ƒR ԉVPŸv ‹¸ â5¶~ßM2¨V
EÎÊ7¶Øã
3í {F!v°·Î[§¸xÖH§ ï%Ûî õ>¹7Jt;ÊTšr"ê ðK€dœfYëÇ$lÆÊiœ´ãÖÄ©³Ë…w•e‹¥´ûéšú)ÕOoèŠþÊçý굆¬lðbB¥²÷šVðo*7»@¨$_î²ír ÆØ4ÆJŸóÍ]¯@Žo qžÁõ
<¾÷1 ò+„®k¹è BÔ"ŽÁ‚éòHL‚ïdX€ç).
y/@xÓ©#¡ó21 ¼ ±5·¢òŒ—¹¦Õ »a¹¦ý+X äv.bt¸ä ÞA6}ÿãt¬#|ÁNÉþ8²~nO3wÂkbÅp1iéݯþ»ñfoÍTæð†ŸŸ^ÅgÔ£v…óÓ‹\Œza‹·'$óⳘT¦®7cŸy×c]´.ZÈÅrêÛ0`çE˜Æñ*
¾ˆ¯)x ĤÉÔKáÌ»Áí*›•ŸQäàn5Ú;Žs:øÂ7µð‰9‚½¨u‡é…4&¡Sƒà‹ÙY./Að d ³ÏT ¡L¯Ú2ÖQ’ðFµåÔ¯¨? žwsy#ÇçØ×ņ߽%›¢*Æp™ï:ç˜ú®×dµêÎfwjs¨O4®£Ž‡v]ÊÀmd5 ðÖµa Gëy@é¾ðq¶ô^jkb>t“5Þz ò’
°Ð»Ñt‰ÓçîD G´rÉSäÊ8©*Ä«®àoLë·#Cz(î#ð¦£ÚÀ€n}êí $Ü
°«EÙFïÁ§’³Ã1öц ÎYÇðÕ²°ÊQÅ’Ouñ™Ê7–CÁ³•%Ý4 j÷¾Õ*oØùð‡~Qh5XR.\®¬’ñÏË#O*’‡Š0F6‹AI_ªˆÿCÁø| ãiÖzõ½_ýòíàûôÕcªHðl&㌨aaõ_ëðŠã×Jß¾ÅÌ¿UÖzECÓXŠ—†&!ï3 žËúîù«×2™“¿ÝÛ¿¦ÞÑ9áÃŒÅøãSÚ jváúú7bvôý†NÜ î²åR‡MF«‚¤>
Þf<±ê ” ‹‘(Fþ‘.—^³4yú5=õ~®Ÿ®hø‘þ¬a¦çw¹
+¤A#Éy0¶x8ÈÛWî
TˆPPq©Ã¢#«Œ#„RŸXt ¢×‘ËZøG}²Wÿúe ¿”¤ðÏøPbÖòØvNNƒõ¶;× =ô¿£©ÒíÙ¿ÏPÌ7xFao·¶Oz
{Šçïâ™ç·³‡Õ¿@Öÿ ù¡«éendstream
endobj
327 0 obj
3664
endobj
330 0 obj
<>
stream
xÚÍÛn Çí]_¡‡4HÐx5÷K¼Ò‘d+°eëæT}2Ð…T }h¿äì9³KrfµçØ.‚ «³k’3ä ^fÔñÍÔñÍgxœÃÿ¿ ½¾9:Ù¨ãx|ó÷#}¬à?}¬?ö>
!êã›ç£ •Òÿùñæ 2H—«~ÆÇk|X|œàã±üËwøÓûëú ‘þŽ¬Ñj0٠¦Ò|] ÿ„<‘ü¾ŽS~ýyü—9õžӃö®Rþ >Þâã ×>¨!g#pN d¡ÿHàcx+à?àã’@&€LòžÎæ®ü¢2ƒKZ ðO•Ø Á,s{‚›úxÀÇÄŽ
°c[ ÷2dˆKìðì\·§õ±2u;
†«Êè›91k‘XÄîÆõª?ï+Ý÷=„Áy¹2ïR.ß •&*lS ²³kywÊ
ÙÆC§ë€Ûl\ý¾
ì¶Å L^3Oí€-´L~K¥qJçzNÍIhAâ—ºÖg-ê F[ah§RAUHxNíiS§}UÇ”“5 T8IbWÕKŒpÿþmûãÃù 77gL]]p`M¡ÍÖÙ¤rÔ®ìÑ~Σ2~ûWmÿºqŠ£¯Ÿ
EéZøšè°Ò0Ž UTdVÖ µ¯Ö¤b >·©ÿm ¸
·rÎ×UkîåqLƒO»•ÕÛ¿vËܾ›Ýwj¤ipNNù²Îá–€p³V.íû \Úš¢Ž
]cUBÌ~˜6¥íjžl4Û´a *ÐÕImóŒ@K:‰›¤UQàôtR„f‹ æÈ?¬ÛÏ,êsèÓÍlL.[ÎvÝ+± &b2qçg•+[/'Áœ_aO
)ªp Á‡Ñå¹8šÖwð;g7GVAɺ š
®çyú¡~y:B£co[解ß`AP=*~y«ÐÅ¥EÓúBhTƒØö$•v´àÍX‚9}ÙÍu‹1ÿ¢Š+}ÚÒؽáX käÙ˜9åÂ¥xÇßvåˆU&VÍù€7ÆÇôeGc‹1ƒ1yÎG}#|Ôq* •r™«x›ñQ)V\2F¶pÄ®oÖ“9N_v3ÚbP˜qÔ ñðQÇ©s©”Ë\ÅÛŒ«JqŽ;±ÓQÄ&ÛÒȹU0^áË8êŽÆøFø¨ãÔ¹TÊÔzvo3®*Å9î4Æh]ÔÖ2ŸuãKêÚ#µWÂG’>!Ÿ@ßRÓ_T>Úc,Ø ÔÈ5v"½ÄZ[‘š³FŸ¥5¯Õi¹ÂkôNZÝZÝ“+±F?ÚþºTX˜`‚ ©A%7å¿Öî}MϦäèŽîyqðnrB2 ¶:
>HÈÖî8+©3E 7ìÂŽÔäÒ‡!B AÂP©G3Dmd‰U=ÏC”±V.ÆðòÇC*çU%ô' ü¬½‹XÚ!’aSøâҌ΄URP¢È´ …=ë7jÎ\]7‡ìâºÙA- Y1é, Y6úWX`z‰kdU¼h‘vZ¼BI×_±þúŽö3›ÿ·Qxï´Px6á=å|(‡¨r31³ÙWÖLÌ8ÐZ¢‰C‚ü€MU)Ç9¯u¾FFñ€‰IÐYYc4°;E'°{9™MCôZ€¿œ“ÁžMˆ{äd&£c—¢_Úu¬Ø$q:¥ kø °Ä wnhL¨W ~Ð
¼«›Vëû*ŒM¯™‡ C{ÝÞ4wTP%Ô8†Áf?/´Ó~ímž5M²°ðŽVU© rœ{Z¾®?1Ë‹$´ Ž’d‹ÈY±ÈÐmÎÙRç˜=EÇfB2|C•ö´]Ñ2Ù5ë鑹IaMZú®>Êë¯Ku3 µ´RÎ è¾÷Ø
ÙïÔ$
5ÐuFª×’
að ö+´¤L„(& ¸䤵„<8îi ÙAÛ¸Nök#•þ 'üe±G›Oã7W±I@ÿ ;?á
#,ÕFÏeçòøA}1læ ±•&l bbÎÑïi7å
Ý-ZMD¬ƒJ: gÊ6d—øºXÄ Ø’ç3ٻٶí8è†mIK~2àh¦-¢iuO6†f¢6¦!ÛÎʜҵþDZb X¸4
02 ëB|¨‹sK“ø]ÇàìæÕ7,u`hüýT—Òߦåð=ä §ü~ª¿+Îöw¯ðP``Ûp³Î¿fm ¾YP1•";'òø
Ú=!‹^ O Øhu›PÒâ>Î…0# øÊØ ì,‚¿Ç*¥5D€— ‹9¬ÆF@žñ©ÑÛƒhÊ/I°s®ƒ†ÜXþ ZrÚùÛ„vâ Õpê‚¥¸g× gL 5òçK}hÞùꆼœgc® y9ÎW
y9ÙÙÆ,„V#´¨/$w µÛpË£=2ðµ1ohÆ7\Cô‰ž}¸¢³¼»DãôR:l:úΪ4Bq"sRÚ·TÅ&ÏÖ¯adx\ö™>Å´]|Ïãc-Á|Tº„J¾ªÁ ÕC,è–«·ªTa(ÆÁpZåÂTŽpÈÈÏ=eŸZ3\·3d ®Ã™±nˆÑîÅ™ñið)
#ƒ<0¥ÝË“Ž° «§œMÙæûSn´0¤kô(Ú ƒôL ¯ªA°#o â³é4Â;‰d ;Íè€RoÏÔ©œzáà× . “óœt{^—t9G9®LH%n
¿boÍ èÕšæ 3\y+eÞóWÀŒ\æ‹—»9òlž6”NhæÓÒ1óåÖ!‚rsðeOc, sœ–§Á£2ò 0-€¤§q%ðXÉ™±H1/v ÕžátSF;Ä`x÷”þ¬ÂØŒÃB€0É/Л¶”+èá%§ÂÚÕÁóÍ*Èá§Q®('§4æý[£ˆJÎxw«l m©Ùqð=#l±–,2jAt<ÇÐðT‘{9‰Bl Ѳ7mö#?l1b¸rñârä7;–ÔÝ· Ý^¹o1Èo{f§½i0ºñ™ô¶/` ·ÃÝ©5èi÷^–Á{>
stream
xÚ¥XKo7¾ï¯ØCá&¨Kóý8äbØrä¸PäH~ºhƒ".ÐKû÷;äJ³; ®šÈ0@“ëï›9CŽeÓÉþNy/\ïÊøÒY—öóoûy€Ù“ç_»ßkFN™ï96Žœ2Ï ÙoþÍ×îrÓ],TŸú
Hê%ü¨~vVø úÍK÷f'¥Ty¸ÏÃc Þça'{»ùDÈJDR"…Ä„ìÞ¢”m& ðZ‘¼aøkªôáèÌQŒór
ûa0TµIXÇõ= k+œ-ŠzÂNXËC4ØXˆCTªÀê$…5<*ŸP×6wèÀ
.Sý<) ó¼¹+ÆQ^¢ÃWy¸ "¦ÕT§2à¯6BMx ¤É0Ð=Y/Rb˜çF ŠQ» a §ŠÛ1ÆýŠí•ŠQX¯pÞÓƒhà`x÷yø)†žA#’Q ¾B7F×ÎÐÀÅŒnï@˜eŠœ5 ÏG”³FaDŽ‘ª)§boqù@—Vq6OZc`3e<¢ç O7Uáa ¥n«xÍBço¸I ;'b9EJ š!î‰'p€™ÀwtÒ×hà¿ZE¦¤ŒRDÌ]\¨ƒÊ"ƒÏœR'ÅfŸ*ø’´ÂågzŽné‘×"EÏ„ Äa6B ¬ˆÒЈ]Ñ»é¹6-ã¾ËÃe C .Êyƒ±ñãú×ÿìpy‰ìsÌ×w†è2ûeø --ËÖèÕGôª ¢biTräüÉã²Øös3´Æ%ÚFl¨Ö+¤æƯ´{’:i½„È|OšÔnÿÛÒÖɈ b
?Ÿ;ï+šZ÷G€ ŠLÿä©AÐàŽ´ ]=Ï–¨ï \Û#6c…‰º–:S@ ”=ÇÑ'Õa y8—í'·…§}îf*ôê.i“Š"¤Ø ï3Îîh xM¿Ýá–
YîlÉÒ‘[Žä§JÎ^¹+R
˜Ô¹]Gcîô(ú´]qÐ5J_Ëz }ê¤m¥[
íµ‰5yfKM
©¼@ÓŸhNquV»ò$lÙú„7ƧQ;^PÖÝß]ó£/ÿ rÒNf²ŽqXˆçk÷Øÿ²þÞendstream
endobj
336 0 obj
1045
endobj
339 0 obj
<>
stream
xÚµZKo7¾ëWì¡
eø~ =Š_PÛ‘e§ð-@q‹öÐüýÎìZÜ )íÊ-3Zù›ápÞõì¶ßV²Û~„å ~>¯~Ù®ÞœÉÎÀ—ŸVª“ðOuÖuÖ+¡ï¶O« ¥”?ârƒË—{\Ö¸üš—M†\áò(Ux½ý=3U!‰dã\Þgª»Ìø|O£g`<×™ê|ŠÆcé@ýv¸\ãr‹Ë‡bcz/|`lzu¼ëyMÑZšoºÎç¹È»Ü“cI8Vbt—YÄ»âX&‚ô¸|‡‹!Ò+€qôh½Y¨WYÐ3z6ô–4ue€£u •9†LÓ³Ý!œ6ršqŸuv‰û,9±Š^¤h‹Ñhgù\Ù—.˜(Zk%1>-sš pÃà£]Æ`è ;àI:XpÝPßû6k`“O³À¸½³ºÛÈJýƒÈá×~þp{^± ‚QËï³Î&~Çt¢BTXP?>f¢‚O`}ß N/Dq
c>2M£¡ž5ƒ¿¢ ²;ànÚ;‘ Úp<”Nœ,—÷xÀƒr»4²€1Z$êBòT`œVqµ,Êû"R÷FÄú©ÞH©‡¼ }ŠiKt,Ín¡b¿õõ}ú¿¢N'Eò‰ÁGu½¥Õën‚£ZÒ1f;MKõÂ*]¦TŒã’c+ª¤êSa o©mòžÁ_®> xñ‰Ú#Äÿ…ò(Ãcº£è£ù » ,œÝ My¯"ãO  ªOIÙ|ž&@ˆ-çKô(çØ2Ýå½É]UqžÃËxiNµ(¥–1ï¼9ݸ *\òŒw˺Jc+ÑÇ‹Í䯒°b^‹ÝOà[PßeYjY88a½aðÿÅÄдËèO51¥–niŸ”pR3>Í`õƒõ x3Ñè6ƒ¿<ÑÁHà ¨4J=ÄÅœ¡‹jN §¯¦âèÙ2øŒ@€m¤g„µ@ÐTÁ· (ô˜
P3ä ø‹«D1c« EÐfiÇ
™‚eÔÍŽR}Ò‘á—´ÜRŠè5cÑl¹µ€úV¢—tÜ) ˆ¢’ü†Ûx Ä\Ú£žga<–kª=w+W7Û8®ºÈÐ/Ÿ» 7Òùgjx)” Tq êC^Æ¢ý¶´\Ð,p+•¢ˆ– ج¬8²0ô·ÂPð\m39p §ù‰g4è dEUIR·¡.ee’ƒR‰ªD/r®Ì+(¡½ª» ɽ&aL]ÜÒf`“Ô\K[!`8÷ݘç
3_³» kV r®5÷i )U¦øñ§âÀP[Rä4ï²Î*qã¡ an+hZWv/,ƒŸd^m0 ŒÙ®âÿãÅeáõ`š‚Å-ˆãîóµ•VLÑÒ3«Ÿ‡†Q«¤nV¿(ñ*µ„/*~ІÈX4ï|aº šÁg ‹ûXFØÈÚ a¨ð† i¼}7žÁgûQýú † ÃÏzAµûP7¥ÁÅ R,PLPI»¹Æ0XyU: Ó7¶è´É>ïé;„ñÓ6Ÿ{“Õ°¡)kW„yÉ{]ך–¶ïg ôØ|ÞO®:K?% F‰Æà@¡Ç®HØ} t‡Æ«œÊRŒ%úŒvØ—YWü
³ ÞƼ]ø |Éaf›c˜¥À^¿žZññu=Ø• ¦y_1z+QÆÐ×™‚dC•9_—q·•«%zÊ‚ëmý’ Ø~é5ŒŽ¶¿¡ðfŽ? þÄåœëO
ŒEÓª’ëÏ2†crÍó, Y¬B\fe«`„µÌYîh}°Ç¸l^Ð
/¤hk@]VnÚ{GwêT•á{cCÉaf0Ê! ânx<ð
Šgr5 ïð5TžëG¥ÁR\áEëÐä=è4'½Ýf>²ûÉv Ÿ&Ïýã_“/œs"¸%ŒSý/ò§ -»í·®ÿCƒ7—º[ÿ¹º0–+°…Q©ØõW
¡¿½ª}{¾Âë#缈ÚvOý“w±úºÂAŒ>í‘_W_VŸV&ù ->MДÓd—$åIZõÿáEP/gåû,§œÈ9ò£’
O’É)'rNДÓd—g9'”r‚¤\¦; tª;‡Ÿç¿ýP] ûa¤ ãºDiZ¾ü¾OÐ~J £¤€‚—<
ñÃïóÁïnzg‘ý ¼{ëäO²—y@ìŸGÄžæËê¾ûxý ˜Mx±endstream
endobj
340 0 obj
1678
endobj
350 0 obj
<>
stream
xÚ¥[[o[¹~÷¯ÐÃ"ÛÝÞ ô©°-Û1ÖwÉIó¶Àî¢H
´íÛþÀÎP2棣EµRðqHçòÍ6«çÿž™Õó/ð±†ÿÿvö·ç³÷—f5®ž=³+ÿ³+ëã*Æ<¤Ñ®ž¿žýé³1ö?~þGE‚ yXñã
?îñã?>ÖC!mlÊØsüxÀÏŸÑÎØ!+ðOøñÒ&¬ÓܶY_ñcCäø<À
…œMD¶¡r ˆˆT`)RDE^äX†P$r‹ Út%%{]17m•MÎgã,ÑëîLB$ÃG‰n(Å Ð#%‹˜—e‡[`†,GO;¿¢§;î6Íà3›¶£²iïÈðÔFÖÙvÐÿ¶ÿò¸>Øk…HàGnS߶o›¶’ºÄ»ö1AnÈm†
f1AO ÞÜ ¸ª20⹿úp,È6s„§2:+Äö”ïP r½¨0µg?æ]Vá0W†$*ö‡ !Œ9Ë* ¤Ö(¥O¬Â åÁr°¿gÞÉB ÕA`õÁQÕ]ÐRˆØ…’ªØ$öøpÒ ÔRG ‘…µg<"_¼$‚ì Ë©eÖìjü± Ò—Q‘Ù2B`HºÄknô!K$åÔ6ÔZ‡ƒÞ5í¼R‡» ÛLíBB¢»ûØ<"y*r‘Gã\)ÀϤf×mÌ ½¦™ÓUš j‘òväc™×¢(NªzÓ–°¥µ òú%gèG¬a$ÒSåÞÑ* BôpbÌT!¯Û¹ÞM$š$^$ANûsÓf•óIh«º†5ò(©
‡4dà“ Ùóõd‡T¤àž¯g?/Чðg`h\Lç×ÎâÊäFÆ^^€'ó=K‹iðY*ãžù*u²<8Ę ¹B` Ê.Ž\ÐkÜË; N.Uq2 DwdÈ+JZ>P'2ƒfn›)¹²¨uO½Ä€_‡ÎN9iõÎ.µÖ 5™MR…—Ë#j€˜cLž™ñ\æOP…/Yòä×N ª5B ácº>X›³€/oBYç²z®<°XŽî10YD
?ɱ Ê@5ÄE\Ò\×S+@8j5l ¹za²iii£–#$Þp›¶X,TC¨% £ä±‚=-+O´¥xI;UÔ\@?AYà-å2ô€®Û·ËYæÈÕᲯTžÏ65 nÚÇA)¥Z(Ôæ8Œª%p!²úA,ˆÖ)ÖN ~©$¢~Њ † ë^¾PÃ8NÇQ£x~LöVöÐ
G‰<¡‰VûöÉ
²‰†L»Í ¹ì¾C!vµÕM)±IjÈÞ Ö €`
ø)Á©S]ŒZ@éï¤Ú)(N`6Š h1ÖÂ`«>nÚÁ@¸1¹c4þ±¿ôX‚ …‡Ÿ@Dª×ÄQ:ø‹Réb‹8 øK¦
ð_ `cŒ”ûG_+HYâ¢.Ž;nÎÑS®¹£¡ïÓ\ òqÍ LØTàõÃ…Z8`‡ƒ“×cCÅíⶪ£ï‹`>ÀÁE§Ÿó†&Ë{ÅøCm"÷ÏDr_°º´KÏ1@1VC</¬O¹4lÏux®[<»÷²t~ìw–œÄ˜ Æ€y yvµ|G#ôy£ 4öa{J\ÆÅÔd•}BuQq§–sN-çjZÄÞ„/žÏª’Ü¿ž…Xöß¿ì¿gø¶Cà·ßÏ~¿\}`±Ãï¾Ù{üîâë3+›nž]wÙfÖÛƒ; õ® 6ÆÇ"„ô:w#ÞH ô{Ê”~lŠgìnG rÌ[ªð)ã½v®´Â¸s~&lÓþHû9kqÝ8Ê¥(µÎõö˜#_i £´K‚QªIÒ X’DNôv¶ŽÁì2f1zbÈ“oh|Ú;‹v<ãF\£KC¹Ö©V0¥¯q ëõí²H¶wÌE;䃋§o¿Ë´.9 ݾ˜„÷j3>u‡/©Í~2ƒ Ÿsª7føŠÌ~ãÛ!lõ‚Ûp½=#'urÆÞ}„M(9ú¤Þ¡ÃkÅQÈP.lá¬ÜÊ\§ …"¥/,0‘m¥(§TÞ(OŠâz/BÌFbü„ÓûXï·ú3*åC„g嘹n7ÖèÈ»ù˜s™# ÈÌŠ¶Ž^HB
?˜ OÚ
& A9¦‰ÙvVßMÿœ·= Ù+mŽì†WŸ pø̵>"áðÓîÝÀ¢ÐÑ™ŒÃÐ* Ä,Û}Þæ 4/@\1Ù$:å}Ðl7Êyº½ 7¸8
x/,[àf!ø²ç ø¸‚+
“X±îPÃA/›¢ðH¦=(‚¨L}ŠÎáZ'Ç”Ö^§…¸'„¯Úƒ mè›Á+!6×`-´Â…‘Ô.u L‚é2öu J:ý#»M§ÅɹJò£…œ®åÔZ†£Oz°T,;9£h±ãî"
dåÜ̦,@»ò•[RJE /õ˜Ç¥%G¯OT-ÞŤ,7qÕ”µ¥µµˆ”8‰ÑÝZ(kkfׄOôz}«æà¤È9úNÐCÊAVÀνô1
6ê;”4ì;[/—6×NÃìk×M„Õ9°~;.U7fçd€ßÒÔzKÿ,`z(s.#>š{è¦Æ™B¶PÉòѽ–$F84,ŸÓãÛxuÌt3y/þÌ#$}YÚÓi¨´‚@Á\} +ÚýÚêñ Ÿ |âr'¦xC{½ä-„A‘™Ëìźݽšïô|ŒPqp)½R ØFo…³,¡˜Úbãºp7ø$Î,µÔèiŒ‚rA¢ï” ãw¬;Òö‡„œX>xrÍ1
=úüܬ ×}ãgð@mIÁñ1ÿ³¡è%µ¸òÃÙ¿j|û
Ÿ) ƒE¾™êr;ÄÛï ñ6æ÷³íêŸ ëÿðR0endstream
endobj
351 0 obj
3012
endobj
357 0 obj
<>
stream
xÚÕ[Y ¹
~Ÿ_Ñïn”u H€ FϹ÷Üc{çmÍ"°ä)?¤º[*’ªêê¿, —§Ê )Š¤(’Ò¨ÕÃÿNÔêáWxœÃß|x8y¦W>þv¢W
þÀ›õ+ïÓà´Y=|;ùñE)õ¢Løéá߀V«LÀÞpˆº‚ÿŠK„WTPƒ‹Y _^ðy‡O ãà’€ŸWô|ÜâcS¿+ä¢ü4fhL¼Ò‚ã3>~.4îìà²ð³:Ø
>î« •å“ ð1‚ÏŸñqU ËDžÇ„Vþ“„¶N´ˆò‘ÐX5äèûs,4sÌAÊv‰k:³¥#¡E{:©ÎÛ:ÔçÊåª~“ú±9 ÙMˆ|7F:Hë—Ð=d“û TÄz¬“;k#Öÿxy!îˆNî„+ÜR%_×oí§+Â
&íU §|QëÁ ð=s„úzÕqæ4(-gpÙ¦LàA/-ú!g×nCí~I|CÜ@£çFÁ§ ?U-Î)½Ù%©§-œ ½rÀq(’k%M”Dmõ~¦ŽÕ ã†ò]4ÕÛhjWi M²%ìzqC'êlç;R·Ä”T‡¢† C}ó—ñçÏ•ý“@ßS[^Wh³ê5,!?«”ÇiUÓz´àöô]ÅXkF1»ÏU»u#™ºšB°‚ÓQ2VÅ|¬KîI ÀÒ_vÆ¿Ï› ÿ…èðÓ3Ò½¤ºn> '`;QÓg3ù Í_‚ t’*y•¿$Øz¢´ÌÑ óXõsÓ÷˜âÍ%ß÷ì6ë<2 ò+œ‡“î…~ªÚÙй]'è‹A9y)Ö9¥®ÚlÜ‹ä?÷%Ž ñ¤¼nPAªýUšsWÍß5¤U i°©U_ZjÐÒª¾7˜ØåðFofP1®×rQmUÎÌÃ?Ôo÷ !ö[÷xÝ¢ÞÇ!Ì/™í4zU—³ Y > '«.cT]e 9]uAvã%þ-eW LG‚ɲKƒ#ko1°ùJK¸Îkp,¢lh¦¡Pñ‚cÙßÕG‹´§4/uƒ7¶/~§¢‚Ùªœ|QE¡R‡(h®¨b÷%&•MiH6/5ÃåoŒ€Ï… g@}ÚôýéUE˜ƒ4x2Ô53¥Œ†•ž¡Šæd,«ðå ú?ƒ¯›û‰ˆ¤PaÉŽ©]Ï h*;-Xvª4—!»ô9—c˜ˆEq4¯³¶(²ÇÚÄ‚SdAô~:EÝkj_2u§Ê,pZ5 8,ç-ÝÖÕ|!Ñ¡$‹‰E£³-u-‡ (Þ{ûŒ±¦;òË´´¼¨
GM‘¹y,cÆâ ´ú‡ª%ºm]L§Šc;76õ$çk±oÜOd¸®6úØßnJ Áå¾yhô3€´Éº:—te܈>‚ñ‚Å]'ûBcÀó\##㲚`{IC2 •Dö¶—#䉺o Ò+q6 )…Åþ«Ëæ( ç—NŠ7Õ KÛžçsÄšyfxy9¢M°9Z’ùÁßÀ[m¡ƒ»žE<ÂÇ;Ø[{ãÕ¦A׆›pKA7 غ]œñáñë>Ä
V
ÆêË¥ð°Òæ}ó@Ý´½¸
c+Z$Sfõ‚‡ÍÈp£½‘†Vµµ–`»Õý5Ýwý`:àÒÌ`'¨3 Hx›v™cºØ»Xoˆéú ºî°7uœñ¶Á´nuÜΘ´WÏ_ªé>Ô×í®¤Û¾šöÝØïni1ªõÆ(f·¾/1{ÌôN¦¼ÊXÈœía¯b8–·rè¼ë7b”Þ÷¹;ÔëøHÈi²Ñ”±§'…RÁnVßNœÏû—¯»{þ× l÷òûÉoåƒñ±Ñí^¾î^R£«/H·;²YIyжµæu•þy´AXßO !¯ÃóIÎ$Nåuàý¾Y<á‡j…+ n\Ò‚ºtÏTÓ§Õ;ŒÁƒjœ`öTo'ég(E9•e¥Úö@9òS ¬“™T²_NÓÉÆ°ì yA+àÓ–ÓÐ]
—uëI4
²T S
9ý
µ#Í4”/ÒQ&Š Ì´&UÐÏŸ0K C§;ãðqJóãN'Fc|4‚ýºw-+Gg¯œ fÍ¿[êšh¢ ™êý$SNè—ÏŸfþ¾˜…/覶 T'’ƒl#Z(£ÊúeH.z rá_ÏÞ-§
à¤O̓tvâz!ÝQ¡ŸpÙàpƒ—ÌÕAx/Ä£W@CÕç©,ª]ÖÙÓ?MÊR9!ætÞŠÆÀ•ò ~õ]ÂV˜ Ê7 òL?ãÒvÄ\é¤ Ÿü¦bñ èÑr£¶åy'à‡N¨á «}¼;a+ÜÉ€€ÆKø17 ’Æf(ç }Ï€hY4tRgsƒéP/H Ú’ÆV½ul7^úIëƒ8§ zFOd¸§Öÿ¢Ž|CÎ&2ï°a³3Œ3#bY›‡µ:‘M^C€M*Ðõ1í·0˜(Ç™l¿ð (à>Ž[¤qNÀñqƒ®ÐÑÄ”ã1u– ã㸪²T½Üà4ž0HÑÖi ¥É.Ø ƒ3‚ú˜Å€Ù’–†‹þߘƒ8u‡ÖRG3‹aºÕ¬a›¶ÑˆÁºfG|W•p߉àÝ’Nļ[°:CY•å`o¬±‡^;[²é[.X1èQž 1ª3ßKz‹ŠÝK0¬=¤£VX€ÏCþÝ•râÔ
; Ê NóÊS0N©/ð ÷R<}]85Ìåär ~À©+9Dã`¥òe¸øq´^çå. ¹?6q9Ýþ¢Á3½B»ÿ¼`+ŽU¦JQ õ:s¡[g {‚Ï ?iˆyZ‘;w~:& ؆¶%ÿ@{ãs•.öÆK„`,¦J*¥¶Áïk9|JƒÀSç.‡¨ó¬ kq•Uê0R0š5½.2¾Ýƒg¶ ÞZ…”;¬/¼™ÉáÍèkÚTœí$Xœ^_R# $úèt=Í.‹~ë]ÁàˆdS¼œäÌo*
umìE¸dþ’ÞÝôŽî\¹+®ûâ^ŠhIÐßmgà Ì:-ð|t 5¤—Qà䑘†„?i‰|žîãa6ÝxÓq£óNÄ€ø“ [êò8Ÿ»ƒº4I¶!ïë$ŸèÑá Mžä ŸU x»¾PrÍáih‚DŠÃÛÕëÅËiö ®8 >c³.B0C(Ö¿&öà'úû Ùâ°ÇîYtDÞ2¬½ûå rž;»g<Ø/O}U ;
ër‡UkÞLïå6H
üif/Typ1,ûÍ!G "•™<<Á €¿ŽÃákq7#êß¾ZÚ65ª4›8Ó£)O1LéCq–2ó*÷u’ N6P±Eïü@É?»X¡€ ³ê¯Uš]ª û½WªwËž¿;¸ò
‰éú=«®VDD©»ÐìzCwÙfá³éu ì½ ¯šFéí›.L1îK1ô[®~”{õ‰°ë{1Íz1à ‘´a<1R ºŸ0wiaæYú1cuüÍ <ÂÝqT«¿¹Õ¯ßFïåÕù>
stream
xÚå[[o\·~×¯Ø Eê
Ãû%…¼+«Be]WN”§ iPÄúÔ¿ß!×"ÏÌgÏѪ(ÚÀð±wñÍp8g®ä¬ÜÜÿëLnî†ÇþþíìÏ÷gßmÕFÁ—¿œ©„?ðɸsQX¥7÷ŸÏÞ=K)Ÿ¥‘ßÜÿ Ðr“Ø™öAU°Ë‹üø˜ ·ùñ©|—YTʘå>?þ Z‘’eð»üxÊ÷ùq WùñØøäÇbf¹Ä
ª
ûá½6ÚŲÐ\ˆ ^Dz~®ÿÝc%=K
Ö›Èlâ=R¥×Â3TÑÎ_óãë]‰ÈÀE‹7Uº‹*"&_¯ë¬¶–oª({?¯k7¥lÊèÚ¦6<1M56Mm…4©ßÕµÎñ^ˆmá¤bäƒw®¼óä|±ÎÊwØHµ³ñ÷XÙ 52š ð:ØZÁŠqš •êª@¦|Œ
®ï‹Jý€5ÀmÅ€•¤”ø+›õ ¸ë5ïü¦þ`SGä×/Y¨NZè/º²XW:…¾ÖîÀXÇ5a?V9ÙÛ2Þvþ*c¿•B¦œ–² +;¥‚ÕlpÂ+SIþ„#Õ¾.~wqÃ߯ÔÂÍ8Ž¼ Œ‘Áÿ _—‚;/¢bè&ÐûêÍ!žŸq ÂH¾â]%ÚVË- /¹]80x.EIk78O)!_ËWø5õŠ)£¼Pq û¼áÁÂb
_ú¦I:uˆË*ÌmexáS¦VCÄTž1ý 3½¨»/—h‚±¹ø‘¡²ø¾nÿ`)ø;¡c`4+a;Ê3ë dSê/A+#b‡hÏb\Z».îð¯
¯£šoì·‹lO8´Y‰„Â?Ö óÈ–÷ÂC0 4Wó ŽÃ $‹KéE°\ —6Y|Ok\:Ûz„Š“òXáÒö¨|<¦¦«š·µ'M9.ê“œx‰õˆa×Ѧ ¼åä\ÍGÆ Â0då½…·¬³¯ÛÿÔi `ÛÑõ©_»ý ds©²H8è&¨+-#< TgÉA¨|ÛÉyšLC„—†Q¯‰ðNÂFcq<Ä €šcµ‘ä’Ÿd°¥`[L"jÃ@·dƒˆÒ3ЊP£`K:ðu†=h.0ø Ôh呵 ¾&Öä¬;šXS>D-‚âzêÔ ’vK‚\c]^}.V‹¬ùÚ§ªË™ºßZ¥…²‘åán{šÁ(¹¾ÃöøÔ ¹=MÉ3òÙîPæNÏÌÐ`C€´aC`ðòzýÊ7o‚HN1ü#n>?UKØŽ[…¢)9ŸO• ÷E»ºî÷®>®ñ2$K Ѥ!œ~}üÌF¶TùÜ┼¯ß=4v/òï*é‡*èSÝÁ¾k89¶êÄUDœ¥«VƒÁýwÕ:—ZoÝŽã~lzÛ¬Ò¶•Â©c'Àµ@Ûóÿ‡ñ —³íM/;´¦ìŒ¡`}WÅÂgM+ ƒs×ÏÉ Þ&Cîy›tIû]dïÖRrbè“;ŸÜÀP¦ôâ¦
+É9çíؤë¨â ž¶´5Ô
¦;\s<‘:Ehc„ÓŠ1›¶# {‘ŽØ‹ Û `çu% %_Râiº% … +ñ(þµ% ¤aÎç(ö¼ ¶››É}Á ÅJ„>qMuZ©$…Œ–!—Õ)ùŒÈA/×]çø “…˜À‰G}q~ó°/mßê,*Ha–1íW4Æí1ßPØp$ÇRÔñ {„â÷hç½ ªÐØO£jFÕ öª¾_WÁï:×*å0*1"b¡Ü(’*—š”.Õ!‡Pãe;^ÙvŽmr:iÂIsÐxwwÚ+vÃ]sˆ á;û›r0
ÊîhŽéhš7䎮”Íú éQ¸‘Ñ´»æVOo»4=÷>ö¾Å½ ]\ºµ ½Ó ~ZÊ6 :KÑ,ª™TÈ'¿ŽÑ ë—Í`flP ߀¨ Ê%…ŸcPÖ ô¡ª©J\’=|TKXY1¦+wñh‹.c”åUw+E ـ˧`ü¤âÔUG)ÓÕwÊiÄ`àõ5ïõüæ^ÏDžhî´Rt
}Ë–±u@\ã'ŽV+cEÔh¶ZýÚ@ÃÒÁLæÆ‘³¯P·C·IáG*«ãö
Mï”ßÀ^ jÞ^ xÍ,„!Ý‘ §!b5-<íÙ¯uV8c&R
•Pø7c3É×Ôνâ×!”òȯC(üÕ¿¡Œ:Ã/Εªn©„A RŸµsS+¹–VGíh}ß hÖö?ùÓ²Ôâð÷þ¾2’›oíæçÏ“Ï壅V5¿q{ "Â^–ƒ¹/_üV¿ðÐóýVñí“ôS%ýõì—Ão¯$~ 6Ff&ÐÄ%t$â¦g Ó]/|Ý„|÷ðÇÛ|¤Oø¶ËµK<¡µ[ÀÒäñ*(tÏÑ„ÄBåúa;ÿ&OgÊet¦éãPÂKrâMï^¢Ö”npDgó<{g¾VÆwçR8Ž¾&¯õœôm/1œÔúh@`—üëÍk ”c ÂpxÀª f¡àÁ\¤…ÚT;KÑKÆ"ÁÇoÎþy–ù|†§·ÙóòqRûŸ,¾x@¼|nˆš_Ïö› ¯Ø(†œendstream
endobj
362 0 obj
2414
endobj
365 0 obj
<>
stream
xÚå]o#Çí]¿Bi$sóýôé “ì;#¶eKö%îS€$(î
´/ýû%WÒ쒜ծÜä!(·öÊ$‡ÃorFzùøŸ…^>þ
üÿuñîqñvm–>üea–þÁ› ˲òÆ. ¿,¾~ÑZ¿hç¿yü@ëe!ÀÁuÀ1™
ü>nñq…>vˆ]‘RT)Xø„ "/Fíø¾â¬êoѧ¬/q‹ki*%ÍåȺ¤Rƒpćîö
¸’M{vøø„|¬ë ^´I„T±ÊÚ,Hu"Ø!v°¨;³èS}t‹Þãã!á¬Jn®TœOÊg©ÖëºÂí`[¶“Óûž÷ú·
!š3° E½«àU¥ûºÐSý¬ƒ{y’ôN+_¤6Ö•—gÊP'Öï´Ò wð bû>Î2ᘔâàcc`×MžÁOÌÁEí2]Ôš¬œŽmZŸ*2¸x8jÆVA<ÔÇ-]jEMg[íç„Þ!ýÐYÔðãýA Ô}»
Ý
ÍâBíùßTÔkªÏnOÍ(æ]QÉŒhsKlÇ¥Ñóä‡
©…‰8¯4Xð ´÷5IÞÄqÈ
œ1³Ê \<
ð»ºs¶ØU}]ÕßÖðáªA¶pj3MÛëöo¡ÿ#ݳUQ@1ë\UÕÞÑÔ•¸ë©dm˜ZðÿÊ Z%€/EŸj³þøÓ–ˆäuꑾ¦÷¾× µcÞôÑ‚ ª“øCÝÜ{ª£}O§Š‰äJëÒgXUqõI `s8?Òu¨ge8^àl(«\V2+‚ñú"å=°w*+áÎpò"UvΗ!½3à–/s¨ñS•0+ON.0[·T¥ÁòàéçÕ, íÊ®-—²ò,çB-Ù”ÂÜ é;¯ üaß?.:‡NE¨¾,|(õíóñÍwõÄç#äéí·Å/‡O¼ â ߎ¸> qëâ ˆ"‚G0*¥Pù45D
“† í@¡>KEqÔ±®iØcycÈ‚ ²5 Ðþýëñ—톔OšN
ì' 0½TŸ[¢ò^r߇’]eü¹&„L`¬i3A‚²`&“£ß2¼C‚¢‘ÉÃ
^@öe]ùì; Øj[½9P×ÞÖ¿õ¥ÿ-!´*I²üwJ”Õ MHE6h`ï>VßV\VÇÜRw”m±Ya gGk}²—à«*ƒ>ä<ñv5ƒkqÄ©,(ÌRˆr ü HÀ”Ú¢Gà@ÜZrÝóÚ7;ªŠ»Æž¤SCTpúñJ'4Â…ŠÍ,'1¦ƒÀˆ’ ŸÖFë+ql¸ÊJŒ¼ëëÞtA‹ëÍ{#À{ãûTyûŠ9žLI ÄZ¾
!ÌKùŸõm‚(½kodÿï\8Ž´_åV ~®6]HÀà}ÿÜî´Ú
³EbA¤½‚„‡Àdc gÌÖ ÚÏù. ÐÍ–ß¡ÊuFkc(TBà3¢Z«´{*Ê#— ¦ »xÂƨ8fÉö«ÃO«¥qEµ‰${žF;Á`ßÞljmÈÓ_ëú?ÖUû´¶Å:#ÁYAgl¸¨óÁfø´í¦ ñš
íŽÊ
vèæòc—œ9x¡ ŠT¹Ý¾r»¡6O;1è赓›ˆÓ£Ò= ]¢R›R¼—
•¡7–í›÷~íÑfŸ2 Z·
ë 4ònh8¸ª1aOG–YÙ{‰Î¦@—) m}Üê]6¥Âá-
ŒÆU¹wR<Á¢I3¬tDõ´Ï‹J.Àæ¤%8Së ‰Ô>ÒyöC?\as 2y黇S¯ihnšëtÝ»•˜q_ ŸVéΦ\K‡ä„ñÉ¡1§ ô߈ÌCVÆ&th;¨&º ²ŸkÝ eF+À7El“ÄbNçŠJ|¬±‡&!9ÉÅhØ
J'ÛÞc¯½:q‘Jx¤b óf*2;h |”›u´ û÷A6ŽlQŽ4A'*©F~øBpÀ‰sŽm#aåSP)Js’öá
$ò ùèC܆»7õ³çvCè±’0¥½vKê2¶Ai3C„¬¤`
ÂÀGί̙BC^h„Ñ™)—Ët2ÏÌsw&KXèÇqŠÉ)Žy…ÕݘŸƒŸ3ì`ð$³¹Ä–¶Ÿ ™$䊗 >æ6¹+ºó-MÀƒ=[P“KöqhjXOÏZ3ÝÔ…Óëg´t}ŒßÅÊ
OtCçm2̆â¨
!°è¬¯yC5y8-h¥<ÌàsÂ|{dm!⌟S 3Nïº?¿4d[œ˜+èLÇl(ÃqTÏÏÆl‡ÓƒÐÞc#f{œ HÞÚ‡Ù&êÓKqö“ì>º~8sGÂA½³&Ëôè¢Kqa®½5ªØÒ¶ ÊÖ“gö‘C_Ñ6…{*ä>׌
ô`ÓZ,NqÌQA ?0C`9‰s_–;›*E3›5 tßfî–êýÜÀ¼÷¤$èìjb¾Ÿ*Z³ÏRNñOÀFU C‘ô .I"½b@pþ” Ú6 ÝAeÎScÛ°™»¥&÷Óðãþ(yÿ;ž#ï)wg›
Dj OÕMB‚‹±¿ÅÀx~×h†öŒ¹ö•ldôGÂ:@1téâP«ÆiY5ê÷§”+ŽB¹¼©y÷ûó†eÀ€sžaXìHâY˜ÛëX×6k4P¾þ0käô'±ÉÐ+‘Óšg»*Û» kdVõ¶e;gíçÌÁÛv¹§ó¤5»ý<ѲÕ؈'*¢ =£BáÚÕ?•õCAgbù㬟џVQ‹¡×Z?£õ{Æâ“ü üHÙÓk8ìΩ¤ß® cúá-§t¡mj.Î 4Todû rP`sHæoïêg
&N…Í08p·ˆç x´Ë4¦(mçt™ r¢Ëäàÿ{—É)Nt™ üõÓ*‹WÙ½Õœn3hÛæ»Ñ9Z¼G&å<«st ºN)ô‹;ÇŽ—FXÞÒé!º¨«‡7ÒBàpÐw›x\Ú–ôªnÓèDMøx 2Ò³™ˆWü½@cea?FÝ%>r>
stream
xÚ[Y$·
~Ÿ_ÑÎXÖ}$Œ9׃ÌôÜ»™<°Àk Oùû!«w¤")UWÏ k· )Š¤xHZ½¹ûß‘ÞÜý ÃüÿëÑwGߟš 92
ÿÁ— ›²òÆnî¾ ýùYký¬þËÝ 7…€ƒ›À1™
þ[ pxÄᇫi@>•‡7ióëŽõLÑö˜ Ûe[Pêo÷uÂim7®«ogõ¤H6Ç‹jþZ'ü±~>OÓþªM¿{ǶN}\e:ª&>ÔLÖõ!4Á̇¾§Ûù ‡-z¡5ÞÄ`·5B}¬«8“[¨LoŽÞ¶O¶7ÑKÄk‘ÄöX®öª±"1Y4†±Z芚iRîÃŽM/éxð–t¦|§•†õAÞê¦ $›'ƒ5DµðuO“Ž‚,WÄòùH7¬VÆDÁqÆÐ3¼‘ ÷ö
9÷¬„«òŸI<¯ô”ðü\Í÷D#<„œþºn–!®ƒuZ××óu•û¦}B ´Ê1¯Õ©‹A™t¸J].Ê¥évʸ“y»S¶¸Xð²JðTz\g`‘tªÎˆskZé4–WÒ¨ü|{ø°q)© %ÓÊâlÁÉöJ/8Žj5›&'çð½11*gú‚»)ÀВЪd¤T{¶ÝUEˆ;œE3KËP®¹&K-{ÚìC\
ò2N½"`6/×* à ž¢@õ Û \*ÊhÉï¡ùþ£×$„ ÁQ¼¹·’ˆc\QÂÝQt ËCzŠ¨l’ó {
«lH¾?›¬RgÑGµ.¨¤‹€ ⨠⩶RƒÒQsDè/jKã: ¢ä¹Ò¥Q&xA}KC6¶ÒâÒ©!æ:¿ —‚ŠÎÜ‚SK5>-Iv“u Ïgü¶*áv77÷Rm$óRQ|š‚¥µt+ʸɅ?ÏËäÛ—Þ¾ö©ba6`±›Å|‡¸-ˆ\B,.ªW܈æʤ٫žViå£éKÙŠmêx êÈüœæ¬úé}u‘Ó:w«V¨=]Æú¨//‰pâÏ~íʼ†þ º
ßãΕÜA*(R—"xPGÐöp‡D+AЮ̷‰´×3OÛý¼"˜K?4ª9Õë¬e=žªt7 Ñ d0>ÏÑa
ìuKªjᯮ÷¤ U
ôͦÁb˜Á ±f ¿Eç í ŸÖ×ó£
ÅþX€c™!ÞZIÒB?Ke¸a½€·öþ‘‡)Ï0x³ù1=XR/=cÊë‰ÊB„S! 4».øa•: = ñPxp;ÎâºÒPçöÐv'ñ)ç€8‘m_Ê &¼
}Õm;Y7‚6{#x<’*8rw¨V PoÚc^qÖÙÿº ÜçqV‡syÖz
ÚÂ6eëiÛQ‹E—üÀ[r_R_(¹…V0J0øSµÅêݱx@Ž6´Ù“9øYZ0
Ô,ûÒðûO€ ª$ó“®ÕAŒut ‘w ëÚúxlÁ(’KÝóU4Gî«âÐe8hL%«m÷zœ•]”øf˜«,´Ü Ú…äçN‚`J ¢av‚èU¼€¿Î°N2êé£U¯EA/#hd‚çò¥HUÜT iøÜö„Óf4‚ÏòxÅYÕïS«´4䨕gW¿róa»eFðµæN„ÇT¹ÈU·±kš±¶-0/–\xâ™!ØÏvq »1ìï…äÙºI0Kðcq3 u7
àtÕÜ1
f4{à w1‚éAÙƒe²ˆí„\Œ,ð-,
Ï€£3j¼wL^À÷œ
-gg ¯Aa¨å,ÂÀïžE„È;†ôø ö”ïAßÐÍ¡ïÔÛ·Tš"6³²MÚ |º°MW6s’4Þ¦ æMï8‹=ï8ü-ïp¦$¯ïÈ µèÈ |@€QÅvd¢õN[î)6Ò•9¯Õ8ö}P\ù ±9µ®<Ð3…ÂOš¤ÊQpÓnªI8ü•aBJ¼t´5©8ûÕ²‚Ëû”ü-ýsÎkà¿ µì¿ üDý÷½B2>üs½1xhi±ä÷Î}ßôAY?ëX
:<ÒqSßÈɇ+O%
‡¿åHÇNuéX€Î‘TÏ Ãi>/t¼aònF³§Ý’u´Ù \r>ç´#¾¢ý4kŸ°A.Òd‹[Ãfîn
†ZÞ üÞ5Š™FþóU jñ ¬ÃkÐæbOÜÕÂáMnŒV¶¸¾#ð7Ûp|qeÍ;^„3†û/¶=^DN·¢¡;YC•ÅôK@ñùà p5‡‹2¤ Æá„^
n;{ת„„[ú:¢–ÒU–ÚD]Ñû£R²ü›ò<ŸÝOky?5ˆiÝéßi‹õ=¹ô0Qâ$ë®E1Ú›˜9ñ!ªGjÁ_vZêð¡ë>ú0Y,jôæs˜‘¡—^ü`mƒ™™‘ RÌ欒 F÷~PÈé(Ö¿ÿÕÏô8EÌrȹ>¬Ôf¿g¥—í(™:3”1NØáMÄ;ôÇyv7Hïy î˜m'ë
Go;/›:Uzš"u‰_»t|O‡µ
ã9Œ
¾Ñ ²ÈéFWV1Nt }ÚI “Ÿ‚å—Ðð!ï$¬™(‡ýÁØc!UV)gî'w•…Þ|ç7?™}OŸ ÊÃââ&Ü
ø!j/õ‡ßëÑXüúŠo_1ó¯JúÛÑ/»žÀ œzØw àOrûµ^±Ô5`§i?,ùwC)T ¡p¾O5Š|¤v9[ÁÒid™9Ï‘]-^‰
ôý¨W ;‡€×¶ŒËð‘e J¸n‹†dj9ÝE;ؤ÷V¹(lë‘®£·°‰%úŠÅ ú ‡]…¿ô…¬ºÍJ'ðÆøz¯¡WÎAá?«¡üFZÆ÷ˆ`Y†Þ¯å䦺”ÑÉ“`|«âuðw±R¥ª1R‹%HÚBâ&ç'úJ£ÅëÎz òlþ{„¬¿À=ƃ€‘·þMOb‡xùnˆšßŽ 7 ¯ÿŒZxoendstream
endobj
373 0 obj
2447
endobj
376 0 obj
<>
stream
xÚí[[o[¹~ׯPb» ì2¼_^ Y²c}—œû`wQ$Ú—þý)‹<3Cê(ÚO|äo†Ãápn¤äüñ_39üüü6ûóãìÝRÍÓüñ×™šKø§æʸ¹sQø æ_fß¿H)Û ’ˆÚ0Ð=Ù ¢ô t wù±ÎM~,òã¦<‹à…|œBó!?.ÔÇ
fQ'zÍ,DW¢Ÿ«ì>.ƒ¾¼àM^&s;µ¯§úñCe¿®£mêgOÝNþU%½ª‚>×lº†c²;I\Ed³ôÕª‚&ýgÕÚÝQS…>TmÔ_šÞVg+Ïéòˆ"ýf|!)oÒßà`€©“…Áü€zŠ´ÒÃ8!»ÓjÕë8OW AZaeØëå`9ÔÐ’l ˆüx4ˆ×Â3±·5öjþ0Å7´ñ‘¶}!¸CÚ&¨#´½ŸâÐ ôb¶uJÄh§1Û
c¶¢¬©àwU®÷8é“ÂIÇà|ïçhËÉž‹Bf˜ã~Ù‰ábrbè³²$
ÌÀw0¦t
qªh† ²`F©Á(]G ¯*%_ˆ–1=à¤ã™$"8•4ÂiŘ5ß×5c©Áø±Á‡YŸ–äQòc’¼1M7É£ðCI Åm’gµá|þ‹¼Ï±ÄâLʳ³Ó•¨„L\Sb*I!Á$)ò¸LÅ‚%¸˜úãÜḶ⦚×R¿SoT‹©€™eLûYŠqC 3É ý¸IQ‡ãæŠoÑr{~Ò'<ª…ÃÐMfl -—ý®Êý°•›¶T,Ä6JD ·‰2ñÁR~”¹†ê ×xåŠZ~Ùņ&—4[]w'¦&z6Þ)-ú±3Õ+¼¸·È(ÚCê©p …8Е²Ù ö7662šU5¦– /»é0â»*úØø û9@ºxìÔ¬‚ÔÎi?Ï=esõFhŽJ€ æÅh^¤2u)ïYn¢À¥'pÊ”ì²næE-Iš_yuŠ
µ:µNÀÊ3V 2pä¡¥ºÎ·¾jƒ%Ý}|D•ÇDÚô|Ž·¼W
ÙÉž±Nç'Ó1rìÁ ìU+¦þÔ"u×E[' U\Éi)‹a‹8Až¬ü¡zæ ìØ×OÕμ.m,@ÇT\–B3šA/e[Xo[s T¹·ÅmþóCO¿½}Ó}Ù™æ¢ãß@Z¥û*>Îs›Ù‹NŒÅ GVºRžP·•ûQ«³Ô|È·¯ù&‚¢b^!$èÄæMÞÓÞ]'JçMŸbïלƒåøF€#ÓPƒ@žKáMÄ@V\.-³7Œ} +œñ¬hTö !<©t¦µoQnO¨NgJ½” ƒ?×µ8q£ìéõ¨¦c ²h‚šdØÕADfàVBnX{ŒCþ,uDÞ2Üý¿:Þ7ë¼(ŒyÍd-VW^–ØWÅ©Ó(cu‡ã~?Ï5ð‡q”Ó)Š §í £†Q.ƒSl%â Û¦Áû4gÚŽÁLš®š§šZ¨Ä9Ùz°Iµ„‘czb·±·‘Oæºs,
Û22à¨{>Ëàç dšÜâ2œÜâ×Q!ýmOQ{·=¿õ¶ç"O4w^.:…¾Q¹Ø…(4“Ý·dõGÙv ±Ü³©½2M‹o£Ç›ÀƵ~ƧÜnØše1L]
˜|`ðyÕacµñ+Aí7V>!oË>HwdÂA¨Mw‰}N„¡Î±Œ×Ñ&¸ÇB (´¨¶1clP~vøDì¾ö¿HY“åð°"·»-ƒ¥+àw®°8W²¹c% rÑü a ¢Ò >2³VÙä þkN
óµF#}Ÿ×ÿ¯„m-"GÁjÞãN2ï|‚|_‘’™HŽ{®×¾êÜPð©t”fdVÑ–¶4…ßâvñûw8 ,;î-–ÞeÛu¸#+ü .ýÈJQÄ:[ké‡y"¥]
@Z»C~SÛ¡›Èî<º£±køÓÜL”¯„wîjìoß›’IRòaBK&Iáçµïå^úíûÜ' 4¿àqHÃ"÷,£9ÐNãQQ…rKù\âŽ'9™&í±Ü M|Éöîeˆ%ÜÝ˵7K¦à·nip‘qyy”…–´«ÃkÐÆÌ=Ï®ŽoIZÙ 4%/ geÃÊœ¡Ì¿Ì¬K»—ÏõÅå— ¬¼ü>ûµ|¯Èìȶ¿Þý^‰v¿gšÑwErÊ’ZÚ±Tç® õ "MH”‡Á[é
;: ºH9¯úPwþ–ꟿ½þr¿BùR‚ÙN»K»¯Ì´XâdÞ>
stream
xÚ½[[o\·~ׯ؇ H€–æýä)ÐÕbI–äKÔ§ iPÄúÒþ³þ¾Îœ•xv.<{veAÖ–üq8äÌ|3Críæþ?'vsÿ|\Àÿ?ùùþä͹ݸ¸¹ÿýÄm,üç61mRJ¦–²¹ÿzòÓµö/øq‹ øñ?Nñã}ÿ¸î·?Þÿ£ s6Û¢8‰x‡ —®
ø4ÙÛ ÞçùHæl‚ã¶Z`uÆ*Ló¦D/@?îú’'¥ ú4»"|h&4!áÉúøüg ðTM
YàÏú§}Ýd`«&9©êߺª·}“ÑÔm×Ò.€©C5¹¸>°€UÄ莀b6 Ìõ²Ï Å›Xª1r’
NR¼€Oæù?èÞÚbZ,>»íçîXßw-Ïõ¹}l¦É]Û럾Dç»D5š¨¨{JÍî`MQß‚u <ˆR£‘‹† zé {]4$ز „»èvÒ^\µWw¸ëN !"8Ö>ý@ÝñSךºViÆ‹Á³ žJâi@<Í-Œ¡þã~š€×½ï{J#Þø’|ö]¶ýÓßžž8·´"5ü@}ýÅŸ¬+ÔíŠÉUŠjø‘ˆÑ5ÖIdé^:Ï|®¬ˆÏ oŠ_§bj:r9‡]JßmÌ5¶‹Œ,UÃZ?ˆHSÙÉ[„¶›ä}ÿ·³YyÊÄ“ëÛ¶"μ“##øò8$4 ˆæ‚l!aÌ!¹ &ðÖ*DHsú‚•È5.Fc,åFJSò¦€7pä(ÖøŠ²”WÙ8@Aå›Bu+³ òչЇNˆ·4ä`¦Z×®iÞW©ØMIó¿,”„à=.ì¼¾é ƒ´!ÝeµW}É[9J@^S†ä ¾ |e¬VÈŠP6ñÑËYÑoªÌu±°\îO#·'P :é¿í^ˆ]tPhe†Ë&Zgee€úѺ ÷vjOÍv'+,(ÚÓPSÊê iÐ-à –¤¼c[9,^b‚Fª 5Å Ãx˜;Wè@"†òCˆECk¦&©ÖþÊØC]Yå<{Ê"V›½ ¬–"’¡n^¹(¬ÅC–y ƒ '›…ÐU ÆÏÁ‰±#
ÏÅ””×.7ToB‘^s…G‡½c ðçhˆ^j3"ð µ.fh6fØI†m±Áàë é¡ÆPòñÑÇP¸oDÄ€Âê
3ìPø›óHµzær6f@ÑvDÍb±Ø=M•ýì^´
PÙý9H¨£9À+µ ðØ÷öCw‹ó%övÉD»sæóc_ÒõU$¾(ðÓ¶þÚ'½¡3/{“·P“T'u`þä ö5·Î£|ÌS(gÑÊ‚ìÔ©þo…Aˆe°'Zi ÚV LÝŠMè„ÄÎ^xzŒ¹K¬}å×ÇŸÂBÚ¨¸ì!-FS}ðý¹<@¾©bœ’‡Ï
bóÁ/µný¬$Ó#‡^)µžuýÜ•y >u£¬I=-
SK—ºìŸhº‚¢+WšæùÄí‘sÈ›žÆ åASFmÈÆ|Zë [±Æjkm ±-‰Ò£Ž:X˜\*TÝòûZ2PGK‰Þc•_‹3OÁ®Ü‚|øÛ%ÿIq¢>F;ĂƱy å–´S³¾gã€[>µ@äå Óe(rê Íó;ÑÊoU½2öc›Íû Õ÷Ëó_2æËcæ ´zI}š™>+ÌÖÄÈQýmíô°‚ÃG….f
: ?î Ø°Ú~ßQÎ<Ÿÿ•_Gµ…°Å²Jí˜äjF§’P¸DèU8üø\¡võ¡êöWŽWhUÛÊ…`5 ƒÓ÷ê(ôåÕ,ÈDÈlåÑÂM"?Óлî+aTèë6Ýk
ÞTàùRÌIŒS*OåG9´‡"e'„ͪ~VzGLýYŒ9ëS\ª·«±¤¥9ÕìÔK¬lëVf¨wôÉ¥ZàFEø–g zT:‹TÎF–§Ð¢wÃ(°ðk)N§~‡í3¥þ2¤~ CýxÙ\Äè…v/Å*à+Ú½j‚ ̳»¼©KMζXñdh†¡F]» Š÷R}E;gB˺ˆoQÓ(&\‘:jrÉÓ‹A= @Ž¶M·§+÷/ú8ѱj¢cR6¸¯L
\Äš™ÙW süš™È ¹§@V÷ì²KnsÔ;êÍ£ ÞVÈrŠç;®æ|i${F ¢¢ÀëX£Tv:4¤Ô‘?ƒCBvu+Òœ5ÁyW¹?þ+¶$1šÖÑM/ÏT†,ŒOãä*®ŽoñÑ°³Q 3ŠÄ«w –aj“K9„¹¤—˜„ˆåJ†v°Poýj¥!ÛÖ$÷eö ¦þ…òþÛAÅÎô`÷#]ÃèËèä®®¹áp…%ƒËìôL”Ã÷
ç¨5r e÷^Ý”[} ,•œ“ÌõîS×
t¥R†/àOh]Mõk~Î (ãc¹ì³î
ôj²´õ«0Kû•ÖxVÏ+”ñaUÐ' ±FHQ4]¢ “âäDÊ›éMˆ•[~«ß¨G‰ IƒÁ÷ô."dð‘I ë ö”0=–àc†qS§o”pøA‡Ìe
šˆorÈŒ‡
ÊôÊä’Þ‰Ý
^ùxߤ4qÄéß©sÜOü*=&'@ò&š‘é{-ê.ª]oSLÿ°ªË
À Q™l®ÍO8|]%€/ôK“{ðHëö0½W5ÅrŒÁxÅ9—bã¸mþ^ÉRükU6>n1Ì„YS
ÛØ:y0C d-šU ß$ÆðØBÊ?2Ä<~Q@{‰°³ûŽ´›¿ÆÍo_w~ž~ŒÓ7¡ò&Á.ûº_à3ÝÚñgÿE†öÏŽŸÊ•ÿÔ‡þqòûË÷9é“¢ ¶B°" Z§ç&ò†lü°o€ª©š²Ô¸ÜùÚó-µêÅ
‘xøŒLæè{h ß¼ôÃÝÈ”¾ —2¢ \‡.•ox²\½çãE%~÷(da³ÁeÂôÊC¢ß zÐFk@üN¦‹àŽyWè·x¼B2øí?*yxY u=™¡÷o8ÔÓ÷”é8y¶€oq¢ÍbŠ²²pÈà
´ÞP¥ |B$t{ò¯ý>sDjHPÚͳYl/?ψ—1œ|Üüdý€Õl>endstream
endobj
383 0 obj
2775
endobj
386 0 obj
<>
stream
xÚZK7¾Ï¯˜B %Ævù™Ü¢} A,û˜Ý
ÙADÊ)?e÷®{ªÊžéÂIŸËv¹ž_·^ßü·Òë›O8œãß¿V¿Ý¬^™µÁ ?¯ÌZã |¿ö>)gìúæÛêŃÖúAƒ~yó7¢õ:°‡
Ñ4p(ÃIþ(Ãë2±á£W¹3ç® ¿WxnÅD«µr:‹‰gmb]ñ² o©œm
YA”{ˆt—dN°
lsnüŽÀcP1º]Ç$ðlTìH¯‡»(Ã}[쮸ÙVãT苸jªyS†wMIUì¦iï®ýë•Ð D§±À‡?ç‚œ•Ï¦¯†«m$^ò ¯wÓN{Ò–ÀûÔôTUED CÚ
§Zmعî}[à²)f202=y\) £»FC®cð7íHm¨ w¬m!ªœƒ6ßú‡6ÌþqNM5£ˆÜßÏf–Cîµ8c’Z›— ïþr—í@Ù—\ã´L¼j—_ ‡pÛ×ÙØÙ Ã ŸÂ ]'mT a+fê@ìCH¨9tqO%ssP¶³ÂäçmÓõ¢¯ÉõZ?œ7›Å{zΫéÝÌ
Ï fœ¼âÔí&emðÁ‡Ë>
øu»À9˜Í^µi'~ÐÆÖP=•Š‰2¡—à(Óšõ Œ‘³oÛòošˆMâFÊI˜š@Êa|B³Ü‡9g‰LÎ) C_Y³{¿¥‰€z;Fˆdú·C‚8¤Äåî7t§W} :‹I0Ä¥Và (—½€3ÝHÃt¸Ó~ðÝP—EKKQÀk…ó¬ @
·¬€_0Ë)Ãsê÷ ñ|ö‹SJŸlf
Tòb€ÇÅõ£›Û ô'èÖ³r1 Ã^ÛGŒÈ ~d/Š¾¢Æòöµ ¯ÎãDÓß4uM_¸=‰\F!Çq~©n@–mNÀV ؉g+O¿Ä
æJçú$d<ù–¨ä«µxCÀ‘Z~®¹€ƒˆV‹*é @Ë´j°†)ô1Ÿ=2¹œzŠ€œ “vо̹zu©
ÁÏÓx—¢.`r/h¸ïµ&A}ñ§ßQNŸ¾,Ôy’KŽÒ F tá½ Í\Š˜Û Ç®/x1ç~ðJ6bÐ
rƒ£‹F»(]‡ ä?¥‰p}•ÈK*}Y©ƒ±Ùo¿c4;,¬¾Ï"ædžàíÕ÷Œ ¾‡däðï"¹°ÃIÆîî{$#. E úÄb%E/RI£ï¦•Ã²ÐÒÈ;©Ê=\ µ9Ñø¹úªÃd }‡lý´@ NfFe;kõ¸ÌlTÐ^Ï7ŸûŒésÈ×Q¡Œ· k(b³cã~ 1Ü»„IBl—»Œ“:øG)„‰ ˜cåx ƒÞíWÃ- 1±>îL<æä‚É|Ü;–9E dz™Xbp!’ÍÄ"Ÿƒ›À
Бl¦UXŸ aÃrÕ+oäÚ[ÁŒÚÅ)mö°K–§1šØKCG‡0š…ù²òt F]=CÈúj^@á3-6/EžŒ2ÆìÅ5ËD¹Ù Ïg¢Ï`Ó#ÄŒ8Ml 4 ±É(ðYÀªÀ¸ÊèpaßÇi>j±Ð>öÇ&†ÛÁlÚühn³'ìGv5ØôéM“ ×?»õ§o[ÏõÑ•R }Ê£o¡Ûãå=Lj?|m? )_~~
‰?µ©_VŸ§OGÙi\˜ 9`¤ÊÄsÂãá´€ÿt/Úõ©à=“{ßì…}ìr¾@dy•äsâ2Åp!hèͬxŒÙ‘K~Ö–†;Üù®+2Ùòyƒ/bœ¶˜Ä
ˆL‡zð}Ÿ\Jbeàƒ
®˜cØz(e9NßaR1£¯Ð÷£áàA QRÆuŽ^ÒF g_®þ]9ßp ®ø›×nëÿtõÀ ñô<#žæ|YÝÿAYÿšÏàïendstream
endobj
387 0 obj
2142
endobj
390 0 obj
<>
stream
xÚå[Ýo$EŸ¿b Ð
W©ïñ†Â$Ù]‘I&Ù%è X$îáøÃàÄUT·íªîžpÜ!¡Õöîdl—ËþÙe»+r{ûËFno¿…Çüý~óÅíæd§¶*no¿Û¨„?jkÝÖ9-ŒÕÛÛ› ¥”1?öùñ:?îòã4?Îòãm~\—o?¹ýW•£L1D&ì>?ÞäÇ9"JDëùi]ö¼®s?eÔÚŠ(5c ÔB”Ö‰à,_y)‚åj§üx• ~Jn¤ArµGeßUeŠÝnêWMìä6M½¡ ¸Ãც²Me,/ªØòñ
YÕ'¡Bb"zNˆ|fù¸Äe}”ïg µÒ&ìP8¯¸:`?Y¼j+}ƒ(ÖqʇYÀ¢-똄÷n…Œ´Â8nÐE˜À\Õтʈǡ-·à¶úÛú³¢Å%¥°Æ3cä ª…F«Ý×oG¸>J¦’-ÄÒ‘IæqgÂhŽ*wÖJá4£é„] À×”ô!7ìK«!ôT#ôÀÝÓ5Ëpy_„ATcN„航yËG&¢Q-¤9ÍÈWdÒ(Ûi$R‡¤GWÀQì…–\\Ç£Ú¡"×úʼnì&©;m ª1Kƒïm;í:SˆgÒîGÐ}Z%O>>Rç$8©ð‹*÷¼>¾á®…$bW‡H¤20%?àŒ†ÝqÁ¾âk쇇v&72s§}O‰R‹ä<ãyS;p «á Xkã Ö2òÓº‰}õÞh–Ó~b|N zˆ‚Dk<ÒDæµðŒê
Ž×bç=bKJ؆p-—Át²³XÏŒªÈ„}Úó°ªÊ]Md’½ë2ŸÜ J3ñ UÓD¼ë‡³3BšT‰ýXRpó#RŒŒ§[6E ׌|WaôÐØÜ Š3 /(&b!Tyíü%ä‰ R$/{‰**¡“e‚æÑnSl43<8¥+‡H`äËõ…u ™ Œ7îfKŒV¨lR´mUîÅwÞ¨fä6XŸ3$¸!²[{¸Æg
PÄÔÖ#
š‚!¬s‚ âûùº*s6ørÜeÃLÁÖŽ;BÅÏk•aÁd
ÁRT¹hD$¡ÿ'†¦ËÇ !yϧ=-q8GIÖ Õ*ì¤ë]•òª:g‡MÞf攟n3tƒ9‡àð@äwa#;QÐi¦Ädu«x[Bƒ’¯¨â3=cÜcû|E„áZ 2DCÕ \\áPö°¬iëÛHÌ p üZkÇZ`Ô‹Ñ2-SÐmG ør^•StvìåUÛä—8 ÒiÍSkY,Z¨¼³í=“ôúŽŸ#µA!ÎC]ú¢²¿ŸI·°6#‰ÈG
×
D^Íž Ð@QA%î1°HGLp&›"ᔑSÞaUoÚ,mH4íu0¹~ Œ|y.ä32cœàC
Î/Ï}2Iˆ R´µŠ‘_ “@Ç9N,}SSÕNZ(8„£qJNÂ'R:ÆC# ŸCR¹e<Á… =1Ê^ €Aù1u=T-4A;A’šÒ¸ºÂ5”§œ y·9Äœ¸ôÎt!€c`Âv£÷⌠.míqüæ¬áÃKÎ^£T)·VÚÌh°ße3˜ošÚx’Ö %ž3–g¼g6JxoÃÂ>y µelÈy®ä èü[7ˆSE`¨ù倧$—ÕóÍ5 ÜO*/ÉkUºPIZŸåÇçi2xÊ«õ–£ wUW|†8Y Äå?•º¯®ˆ¯6P×Tâ vvú×Ì&Iœ4¡Ÿ´
mÀ¯22zÃ~<úßòî v^ÌD—”Ú>ýk¦èGjzCx–\GöµH}Ý~µ•_ÔÙãÁ/Ç›¬Ýcèüâ#M[)#»=F&önlH>;¢³±Ô*TDïDH¦Ô*”üºf¶÷x^ Kî¤äËH©‰"cä½vÈ>
stream
xÚ¥YKo7¾ï¯ØC`´EKóý¸Žd;Feɲê)@v^Ú¿ß!WKîp¸’’"0¥]}3 Î{Þoÿíx¿ý Ëþþè~Ýv× Ùû~û¥=‡¢—†3©toŒaZõÛ·î‡çüÀ¥ŒŸ·qÙÇe1} âbâââbãr—ûL´Î”»)å‡ ß$Æ›Lr7ý-1~—ë¸<Äå%ïs•.2ÿÛ‘ÇÛ?éIU`ܸ|Ôÿ³G:ýáקüòx^ÅRèã§È î¢\× Þ[f18gÖÖÆÿŒpl9!àá8I«,õs>Óidä 5á PJ椫ï²\MѨZ¨µhÒ fµ§Î—u'F "2¯Yp¶&K‡~&’`™‹RöÙ`σ~ϧ
Êô†{P‘Š&GkŽ[8H“ÁWØY’éÃá,„@ïfŽ Þø¾ìƒ¬až 8 ×8l±ƒhPp K®´ÆÁ&ñþbÑl ¸$ðg DI ó ÂGqÇ´7„ÏK>Þ*³ ÇSÊ4….Rl3õþa98ƒpˆŸkÛç!Ç|FFÃ;,9 î ª¦ù„wû€££¡¢™¾ÑÇé¥5Ã.$ fM›ûœ"¡e)}TD߯Hé ä<«ÌinlwNZj&pç¤f;§Ö“íl–³xu•ýÀiB8c áÁM'ðnv¾°2&Œ
5‹]çÎã¡t+ÓH—í ªçCL¦4aÁ™ °×%=íæ4Ö¶Ž…†&Öѳ։`Ô·[§&0À‚¦‚5_7«c´Ö¾- a?åw¨5 “"Aï;o).›H~Òu§iŽîþ½s;â 1uR¬!óîÅi¬8%E[¨#6ÂcîÑnòãí‰ ÚÛ‰Tã=Â|U0 h”F"oUÊø’–ßi †Ø;Âg¶ÄATAàgR"6-Š§;Þgê2>ÑN>†Y ç.·I cÁX\Ó̤Ânœq®}6
¤5ü’Á–Χҧ¢VÝ_Õ¿ÉÔÙ4åÝàÖM¦[”¦"PöÔî„šW¸ÍÀÝžiÖozI‰›’©uTZÍÞÔó-²
rÿ”øl‘ >à —,öT×/Ù 3ÉÇ Ãd˜ -Æ?ÍEG;¿ÔW¾ÐÈž÷ ‡ï®š²Y>NÇGæ¼ÿE÷Ÿß&ÏéºT²lo‚bÒÇ”-|~ñš_X!‡¡8áË“õõS&ÍSruCª˜€ÿâoŸ7 žYNà?ç³Vn·jxþ}»Ð ºôŠo±Zq«gX* Yúšg™T—xŒÝ‚~ÆÅiƒ“õ°9ÎGà8®æ2— Ÿ•ðT§ g &ÊŠnæJTsÉ”%6›ôø‹3CÑ«oi b¹Æán(â]f¼NR¸ö^bÞúF2Þ:cVsÖÐÃU+ôy
;ÅxÐ5 ½ÔµDsK6À˜À¸«!3÷ýq|q‚H\ä|ÁW¥À<¶³Îºû»‹¬ß`ÿ‘ðÚ®'ßxÊb|.ˆ‘æk·ïÿ^ÿÊ±Ý endstream
endobj
396 0 obj
1511
endobj
399 0 obj
<>
stream
xÚ¥ZKoG ¾ëWì¡Z Ìûq-dùQ¶ÙNR÷ Š¤E{h~XûKÎZ³Ëáìj%#ÈÆ« ùñiÉn÷m%»ÝxœÃßO«Ÿw«×ÙøðãJuþ¨ÎºÎz%´ñÝîëêû')å+|lñq‡K|\ãã
oñq_>Ë$W?ì~/µôÂ&õ ¿àã‚P; æ:¬Ëyå”Ç1Ÿ1I¤Äø.‹î÷cj¼¥„Òãã;|˜1¥RFhN}S.ü®(õª(º¡wC+§±‘•q Ì¢ŠÄPx²Ø¢„³ÂFÎ3œ“}SìzÁn¬¢)Z&bpÚ¦Ü+»ô¼È!ªhA•ÄäL¹Ó 7Œ|ðËMyä×÷sH
V¤Úgo‹®Ëm ðñ$Û{!0/x9¥þAÊþ¿ÿþôüÃö¼áAãîásV´yËPªà6iƸyaˆi àçúL:Å#Eð0'íNÁ3~ §ÁA¹(๾‡£ /
ɤfœscŒHζµä±n0Ì4·ËQÁ¾Ï®m¸Y% ˜O…å–?âã¶à~[Ìþ8ƒ#Dd`¦°"
+F~ÐUZÇ>ò[ç<=)ÆAŠ \Ã!*n&¢ƒ Ù[‚PF)¬‹üV”( z¸ÙSñ¿'è‘Q$cù`ŸwE™{ï·
;ÎãH+áM8G”{²ôy¸PàäG…C1¦ß„È„ ÆQNVm¾Çò²ãÙy)Jæ
*µPúT{fù”Ÿ¿–Ó7T£©¸L ÉdkakJˆLª¦Ù4Rö¶à*Ÿ÷[Ñæœ×¢qc-ð–ÂóšJDx‹Ènñ†‚þª¼f7ÞR÷`ŽªZRí€êD¡•J$åãK t"@Þ¨ÅÎt?As-Ž(´FZá#±¬Ðàò‘ë{0ꬊÂ[˧ûi„S'lCÑ€õËûiap†Bär®#†IÂ
5ãàúÁ/kÚ©N†0´>2‰“¥ò«×Œü˜6 § ›˜ˆ…m&xÃõ=œ“ñ¢ÜrS] €I‡¶’. F-+¹YC¤oúU Bƒ1ñ«öHŸD=tI1qÃÞVn¡1#EÄPmªÙ¦n… z)x2ä•=ÎoÊ%áR`Œ¬'£3Kì3PÅ´4•®iåÛòfÌh¡£b´ú½'©-``5ÇMq0úµOÐë[Æx}JOŸSªm׉™Þh ¾° o]¡Ù€‚‰¦â½/ C«™_ßÓ¢¡ˆ…m/h(a¬o£í¨¬@ w
Û©öl¸?a´VHåf4_sÌc @72¦ í6
’+ý¹Ö*x!¥e¦4áL ù=={KƒeëÌQNªö±S1«mÈ ši]ðKÛ@¨òœxhûª)«ß$5e/ÆCÖ
âR¥úíÝœ?Xª1XóaB¬y6Ô3ÃUX$äæe™‚zÐÉÃ$Î
ú8Ûr«OÍn€zDàI”¢> ê
¶Æ#GÓ¬µ † ” ²s2ŒhKˆ¬Ç•oM3—ú”ïב5ÏT Ç~Q“? £K‰¿›ÆÈkòº²æ^0òâàÚZN†¼‹ +¿Úë.i»>X—Ø×û¶þx„¤lƒj«êE¯Û¹ÎÀT`=·Ø ß ÐŠ\Ó/jTÆd_7Õq_´wCf Ú\À¿ËæZD$$ßšûD6¸_l¡ª@´uœtt=nÜ¢Æ×H™Ó~MÞŒªFוòy¡nÆê¼@nz»1ºx“È5ùQ£ËãmÈPKbS2Z‹+rÃßT6¢µÔ6\8à^>§ï@§} ·¡Aߧùæ
G^ã‰ÿ´å5Œ
1x&l*{+¢µŒüpVAÄö)ó«k˜*Bä \]˜ ƒÓŒ‘¯®Q"ÈÆ(nÁ3‰ß`buî‘”òÄus5ÕáJ_Ñ´
}E2Lá•ÏMÞ‘VÔSá6E¦âa€H̤¡æ›Jq
[fkê‰,’gjÙ}_´ÿ€ùZ$Ëî9µþÐ Ì3_E>·ýÈ¿š3Ì‘Ë– Æx«ÒB§å4«ÌÑNÃ¥ŽU®yÊlX[M¦¦·¯'FUí…I®iŽ¡6më4l8¦f@mX_¶8T^ÕÜûì}¶+T²ûÉv ¾ŽÞóë_£œÃxO%Ôåü å§L-»Ý·.õäõ¥îÖ®îàä;˜¨;)¢‚Zÿx rÃÔú ú'9ÏAÁ‰Úv_󛇎߾¬œÖÕÛžòËêóêãÊÀT9ðâÛˆšJÒó‚A¢> ¢ÿq>õz6>/zÊ‘žƒ<ªYÿ&™žr¤çˆšJò¬çˆSŽ(©”ñ =Ÿê°7}þ6êý6‘œë` €ÿTÂ>Ûk?fÀfÎYäðB¦ê;DóßTÜÝe°È|oãÞ;å'™uî)öïÅžçóê±ûdý(‰ñendstream
endobj
400 0 obj
1816
endobj
408 0 obj
<>
stream
xÚå[[o\5~ß_±HUDu|¿žPºiš¨I–\iÞ B-/ð÷{»>gfìsÎUªÒ~3 ÏÝcG®oþYÉõͯð9…_ýt³:ÞÈuZßü¶Rk ÿ¨µ2ní\>¨õ͇շORÊ Ÿßü1 ¬ÊGÚæÏB:-Lð ¹ÉŸ“ü¹FpŸ„Œ–Á/òç*~®ëÜæÏ=¢N^èõ}þœçÏ«1\+)Rà»(b½.ð" [G'|ì¬óôTÅ,äwˆÒ%a"_ò¬nò’‹ èD1š‡Â½1_#BPGHj©:ŒRÂ&Íà)ŽòÇ#¸ÑB5´÷ºÚæ¤*â¼J9Øý1 RÄ4µÇ¢Ë[D“¤pÉ·}åºnôU•ç¬®½a›·:LۣѲÖP“=Ü %ª¬_b
e“Hy
ßT‘®ê礮vŠcA‹ÀX\b ±§É¸Û¡Y¬ÑâÿR«Ìôx£YE'Ä9`%µa -VMQzZ˜!B„ ¡uÏÉ
í¸ØóBKŒi¯3!@÷Aó%'3„×BKN3Ÿ!"ø°wKÕa¤Þ&ïe
iRGÿ´ á£ib‹“pQ·]ei‚Èn¬$óc¥…Uº²§·;4-¥Îðx}_—>éy©*×BØóR°bÌaKàGÕ[-Ý·U¥¨ªÁBâ Cü ³pAÅYC}5bPöóW•jmÓ˜Ørdl2¬vFHhâ[ îÇŒP.Qà³jÙ#æû9çúÔ¡°çg,ôLí q´_kÊ$¬TÿŸkÚ]“˜ãS|³Å¢íœ9å:çžÌ«˜ZšœSಷ’³FrEu“sûPªC`C÷Lš±Ú§ÿ0' ¦üh(áÈ ö¢l¦ÏÝùHˆ¶hd‹yH=âìñ<Ï1BžF9FÓ ÓKÐAbðŽi¥Dò‘Á[Éâ¢&ž<µ¾¯;Pì•…¶
…j¼Hèl!À’bðQò ·;p,eðË¥Él 0KŒÙü-‡ƒ„¸Ðì–_gоcDlóp–oòz8½ãQ8ë0nFÂ0öC|¬)ƒ˜æ®ð@Ò¡5 dc8áA]†»Dïú$¦2Ô¢ðÁ¯É]ÞØ_ä#¥ —§â:"^øV Ì© ”SPãVß'È¥Ž!{·ú`H 9ãŽ!µ„6:§´÷ÛºÓQ&¦3JÍEë’vJH£üÓ)A:ô–1»Å¥{‹ÓɆ Êð…Îr¦»A0¯^ÆÁÑÑpüIô
ã¾Vk\½Az
¿¸À©r¬«n–ÄW^„ g-A_bEݳf«x³¿rþ€+xÈ=à Œ°[WvwèÞ+ºtþ]þÄZ”Ù€Òo²œlðš³Þ”þléÖn¶¸¤¶sû>ÞÒ@7TdtÜ,šüÈF:ÆÂã«×Çu~¸àϪ _as_`yH½ \Œ YÁ® OÛ~•ûéH_¤Ï±Ð1ºÈýkòM„J ›o"(¨ù&‚‚{A©gÞDPøâ7Íu½‰ ”KÞDPšÅo"ªcÿ&‚Âxªcl*GhÊbê©ŽñA¸äÚ&?øñ“ å¡e¶¿º?ªçÖ}³ã;öÙ@Å]ò\ôDBåK¢ÑÊÇí+¨Ü%»lTß6Z8©æ Hž÷—Ë9ëé w'©ì«-÷C
º•º
?Ãu ”÷wM‘͆ÓÂF.÷ÝN$/_5:lèÅWÿÓ§N œ™
gòûÏ÷rÀÛcáˆãTÛ.w¬
·ËeËm¸ÕmÅ=à4t;÷Æ(‡NÃy¦Í*—c ý'Ê;^{g»à,Mœúƒ²+3 ñR;†ù‰ qùŠC·yKîyIEÆܼQqnƒbɬ±¨ÊF&£#¨ ž¡Ê&ßQÙa»Á¼Î™tKkt L ”Ú9ájà v†Ðà5/KÇ!PsQ^ôr"ƒSÒçY?s ª r$F4Ñk‡%ðþÍ5β™ŠS·:>¦ÎÀ—ôЋ3Ò:;aLGçs :Ss/dXC¢Tú*Þ ”ýU [| 7žJ £‰zW‘Úpì’ûÎÝà$Á¨ek`ìav«yà3ÿða·Æ úD€ècf”Ï]?xySÉäú…]ÿúaôsùÑ:¨fƯ]2BÇ5ü—BÅúïë x¥óO ñÃO>ÒŸ*é»Õoû_•AÚ² §Â$ q ýÇ}‘‚#& -œ<÷ *9(’2h\b"Ì ßöS BwÖù- ©…ñL/)œ…£¡ã胆p¹¾aGÎã‘üüòˈé÷“ãàî¯ÒX!M¤¼ºgBh¬§èyÈ\âù²ÆÈl=TÃtùW‹ò‹\LÇÛ“ÛIÉwDçÕÇ ¤ú¹oŠ)tPÌ#n‡à¸j(’Ãõê¯Ufý¾9§¼_9iGÿ'KïûŸÄžæÝê~ý'ðúúfå7endstream
endobj
409 0 obj
2454
endobj
412 0 obj
<>
stream
xÚå[Ko#ǾëW0ÀBˆ»Õï’S Å]¤ž”׺°`7@rHþ~ª†Ëž©®jÍHF|1 “Üêêꪯž=«W÷ÿ=ûN«òêþ§É'½ZÿœýýþìâʮෟÏÌJà ³²%*V!åÝêþËÙŸŸµÖÏÚZüÿ5>ø¸šþ\ðð‘ðñq‰uÑM]ù8]ù±’ž~ßÖ%›éß
ŒßáÃáã [|üP÷9¯ ¯*ÿëoîÿ
´§uEéêqË>ƒžŸñyW<ÙÔ”åâJ¯¢
DÿÆ(gý›ÿœ¨©¬ã´G¹¿ÅÇ_göðNionB‰':Ìô„ ‘Ái ®•¬TÅEB™ŒŠ>sÌ9=Uåž½
–póÀÄð~J´«¦;T
kF麅)*fÿ‡ñ
¶7æÿîÕÐîÕ~B
2ƒáÆz±ªt„ÄC=ÓãFÖUR”Y8BµÒ®0Êw ç Ÿ
霟0RGA=.ƒ³ÏN—ÿ(pö1©ÃïgÿZ87yÎõÞ g‘…ç–ò8·¤3pæ dpömè—d—c¿O–PuƒÿÅ,ÐS5VÞ%e øéd“Bˆq/ önL4çÕ×Í®ô±
1¨IªDËÈ ¨
n+& ªV(0°êŒA–rjV²(AÜ
…-ºäÑ \Bd”àwõë§iò ]Ws9~²«µT )ˆ7ÜÕ8_«©#Œih3†¨ÑÍ‚Ä´¡ÜaúviNü†ªRrP Ee… Ž}æ{z¤OLFL¬:ÌÉØP
¦ûH“cbT³ž;¬™HÎ*›ÜœH
Õ«ÔÆv8ªÉNwÝXá D*?–Ôñö¤! FÞñvS xid以‘š€Ô9`V3±þ¥±"+Ÿ¸Ð3±U`‹¶ÝXÑRÞŒÁä €¼Ãx_…¹ «¤5M> _äSÝÒ,”®CÉõìb ꉖ¼SD:¨‹¼±Œ|4Æê0¤ Iû8í’Ê”×ߨGee¬eDÇœAý
kìÀ(¯*lnÚPj3gÜ1¤Õ^È|"÷Ù4kQ–‹ÖK›Á@`ùÛ ©X¥£gÌ–ä`R%¸ ‚çLŸ¿‘;´ÊŽÓ_Ö°µ®g;ÔOc èv„cŽ.¶´Å kOÍ3Ù`ÊÖ»¨ø™(è{ª¨ë{4Cfvl€žªGÑ>4©G ØÂn 5aIŒ¼ã°ÖØ¡{kÉÏk
ýí×b7µ€-ï2¢fCÛ¹»° TÊâini§‹b˜;÷Å•k:!ŒÕ¶È'ÚQ• d!ÎPWs¥DZmüÐY
-Ö íêwÇ{jî-•ç"q„è©ez¤@/*ÃvûK=é–vS,ã{뀃g Æ6£!Y†‰…-³þ
3£~S¤2 r¥³ŒÙ|Ê·Yåœå…ª÷muä'
ÇS‚Jö8Âkë&„ªÓÔâD|oU=¶D½j àï9õÛb¼vÊ:ÎìQÀó¶ÓbA½e hYH³,£\æ”c€½¬¶¦E”CEÆâM G7¢ÞëU
Üd€ãŒ|Í¥ìÕ5߈•÷@sÓ^Ʋ|™AäåÒx8a¤y¢F%fñ6 ÃV·5b ªžÇyå5Odv“©z»“g
k¨“´e«yü7ПûÂ)›þç@U¾kq3¶–ÅÒ3ÖCÏ òéûw
Œ`11>Kq
ýSÏRWàZëáÚBQ쌬ä…É2‘ fà ¤2±jùºJpG.Ǿ-ƒ8|Çe(ÅÁTÂz´Y-T)6)§#£ìG;Zã•K–¥Üq<ãð û–|t‰¦e¼™;¨³ ªË8
%ºó ¸¨‹û !Y'o»¡‘1@*²%„vª¡œ8r «V÷l
Ö?%y‹v(Ü¢Ú{€*×_Ûè mC(Þ"°lò#õ®ÝÓBÜ$È˦0VÍm^YFÔ¶ ãV4Š‚ ßbOí-Ô]Ø$d¾í‚
ôÞ‚¼B±éº–²Aeã´ÒãGvÐè¹Z¶›Žo€yke
IA Óê¹`
QV.E¨´Ì2ÃÈ•–7øI–º••ã-lk½Œ¦¯‘˜n¹¯vcUv·²__2X˜`‡Û…vM'k›˜†ìß’JYËÍ•‡a »-4XŸK5S§ôR¤‰´>ëÍ^A9pòYßB1“5òÂW5CÓd©cf ×t0™ùÑÚÊ
]]»ºàq|›Ê { èT~'Lh“2>¿°!G ¶¾YiBø€,¹ŽïÆû%Z>ÒYn0ý<[½¡ÚÓP€íÌb-:èË=ß¡Ûn$e¡;iÉûCÝvdCGß·4—FÌâC Þâó+áïO@ÿÑ.úœNùDç6÷õ·ëѯé}šŽ°¥aŒ¶¸7tö(]Ì&Kβ쒫|M¿^èZîèý–ºéuŒoœÏkoi ¾ñ¸ÍW¯í½„t¸½Q ‹lˆf¨†Ê @â¡6òüHï¹àUwà ˜™ŠL³Ä‘Ñ¿ùúávM=ÁÑ
”V‰® ×ø-Ñå 5Þ¬”Ù|åfz«xz èô3íß=[¿Fž´s+æ߸sˆN˜~¥£½-Ÿy ZºöçÐÂ:Ô{YažÊðTK>zÔ=Þ>t2…ôy.i·LÅ»>
stream
xÚ[Ks¹¾óWð°±³É.Œ70×-JòCkI–DÙŽn[•ÝJÙ©J.ùûéžá ÓÝΈËr"†Ý @?1 Þ>üo£·¿Asÿßüò°ysi¶Ýö៳ÕðÏl Û²ŠÉl ¾oþú¬µN?>ükBЩl ÚasÍ
6o OÔÊé$xžµM‡¿úð×#ß›KM¥²=s§Ì„9ôÃ`ó€Ígl®±y,_\M…°>*£Àé*ÍcÁ¹(°OqˆZå@ZuÖôBì¶ÿý½ýüÓÕæâac]PyœÙ~ ?½ý¶ñ¡›~‚ï¿mþØÀÄqzêaCùb½Â3n+rĤ\ Ù¡ãsœðy$žtÃo¼CG äÃD:;Ã9ð΀|è Pl˜q¾&$u8½ä&B“¹PSŸr—N•»â‚HOtô±×ƒM :‡_ ó÷ÒÉa*}’GrJ0Œ7 ½*}a”¡b¢ˆ²WæRѦ¬ Gt6(ëòcÇÅ©üôI É)1£üµWå/#ŒBTLRözü±3 MY+>Žèµƒ çð—ãt}é“\è)E4î0ƒÚ«3¨cŒrTT”Sö†ÆÞ€7å# öŽdÔÿÁ®©•^d ›~«U¿tªäy }À«>gø4⎽4]t‚;x¥êŸl•Ž|6ÂoU6‘/Lý¢-~±~2ÄW‘μg†»èD„¯\åH¤…-¼ðo«l^šÂ¢eJg´Ê:¥Â.›ôëÌHèÚ¢ÆK_V{ª>óª*Cl+c².÷ce’U¼®)6—4µ¸/YEßý„Í Í²$äK “:åaI8ÎË ÌÇrcΦS¶s5OÄæƒÈþlð*º$Èï‹0ûÒ|-Ëñ(¸R*'`ÞU–)µÓV9Ó ò'*ä›KG§æLP¾³‚¯ßп`Ó§ª¹ˆü¶HûSY,˜ƒÌ7'w •Ÿ²JZ
ñ™Jx:° k$Õ†Òe¥»Õ»çƒUz÷|ÐÊZ9ìuÑ2¦\:º}Ù¼OÇ’üèÐqæžðŽâó3µD æ´V!E¶+h”ÜDeœ$j/¬³hž¾þžJýDƒQ1ϬЇ²BŸK-F¥LÐ’ÜWeÄö‘½Ôà@m‹~_šÇ"Ë=u4;ºè7ÃXT[ŒB—ÌGàÊ<è
Ø+¡š'uD}ãÔ3ûccV!Jð/eökT‹*T%¨„ ëßåw`ã] ŸVF‹{°*B£JIR¾h² ¬¶‰k—ÛÃN/wgŸii†÷P_6ÖºwÒï:”
Ý“çjIT‰À j/èwÕ+Q-‚\Ì“WO~]Öô=aÌ`ê°y…M¤jcH‰þVLá'êw¼Ò!
ò†8 y’\š‰r΄"X#'GxiÈp¹klÌÓƒŸnmÉ]‘NúvoÛ\† §!ÕKöÌC8ÚŸ´
½«²V Y’ÃÕgäSot$zGS:zþ _ºNMæÏÔ0+H5ýLöcøE#ɯʶÝÒ Ø³H5LËšRyP])ó¾Q½Ü•à9†Ó}CYvrɇ¥³I&æoËNíhFõÔvH’ Åf#¨®ŽÇÝ} XÄ:ÓÏrG‡™èúö …ù¶¨ÃM‘IL5ùAMÖ¯ê¾x˜ÛòL—/>bãÊ÷ôÛ»òí'QCõàt˜«ÊÜI¶é E0é¨cÑrò›¢‚_Ê‚½*‚\΀uƒ“ç`¯©¿«oUvíœÖÙÜ×( GSSe™%ÖÑb´æ¶º…²x;V„Ñ|/6gt¬fí‹Kð±œçŽj#MݪqZû |Êq]2ä7—– p`öèÇUÙŽÛ²·Ãö·IRTZ¢ÀÿÀüÒYÊ÷Ôð ꢤ¼¤nôŽÖrÔ{@âcP‹ÃU§ÊF=ë’s=É8\‚” U²µü/0á#‰ÃÎm¾Ì('(Z„€)·¯{]DïŽÇ^N´{9ýBìåäg‰½ ôü±×ùLWåOD$ŽÅ,㉞KÜ ÙO(~¦@§' éùp”» øÆ!7¡xˆlF”µ—l
À=Ç°*0:'É«¾}¡gÕuÒ·zrO“ ¯Œ–Øïh}ñ– Äé Û<5pÉ£_H¨L’|oŠÓÊXÖ8ë…áƒ@i²xåã]4 bPÆyA¹§UÁcQ«FÁ«¸;3[ éI±n,éž:ãGZ¨ÕSŸµÒÖâå¦aÚ¼FEäQõ dçÁõÔqî<bŠë$ÎÓ‘ü,IòÓâ$iÙæö ペЧNp‹ƒ}0C¯“ ë(–y½¥½n)µÆ ¢Ø(¸ iÂQ+wfßWÑÛÜ\çô즵³Zª“í̪ÍÅÓåäùy ”DÞ
ìãË)c:ÁÓ8µ`à2VNÔA
ã½®¯
vG^¦`a¢ ¬¦=ÎGþæÊÓž~£hÈýaSs#jRÇÞ
@ýÛuI0Õ£¢ëÆå ÍŸ.'™D+ü[ð¸$ôµÒ9N´”Îqú…tŽ“Ÿ%ã çOç,¸²*/Hçd!vÈë(„ú¾ëvº£¶À_ àkA|U¨%!ó ¨ôuχ#ïÃ{µÈçH9Rû ‰Sp†Ä!Ï̘ç%¶¿“Eû±áê0ˆ¡á±-äwqM†‰¥(£ŽØüÐ üPûÁ—‡‚z_MtO}Ã-ü‘pu)÷]Y[š6QfcŸ0æ†ãsâpà„×Ô¦ŸZN‹¿¨³Ž£ôùükž@¦,g½2Î"qê¹ ÓAJaÄT~(r–ÖäI)É4‰»i ö·^m¶r ¦LGs,Íàr)s;6¨Æ¦:Û
Œf)20ò…ÀÀ¨Ïf+„¾§KyJl0ýYÊY*}¥›Þ!gãÆ0%>Ý33 ¶cfD'øe†°Ê-·œ s%s…¾Á»ñ.¬=çäW«h—û:4³yx5ÎѾÖÁÛŨ3¦É8{Ñ&ÒÓÊ8<(w±=ý—œÙƒ©ù qj5ÿ®€}=r· ‹òœåîÍ]©2s]+ØÜP l¿UN¶¿ ÃA«ê4ÄÈÏiúã¬U)ÎL‹Ödx[4
B~?`¦
ÂÌ3zÁÝ:Ï®°pÊê7©ƒË¨Æ-àé
E–÷kÚk¸þÕTñƒ£a0,òÈ||Ð$,C£-\½ÿeùH£ñ†ê?ƒ^PýÜÑú¤Þ« ÐèEs·¡ÑbˆfôK1š‘Ÿ'H3ÐóoPS“E9GíÆ1Uמ^¬
<°K„ïékÈÛ©X¦4Gª4ª;K*À€Ú© #:!`«R ê ößY½Œœ…YoöÛß¾Oú}¯£txµµÃrq ¢†"©<øV DsøÑFO_{1ó^a-빋Šn ÁÛ¦ä²d<ì
=þ4V™9ù+jYõî==6Ÿ96vxg4qйL£",_ëì´ÊÖr¾™êÌãÍö(Öe¦Æ‹nAR¿(Âß<Ðä ˆs ö0®_ˆ˜l9õi9¿d#ÇZ\b×Σmò½è·`,w›ÿlõ;´±ÿ±Þ«Ÿ† %
c¿RŒ<lž¶ÿ¬ÿ@ËÇæendstream
endobj
418 0 obj
2777
endobj
421 0 obj
<>
stream
xÚZKo#G¾ëWè°ÈHjêý¸²=Îb[–%Ϭo’ /°¹ìß_V·ºªùhIöAJSm’Å"Y ÉêÖëÝWz½û†øÿ÷ÕO»Õ‡k³.ëÝo+³ÖðŸYÖ!d“Yï^Wß½hÓ÷»?gEeëѦWu¸«ÃGĵr:1žmÓñW }åûp±Vv`.ʄܘðL vux®Ã§:<µ?ÜÌ•°>*#“3(~hÃS“sÕÄ šÄý¨ž#êå |.Lô‹6®þ^×a[‡‡&îS›>w}Lƒ´Ê ÔÕªX3ü„XÖý.?ßÞ¬®v+ë‚ÊëààaNë×iîË0ÿºò¡ÐÙ‘öëêì§:¿q³F]eÅ$>A2¦àªÜ6•Œ;ʪ³ìòŒ?É~>¹þ}â gu Ì1îµØ¹Ìº?>åO³Q ]m²…×Y%7Ù¢Îr´3ýñ“Üè1E4ö¸ƒ>ë;èkL;èR«–|6®0ÍFysÞ¾ÂäÏÊÿŠ¼+y¯GÞe}2®9Ig}}I.GÙ4ë;êòæ¼}…PLƒ5fs½³8¦g;äÌ4™ƒŽd¦ÅóÔô䟊Sî»óÑÄOÐeÅm|Þë<Ú/ó<·ÇyÿȘ"%*ëò°~FˆûmGê¼ Ñ 1úŽˆŒ“ùÖ:&ç=yF¯³°gS”-¶§ç:ü“%]¼J@FÉ š2÷œ'%¥!«PžÁR·ˆR^.œò° L2ëù]³Âç¶÷oš‚ײ0ç¢
|éžQ÷M“M{vÍÅÄ,‰!ÉzßDï…Üýó\ ×QnXÏ› ¬9e½ \ƒÎ?jeLÝH(À‘œóošM ›¤
.4î›à ×س â61Ù×XâöÒ‹Ý Ë9ƒ nArd‚ÿÑ” ¸¶ˆÅ;Uœ“•é»½“¢‹¤œù]AçµQÑ&,Öᇆ=tÏÞdå÷”m^´yyALàÚÆôÜ<ûØÍ=ÔŠ<4|I Û P‘”·–ñt³ $ ã¨ÀçR=V xeµ•É»K‡“óeÁ¹Ö)í³,â“W86œ|°\*kF~‹áÄs!ø7Øq¬J›ºoîç+zí•lyÅcØ@J°\·
"²ÒËB ]rþ‘°à 9&Œ “cÌæ¸Ù>ñ€ QA)DY.βò* Saª€[sM :\·FN
Yð” ôãž³ªNùÜû„+’ Pá(o««HzÒ[AH±*x/ë-A%ÀnâÊ?6l{Fn1½ÇÅO潸¶P’Œ1”ÂEI°>†‘ÓÜ€xbÍïŒålê°RGm×ã ãéçH0Nyo7Ë®&A)žÝÉôZËmËva8GpMm/÷•A@b²½Ô;.Ci¦¹©ošøûfïÑcæœÊæ÷3ôîꃔ‚!Ay#+¼ÅêàPóÕnq¥x#„*ØïâPåä¤Ê=ôKúÚQYÆ-•ôàÎ`/V =sÞYÑõ°¸Åó'RA)…q/$‹ª„/ ²PyQ¢——^uaß@y £_(Bl‚rÖpò›f´{ Ë{Ò¬ŽÛr üÚèq÷B ›–ùë^(§7ÌÄGÓAVBVÆá†òW;T[›¼rω¬-P€CŸpŸÁy wü·Mç¦ÂATalü¨$ÃŽ¶Í†QÝœ^9F Ë
"â3¶ö3¿/w¼Ëïö1§øÁF®ÔF+]zC@É·¤ÃÀ³ÐüÚ¢á$paû~|ö¸P¼gÙ«DÆþL`€e¯Ä—¼m›Àä~t% b ÁRÜîYÄo
ãæÝ£V þ¾ìP^¢z›•ÎéM–ô *¶èP ÅØœî —rKW( ï‡ê-fC"uÁ¶@A=#'ùðé\Ä:kÆ#rHh’C<±ì·çKËÆ¢Šæê/–B5#qã¼ïz»³¼‡óQëíì(7‹Z UÊŽÑýÀòMµ8œÑjv‡„ éƒòt8ýÒ¦GÔ¡×–Zó%¯„òfè/)a·úÂH…®Î %ÓöˆAØ ˜4–Ó¤«¯"ç>ú~á0Aƒ>„ÐÇÖ:8œ½ÍÐÿRò_p õþáNêž)÷gáòpᆾÞúH" ÇÛÉÇßÀîŒ]d|Rš¨Xèå NƒB:ŠZ•ÕL¢7D^'Fw8ê.k¥+@ž“é±èPËRžS/ *@HëtXýe©M7ÊsbSRâë+’ ~+êËvü$¤1b ó,bɽ¬ü.ÀÉÕNÄlZ‘w/:¯fîŠÞ„íKß'NˆîKØ{
öÔîéM¤ijy¿ô†È/;¡õ¦Gâ>sB…"Ä‹r>âôÜ“ØÇ…–£f]ãO†
õJ0¤Èx$l|k“ qI¡ ‚(JÂ’'Ï¥>–ŽÒ:§Î˜³aH ‹ú‘žºŒHIÈ/:d®¾0|_§»vÈ ”)|«ì‰) ê³9“بS¢s:¥?Ó¨Sò¿¥Q§BÿþFÝé€ò4êTÖ]ÓcjÔgÞäªØ\ûûûu*Iî×)Õ;úu*â¢~¶Ný¤d F¾ú5×ðí
ÿæmøä©Þh…²ü%ž/ŽüŽA\¦<—xaÔóø5Wû¸¡âºgüwÂ[r„]¦&–Ä^ªÀ>1êíâW ÝE% ˆ±²‰Þô-ÆÕ® Õë ýú××Ù|˜z¨|J}ûí©Íkx õ ÉíÁ×ö`ü„g¢ï³˜é¬±¶¯`ÀúèF!pHË<ãÙ8e>Œ@vø&…ƒíØo®næx:ÕÑ(뺔–êa.L…M[nöN
W&Zek)ßBÑä5´ª‘Ùe¡fÛbFý¦»~ „s ä¼à<ø0^ B½Ã®/Hõûî¦ ÍJ6RYgMìë•c´"ß[ËÃê?¶½Â}
á Usÿ— ‚z¤˜æbâùcuXÿdý9P¿endstream
endobj
422 0 obj
2227
endobj
426 0 obj
<>
stream
xÚ[Yo$·~Ÿ_1Æ®ˆ¹¼ÀO†n ÖÑÊz3Án€ä!ùû©êž!»ªØ=3–±ØÖô¨ªH¿:IéõãÿVzýø<Îáÿï«Ÿ WŸÏ̺¬ ÿ±2k
ÿÌÚ¸°!«˜ÌúñÛêû7uúôøÏ AQÙ:At‚S|Üàã‚ðDœN‚çMÛ´ý©·?ò}>ÓtVv`.ÊL˜-> ð±ÁÇ5>îñqW§s3„õV•b„œ“*bxôÀïÁor9¯U9 =ëUŽNð̘—G¯Vä ð‘ütÆì“CÉ—Dø®êJî꧶—g «³BÄѦ¬5D˜"ä$Jj%p¢··è‚ ™ ×wT¾ù¦
D0Êø(„¾R{‘þÄ%;8cÎÈ Õ¦t_ÿLÎÔ 1sØ0^ ãä
JV9¹
WÔcé.¨r$"n"hP´ ÎÐ'_BŒM€p–œQ&6ƒÖFPR·š“ŠAÎã¡Y …" ÀvdvìgývrœÍ"=˜np‚é´ùÜ uÏÉ£ÛË^nÊL¦âRVÁJݾ3^{›@i®¯´cÃFÅį÷˜“8/äÌØ“Í°Æ òa
·4Zuvß•¡`àÜŒÅj³ ç»j· ªÎG]Q'Æ¡å83Vï@-¤7Ø"š!Ð!
Æ·OUíM1ÕMÞ×ßþBWÖ!Á¼“çî°ýœÏéø.ê‡bRRT.¢ÁàD¬ ±€©çé%Là. ¤æ”¯ïzî(t —O¦?AšË[ÈåƒYX
KÎaó“\Å VBRÉ.ꚺÀ±‘z½¬‹–Í*‡6æåÒµ»â!Â˹ŸÐ€©‡~'šqíCÄ,Ræ! v”ÁQÛضڎ#lëpFÈ;8Ô 9–
Ð ®Ú
¢“ºU×ÒüBV%FÁó…2¾Ð ^³¢…Ÿ&y˜«É¨B¯÷ÖL%˜ÿö«vHà:Ôú…¸P{ a:ôtƃ)2 ¶îÞÍÍiÆ eŽö‰†©'Q 9ÜÞÉyÈЧ1Æ[ŠäçNâò,êl/§>Ù!n”í7_æG_>EëÒþB}SL:t)µþ;‡lF·Äˆ¾«›nú;ºM}¶Óº¾/R':@Ú Ç{ ÖAÕú+Ú žWªû»…¨æ0»îÌw?tÀm§bã±ÐÁ&Šr
3Ðñ u‹õGo¾ïŽ+qÈhƒ£Ök€øT
]`²%ó^lØR†îg\Äf WÎsM-Ѻ¥‰öÞŽ©ƒè—ƒœÔ~ädôVE0 k‡¦—óJZ`¸0xJÎsÚéÅnw:¹¼½@R’#R{g1m ÎÓ¡Lqhorʹʤh…§tœü¼®á²ê¼5Ó6 U`‚BÄ\ng±÷fúä #‡j4Ç*¥ hôö}ß“»ÑZ™„Ï”óãrìíN"–᜗‹9ègÎàÑkaÏ{ÇmÚqX·¢¦Ñ5B&ë£2w®Ò. ò—¾cÃCi¨„8u§Š5“„sm,“• rï=cŽIÙh…Ø?wÔYús¼îÄ] Jj¹Ü펜Ñ9Í·H‡½-†öáZãá–ú¤¤:œg¦3ˆ“Åì‘“³ ÷¼p×Oøz" ªfç:§×ÔÚ槡åÉùšobEóùüQ ”ÌÞÈEÿÈ› ‡þx/?y8(â”·ÔBhŽgQQNaÆ 0GKIníì‰ ØŸ–Ò™e|¬`¾êâ(xÂýçÎp’V.G!¬×mW5ØÐ/îÑs'Q%cå¬?x9;'·?ÉxÀú—¨Ï•Yfé¯èžB$©ÜYûí Ì\ õÎ
—ƒ8wóFm–}°xGY~Oóí ^J ÎsÙoŽâ¹M)EoæcÕ]ùü±Ú4%Ù{å°~ˆ‰ï O\»b ÅÞ“åRÚƒÎñPÝ…Í¡Ì&v´|Øñ¢·ytÓŒûO_¡á¬4}
Ÿ†ksœ²Ø»ãïâ< =“ÛÁ¶´¼”7 ûÄS ¾3us46#¢ Kó®IC²ÎÉ÷_>À«hÚ
Æ–=´;•/ìÌ‹v‡½2rGæ°á,9ÝvøԃآŽ}ÆÚx™k(GŠ ûœn =/Ä#°äûÀ¸¬7©JïÖ‹µæ 7I†ÎF¿ÐKW¿ÒÚòl)¿Ã=<“ÈbÑÄóðä¹h9ý¹f„\Ÿ¼«û¹Æ3«êº½<³-b„¥È]ßl¼àÙ¦¼ÕÊ¢=1ÆC›eÝûOÖèNNC [†$RRn¨›¿îļ0æ匑P÷€s=×ÔôC÷ˆK<à:S„TÕ Æ¹Ž1*ã##ç·f³óá2ø_s‹øô±JÕë üú·o“÷áÕ‡¢Š‹ëPœ²y
_DL®_|_D³ý#€¾½ÅÌß*k½EÏŠoÁ …@õ[Ü4dÄmÔsÔr-TÓ™“èÜR½®:ÙÛ>s!€Ep¡sþ RZô±Œz?v
Ú¸å|3‰ …^bÍZ 7é ©o˜
TUMî€Oîûº5ÎA s ö0 0‰¬É–S 5…¦*°x¹¬½*ö`*ؽèñ õW`,w«¯Pê7xFÚO>ä2RìÞÅŽçÕfý/õÀûËUendstream
endobj
427 0 obj
2721
endobj
430 0 obj
<>
stream
xÚ[[o ·~?¿â<$N“:kÞ–—×@–dYˆ.ÖÅv…¢@€&(ìíKÿY_f¸gÉòœ=’„×3Ã!9—oHJmïþ·QÛ»ß 9ƒÿßür·ysª·i{÷ÏÞ*øOoµ ·ã ôöîëæ/OJ©ðãÝ¿iˆÆ
¢lÞbs…Í9áñj°*ž'eÂî§Úý ‘ïÍ©¢Z™Ìœ=ÆÂl°ù€Í#6—ØÜbsSÔ¹Z*aœRÒBÎI‘›û",Oæcù‡sl &õ,S/šÁ'D?)mñç)Õê{S†ÈÒÏvLGQC ÊoÕŒÎ?FŸ¶ÿý½ýýölóönc¬ FKeás Û¯õ‹KùË—ïí¨¿lþØÀœÐ
îj”æœi}!2fCníìÞÉÂ^ò~ÁI¿ ®3ý4ÒÌ2¦ ŽÅ¹¦9û´”Œ³”½iŒ¹7I”#Îkb¼BL»y`/i·˜ý‚2fJã½ÛÍ£ö–ó¨ãÌó¨’QWٛƘ{“Ä%o GµA
ÁŒ»y`/Ž ÉÔg¦§$ó^Ì¿/gPG˜µ(BQIÑ™¤Ï=¿Ð~)}¶ËèÍl—Åæ¤.=9(M°a§í-gPÇ™5©’©Ç̽iŒ¹7I\òÖ1¦ KükÔ\ëÆÕõAê£d £ˆErÖ•õT3F”y4ÇØçwÒ
×ø†Œ kýƒÛÍa–Þ»Ò’åæ®19áekNîÁËhGçVÚ7Õ' "É`?ÔÌWYÍÍìKÁB"ÍÛ:ø!9+ä¬ÎÛ3¢ˆÍ ë4XØ’²,úÜô0ÚAûQЇͫҼ¡ZÌÀæmQø¡&û¥x«üBâ3ÏEá©ðáa6³Ö
^I)OOeR =XŠÖZÐ_—ÌÃ< åäBTrý,@£ÑÉuΓx/ÉÓ8˜Æ2¿)¸(f™õbÉíŒb”ƒÝS+¾-úÞ£&ZãPQ*=-æÉ4ú!¦Q0 e§Q† ¬¶4¸%” †
’òœºT™[fl{œÆö`@±r°³2bÔµ5í c¼¢ûú@xB Ÿ ú¹ê&ŽM;‹^7 §¸Û$Èû^Ý2—áþTt»/6× Æ‡¦ˆK±&ŒÔ‚òIY½ 5óÏ‘õ-ïÓÈc£G!W†@«5¸²”WÔÊÏ%£I0 Æ“b¢4:—-š“÷lŠJ䤲}žZø‹{Ѧ9åš"䦡}E»nÓh ómŠMqv \߸ÁC )U3ºiäQ:_Ä>ò<‰NËÉ;›‡öñ‡“¯‹÷t·Vö¬kM̱©ù-‚a²gF™µü ›Ÿ°ùe·ÓŠÂqή%@27’r]`w
¦\šƒ‘Ú™±9¹}‘0æä‚Œç]KÍ&(øPÔ}×”B5Y<ã>ˆ±LrƒÅ¥gŒ]ŒÅ]Áê8íðý ¨‰¨A)9źüïÊÐ Ëò>6A Ä7Ћª³|l *Ñìmξ\D„…Ar…ׂ0piÚ˼Ö)†å3 +…ÑŒé"r!1N¹Æ=1Ëú$Gé;„-
¬“"c$H“*XÁ¸#9ðÖQÖñ< Õ9ÄIçŠ«äµ ÷Å[-…G5‰¾*bO;ÐËèA;){
V/Ë šâ¢LËuEöN×%)=¥F~ZVmQ+µ³‰*q/Dˆl#`Ÿ(èr|G£àA#% 63ÇF0î53‹E†`Ù['‚©9íÏ[n7f²ßç(dLÀª¤ˆŽ8•† ÷ó„B·¶þµú+6pYÆÊ¿6“
ß܇²
`MÀd¯õ!y~ sõÄåÝ6 rßg …šÃŒ]‡àsi#‡]™o Þ†(;ê^§‹z
E4†aÄ ¢þ §QÐwê ƒ 0Hò³2“kê&ó4Hp#õ~Xk/u~h,ÔMYúù ë׺`OÅ /Û ,!æCž†A ª´ñP@)êïØüƒ®ÙtÂ)相º:çË 7®¸ë1ásúëJ.M!ØAãã©ëþŽr_S“îT¦VÄMRlƒÒ8ÈVP¾/äŸ)ÎÐ;sòFÙâ ¨QPöνËè¶)¸* š6È׆
ŸCç>2TÐ é:ærOíü¼[Ù &î´P™º6áûÅ·eGÜ [°gl¯ŽA-xp“¸O3Á§Î©D…Öß•vM
þ²†êÆ4°¬ÇKw¡Üÿ¹uaBc4ì˜QåàÂh~*+Ä’œ¸J°IÞ[.€§”|ò¬cíb(ùyÁX“QŒ*àäŸÊdî˲~켕) Ëp5:ÔªíZº+‚(+U¹pÖæcIÙ=ˆ†RÜÉ%Y *Fcƒ¼â/ÃIÂÛmF~RòúšýNWEg„”6ÊU}XåOΩüð†s7Ê›Ù^\$”õà¼*ýžæYÀmV Æ«çÓ¶—Š9LË(Ù³™
°/( ]¾iÃ8k
õœŒãD‡` §? ã8ù7q\è:÷@m¶ž·ó˜írŒ 8.JË\!i5=ppÆÍ)C&âðÇUŠBnÿFãÜZŽŠCÉ™‡Éz q¤îì«å”h:—ôx˜`5é*r”bÇöÅ·‡´ì¼ÒE·
Ìè}'Ò⑼kÿJc\EßôÀ ª’÷—3ˆ?["Ϋ‘ÓÖ@. Îc’"j.:i\<[Û`Ú·s D‚Í-‡\ ùq¼5~þëÅÙ¶>| /¼½Æ×5€ˆ¸°:‘+ydŽWÞx
À™.G_@ÏÝe÷™ƒŠ¹(äôŸ)ì|O-1dôÊyZ·AxH*){ϨsÓ¼Dó†¡L€²`%‚¯Fü
íî‹Áœ6–ÈÊÈMúP˜+0½§±¯m÷@+lþÊcÓö`ið¥ïA| f œ gŠŸ•M8=ÌÐ ’KBâi#RÜÈ|E7`ÁÏlà¯-bc¢ÂáI\0FP „pv„!”Œ‡ŠEëý06&1ÖÜðªñ ì±cZ`ãNΓ!$¡dÕ˜5W"6Póë…ØÎ[/Z¨Ó8›%ijN~ ¥öe†¤¤ÄÞ-r¹ÞçäÏ‚áxrƒg \غ¢Ãz›q&çW£ ß+EA×qa¼LéÛLO2s¶{ÖoJî=Ò$9N+ 7ì œ ÏŹˆ^åw[× ñ–¤‹|àQ™‹¨©ï±‘úb¾-æ<ûàøK~ÄyVFPÌmuy]"N¯°3ÚR{kvœèPaÇévœü›v\è%}špNß,Ü?¿ºÓøþg1Ð ª;.ª_ÝqÊgTw\ÄêêNGš\^RÝ Yõ±ÝüÓí-å4Þ°|Q)Ç… *å8ýRŽ“ WÊqîg”r\Ä3J9.bE)'VõÈRŽó¿¨”ëëßOTprðéÛ”r\تRŽ3õK9Ny¨”ãôkJ9ÎÓ/å8åR®)xE)Çù^\ÊqÏ,å2üÖ©qctÙx%W÷Û»"FmvÛß¾.ú¹‹}’õÛ¶ÝÄ-|ðjб|øR>x½ûƒªL_{>ò^a-ÛÂW0l¢ðT«ýί ‡Løw&ŒüÕJ÷í=ÁÇR$Ú»Ýðq“P¡ùP‘F.¼"0œ¯û
b‹ëÒÉΨ LõQ Ó õ Â:ØC¿B¼ÅÑÑpêç•E p¿ñ\ÖÁ%vxƒçM“ï¨?"g¹ÙügƒR¿Bë šð¨Üâ7•z¢˜û•bæùcó¸ý7Èúü?Ñendstream
endobj
431 0 obj
2858
endobj
434 0 obj
<>
stream
xÚµ[Yo$Ç
~Ÿ_1 9œÞº‡¼³º<ˆŽ•F»%` 6‚Ý ÉCòÏüûLvOW7ɪ™ Iá–«M²X, «zÔúá+µ~ø ðïÏ«?=¬ÞŸëu^?üc¥×
þÑkmýÚûÔ…¨×ßV¿{VJÅï þ9#È]2Vmðñ 7ø¸$îñqWÔ¹™+aœérÖBΦˆè EX¿˜Oå\âc7¨g™zÉt.:!úYi‹Ï©n“¾weŠ^úÅžÉá,ªKQ…µê²Ñý òú??×ßß_¬><¬Œ
`* ¯S\›Þ¸Ü¿ùºr>óÑžúëê—¬ ð÷£BÒœ3µ7DÆè`È•îŒ7{Y8²qÎIß ®#}£
ÒŒ2†ÎŹ†5‡<—Œ«”£aŽq4H”3Ž61
ö6¥ý:pdµƒ¾A#¥QÁî×1æë˜æ×1IF]åh˜c
ç¼Ó 8«3ª‹Æï×£äg*’¨ÏHOIÂ~
ãÏW0Í0jQ„¢’b0H Ga¦ý\úè—)Œ¾4ùœôÂy$ ¥‰vô¥i4_Á4ϨÉ$™FÌ8æGƒÄ9ï4Ç`I|y͵®¼Qͤ1JÖáE (’{]ÙHUsDYGuŽCq'½pIlÈÌ°4>¸ß ÷a½ =Ynî—Q¶Ôëä ,ñŒzv®•}U}Ð!‘
öÝTùJ!›*dµúR°„ÈS붎¡ËÎ
9‹ëöˆ(RuÁ:w [°>~,²vAøÐ%—ÏIšL˜!vYy!¬2möà,rÚOe[ð0ç±ÚCìdÁsU¬ýHÈ
¬,9A~G7gÄi×æÝ—eʳ¼bŠ ý+J¬b“ﲕŠìÊ‚?–Ç}1öÓ\„Ó®‹É.]ºƒ¥›$›ñq†@ÈëR–~ó¬ìaõþ¯%›8ú›J„OÆŒ€¸uŒ2ò›bïÉÕvãäµI]6DÔÂhÆ´”Ž®(h½”n]UÄS‰(áÿ š“OYàVzdéXYOo•+êÿÐi¸¸Tk¡F_WæÅþ uu…Üÿî\Dìûºo»ˆúSò[&—Õí¢,Ó†?•UmËrY^ÊÃú¨„Gê2—2ÙÀÞèœ9_?ßýØ_‘dmMìT gE¯)>5æô® Fè&j||n0'h_¡sd̉æ_Ê’Á»å†üJi …(±ÇÄÆNùÎI½_½6í`sЂÏDü®[pšçç’j©ç`—«'ß¾à~¢ ¾(Êß ÞƒnyÜYÏ«›Bá]¥ß•x ƒw2–L«¶™Û¤þ…æ¨Ó©GM[=ØKsQ»"dâ?Ÿ+ÚÈ®ª¦IsÙßÑÜw¹)&Z@ÀFHÒ%*§Ä‡$L /OIÓ8@ ¨ÐLÂgº'Ÿä1’•eú¬r´²©”ªÇ²˜Fm)–ÄþÂû“ !çy äÂÚ€S.„œç ääo¹Ð%€ó¼ .\ú9ù@ÈÉ+€°¹6'Âׄœò€Ð&CDÕ !Ú=ÊÝTJÂÚR|Xƒ† Þ a[ÛLr]ÖNPµ¨_ì'ŽA¢“ šòû ×AàpêYàРȽ¿ròˆt¦sпWMÆ@ƶ(IE@ŽVêºpßO~O±0¹²/e²AiŠ-0ýê¥ËsFwÖÖ-½$YˆW+ÑôWÈ sºwÅ®\¸–| øœ»Õ‘ÄÜ×iN~EãlJs_Ê žÎ`³V-r"`¬=ž¯j~O.tÁû¥k´>÷¥—“ŸTF(ﮄ>N« Üó Nºe± ¢ÙÐùžµgòõëè×ëµ uØÁß½à
ïɶÇOœü`?‹8ÖkÁSégw’”Í~üÇgAþ¢`µP6æd&LëhlKëT³iÅðD'gô—K ¶ŽQª!Ú˜¨WaìCÞgÂ)ÞG©Yó›/N4ï¾êî þÀHo · ¼—Ó< êô¬Âä"稷€'W´y™Ã9ì²4 s8ë!Ç-覮þ‰ÃÏ`rÝ
„o¡Ù1X¨ÌÑDœ!:‚¤üãÓžC ¦mße-ô0J½oSïj÷ò³{fæP€´³BV8ˆøžŸ© çP\F+M™Øi%§<Ú Z—†xgŒ¹xXQ™ƒ¼šIÂЛrz UmtP鴔܀ª#°¢ÉzxòÄ!šS±nOVw#8ª¤¼l:mblõÒ}+n§ !Q´#äWÆa¢¼$Èíè[Œî4ÿ “ÑôÏÜß@ròãþé± 9ÁXñÏ º„–—«·uÿ„žD«æžÎÁ-÷Äü•¤äÃvź9…{%
AûÕÃ>
vÊK÷nôQ“õÛù(ÖêWðÈ/.@ûs{N¿äàžó¼àäž‹X|tÏ+åpd_¥üqv^Íúê3 ç;å¬ S¸×BÄÂÃ~ÀñQKÅßßRoÙVŽž§n§r¾ätßfò ~¥Dàä• ÚU½-¸žø·}2Ô$.¡é×PwçtÕkNtì Ó ¹Hàäor“À….»JØÐcˆ{Z6ǾŽ(Vµ†ì— \Öߎ{[üÊÆH%Ö”(õWUœèÅýUµ´yß'W>IäõÒ “q›µZ,ƒèd—‡ÇPYÕ±;ÕÚ)(KÐ#Õ7±
Á‰ üNG»ÃJ"F3¹2ÑÞœ¯º ž9ñ+.†¸¨öͧ|ÁÕ±ènˆ Á¿Ù¡ÖhMÅèt´×öx¬“ù
Ín×e%›2dGJª IN{¤gOxÀ™^™á¶šó´.‡,&n¹¾ µòcå[çk^¨ñø‹Ëi ›lŸâÚÓÞÓû Æ´N Øž-…gEŸóÆ^®‘‚Tê(Ø0’¯Ì¢üöÙFн›ü¦Ð±gJ)ÔµkßžÉ.Å@dG'äLÁuSi¶lêBZÏ2ã5µû®Ø¸@tT4k „ œþ áäo@¸ÐÿÇ· ?‚Ñoó1C]V}ÏÐô›|œÀEÍfm~Òªílfe«}ßÀð±ï” \F³‹¹3€y(±J? „üã$õŸiæ˜ÊÔ
È
ógʼ;€>Ë5 —4ßÐk]v1`»”…„©Å«\ÀB-÷ìoØ]¹¯cØßD0vÖÒ_Ñ+ÁOõ6;,<o*¿mö[Z\L¯üÚã=X.ë`Bí?™ÄzIy*·èØÃb…£„Í£ € )
¹_X^í}¦¨œXßei³Ö»×ý©AMìüÐÀ°Ch_ñЀ±5ñÈcq“ójØãWwʈÍùHoá¯i»[«[K9Îx¿~x(bÔúnýÓ·Ù¸ :¼Íµaía¿
þ$?ˆƒr;¾øZ^½ÿ}JO?Bâ£ÂZ~*Àì Dá"µßòY~ŽŸí3ò³…1Û‚Ž ±¡ 0¡cÜ:Ÿ…
›cè D“1œ¯õÝ‚„„]É â%õIK û[8ŸÃ¬ý‰/£~ ¶ª \ÖQ;üœ/˜*ßI¿É„`¹[ý{…R¿Á38ta¯Üì¿TïÔÅ8ž(Fž_VOë¬ß Ò ©Nendstream
endobj
435 0 obj
2745
endobj
438 0 obj
<>
stream
xÚµ\Ks7¾óWð°ålÆ{€kŠ)ËeIÔÓŽo©Ú¤¶ìÚ=ìþým̘îÈ!åTÊCͨ»Ñhôóã(rýð¿•\?ü—-üûcõëÃêÝ¥ZÇõÃ?Vj-á?µVÆ Âwjýðmõ÷/RÊîLJ΢Ú0¢Mº\¤ËMºì—ÂÈŽñ|‘º?åøéß»K‰µÒ=sʅ̬Óå>]žÓåCºìÓå.«s3WB[-bTLÎ&‹è/YX¿™—ü‹]º<
ê¢^ÐÂv–‰þ"•IŸ—X·¢ï]^¢—¾ ™lZEŠÐI¿–"jÕ8 ×ÿù£þ|¿]]<¬´ñÂy0•Ç¡[+OlìŸ|]YéÝHýuõç
ö” ó÷w™:I³Vמ “ƒ%îÎgô(
n¼›ó¡IÑ‘ =°2QŒüÃMZ…° ›õq&4íŽÞ ÒÇ›A[j²ƒ¶AhkGåÓ[íñ“$bâÀ4JÅqån¾ƒ²Î´…"9iÊï†5¦»A✷¬‘Vµ2y‹ ÷a¥Ò©™ŽøIÒhâ˜Ó€ãI5î£ÜÍ÷QÖ™t)’“®ônZcº$Þù“_?9Sñ9î…óHH ˜¦3“C•»ù>Ê:“.E2Ž˜énXcº$ÎyËC‚EñåÕºòD6cÇ(Ú‡cy Kîu%w²š#ò>ªk´£ûã’(a™ai p·YâÌ<”—:4?Þ%NÇCn©ãñcXâ õ]«ü
û C@Eì‡Rür-+E²Z€q¿˜ÈSK·ê¼ˆÖ09‹K÷ÔT„ê†U ›Ût¹fMŒvN¸„ÜõEûÇt}ƒè;+ú¾…Ð{’f`sÌžFÁ¦þ‹ˆ%=ÆUñ>Ûâ±4H"l,.ñ*K|Dä¾Nó}Ýä?åuÞä-]Öj¥‡çk?eX"RÅê}eƒû9¯Ý‹xFŒ¶²²,ßmvKì³3Cûª°Ç@;¨ã}ËUƒMûÞ”P¾Ïû¾Ã©´·Ñ‹¸¢ÏuÃ%…VŽ‘o_éPQT:"ösæ¹ašo&<\éBÐp¥?p=‚±s‹»Á‘ù,Òåùe*§ëóÿ€È
$|Ëϧ‘wé¢Ø¬59ŸõO‰· ž,ÞÎF â ”—`™<—¥\Õ
ˆ…5†1€,™êZ´uÊš¦$É÷Fü[ºDn´P•
Üås"£ZñK#:«#XÈŸfø4ã$jù}‡ý •·ÉÚl©u•ƒ,°Éðx¯éïqâƒ"à4“×HÙÖÀò _þ»÷®ê{ÁWb ÍQuÅI<¸$*¾xd·|}ù’sîŽ'ÜÀ角*´ï8ù6ë‹Ã멺1ã°GCZð\ç§J›r—sü„€”k“c|Ó,JÖYl—þú[fºÍfºÉ¡újÈ©©HQY>'ÐÍÖ2Ž›üi«ššÐh‚®²¶/YÑ窢 Š½æ¢ËA:¨!ÚL«¶UÅi¬ë{"*â>š—YwÙh§¡²A«a‰º8UM[å-ªwP4<2´›•n¥ƒ~ÆYFßH§òÄÍFé=pÝÖªÊý s? j`N©‰ØáÞ”:ÜŽÂ "Q
Ά/•¨ Í,ë*œU‡›VH£Š/¹¸Ç¨·öôÿÀªYö-¥Dpö¼yhÞxè…©°²‘›!çâƒ!À)ÆÔ¯v…} *oÂwåÃûE^pä:.¹t½C]cO„v>p{TÚ³NÅr/eè í¬ìb]ðõ,ø5ŽÛ¾¥•|™ê`’ê 沚¬„D ù!Ýgæ}v´Gœÿiåíò3lmF9Ÿ _26[Åɯ³Ò·—„¼#ã)…¹Œ²—x{ä¾Ú:†kКo!yÃoÍùÆJ¡¬cô>R`—
Â;ÅÈËö<Ó&0LÆó1Ûãy~ÒÜ ƒƒ ÉU<ß ¡ÿLhxQ+'b œˆæ'R2Ý/’¡K_V1·ë†Ê\‰\ÞàÁvŒ‡çí½ð:2Ê£H‚†AÓqöÕ
Î+ @Ë…6Ôõ¯ S© ®ÌYÈŒq03؆¾G‘-·ûgì¯8‡G;ßëU>ä; î–"¹¦âbʨ³Åm_™eÕÝÀ1ær\íwØÓ¬pPÅ)y̶ö|ºÎ[§ÄAxú>
·¾i“œ²£…6}#H‰*NÂð
%yáÞŒ‚lœLzÂÞ ôÍ.pe4 é¡”‘+CËVšàå»}’IMPõÖR9ä£ôõ¥?”›‚©¡}¢<³ÜŒQ#+LÅ0¥Ç.ß?á r™Œ
Ý(¸©$ßÅEsÆŸ`Tg÷9bK¸ÏYcÛȸÁŠ¨"“x…û”[ìŽF(͵ha@åL‹œ$¦9eÜ&{hžŠ8Ñ—1φï1kÊ}'öʲ1—gàH_÷÷?ì·üЬER®qó?
–c0éùçÓa[͇ §¼¡ûùãKܾ!ÁŸ³ƒ\[ßȹ¡ë'ºñ0©¨ÝÁˆw±e)Ï™#ÔlSÑà7 $À•ˆÆÕgSJf5A<» ç…_pGÒxãF)lòQ"ñ ü- ªŽê)ìRßJ$¶ºh£‡–“¿ËE#GdÇè=ãn¡ˆ©Dµ ãˆ"R¢c("¥?‚"Ròï‚"R¡Š˜ {d—PD6jLp":O%l³O³Ñ#Óos6ž¨.ð×>Íïv5L>^}Ø‘Hj£Ž„ð БH8 sLŽ úu˜#r s¤ôG0GJ~æH¹ÏÀ ©ˆ30G*bæȬz"æHù_…9¶õocŽ}vìô÷Á ©°E˜#ejcŽ”òæHé—`Ž”§9RÊ#˜cUðÌ‘ò½s¤ÏÄ áiéòó!@pr¾ôTg—¾ªCÉï³–O¸Y-
à–b6Ròe[= 2½ƒrºÓPiÁù—öé<¼pÕü®å|õßz"GªPSÄ©òÕo§óÆ Fa IõŒGÂCú§w ‚_ª?¦ ¼ƒ19HÏ]TŒ±ûÝ¿N)·œ2¥”T›k”»Ã6i¢±E®îï¾i÷8Án°Ñks´7LQ°Ryo.Ô3v¾wwJÞ€ûÎ& Jþ 7oǼGP]ÇENíÑ£7Æö……
Ø/;‘„ÍW¸+9=½g9åI› °ÐÜlc ³¦äK’Z-''˜(Vlý–—ÓÉ`¨D§Ò(§ õR3úM#Ýø„l)Fþ‚;¹aÌÁÑ›ôb|3\’yeø2?åˆx‹ë;”Së(y¾ˆ_.˜¼–U›rðÖ2ÆSË”‰RH嘜;
öo × wuDÏêôâ°Z`‡ô6fì; ‰ìj[–¤ 7¤PJ~nLè8T>*¯åRjÀ)yÓ¥ /H HȾ ‰Žólpw½o½EP€J‘0šßŠV§ ›U0tê¬s¨ ?$⹜FÕ:„6Pòyb:)«_6¢DÇ`#J6¢äß6¢Bÿ
ØH7#»¼âå3*k“÷¸9þ˜Qœ÷yÆü)«ý ÿv—[/g
ç©W€CTT ¢”gÀCTÄéø4 p}:„E Æ0õdŸ† aÞ3P!,à L X€KžˆaîW¡A-ÍÛXP€É $‹Z„a–6
„éŽa@˜z „9Úø¦;‚þT„.À~0׫‘ ,îLÜçböY¬\ÿb׿›Ý÷·*p4~íÒ›a
¼*ä_ó¯Æ?×ìéËô.³æ?›£¶òf6‹¦ö§íWhÝÿ !³0p“PúFÊÚzMæ-™
Çgk3‚Ö”¯õ7²Šgviäþ4e8N}Ò›K©Üá¨0(Œ…3ô T0.½8¤)õy/OA.í´§²ŽšØ¦÷2½®òô¿(€`¹[ý»yà\½M.ì¤ý${§ (¦ûB1ñü¹z^ÿ dý #Í:ºendstream
endobj
439 0 obj
3017
endobj
443 0 obj
<>
stream
xÚµ[K“ ·
¾Ï¯˜CJŽË6Åw“×Ôhw%miwFûÐco®Š]))UÉ!ùûÙÓìƃ3•R.÷ºÛ >€äèíÝ7z{÷;<.áß?6»Û¼¼0Û¼½ûûÆl5üc¶Æ…mIÅÁlï¾nþú¤µ ~¾ûÇ‚ «d #Ú•Ç«ò¸)+ĵrz`1ò›¦àÇ¦Ö‹æ» ÙÀ.‘Ǿjsü(›ÎÛ²Ø,㮡pÀ” ôÀ•~Ó4?´hÚµoõñôTKN,ŠtBÒ-ÚgÕw86›ˆ˜T.V$":F·iPF žÑWÞeyì³Fw~P!0f(T
Òøh#Ÿ-^i¸ õK‘==Í–ÄëªI“ý®-“K¼ =לü²Yí¶Íqß–(IROÚ4`b\ç!;í[ŒMõüœYç0Ûñœ0Ò!²K}~nL·ÍL7m"T_;°™a²^¶X}2«MÚ@ϲ”0ãÅë¦Ñ‡¦Ì£¨LÌÊY.Ê°k“Qƒ0èåéA‘§ô H蘈Øü Z˜u‘Òû tôD]ÜMSå˜ÙG&d´4ÏÇv€ <£ï¥†<(/¿Ã«yß^op.0"÷GÌýp÷ ” ’ˆ«9¶qªr
àfÊ\ÄcK`;>,à¦àpƒòÑÔ@ {H”z<‡5|ÈÕ°‹„A#íl<¡ÿuk•Yl9˜{ðÏ+uæ˜Ñ*FÇ„ÍY`ÙT VgLu´×8ÆœJ7E(Ç<]ù€W^‚–œKþ4›¢ZGâ tâöà`î\PY°Ü‡¹Ê‹ìϲ෋Åoñºu`RóaæD?÷ìª0b"ð¢Ãr'½ȯh÷8ÇStµö‰¢T*:ËãWŽ‘S¨C앬˜ª‡€òpWÕ|ï8åî:›d6Q·Y-²Z/—P;CâÇNîƒU‹…^ÏS“Ð ILP@eE%vê©{ÈYžß{<Ékœ®X>ñÎ(cùlÞ6Í?‰~ב Ú83´íi
J. Œ× ð
ÂB. Žù…PÞ·e½kÌ”Í0¶øƒâ£4¡™kõ ñ1 ¢ÂÜ".í ¦”; ?vÌP„h®‘®HG‚ÆD•83J¨œ¶'¬p:o€q¡Urà*–*Þb‡æí7 ì`Y-“C’±€ŒY« N¤Œ‹Þ¨½¾Ãu¾UƒöŒñÀÐÑAšB>1GŒGþ]L²FÏkø‡RÄ&±×Á'@gÇmù¬fÒC39¤À„]ã¦ê§Á‹EÙ<®i±ÁvÐÀ-…v·iBMI”|>K¸Å0xÝ@zN%Ð 6SÝ^aÙdHc?+‡;‘”ø¼;9ÜH'C`ägsxÍC‚}I½»)¨1'xp\訢ëØåûss‹è~Pn.m—1™I$©‰œT >Ô JÐuR9;¹upÖñ#
Ë¡¯•Q©I-3 æ?r7
Õ°@]prǵžçô{ÁC¸…Z¨œlRÆÅÄpžŽâ8½$Z¬\BŸÿ¨Ò0 6f.þ; ¿3¿5áµ6 œ‡¾(
L]ð'€Ð÷üë½&RB.”‡ ;Ã(¯„ýܸB9¢Êù7å<ã ¦v›¢š{œ:ï XãkUXí
D¼Øµè8“Ÿó¦î,©i;€Pÿ¨åü˜°ôï©¥ÅÉ}kºöÚ‹ÅœBocÝrYm.\± ÝnÌ7Xƒ Ï$¬_\å;£U„–žˆë5®0wkõƒ°USzŒL ý–î¸xjë?3¼8 ã¡@¦,¸pš÷ˆ±#’¯ç0„ù•ÐGD¥aÊ„p®kßuJ-Sz|Cù>áÁ¡KHÊ:#Îê
oöT9gQãΞ¤RÂò¬-I¯Çæ\ ŸÍ”Ïô»ü
÷È*à )ú_ Ù,èêI¦’ºôi<Ä äWkÎfȪ³®^À"’øl9Ò-[„°W yW¯êj}>×þº"}àª|IXšÀkÊòÁ„‹pÆ!‘•ÏAœ.9×MÊ
Œ`sÚüwbÈ n=Ä=Hž«;VÙPI½ƒÈÚ 3ênm[*çL©Oïj½” x…×Y[˜ÙÀÝ)>ûŽ7k òìôL&p3Í•éÔ¢LéNU×e×Ê,;{X)å\ý´cØÑ@‹£ˆ°ÿ²%œÛæ¦qSE®ý
ÜŽJ™½{Û = .'œ%qa ½‹ eUE6ÞI@€ªÍðž.†Z4YŸÎAtÙ®ªnÅ|'¶ÊQ‹0Ö›^ºI*xf˜9¡Ï«Ž\~RJqWÚ“õµ¤f CÂ)E>ÎBÐTZÎw+\§}¤ý$"ÆMD‘Bå‚ŸÛ•NÊeY‡Ð¼ùTÏ)(ý~>SÇQcFOr^¡¹²Eœ¸à¾ÀÏÆ0ʳûf¾4žÑ›ñl‰RJõù ïÙ_J%Š÷ã6#•‡`é*Wï F©×ˆˆœB~lÚ^Š——j-LDÌ.ÿŒoØŒå7_7X¨ˆ×¸`úŒ3Ë5Þ¦~¢ VA"–E;T×Ù[F×Cä ~ç&;¿9 °udŒ= L°œ'òröʉQvQÖ$è! ‚ÈÉÍ— 9/;lÆšr䢴—omæk†œ,B‘k
£üгs’U‡jJ!Œ78
1C€ jÇÀü‚×èE¿7€˜ è^€¤écôgÁ"±"…ĸ;u b(WY¹zŸ tܧKå›^ºbcC< ²€Ì²}ÎÖFkgOD—J5›8ew§z< §ä'´ôªuáÁǹVÖãVøÌ[1
!8ÊÅN*@è'ËÏŽü §w dJÑ/Igøj„‰|:!ÝkÀ¬4¬^6ìÀgy‰ œkr`zr·é¸¡|ò’*%:wI•ÒŸ¹¤JÉÈ%U*T*?ÞÊôY7UM9?]ç;nª2YP‹cŠ~Z5ÔÆa ŠˆÈX £’Œˆ"¾8—lô½Œ—Vðå"½±óÿkô_ݵõö7¿ýýëâ½¾zÞ ²ƒå¸…@9µ_Ú‡hŽ¿Mªôó[Lô±¶ ¤Ð‹qe§²®-;é·ÞÌ(?!ä/VÞŸèm—†Pj<"´P‡ÌTØáõ´¶B´JÖR¾NÃ^Ú
™]:×:ʯ!§þ¦[ å4¾é ïp |W¨PŽMM²”úÙ?
l¤²Îš¸ì B#/ò}ÓoZa±ì7ÿÚ©_á} á ýâ¿t
ê‘bzŸ)&ž?7Û‚¬ÿ•ý endstream
endobj
444 0 obj
2950
endobj
447 0 obj
<>
stream
xÚÝ[YãÈ
~÷¯ðÃb³²šº×Àãîž5¦o÷Ìl'°@vÌH ’¿ Rj—ÌC¶ää)¢^iHV‹ÇÇ*Ú¬Ÿþ½2ë§_àqÿÿuõǧջ]×õÓ_Wvmàvm}\ÇXº”íúéÛê‡WcLþýÓߎjWœD|¼ÇÇ->® O27Yð¼—ßþš·¿ùÞm
•ë™kgciÌ øxÁÇ ø¸oÓ¹=ž„ ®«Õ
9›&¢<7aýb>µ¸ÆÇ~˜žgÓ+® 9ѯÆzü»¥sç{߆è¥_½1 Åt%›´6]u¶ÿS]ÿóWýûÃÕêýÓÊùÔŪòð¹äõ·ñK¨ý—¯«+{£þºúmkBhüý[£Fi!8í ‘q00äv>À ›,|K¥ qÒ/8×ý<Ò d o8çÖœê±d\¥|Æ8¼
åˆÇ:)É tÒÖ+5p¼ ÈAi²Ïoëߎ×1ŽsXÇ(™îÖámãð6H<æ Çœ›ìm´|ÖÊ3¹ÿÔ>È:¢°Á&¹Ÿ+{3ª}¶u¨cœÚs©9û"rîÞÈ™ÎÑŸî?Z`vw‡9c~7ƦjƦÆG΋¹4²Úœº¼3;²¢° MgJÂô„Ñ¿¨K·µs â–—ðñ“È6.†.W/ÈoÚ¨·29¤Ôù,y é:~"<Ŝ֦©êŠ×ÒÌ?Ú´vzâô¦ö “óŒq'y¼íLKéwð†R…B¹VâÎ#
ÊÞî~¦)ò™YÊ[N# ÂÛ9EÝŸš ¢à`ß Ûã¶éîZè;8 *¹Š1î¨9ïÚìûoÏ}êE3ÖgŠ4çÆø¡½ŽûS·Ä²ïrñBÔ ÄÖ¸b ÿXA¹o#_7oßQ+"H‚jÝB°qrøÝ<(0G9‡
l"ð)˸¦XhØçW™S™ëchP/„ÜÌ¢©2Æ/Ô͈÷k»P£>ÍŸ©¶YØj"‚í²'t»kø‘[V¨yvDp˜6k<ÃÐfzûç”Ô½nÆë7—†,Ó¥ '¨ËU§¼jÝü¤â!™ ìçYtø<¾îäÔ™ïÛ6ú>z€ò¢4gÜŽ>Ò^?j> Lî ä™
x– -^U¡B BçC¸—†p0³’å3E,Go§¶j/ãT²oôxà*‚>/È¿4ål¤Cƒsš"§¿™?K´¥¤Ìr*ð¡)
›“í¸-aôãrPŒLÑJg’ºý9.‰r«!yy€û\Žy`ÝÎJÊ«6"Óß çt3 }cÙ®«ì‡Y¢û1òóŽ `{/Ø” ÖI¹¡D¥ Fj=áã;|xj*P=(ä#ÀÝ÷Ôú¥ Ç÷x\ÕÁÙÐBì²K‚[€™ƒ]¥0•Ç.b†`ä£ ÜJಃòHŽÁTXüÚœ‚€¨½“evö6–Ä(_NÅ*ÿfD“<ÔæB’
#_ h +1
9K]÷RÄ‚@|VEÜQdÿ¢Qô¹é¥q? Ôá0ËCyĹ ôPâ S:?AÎàw”SûhÞ² # cêm{Q ðj|;}M]Ô*pÜâ#ö_zZ¯CþT¨1‚ø㎑jïåþ¨çJèJ‘Ü
Þ®n@ÄŒ’… –ˆN©Ã…®š0W ”Õx„ Ωt§ÕW { ¶™Ú«¾Ã ǘ•pß9»Ë•g @›4Wy”ZQÊ”r Þc.düóµƒ;çÖÕ“q¥ ú
QRÞ\¢C<Ö•¹:¤ÔG:œðGF¿Ð ÷ d”J<®u(vå%:óÛó\Ÿ¥Ä¨©ƒÆ‚LD•“+ €Hœp<2dø§ÏCB.;TPrˆI}bÔæóÂ
Qzä3ä½ÉñƉþ™zÍÔ¢Æw^–G[¤Z¹3sqÔÉÿ¢Y¯¡“š‰ymy©¼§j† u¥‰ó)–~0' jG„Ÿš6?Ž¥{Ã÷PÂÔ~$¡ÒÎÐœ¥¹¦…ý¸ =?w}ó3=òxh€îŽžã])ø9trÂ{†AOq0H—0Y´ê´úâÕì½ráb•ì3¢°Hc&%Ò aÿì4 ³-fì<Ø•þ|U[ê…ÏêL¡“kZ,~ÒÕ<”.¶ÌU¨Ï¹ Yèää…N©}ÈX>
stream
xÚ¥WMO1½ï¯ØC…ÚC¿?®UHD%I4=!QTA¥žú÷;Þٌǡ$áÅá½Ùñ¼7¶#ÛÅßF¶‹{Fðû³ù²hN‡²íâ¡Q„ Õê`…sNXÓ.ž›k)¥ÏÇ<˜O‹_=8iø*“<Üæá<'yäa˜‡Ëî »¡Œ‘B+_ƺÆKpIÈ’vŒÜå0Ã0+Ìa†‰Ð ¢ßæš ¼Ï²…Ïó0ÞZ©„âå Ó2ÍX&ʸ’³–Ú¾<ÍöI(N
žûœÕJ¹šÅZx"í‹Œ?Àü> ÐXú€’öA%LÝxƒ±¿â_wÝ” MÙkiìöYSD…¡à÷)Bc ¨% H%L]
ÃœSmnPbºC…LöŒÝ¯»[ÉŠp@ Í+ ò
-a!0øÓêÍÓÕ|Šžø ‘ˆ
,‹xƒq&´MV\t ¥°N±Ü‹:BþV3d/ñ N×knet“êôÞ+}ÆÝô §´òÊí ¹ˆ+ŒÏ¦ôoÉD=\Mò‚ÚiSL©=!“HšÛ9‚³J›ºU—T+d×- Ú.s‰ô!µÏ”æ<âÑ@U'-‹XxqI·¹ b ¡w ±¯Œ¸bð1•Ÿrl)ðWLØ~·é ÍòV$Ÿê‹î»}¹§í ïSà"Œ0£BŽ¢Œ´Q‹{¥z|ç1zÉéz9h×¹bx9Žêº';ÏtÎD° áTý©Uu%s´Úÿî•ÖGÂìê ·A•yg ¤Êö³mïŸwæÝÔÂu2Ává’:¶ð—BEüà ?ðJçÙ ¾ŸùXÎúØ{ú¿d×%ÄvÞ#¶œÇfÕþ†Xÿ à}rðendstream
endobj
452 0 obj
879
endobj
455 0 obj
<>
stream
xÚZÝn[7 ¾÷Sœ‹Ø€VÕÿ°«Áq’6@'qê!wÚbh6lëƒm8RŽuE)=N‚ rŽý‘¢ÈO)G×ßr¸þÃ1ü~^üz½x»’ƒ7?-Ô áG
Ö
Ö+¡ ®ï?ÝI)_á°Æá‡S Îpx‡Ã nÊ{òîçëß‹F-½ði½Åá='í ÍmØd`™j[æ[1
¸ ˆô»"¸.&_eµSAeðLö´ˆÝp †ö8ü€ƒ¡«rÂ0ðyYŶ,/;{YVö¾µ<“ Ñó¡x¨¥ŠÉuB ‚)1t¶ì-¯ÔISæ(–Y±VE&”θ»6r™qÝ˧Û1ü4^¤h™ŠÑ
«âçì¤ã¢‡˜¢µSÓÓã¨ØGÃà#UÎË {l{ ·ChϽ. Éž}'ÛG!°(h?U¥þAäîã¿??ü±>nDÐFÁ¤wl>¢›ç¶æ‹Mš ®ž™7´r{HÚ)P¡˜Šyù@G”Lº“t²;2VðNJ0Ê ëƒ ”ö©¼Ml²§Ò€JË ‹5“õ7rGØí¤JúÙ\0
ÍÔv7h„Px?„:>
>ãLê$”ŽLºC £4ä îó uŒ–£_Ž97o™SI?·~P)°©=$˜pðâN®UÌ ¦‹`€aÒ½<0o1t¯2HJXÏö‚ÁôQ(ýÔXáI(³›îî ‹[´à6¦¢Wt$زè6Š>/«NòÍ#e6XYøZ×H¼sÎX
ºiìº&ƒõ Ø‹n€UAT[«:´ð3x ÚZÕqQuSThýp³ %
Ƨªûµš;Ø~ ¤òLð¹É^:\djÙðA‹€á¬TÌÛðŽ ¹½ìí¶,5ºC t´¢ÈƒèЬ»UÒÂCŠz©”¡ô—ž©íî]H¯’[ÑÛ
òiäð'í
í’É0e‡%I¨_-SÑ$K]…ƺG¯niG°m· ÆJ1=+º—%°È¸^™¹a3P¤@å17lV¥\æ¿HØ2i£|jÈ”wpZx¦¢»¿ï¤
”²&7µ‚³â¯M’lH >gC'½ížôlÔmS®új¥ËÝcZ‘biÍÐÇ´. ©Ñ# $m …msÖÛ2ŒéáhLþœBÆçê¥V¶-Ç»Á{ “çKêåYè-’ã“ué
Eµå1›{:”¼‘BjWg„¾p?ƒ ZѾ)Š SúK–#´Œ5h7¥7d¦È‘UýDÓ2¶†ÉŒW1Ûf£å¾Xf^4H¹¡,[Vå
ÍÍZ(oÙW”£Ûª´+álŽé¹É¼Ô3V #ùÜÝ´Lé—ë4Ûv
ßÝ&:!nO6‡$UC» "Ÿš`Œ¡1áŒ,,ÙVÀKÛyi¸¢=
[ùåáC…)¢5(ïàXò‰!W£Óé ’ðVº‰>ÔÝZ&¡‚bÊz·ÚšøºØr ‚Ï8÷b ¥ùâ¿{lòBÛÁ¸l4,x³åÚðÓúñ
ô2»SPpóPϾýî
ª‚
4Ѽkš;-r…ÜyW% •I1ø«ù}-ÖÙ÷u¥BÒ¼²¤Ù¯j]¾t¯U@mbðõ
Mö˺ÔNÑ0ÙjÏlhN ÔÛ¾³¥‡~ÀÏs6ÅÊDS u‘Nèaq[Ö¸©`“~M³Áº¬qE‹ ºA~3Áté²!OÇßYåHZýˆ½egľéôÞ„l9Ççú=~Wè‘ eè¸2æ>¬ÒpN7/k#‚ÒU71'“³ª¾éš²Å&&ÿï‹|å‰ß ™Zõ! öi‚®Ò03¿ç{_óMwËûJè]¨Ñ³›@ þ›^EÕ–m)^³“Û@±‘\¬Wýiç F{¦ª‘ðp(Z‹<¸<ÃŽ® Roìðñ~òœ ÿš¼á ÞfíP"À!—?(e4T߆\U½=ÕÃòÏÅ%üHlü ET*â‹×!¹õ>ðÚA©êÀ7ŠÎûüä]ÌO_Nëêiüºø²ø´0ÐK²ø4ASM“Yv²`AhO‚¤‡/¸y³÷‹rbç¨Z¶{’ÌN9±s‚¦š&³<Ø9‘”$Õ2a'§Ìÿ.¡†@ÿ]ªh®ƒÖ4È4¡Š‘ûŒŠã'R{9‹ÇSõíúãßzï.3Yd^·q ò—Ì6ïûç±—ù²¸ þ ]ÿi¦TÞendstream
endobj
456 0 obj
1685
endobj
464 0 obj
<>
stream
xÚ Ën$Çí®¯˜ƒ³ˆ»]ÅzçŒFû˜x¥‘Vò:›“Ûâ É!ù°äCÖHÝ*’ÕÓ=;XI‹Å792›‡_™ÍÃOøqƒ~¹úãÃÕw;»±yóðó•ÝüÏn|Ø„ ƒó°yøíê÷_Œ1¿£·ôñŽ>ôñ©þÛ× ‰CI^`ïFœ»‘Äž>ÞÓÇ#±ýòþ5Y°fÈ6
²OôñAp †”%ã êaŸÇw‚„3eH% ïGìÃÈù}¥Ý`§0$+x%º×àÞø!&y½H _чkÀñu\ ùq¼ÊçñŽoèc;^oÓw;³)¯ŸÛ:¤h ò`×¾wtCÉE`ù2‰¨Ïf(|©z´¯ fðÅ
b=¥paðY^´#da(Q@¯ôH«$¤å±5úy(AJ®«_ŒM
€–òâ—rÉ©ÞŽÇ<ŽÂþb\xQ¬ÄË—øš€ý—®‚>Ö”Fwr„&ÉÞ¶ÞãÝñV
&ÞÅKê“¢ÔÇ{jP
*ªñçͨLo…UØ!ÉoT^]Áäò${ál «J CÞµ\nGö?ŽÇÞ´ª¯vD¼à΢§5I€/6hI1¤Á¦"( ‰5± Ñ'Õã ðl«°z7R¿9zl½s Lv ù66
aVÑ›öèă‰ºð–éسÙdßøq:¯ã¶1>I´®Ó.ħÕÙëÒ“ÐÛFsž§÷è»rÄzž>Z—ü®p·€W.Iž8ãnÁ*“l+á¯õÀFÒòþv.ôf”0
Ãٷ°o'O7ÂI«‡¬Ä,È*ô*qŽ®ßé¥y™Îv‚bÏù|g…Õ “M‡O‡$ٮߥ‚Gr¶Ìõ{Tl Ò=fÅÞKùÔ¦nÊÎè|b½Í¡ô HiyÏZéLÁY Y:#±0fz¹(°häi»ÀìÃGÉYG7!aþ@A™/ÕÍ“ü8ðê=‹i¯Ý”ž©aÙ´8Ska;™Z˜©IþTªV3%†ÓKì ð ?/³Ç›Z1%K‹0_tÈõYZ:*##ÖÍÒü‹”Ð%YZ Xý6“ÎݵZ¼S.×¾¿G—N^ì äZX—D]2 ñ“¤^Nþ°$7¦óÀwŠïsf‘£ÄºÙÓ‹0ð5©_.*‰N&‚©©îP+_GÐþòü—ÃÍ+N1ÊIà?£u]·é³M¬¢)±aØ—öƒð5j˜Ðn¥˜<Ú^‰ ÀÏ2ygÐñF)NoÇ!X òìí•?48Í;È#¶#«Û6õÞŽï°oïõ$MŒê ï¥ìþ{ÔƒcWpÆ×wX‰GÕÑey?ò÷^@X!…TaÿÜW ž·E.óQ͘åQ…íD5´´ÿ ót"Ïà´sÆLI+_Ó¯pqȉ…¹W CÊR„¯ž~Šm,3C
Q öìɸ!Y锦Oi’U¨Ÿgúè -È7Ù«
`“;k£=åù!8AL ŠàN%*R§¼Ùɨx´—ó©˜R
²Ôn2_KVIèQ‘žé¢¨È Ô¨øÍù°IµsÁÉöŒ ¨K!¹8ms>ÕöGÜ+eu@ ÑÚ¾¯ TF«Šm™IÏ|bvjÍ|j…[%µÔ—75´ð3”ÀE…ÂÍ\à"Ø$uÔ²ð ¸lsCÍøçÀ¥Làœ+ÍŒçÍe9“
vÈNP]Ó³yÈÞ ËfbÔÜÁÚœ#wÓ&tó ¼çæ
6 èËÇbZ×ø‡6wû(}VF¡$8Éù©-Š”—BßeK$Ž‚mý…PRr+Z± vkR§’à )pãH¸Ng‚ "–Ï ž™ÚÎJÄQâL öÇñÇã¹md¦DÉKô·Óît¢
£T‹¹LÎa fqX’A¸ä¹ V])yAbb°q- /u•=Ln·M "VŸEÇ™\§Ò¶&£2J|߶˜»¹Æ&ýFAH60iàLsùµKtcS0Ì'ý - c ,V€÷ÊROÊ$y;¯Eã ŠÁŒØ;¥\<Ìäñ¼"ÙÇ)$ŒBÛ¶!ç ºŒ“Jc¹ ¤{ã—2†d)ÇzôŸÇ£oG™gÙ#Oµ,夔á P©ëf”óQZ
œ8õJï¸Ú T¶ )ÊU]·ÿ}û7¼yn¬ pÓö“·-ÕG5Ìc±ÊÉhŠÄZ„" xŒñ‚TwnµÀ†óç¡Plrs…R
ÚYR%Ï–0Ðé%å!GpéB yIY—Áç04ÎâŸFÞÛ¼5Ùê= ;©?0Y«{Gä3.Õ˜ªÜlRÚtïôäÒ&Û¡!Üy‘§±~âŸ&‘ÿwv¸¹N¸¡;á~Mº—¡4Ç9)uˆT2ÄO-Óws#JCÎBP˜Bè}GvÝ‘R×g×7iÙø:˜Úååð³ãkÚ/JEàœ1¾V]иÎ
ò'g£àÑ&¼äKÚ+%¯Þu 5ïF
R'À׌•1ÝÇê†SXÖ s€ç›9Ÿ? u E!(÷¦Qä£Ô®ÿÛh´ªngŒE
®é©Ó³
Ps>¾j’CAKPx œÊêrhÍÑ
1ìk%;E“Èòœ¹èEƒívš5@m]qÈû¶9ð™=ï” t×¹µ¶f£ ²«3ã¨>Óµ2b©¾M¾ÉÛ6"M÷zl x{ªCP!½gù Çgˆ Gøتا6Óoû¾)aBçfˆ=´vÖ ƒ¥²,ètšA áõAKuÚ5œ£y¾
Avƒ<~ßö!ÂUŒ´@©6«9К½`—6ÃH,^T£™FÝŒÀW¼ßI+Q0êM¬+ ‹ºžœ.ý¶A=ßèçe^mÁ¶yk7?Œl[eù‹®Íd¥8AöR¥#M¡õ‹{MàŸ31ë;E¬èîWí±Ê¦$K~w2ÎÏZÁ°¯ÛVçÓPEÙb²u‚Ñ¿#ÓöãÊ¡z½…9T už“Pg^ªÁêÚüoÄ[xLÒ‹ë0{h}Ç–ebd•Î¶Õ}4/õ—|+§ËdN5-<õ³à$ {Ö˜9Ñ<ÛËgÄÇ!½ßì1ŽxAtŠ§ŠÖ†ˆŒÈëo••-j_€~ÿýxÎ÷MÄ£Ñ2œþŒDý²5á(Œ8¹.PNÀp>‡Nr;/Ö:ÞÊR¬ïfæ .cU›ô—xn÷VyÛ=ÞÌR߈*i1é•xÆ›ñƒ©×ãüÅ)wFµãùoZ.ƒÁøÍÁwmwô¦¯¿˜Øä ú%”¥Rï«œw–AB&í.úÙ—dÛnpVŠÕ»ïÂ|n*ƒµQ•N—– ê¡z«“›áûÖ3{Ž³oÓõÉ|z»‚|ƒ¢=Señ~¦ÐãÔ«Êz«uÑTïÄ»»¾º¾Tw¦yŒ¼88A{E"@ûÒÒÒÛPê:¢Kí²R1€|Œ]; »o#8ÛGèvl´½ŽB§¯Js“"W¤Ý¶¸8‰…3ûçTeàtk‚Ÿ9öô¦?È“3 Žsv hÉ!/Xj†RÇêm;Ù„ Ï6ß½£2ŽT/À ‹¬ÔY‰úE—%½Þ Ól•ÄV…aú‘¢.ˆ§6¸=©q”´Ý—ò¡û%UŽ=uŽ{Û¾é¾%Åši±v¹8 qT±X¼x× ½&×vµz«Ó•MË£”IÏ»ä-t[¸«“¡®s ¿¿n¡vÏ9öšÊÎçºò´ðÊ. ¿nÌÁgÊ2–³§²< ߺýµT`Nìæý ç[
\‘~¥B£ý.-ûÂT¼õüqQKßÒ*L°{êlNžùI6ó0{
) l¥ÿfÒJÈ%µ ™9»†_-”B‚Á)⯔¶ f äT#ܶJ°o 7(‹
ÔÍY¾“ñ‘â€qIg¯“«Ò&¡wE™U—4¸$‰³<|«ÌG'mÓ¾¡ãk ¯3ͦd˹i@8µ´ã=&äð–uèÛT Ù¡˜
3{ª”Ó×F8пjˆ5'HœlcÒˆ9yû592úȬÈeå~DµdFâäÆ·«{4nÁãÑ’D yß
™OwÛ¤*@'19ÏJò½ÕT™›?x]·¶JWŸ;±í#”›ýº %A¡¯â¤Vº°7š S6Î0ïۋâŇ^?ŒÔÌæ[¿ùé·W?× éû¤ÅÅMÀx
yƒÿ€u&&U/ÿð·ñ ¢úé~ú)fþÓˆúëÕÏÇ_8d6í¶3E"‚•8׫õè¤S–iÙe~á‚4Ôßx‰>õ×í ÖLnèK™ŽX˜Ÿy4c¬ýro—:8 ƒBº½Uj¬À@BŸµ”X- >'7ÕË¿°+6/| ïÆqåî»Ú&zÙ±o”\2º‚Pâk´e¿øˆ– ý~¨ùÒ_=€–I;#ÚK™!
)Ö¨` ßWœÂB ÄB‹Œ!÷t“MtY ¸÷ ®l œ¼Ù*DOwwõúÍßð3zò?Ô˜þfªG:B¼ü>
stream
xÚµ[Ýo 7÷_±©ïZ¤c‰ú~
ÛIÆIìMÓó[¶(.ܽܿ¤ÆÖŒHiwf=‡À“¬CR?ÔhÕîþ¿gjwÿ>®ñç³7÷gWz—v÷¿ŸéÂ?z§Û9 ôîþÛÙß •R† 7ôx Ç;z|* ﾿ÿkbzÉ_èñS–S‘Ç0¸˜ù´Ä‡òÈ ¥Ç-=>Òãý\@ ȵ÷E¼‡Ïùw£sƒ†ÐVúSEéÝ´Ô÷’ ×ùQ‘G;€Š’¼"Jzp:´Õž¬þµìüJ˜Ñ€ ¢ñBÄûÂ÷KÞ~Åè`ð
Øÿ¡"÷~ˆIˆ§Ç« *9z×G©Ö‡²•¯eçÅŒWíP±F)ºEfº)šS|k%ÜêÁj(2 Ø‘Z±lp&ÏGÊA~i ÎòuŽžä@Â: lLŒŠŽÏÚ„‡Îq£Ñ1,ç[qŽc ¦¤ÕBIJs Q3ßÕƼ.êܧز8Pp¯
dº™œ"› ¬sX÷§®íZ^©5 [
&œ¶â˜p~Â
p ‡‰ ÑTsTè· +Ñëæ(Îý¡.?ËvBU,zÁø¶îH¿–7>ƒÞMBBxÆb®Œ|ñÄ×CÓ†|“V iΰ }‰•FtÁÝ`qD0LÈVÌ릎 ‚IµbÛ(©EEÌ÷ÔbH¿“D
¡ëÌäãG;…Ôx`yb
1nf‹SÞ{‚ucÐ3ÙkQ DÊÖ ätOO݈ û[ª kP&3ò“^õQaû…=ò! çn%>DÏhŽ$>gXœør¥ucçßxìââßç]µÆ®#Ú¬
t±å±¼o·åFš`B
H.뻮ݨ†”’`”£“Nfp‚®×Ñ [AÞ{¥'e ¦ Bز,#èj}ÜSÛ×3iXå·&
9ãd7Vµº6Ðëá(è/ÛS3ÝX¡·Àœüê0fSesºÒXœtÝݲws–5K%-æêœtmÐI
NI9ëæØV)¥A‹n‡pɽó°1¿vçô‡Î? 㱬sž^L0š^*!¶Aièezl›O"uÈb+u/4;?Ù¶æP@tæMK]´`”'½¾·ºC9…çHüŸ?žþñéºXŒñUM:_q‚ü´ª¦Ñ6!
aG½–¦ÿ6ß*/=ß®lcQ Ö¯Õý6…ÄseÖ¡Qν1jºæ…œëú*åM=dz)ú¶ó¾-ÄÁÔñÀ»|§õøš8œÒ'Y« +•«d…NQ§œ´ ßdl0&ŸIqÙ«ƒ€ÊntBÎá ØóÃ+§¤*›ÏH¤ýzW6 VŠŒ\ p‹0 HÊî;G:h/x稛ë¼ø„BGŽ
*œañ "W:á„‚ Ùø„‚‹gÓJ÷„âÿ¤Öó ESùÁI«!ä"`ü¼!@·!ÐõzX¢yN®ilNQ1HÛº(–°¥øîE1ÈQÎÉßÕ!’£íCÝQ0=¼d\]”,ÝFb¶hLF…\Sš{k܈Ï÷¯ ï “ÐÅs i9ùiÇ$‘.¯‚¶l€£ù…ÞAqîU×46Ï9óñ²Ä–—%±Ò˜›3Ÿ÷³ÆxÄ\fñkYNS.K]–ÁâsýÎây:”0 ‹t¨´ÿáèõ|@*ØLÃZ
$›ZKžsOo‡¯…?±ouÂxE¬°ø2 HQhl·À]Û¢dšd6·Ì‹E 1Ìvòå 2IÔ››äÅ"ÝA“l'¿sLjìâÓævy±Èc!NÆÙn‘¯Óûyñ
ž°¹q^,ò˜Þùû<›-r]nª¼½/K¨Ýv÷Û·ÙçüÁBF‡sâTÇò‹–_x
ôé‰~úä#ÿTXÿ<û}ü¨ª{–õfB/ª¿aŽP§QS
ÑDN~>Íx58|_ûÞÕ¡@w¸ÐÞ9z ¡Âš¯ñhú
%ÐC{ŽêhÀeÌ=ÈèÌ ¬°n1"<I}ÚW(iBÏé¼ã
‹`$é¸Ðt™¨¡ñyI‡×ÏØÑÈ…Ž¾…²Yo3©kßYàFFô95s/2R‚æÄÀ°8j¹³UõçãÙ¿óáí7|zKUÁ);û—Êub¤xþ>
stream
xÚµ[Ko#¹¾ûWè v‘]ßk ¿
Ø–<²g Û»‹E&@rH~Ø榪e³U¬b«%; –‹Åbñ«'ÛzñôŸ3½xú†KøÿÛÙßžÎ>_˜…É‹§_ÏÌBÃ?³ða‚UÎÛÅÓ÷³ ¶ZëO8¬pXã°Ýâx‡Ã#7?>ýQ§kT.‘ñxÆá‡+B œÊÑ3ò{ .ê0<¾à°©Ì®pø²ÏÌ:«²c¼®«¸÷l}JE–vEsP‰«&âð Ü>µ³I%åm
¢|[´»¬[å:Âq”Ïeåó¥ò¹¯¿Øn‘Ñç ½(ûgl °4NÅdíÄ„ |âä'íÄ”Ì2c¶Ï“r¤Çk½*ɱك
§
¢ª¡\"o”† ¸¤•çºTð~úÂQ‡zàóÖ•zUù… íV[C€À𠌙§é Ť9MWà<쉇é-nêàkì²ò!G=@YˆÇæܪ'·$pKQ9ô^
GîLŽÊâîg¬}SXŽ¿ È% fF ’×*6å¶ÎV½%SBQ¥ð9˪é%u•Ãã9ýînÄâ– Aƒ'/‰1¨Œ 맛ªš‡úi·M
Ö¬²1Œãf Bq>é¹€ölú7º ¢!¯³ÒÂù/ëöï ¹)ÊÀ£Ìégt—÷1íAú}–W”ÛŠäL *$Î%QˆPìg¯œ.lÎlk¢ˆÖÊ‚¯™Q_m³Š–S¾P_rI±_TN‰Í¬ omd”k;¿NÀв —NFãtPFsÙNs±>*=cvDŒrÉ+¸<ãæ7ÕÛ¾Ô_ðõF«˜¹®©Ã&&è ÄGkå9˺â}¿I*5³Š”¸]>2|sAsòkÁÇõòØ”Á´c±šˆi¦äÁ ˆË®xö` É–‘K÷HU´¢þôžB Ó¤"K~M“_È*—åm”C;p~ÎÅ@˜ä”]㨚3#?Ñx2¬m³‰ø!úRÄ]Ô„E žã®>~£^8B¼å³{µhµ …5äã!\Óìþ¦{Èh l¤»e+PbFœ¦8
e´
£<H˜€ä;þÁJ²ŽòF j|¸ï¦)³ïp7‚P|ß^Û RçÅ›VÂquRÑ<À,åäZ´gx9rU7²#ü×o¯ V—¤ 0¸Ð†ÁŸ8üôN jˆFLÞu‚̳0J‡8üw·«][e4¼²C™´^cxˆ”Ä(×MÆL·9÷vúõ§£µ*Ð[/Ð Çgü;¯aðçéð„ 2D³†ãÇšª º žÒ‹Ü1ƒ–ü¯CÕM} (ÄGFùŽªÈÁÚ‹z ª‰u Šp—/Á—¡wü¦êÁŠÀ³°9=„¢[ó!
ô ¡®Ð˜ž(–eŽÑÞcpf4{e
å¨
#ž,¨ôNÛ9×õdF\¾Ð”|«M¢©"À(ú‰å¯v>» Í\Œý>d6ï(SdíC;”FÞX¯Ñš³2.±9ÍÒ4ªke,ßõ9ÿÖBÉa±*n·!ˆ‹Ýq[ ÏM9ú0\‚*ÈpXn*Ö¢º]‰PÍD6ï¸&ðX“¡‹Ž2ð i§%
.¥Á
Êd=6š<#ïõ˜± #?)ë·|Z²ŒÙ%5¸±µµ”-ÞÌÆ9Ÿ±Ô]ñVA,C‡Z\ûè“:jšsc=`UÊ\}‰Ú’"Ù¶ÚÉ]k¯Ý%ˆÉJ4Y‹ú,ç`šƒà Ð\rʘCXcæ5à¦6ª²‰Õ…ÏßvÜ|Ã
B|dü>WšÊñaB$ìów…¢RÌñv°]Ç8ž†/“rÖIòñx¢‚xÞ¿¤íìƒ6©ç-Òë®ò
UñºX4d&ÂìÓn=–Œ×d` œW”¥ 3ƒu „v&ÄFŸc1Õ©ÆNI‰n®ŽoøMâ)„EL“Bç,W4€¥?xꃑ(0 AX˘½ÅYº(Ê¿“_htpŽÙµ nè ÏØÙЮ¨‡`ÛÉ×\pJ{¦ÝÞ;ú8õi:¢Á<2“ó…º'~Þ¨LžyØ$þT#ãO;Û5M ø² ¢3Ê(:ü×Føn®¶eÑ}»_,h‰Oʺ+*E&û”ƒEEYi#=:I/=¸`.漸«£ábÍîïs(¯ã:Iàâ Ïþ9¼ô ÆèÑñsã'=¸¢ ÅÛóHñ6ç÷³çÅ?€×ÿ 4.Ø¿endstream
endobj
476 0 obj
2476
endobj
481 0 obj
<>
stream
xÚZIo[7¾ëW¼C$‡0Üùx-¼È‰oZâÔ· IP$-ÚCóÃÚ Ø!ŸEr8¤¤§†)=kf8û|¤Ì‡ÕÅθVŸò>\Âï—ÅÏ«ÅÛ >(>¬>/ÄÀáG Ú Ú
&• V߯ž8çîõê×ô¹•LGhÖa¹Ë‡°œ‡å&,Ë°lÂò>‘Äe–ë°Ü…å]¹‰´š)^ï²Mr–%¹’IC?‹‚“qŸm`äÁ
¥ÅÒ!Æ«¤åºÜg ™ô„؆åEXTI,ŒeFê›döcRìeRöÂãËèeå<³Näð$ž(vƒ•ÐL”'ï·}HÎ]£Åh™ 5‘Cw‘슱¿ÌaG1•TñDN'¦R9 W„<‡æ&-ññã¾|ršyçÚ{ß'\'kbÂ>qevQp$
–—¢Ä_S^…ÿüòüæþ²A=2ÂÍÇ´iÇáóÞÆŽ÷¤ª÷‚_äÄNË2}°E> Ây"b“D\%>¦LZÓ@ô¥&Ÿ%C/q¨$kØ™ƒ´LÛœ j#¡/xgÚ&<=¥·9óo»Ÿ[IØ ±9l÷IÍ”
SŸmç ªóÔüÁÜ!WŸUZ rŠå”I•ˆœùÝ*Uö56w‹ }¿¹R0«Ü©æbî©afo_%•Þ%]×û\à ˆØN'—Z‘³„|V+ÏåàA˜'ÂÖxXÞcC.渚È–§z1O ÙâêÞŸ\†E-¥×¤w…%i£#µh2Ôa R
gçXê'rzùÅ Ijèiù¥ƒ0߶áh(UØc’l:ZHä…3y8 ~BÙ&<Ç¡ÝnƒÂp¦´#ô×å¨Þ6|3iV·-K)% ¡µQÊÞ™Ž€ÖŽ„|þ‘¶UÔîcK<ÏoÅ`øöµ§Õš äc-VRCO¤êÞLäü ã©»fìÜL(+šju°”˜& µü$0¥!ªJÊvT?¤â|À©¸-jA8r)ËÀTà’6Y##š¯É{óÕÂdñTºÇÇm¨o 5Ñ -2BÜ`;JÂm±ˆG|çи2Q*ÁZNïèl §9GÈåáÙ-
P×f´w–pmn:ù³Á)-ÃÙ –å0Í4Zj¢{|ëƒåB@uÃKW*y=úÀà™ó”Í=ój G†FÔ„BdßO‰»´UÇÄ·Žpw›7¸·N Ž‚TboîÂqI)EÈN¡p «Âøª;SHjÏ ÏÕÔ½½õL:jÄÑC¨ å•ŸVT‡åQx=¢B©öøµ ŒpE@ŽÒìñèŒkm
ðK#ö?\åU£ò$N#Ñjhñõ-®é]S(åÃÁüXÀPQE eÿ’»M>¸éæ‰=Hdãî!kšèùmuýR_:x8aT,Š Ïs
‡ WKè¹
wZÄ¢©|^âÉžTÄ“¹öÎ1TXOÞÁ¥MX’ØÑS‚RÒÖ„>ifq=A
r"öü¨V¾àÑ\Ïtú¾–ÒÇÅ@+Ô$MöÙPî( / ùÑÕÔ½ï -4+kê™ ––«Q \»< |€Q{Âÿ÷ŒY:hy¢–ЯÛ𥣬Éç¡ ¸Ð«Á q®©_ ¾ªÍwnáNDô=¼®ð ¾!íÉî‡ÏšÁDMœÔ;jjè Ò75lœ4ˆYQÏÊÀZSCGn¦ÝG‡ï19ɹ‡Ê5ˆ%À AdC%ì¸Á—5Èy,œóU¢äÃ=|ú^<ÇÇ?Š?®-'*欙>Hï"5Œç CœÑo¯äpöûâ~8sÂÙ³Q Ô† 1aëïP“&8Ï@w“zø Ÿ, ™ðômaÀü´£ü¶øºø¼P޼᩠ƒŠ]&^ÐÀñ —"¾’QÏÆß“ž¼Ð3ËÚMOœèÉ = j,©ØåYÏ‚“”XJ¹ÃÄ'†Ðïžÿ»F@ëEÇ …\ã sÜ©¢ÄîîeÁ ¡ß 8àdå«–²ÿ 8 ïîb²ðhÕã.:é :O»çL±ãùºØ¿¬Õ
ÔŸendstream
endobj
482 0 obj
1856
endobj
492 0 obj
<>
stream
xÚµ[[oc¹
~÷¯ðôØm»Šî´O…'žìÍe{¦ÍÛÛE±S Oýû%É$%û Å`| Š’(^>’²^?ýw¥×O?Ãc ÿÿ¹úëÓêêÚ¬M^?ý²2k
ÿÌÚ‡uV9o×OßVß½hG|<àã ·øø _ðñ\¿›H~üþé_•£ Fe'¸F||À‡#ÔÅ©”³ ¿«3|Åǧº°
>®ññÓô‡cf6[•¢Ìž+‹]Ý[ÛÇuû+2»ºÖër,"ã@FΩ˜Låø»:æ¦r|ë1Ñ©’‹ý¥.e$ÃœT)V Ñê¬|L‚ü2!¼ä5[†øxÑ&žÅ«£`ú©nGù‘9 £“”ƾn`ÚÏžŒñVù EÿòÒVOèC
ò뙶@×[2ìÖœX/!÷´$„Ë%N4•ÕÂès ôX_?Õïîb¡zUöF0zÑÖºd”u^Ò}ߌ‚ªuTÑÊn¸G¶¢¦Ì;qÚVGåÁ±ñ1Ón¥ *›Îêí©ƒûXžïKܯ’– ›‘Oc¶dLŠÊ˜$ÆLS'šKY1 W iJûj™Z™˜Q/ÈáS¼²™Èõ‘"Ë!h;ka›çé2OV¢/§¦¥
{òNJ #xY~ 0Í ]0f‹ócgº|äÇ.‚:,FÑ0MèkÂ<¯ã! FÔsÆâ"ÿüñi5é9€ì°þ¶Â
õáóo¯Ÿ-|:Pà§_W¿ Þ¬nôÓçWzÄ+ýô éÐJGƒŸ×†Èù§ ðh'¦ß#ët¡_4€ˆLr+wRW I¢)@ɪùŽI™t äü|ÌgjzìŒö´N« bÖº‹–í›ú¸¹µ¬³H!.Î{,º!9íåÕl±ó$9n)ph–Ïò¯t–ç=/ƒ†¤¤»›QÊ ±t4q†mO}QbXv»Ä¸©®Hé“`v¾ü¤íT àÏD“SÕ(Ìs12Ž#}Ä4%zgõñÏÇù,qð‘ø‹‘ƒ÷ûvœz ªD ëËå*03pªfTA1Þ t…1W÷¹¯0&a @ŽfÓ¶¶'ºBDJÉ‚YòƒˆJÎýEŸÄ: F9:dQÊm„p¬{A½“Óc³Dcñ(}_|?u{ÞIò%›±Ôã‹w•T°pêµëËS´˜mÑ„jK Åu'êÈêŸI2ˆ,˜mä”i-§mùÕ]}<Ö ‹ —@Bc~‰î³¨ bæD¬ç—TÖQ-H°ûá Ûâ,† É+[Œ ™ à#+™_x5[’ÙŽ¢©¯ƒÒäLœ ½ØbmVàPä¹,Ë"’ÎsEŽíŒX¬ _„¦&«N¯{|ÅÂp7hbˆdþ«:
KßõÁZy§g‘µ êX ÀrìJJà )'j{ؽv?‚ª
˜ž©pf¤a-eé2—å”Ã`F”B¾¾Ta22Éw³n%,ñG#†ŸJPH!¦cXdv{cä#SÇ.ˆÍ‚|KS‚VÚôs6›ŒJ€ˆ8
°q®áá¼y;e¹•AÅÞá¶,·òL»/ ÷ ¶|ä
ÏB] *»Áñ>òª¡FÍŸw¨Ý`öý}¢Í²¯TD{Úð±* Sºð´i„v èÎü?ʪÖxðGQL +ªÖAÅz`Í$ï$ÌDgZäDÇÝ9'âH<¾ÞöXƒ@‹õPÎgS™ÝSm½¥!ï™Î×)7Ç‚ ÎXœ÷^“ߟ¸¯êu˜.Zò1´gxk]¸·ŽãÈg(ðV› ,A T†\3A~UÑP>¤ ¦ûrm³‹/ü!¦½Ý•Ó$,ú© È)ïú``ªL) ,€l æ¬ dLxf
ÙAć“ ±Ë;Ž ȼ‘8¤´¶i×™kš#ºr¤–úU-#ÆJ´ ßÕfÄÕudÀ9ùiMë/ÓsŒ‰iËhŒi*™Î1 äWÉKù ·_Iõú¿þùÛÑûô꧛zq Šƒ¬[ˆBe®_üV¿ˆÆ ºŠ}{‹™¿Õ¡ØnœšŒšš„Ç;_Èñä±/rúuõ4owžƒ“Ó[«ZC¶ÃIž)®gW
wÔ
?žkšL?`H|Žýø²S(™SŸ½½ï dkù¸Š÷’×(D3( xl
KêEÐ
Á:
M2÷‡ y¾óG‚øs+5c:º¤–¿$`Ô!Fo°Óe9¯E¿µ«{Xýg… ¿Á3z´LýÚ'=YÇâí½Q¼ùuµ_ÿxýÜÏw endstream
endobj
493 0 obj
2715
endobj
498 0 obj
<>
stream
xÚµ[[o\¹
~÷¯˜‹\°ÙÝ/@û8ãK‚µ=¾%©>,°]M>õï—ÔØÒ¡HÍœ™´rì3&)Šâ壤Q«»ÿœ¨ÕÝoð8ƒÿ?ùpwò~W>üýD¯üƒ7ëWÞ§Éi³ºû~òæI)õ¤L|{÷ V«Lˆ½-Ä!êJ ðñˆS|Ü—Wä®LÑM.:ÆXx>á㜧<¹äq~‡“•§ì¸ZWøøŒ¯e|¼ªZ®å±× ,0aUÄ=•xO¸#hî4ã.ZÜT9ÍV7U•óÙ'–@k;Md=½Åç†CšrrŒ~`µbdŸù¯t¢7õõŠLT‘û+å~¨“/úÞ.NY60Ï.¨Ÿ›˜`€Ûe#¬†…ÕˆŒòªšÿ‘ªûbþ÷k³JÌ뙬²Ô#Š”Û*å+wý¦Àxÿ‚eMðñ¾ þ¦.Thï ê{¬öõõCå~‡Üø^UêòÛÏÛ¿Ì5³JÒì¦ÎêºÎjµµ‰£6±V ü3o«¯E·×¢amp“‘•¸ß1tLÂÐe-ØKW3Ìl:WJÊqêÀ¨S‡Eú¡¨SE]ùŒ&9#Êiùø”9² y›;ž–òi M bÛåœò´ Í“©Õèv¯–$©X‹<‘/ŸTöF¼KfÒ @¢¢èRR`ä–¦™OÕõ|s¨WÕW^ãcÚŠ÷T¼Ñ`KAS¦ô‘˜— ¤¢\»(u‡.˜4¦žBãöl;‰ÐŬÖÂ$zS¼®®ðP=Ùú<¥áðŸäáK¢éyZ¢25KnöŒîÔ.C=ˆ£;ÍÍõNÀïföó‚CB &Ù kqP "Z¼ãy%„ÝÍŒÆ|?Rየ‚1žqôKÞ!«]@®5C
ne
¶n½G‡ªõñ%ü±JÖ© *ÁO'{£w‚Vï),¼,vŸ]Ö +û†‡ÕN–ëð––«â íÿ _PžBþŠ+ _U}CÑ[Ä(ïh› êà¦ùõ·¢šjZªV[Í·v”Z!g!Q™4/ j8¤ØˆßШþ"WGì%Š±ï,ÀP \¶;xhÖnÊÙ0òQeš—Db¢ì˜ˆ¶ŒkÚ«µLqQI®êãéi. kFÖî£@
ëæ²ÿ‘©8À»ÒRO)~¬3!½l~[skëæÑy
ãYׄy] myϨszᙈ‹A#gØ„ØâY m b=6O,ÞóxÝë{ú"ø¯t°ÛºèÏÃêHãúܤ™¨á\Õ”Cbä ë É4dF9ŠpoÀó) áÙƒ°È„-Û&±søN>‹rš_`òÞ‹ó-dcí½€ó½„ó{ò[–ŽtŒ‚Ðm‘+Ö¸ Ô9 †èéÿF}ÈC-ìIv©1Yà †Aú_Ô¤ nŠåÍ„ÁÈ•ÿÏ4žÒ¤¡PöD›Š›=`åuÍi|ã$ëÉdÆÒ ì¼² è2*ŽF—½§ž|aî`â‘Oç¶2nF¥âœ÷âYM1rU)]JWpòBtí±›,ÌB3Y‡Û˜V^„§'¨ejׄ=¦)a(tìƒÌgqÅ•fäG%(gqsHïðŸ] Êy¨ kþRRʦú 4Zç á; åÎLÆF9,ʪFdä£}% ËFgF~\r×Pü"¶p Ї±šq šÜMBô—d9<„Ó B2WzSE<Òµ3¡¹Éø´t-4ÐÉ0òu]¶/B|u§è¹ó]ÔÉwˆ¨ki•àŠs®`^è6Ü…ÜŽÞH„Í
»¹#ŸYˆóDð‚œOÛW›%Ÿš„»ÆÉa7"Žºé[&À4=á}·'µã Ë8ÜXÝ9C
É ¹uÜ~#AŽ+ÓQ ã t6– [à (®¹M¿UUÚŒ?ó*¡B8°ÌJ6Á´e ['N‡)%.bqœ0ø0$´q²`Α‘žÓC–tyb*;š‰Uœ ¯rŒü¸2àãSèâaC÷9Ö¬ÿ*Û,t;Ô—óÙÙ§GhŸéRŒlc¡N×ËjÞ{?hî€>+ÆwU©/iVˆS‚êÒQ_TÅ®(°ã@<Æ„° 8(º=å0ïbï“ù]Uê ëºc< nýH'uÍë-àù¤¾Ñ˜¿’Wý\ =ù(ã̳\ú ˜5€JÜåëɇÑÜ2+ÔËÄøÎh.\×Hú\#éœï~a$.ŒWJãŒjwC@øŠ¹[e_W£«PF ´?â°z‰ (} L…zË ö²»…ÑÇFöf©XÜs‘/Il´R4×W*h
|h{(i_¶Jn
Á0¾QçàÄkN~T²B÷N^–%T6ÆX;òK›Z\Ú:ÊSJ#6¼ª ížüȆa»cÂ6¼oFðé ¡éÐOaW³GE0B´Ü@Ëœæd ¸ÆY&n„7pëÈYnðA¯g=ä8køšOR(ä‡"d¹r£øÏPL÷’j»t À@ÿnµ4å1âÐ;çõø¸æX£›&ì€}<àªØKØUæ䇡 m G7R‚ì×ô
k\ÖŒgáJ¹¹À)o‘¡M†ÉÙß"cu‰‘1.è‘
6(=ß([ãVbtŒ|ó‰7 ¦õŒ£æí,# åf æ·|?Ô|ÚM”ås " ¶\q€tðÂF¶A6å^¤ã°€Ø¸tÝJˆ3ØR¼¤þÑÅ `,ã E3^±F£³³RÑ Ùl‹”YtÞ‡‡ÚxPÔ“_Ó|zÞßQè O›ô徦%cÔðF7%›™Ø¶G;;¢rž‚çV=íoÚçÀír+ÜÎý\ æ ýªB·ÿ &“xèÖl ‘0©ÈW{€¸ @(<Ø=ε“Yê‡ ® =Ö‡ù!‰V{š1í #aQè( I[2AÄéìöpßïÅ'Îò‚W¾RŸxù8Ó{™¡’®ç›¦3äüãñÚÔ‹“?ÍoÈwëÁŠµ…®)ÈÑýb@^ˆ&Ò[×gS=
ßY8Ýu¥NCV·l:ÙlçìmubdƒÜo ¼Y{òAê7:O\…¦ö?b„ò.Èoq{1Øc€ÆÁªØó g˜!Ox9_"”Z'Ôº§–¾ õ @4€ s÷
÷GµUQC~‹¢ew¢¼J²8 !·€ëÆÀ|co3æ Ø€ñp”ý‰‚ü—Ím3¶ˆ·cø¿gŒcrQ>ùxW§§V¿¸ÕoßgïåÕa¯ ¸ÊC/kÒ
>jÒ©~ðÏúAÐßžéÛ[Hý[eýãä÷í—aU÷E`·B ›dKî€Ï/ô·ò ÊŶŽœÂO¥&È É=Ï]CñP¹©Ç——JÅ~Œ »å Z…ŽzAp©)Óó
Ð ÞÉ´™ftêdÀHœú =Aæïð }/ ´ßTñö-ÅË{£xáùãäqõ/õ_s>l¦endstream
endobj
499 0 obj
2958
endobj
502 0 obj
<>
stream
xÚµ[Ko#¹¾ûWè0Ùl€Ýžæ› rZÈc{ÆX[òC3ç´@²f䔿Ÿª–Äîz°Õ²7X GíýªX$ëMv¿ººèWÿ¼0.¬BŒ]X}¿ð¡ ~;üNðkÀ_¿_ücÿæˆ ~ ð. ñÃ/Ä÷«Çÿâã·‹_ /Þ0«²z.« þ3«|“Y=~¿øñ¥ï{ƒ->vø¸ÆÇKïÂ_ ÿ zÆ öOE0ù ||ÀÇ >>ããjà‰¼*‹bº¢°¸¤r|šÒXƒ4IÐì‘Uìg1˜uä•“¾«ƒ}$ðÐÃ8^Àoðq[ ÷ƒÂX: Ý×*ß„˜ÐÛù å[×µ OtŠÏ•ãFLÁ¹Ü•8»T À€?Ôa·usƹßG´úˆ[‚,€ Y¦ ß{X¹®ÝVæk±ÞÂN*×sUȇúØVŽ;¢Ÿh#ÞÊ©\×!ï÷6bÍÑFŒŸ JßçΠäSÛ–A^\CF·«2®«qQk2¥‹> Âq¯¾Ô_w„0ØÎnoõÁD–NṼU›ÉŠ%]ÝpÔRŒ€ªàï©ïOMÆÂ,`‘Ûu]à UŸËª;i“^—ñCjC9nëÂQŸbW²|–h¿(çpr'y“Ü‚A¬‚´€ŒA b~ÓGÖ™æ&µå’| §¹Kær?8Žüªÿh“ê>
x «F‘`:Þ&©4Ô¡À&Z¯+Ãæž©DOÜ¡@Ìl8z©¿™ !&ºÎç Ól¥4 #¢ðkêd>Ñ& šˆwøp4Zïݼ:é[ªÉ?°a¥YDT 9=·u+žFG9uÓUÅzäg¿¿QPìÀ³
Ð~j|¹‹rª ê´648@ËÁŸ«¸Ôp 1FÂw4 &„ ¥¢B¯r…¾7]ÈV`K ŠZ¥êÝßÕí~ùq¿1& 3‰IÚý8QE31 -I^WïµVÒ—gªÜ¾ ;‹/4ëxy¡*î!àXAt5nd œåW4Ö`àò‚ϺÊOá²ÿ¾œ’uL¥eFŒúß¹Ô'b€fJÃŽ¡ŠòBà†ú4ÛAš+//ºE™ ÔGo؈IàþpIü$’ÖI¶Ró-$ܽ—ó[®ù¦àŒ\Kˆ,„Æh%h^MË!2¢Ñ¤>
“rA-õ¶4ìÝ+õDߌõŒZIFÀt]ôy¯Ô:ë*ª´_ß».f'WoŒÔQAp*rXVð\Õ9Ž¡äªi ¦UÏ.* в‚ÆDIdÔcøÓÒ{º|›*3MK1íÁô–qœËà°Œ rSFÓ²a‹U%Ôø ?:™1@ŽYÁßeðϘ¬äY™o3û܆Áßè \ )²œÍ«Bª+ºŒtm_
+cóà[B j;H?×Õ_ë9+¤¾oɸ. ‡Þ”‡Øºï]á¯oÇ_Cëðÿ‡ßÇnøð GšãÛ·ú–‡·#rÿ†´~—+tg÷»ú$™Dj²lyeÙdŠëL0‚ÏWjÿ¢ée4Ìã]…È7±”u¶0ßþ¸U‡ý‰wšácEg¤hÒËÛl†Š†#›Epìú,ácýÆ*Hb@8üŽšâÝ(# øçR´5¢QÚyȽ²Y: oãp=- ÂvÉy}Rs~ÊÈ# U GG£§ƒ´VдܑÇdYÚدÒÅ 0ûÖ^V÷»ß+øòàt9õå'õ”Ú”0Ä[NÈrˆ rRìIi,Ð9
àšªß®Q@ÑYƒ`Ö —wŠCÉ ’På§U¥pV$²¥È !>çEÂí_ôþƒ]eᔓeÆfmÕ쉥 þ\ªÑ¤ê}¿Ô¡Ÿ§P¦ìø罞Jaa¢ã]KIÄ,,¸
IÿKert¬Ó#"Ìpr Ç4†:_†Hwˆ‰‡·CL ý!BÈúVã)(Æ„öðv íÓ”¶¾ÍÆS¬w 2:ŠúWšìbœó4néF-,[á7a Æ
v¤Yc ÄØ,0Je A8e#÷UB^ä»Î&9cÖ ð•Þ ´°_ ²aÎgô÷Ê¡Äšæ”wZu»åÌoéaÜmïÍ RÛäuIµÃ£ÐYE€Ñ
ŒÕȘ.Rg”Sg…ùB ÞçFígB—BÔÞ'ª/dµS複I£Ñ=JSR—m¼bXÓg6 >ªÏX@œlÈ[ؘ…`ö@ÓóÖšúMÕ*{/ø½«j´¹±j‚„Í°b¡°µÌ"¸žËëkðDãÔ¤³ÀK(“’`q« 1BIÐËy²:ü¦lÓZCö= ¶'¼Ú½1 co´›M,C—’ß”LR9-PzA|IáWªÙa8:ã4J×Ì27J]€Iz’ µ¥N’éÈZ¶õ Îz…Ï9 +ò(%o{¬©™ý ÊS,ÞϘî¿ÍPOxÍœž“œ54þ\·‰Ö Àa‡S¿îÔ )ùs•|K{ ¬í ;(sõ¥ 'äá„#?ÏT ˜N)š¢„€pA®Hûô€çÑÉ} Íáõ]v®:<e!DB¾Î çÊ:—ÂP
ršFDÂ(ìýÒ™ §BQ ÛuÝÁ úÙúFÉŸÐSž›«
Ó >S¥W…¨ŸÄ™ôrÄ–3êÝÐÓàpm†ó?ñóŸœ >§~½(,n•;x7Ç $d܆5xoøÌ5€\¿?âå|ÕÂv³y§Å”ÐaK
äÑ6i‹_º…Õ'á¥î^ä-ìw½aϼ…°a–ì™wx¢µlÏho¼YÉ öd°.´“söÃàv3¢ñ”R(ZŸhP£"@
k mi5 y5ä¶ tî1‚ɶÃÀÇؼõˆÐC݉^“±}]<…˜•ŒàÕª 53EÂ×ü4$f9í%}ü㦚^ì*„1¨¶'àõÒ JÄNGþ‰Æ»
ͼn”ö!¤, ŠÎhתÃÀe¤(àKgL»ŠàÓÚ
¨ïK”Þ¼½`!Jû(שy¬†·EÑ›kõ®¦3n8R—Þδ€ô¹0
ൠçÔçÞˆR‘ ×þŒû
ÅÅnQÜÐV\Àê öR‡sH(ŸS ƒ¿ÕAAî Ll_ç Š.c+£ìñÌ4.]g±É,з§ ÆmCÂ!Eb — b [’¼{
ê•1íÖÒtÁDÛEúÄŽ”›H°
ó}â¬=½µmƒàÎû—zDº¦>
stream
xÚYMo7½ëWè¶IÑ2üþ z
d˵„Ê–-©)| ER §þýwmîÎ iSi„ðJo†Ü™Ç™GJ.ïÿ]ÈåýÖðÿÏÅ»ûÅÛKµTðáÇ…ZJøOÆ-‹Â*½¼ÿ²xý ¥|F¿¹ÿ Ðr™Ø™ìƒ*`Ÿ‡«<œ²Mú(R´ ~ÊÃf°AðhD
‘Á]ñ~ÌÃÛ<ìóp] ‡oß—¿vs·ÚÀ*’cnWe)ÃpÈÃ6yø½|Ö¨C}Åãe ~C6É R= û9ÒH@zŽü)jHË›Dj]"~[\lËÜÛòíy„p$Å p–÷% ‡Õ«Gbº‘˜z1MFš‹¥ÇŒÔÂ3Ô¦$o¶d–”°ç:O oÊz×8 ãB-^¨†„EæÍu¾ÿ»Â…U™üªÂK³œ»—Œ³•ø=OÏ+&O±;Žq*gÁ²²–1?3ËëѶZØ”¡…Í´ €Ya[MA¤n¬+ĦUÝ’„b˜ü²¤àïœkÌ€Þa£*3Ö¶'˜(~[|O4€l¨æž²Évì)ŠÚà‚8{A /te†‘ ëåwí$[Ϻ—m&9ƒëýå=.[àîd‡tSëfºÓ
'Ñ8U*èw//,ôPêgÏb©- ƒí] öPÓ|dðÝTpã¶ûÀà_w³=Ò Ý)d ùȦ‚Uå(xS2äè¤:|‹ëcyh²)ljØÜ–?Õ—6°ƒƒg†ÛÊV”
Å {¿cùpüU ˜ã@Î8¾ŠisãEçùó–b$ô|[[ŠAy5
¶„õõèca£i8rj˜«R–¦éi’¢wödÆEf4TßWy0Ewo±îþ oÎÍLç"Ò2»`'ÌP[üä-3¯é¯ûØgs'3oªŸ8¶q™lÚ ÌíYÁj¢ê¬µÁ"»•ÑQ±ò)ºŽ‚Sqµ•ü RÌÏ|Ô/9äýP©*+kÀßåáÇrø ›eÎ8÷r™£ j™c Šn2ë
e <‡¡„ÀÐ}ÁËÝ2×;jý•wLÐr*KYñ&
Ò 3CöB,Ï Šê w~žh®©“o#Z4h*ê¹S¶hWYÕs²åâ¾ËåÏvùáËìyx´.
·.G?øÀK¡bùàsùÀC»û\ðÓ“ô©˜~Z| …“ä¢;_md'ùzjž$# “åiÁ‡èSx Çc—(ä€w7¹ü8–íñ}Øvº<Æuß è û8ò;hj½ÂWÒ·üœŸ$èFMíu5ÿd`< ÍŒ©!H ½;ïH¦p2
ìÓ˜&„,%ÓqÓüL„-È/O|‘RW ì '™]ã~×BMôÉRtíz÷ø¸‹nÿ,²ñ½ÍÜvÒÎþ’ÛGÄÓó„x²ù´8-ÿ_ÿFü•×endstream
endobj
507 0 obj
1541
endobj
511 0 obj
<>
stream
xÚµZÝo7 ÷_qY·®™¢ï—aÒÄÎ ÄI§M½h‹¡Ý°=¬ÿþ(], Esv2a|IQ$õ#)›w7ßf¼»ù ä ~?Í~½™œñNÁ› g¢ãð#:m:m“Êv7_g?l8ç6’ÓHV‘¼‰ä2’ùË›?² 0šO„_Dr ÉU$‹H–‘\Dò6’Û¬ÿ.ÿ·H¬ã"ÑÎ04S(°S(fÈK¹H~Ë*ÖµuÚS™Ó¼£DæyÙó¬ç=Ò£Z–Yì,;çmÖ2'ÖHçTÏ]ÞrÔŠ…û"{ê2“ôxº@ʼ`:¨öÚ×Ù˼›u$®Ì6®„
z¨Jü9ûÿóéáÅõy#ˆÚ3"Í"yI~¼C1pË ‰àzRžJnÀ™TúìY5¯bÛ6–Ý"vç˜v°%DÀ®ûi¶·$ò ±MIÁ‚3SmS
¶¥[±9X
±Ã´r„ý2»ì]6ðE6ú ot Qíts†Áy>4Ý°ôTtK§Fé¦ÇqºY´D0…e³)ȃñ!æ(‘)h²À|ÙÊI’Ž^;Ó±í*q šzö#9e!§Œ8–Þ7â-é†8 *û^N@€ï$Qv[Ê ÆÇÛ¬lN°ÞQ< ë06˜æcPñЖî+d¯ØÇsAY&ä¡©€„÷Í,¼ÎÁ¸Íá]ŽÄA ^‡ZÁE–-|ƒÄ ¬ˆ Xî™+Ux (¼ÈXyè¤áÈF-€>'_s?#0Ë,W‡f–æǸhV5´rb²õ÷†²¯ù•Ú$³Àœyéç{çjš"þrotB%Ý/Öèe×Ø1·øˆ `yG”-[g+¿W9øQ´‘Ê’—d•±*f9 M ì¯R²âz0•«æ\e³®Å~µ£ì+ÅÒÕ×¥ìWþ\á8GŸVsYÜÔ{ôɱ$ [ËMk“…õÌèUÂÏ=ž9M, à é˜ã¾æ é‘• ÐÝÓZd-%³z¢]141ŽÀ¡·
+æ½Ð°9Khè
$: „« ]B9„}bBø8ÑPégë%¤òÍ.°Š7xÊ?+XœÉfƒ› 8=S/•nºx“ÐMÏ¥^,{ž®¸oû¦lÄ;ß^v8; ÆtᆠҨwˆ%£Ju ”£Þ(@yŽ'f(´
Oñ„p’(”µž*†ÕõÍ _Ë,G.c”`
Õ÷x°*‡“ÖXf ©ké±ÁÝË ªÙ÷è%® +6»É>|RÔ¥ÉpG˜lÃ;ì{œ“qy¹kÃeCHлÿ%|1½TY‚I§8ÑÙ+c@! O§¼Ööë¸.zqOçãÌÞ4e<ŽÝÖi“nëjµcù[ ptÍ>êI q‹îat€z¶f 4YÔ½“ë_3™m¼{ Þ¼ ±9EX투æP·%ÝçGµH¯&Õ»”¸Þ0c,ŽÓΞº×|ôø¥ÝZ"¸÷•€¾„óß4`RMJ]¼”;,Y´‡ -©Ðª½ôu}国«›)…›©x¯j]áÅôI(f¹T…m |CZ4Þïwyíe˜:¯p–IG
8šÖø
NðDÚ´‚Ó é9Ép§˜ÑeÄý1ïdY€¾ÝÙšø!‰"¶Ðœ‘„‚Ý‹½ow…Jy-ýèí®°
P î¾Ýåq´"2O¸Ý
š9º÷Ñ1J1=HÓU
ضæ(Âýô©EãšèûÑ€ÑÊïÀù0¢ÖŠ÷-qòò”óñÛ{#4ŒïµàîøBC©=‘yÊí=Ôåx¤+Eψ‡¤‡NÝ„¶`óƒC<õðþTÔªjp
&ˆ§ºÑ-gÚÀNa•n«úá¯îGv¾N /™€tŸ ‘šç‘œ tAUP׊¡Ð©ú3gÙAS9dZ]wá„…6.ŠË"ôòçQ†ç ¼Å¢âçH~Á£Œ©õtõgH¶æø —ÝƆ
îNr®ÓæØû—ÍIVYººm8sÞ”AbÙñ^*4 61 Ǭ«lßvVG²ÖÔç…ñHÓIλWÙC«qШØq¾1S’6 ºàQ£pÓ†ˆJºVñ}îVø˜!Ç I”¤¤Ž©4ªlÙ:“{Ü~·u{M=VP@bÏ—sBÒ@Æ“Yé) ÁãlüVÅ뛬…w?éîÃ×Ászü{ð†¨t¦çbΚþ ùUâæÝÍ·.}§çd!»Ó¿fWðáºÃTÆ™àŽ¬t郀Öû×ç3Ã!ŠÆ2/u÷5=YØ^|ú23Чã§-ç—ÙçÙÇ™
v ŸÜXÓ`•^,p<Ú¤Hâl•ìl¼Ÿíä;‹>lYÿĉ|`ç€k¬ò`ç@’8±–á
½œèÎá÷ákVµªZ6Õ¯´ËHy´í–`Ü Î%pÔ¬‚MAÇÃCÕÓOøödÞUJžö`¡;yˆO~Å“Õ=Çö¹ple>Ïîº?A×íËH÷endstream
endobj
512 0 obj
1861
endobj
521 0 obj
<>
stream
xÚÅYßO 7~¿¿b ($*ÝóØë_/UUä$B¸ƒRªH‘Ò¨*•úÔ¿¶—›ÅãÙ»õBU!Ìíòùýyì™ÍúŸ…hÖ_Bs~_ü¼^,Ïeãšõ×4"ü@ºke£µo•PÍúqñf+„8ŽÍulV±y ››ØÜÇæ46'±Ù
°o× ›’aÓ ú‰Oó9 ¦N·ÝA¦ïcó)6 ‘³`r®5™ '‘lÐÏ ŽSu0at*6gHœš_qÄ›QöN¨ÖìKdK+q›_ðÝÕ¨ÿO+ÜÙŒÍ þ Gtƒ#Zâ ðS’ƒÈÁ+\¿Á¥bþµ`ìO Røéz¸A‡?fë!%cã33
JgA€› lU\_Ö¹n—ùÐØ9Ë&BAAÙäšQ©’Tƒ´$ã•T^ðö
®ÂÃ`e…Kþž±Pa€—£»·4Ôy?Ý/G77cÈÙ
C<‚Ažc Ù
Rp
œßáöY™ª$0T
U&°pŸoÆkÆ3S!B
&žM‰œÌt…,)øíÊ\›= cMår[
sÅX#àSßåÇ*ç–´†xÂIΙ„•‚®:îs¢F:|èNPšS¾B'<ýâÀ¶áŒ‚çÜ.˜!˜Š@GÁS® Y\4Ê’‡ i˜Qõg0Ã×zú^ àÿæΓycºè°Þk-çÇVHÅxÛUì
~Ý(Ý(dÐÐEÌò\4>K*"ÂeÆ‚=
×äŽêÖ[_À·B‰§‰çT&0Á–${´Ï(¶±½eb€/:˜üXâ„
R8ÆyIâùPŠ=³”9Ì‘*×JŽ‚3ü”ìŸçÙ•ÝÓsSn+
>Ê3…á 8Aƒ›|лý63â c¤¡²‘tsïb™éoŸe‚ýkAÏâ9p÷¼ç„îÞ¼ËcÅîõÜeßyÁ,¬ÖsV늅%àÑ…Ý{™ïC‘Ü\LEef¯àNåÝÔ:Gù¨ Œjÿ,еŠªT0c¥ÀÄbÂxß<.‡<Áà#tç*ÝÀòcl~Êoèš¡jÊŠ …ü–§â¥ß3’Z¶"–±n˜Ie‹JCÑù´ŽÁyf “[¶bå~bÖÊ2ôÁ ¦&¤lÝ$äÍnÍ5Çk/”crÉÎs :@8·î¥Œffí@bÆÐÒ.…©9רD}2År9UpÍ*ŠöÁÿ Ó¤¢¨I»å S¥2Rîçlq¸xµ¦ì³‹¢auÁëÿ«$ª °þÊÑÀL-|.#T椃ÌË0÷üÒrhŠM”4?Ò´!BöD{¿,TøeáÑÞžöö´ŸSí
u¶ÂPgçD{C å½!žXí
É Jõ
ÑTf§T
£M©)‰ö¾A ø¥%Ñ4_¡KïgD“-W!M‚XMfl…0 ¶ºš š
5¿úômÉtcª ¡ïÖÈ!š ºæËã³çôØ…èäU ÷ª•® /ŒhÁá‹?ñ…ŸžðÓqô »~[|í¿…y'~ H„™"ÙéWë …›<ØÜò»] ²°uœoîKTÉp§Ø0ÙáÐã®/OAî™ tÊ…)0õCU´]š¿¬3[Éú)ц šöÛ[S]¸3Ûb hæ2OÑWÜ<ä6Ãy~ÉWNUˆ>ØiêQ¶„àZ¥ êëš²]Ø 7‹¿‘ð1´¦‹úÔ¢{öI$ÅöˆÝó€Øõù¶¸oþ
\ÿpy?…endstream
endobj
522 0 obj
1316
endobj
525 0 obj
<>
stream
xÚµYYo7~ׯ؇T©[gÍûèc`[¶£Ø±-ËN¡· IPÄÚ—þý’\íìr†Ôe† 4Ç7Ã9ÈYÖ,þ›°fñ%,³ðÿmò~199k_'¼aá7ÜÊV5ZûV2Ù,ž'¿®c˸<Æåáhñ×@ìEk±ŽËê(®Ó¸8p‘$Äå8.³LV§XÙ=#b¬XÆåĤåϸ܎©÷€€ˆO@åm\®âòߥNj±ø ‘Òd$JPÒÊ ð…Ìç æ± Ø¥sðSâqé×Ïðé&.,'žƒÇîˆÛ„“Ñ`¤77Ø—ìX1! Ör¾Çf!â-°!„ à»+xLûù)Ó!u£¼G ¹Š4ïXËyL½“ó@˜%œ
\F´R‰|:q¹?g¡Ã¹h™‘eî7 |F®E«´!ä7`ú°©S ÂàC!l}+Eþ "–à³'øáœÈ‘ܵÌ
"Eß%`¼Ê%žÂ–ÍŽ±ÒFhN\æÑ™ÊâxGTNîÁ+&’Ÿœ³ÆgU3î}Xc9ðزëâ>xÏ ùr·MwªUî} /(‘ójŽV\ÖÊ‚k½£v!ÇCÜ0ßzC¨–%0¯©ÜSJ)Yë•Û ø–;è$Ë.Ë¥îÂ7ÓLÑûjËÉ!éǽ
µoÉÓ5¾TêÞ žïÖu¡¶I\ÿ¤S´#ay’Òb?É£Ô´‚mhÅ$«µêtÌàñ@ô?àVÚë-`ëØçå¤\ÃD"J0±–þÌ„ ÇßA
¸ÿvÛÓoç)4æOe d ~[‚¾¢; £Çš%¿#ˆ? Þ’ öÃP ïÁƳ1Áýæ¶<ÊÌŽþ,? MV®b2>¿LF¼%“IoòÛZÀ*M+ÏPÚ Ä[ŠHz¬´¢Á‰<ßÆå8oívXcÛ3_”3 5²Ç<`nªà¹Ø~ßÅÚ ¾½2ðret¥>ô>͆_Ak¾Û.«²<õ†~!òô^’+ÃÚ¶=½Y9½QZ/G¡/<ÌkÐãa,övw8õ×" óPc’xáèÁ(6ÏiÞY/ò¸«‚²[S“Œ@ÕÁµñZü6oÊ…=ÆJÀL9į̈Ft›:…ÒÁáX\2£ºíZl4g{GÂJæhñ²Žô Y7´×ää }H(ö
Ó”µájk®b’zÇ@Šà…{Õ‰ÌÚ ±=y…«‡ã ðâÿÈØë|‹fqó²)Ogßžî¼Üy×Óž*¾ÒMàçŽq:‹Øö:An
‚ÜâtæçÍe:¨XG*&j õ8''ùnÐSœïð8»;`¾#ÃÕÕn”ûŸÁEç…iA¸ÓZAD\åÞK¡{Ÿ;Ä´Žª~Ñt€Þ¸i¤è*#éuk¼*{“λ¢ß¹>|ÔUœñx“ͦùèe0;ßg63×ætá*ëÃÔ‡]ÛCèû ÉÚ{X
°
‹y CG»ÂC e-æÛ0Ó‰JDý4½ãþ‹Ç6J®Êð-ÞÂ'ˆ6Ïx*ÖI§[ωsgÀrZ½šfq*t€$°tà ²|Fã+fš1÷cen¤|Ê!ê]G<„1a~½‰aÈë‚üDxI^ˆ8BX +ªŒ2Sï=©f¡ƒÅÔjUèã^¥•”—Ò†v˜ú ”—6d‘äEͨiÐi†bºÄÜç\Gôï·õ‡»Y‚ÆæLGµH@Å1ŽÃ1ó›µZ6¾ãô¯-‡7@ÁTë0ï<Ïã'ôZj’‚§Ñ2úX{ŠµV˜z¢ïóëà,ì.¿«¼f†pµÄ!¨Œ$± òˆãwdjñ)T:ìf¥”>Å>¢~ñi «³¨bÍ;Õ|y =§G¥iíe%|aXË |ñ¾0¡”þ úáÉ8ü¬ß'_»Wá,ŸÞ‡ªÑ YáÇG½~ö%óNdUk½Ãä» öâp ¢kú*®x(Í,¡
Šä³?Ta]`REfZÛ„·vS VÛBŒNB²ö.åV¶< Ò‘˜×{çN]’š\IE_¥jâNÔÍBŠÜNþI…÷9¬FÅÀÕL>±Ê Eÿ>
stream
xÚYKoÜ6¾ï¯Ð!u4•ùu-ìµã8õk»Ž‹Ü4A‘m‘^ò÷KR« Žd)h„öÐóä gFCÑì¾mD³û–‹ðÿÓæ—Ýæt+›¾Ùý±‘ÿd#µm¬õëd³;l^~B|x×ë¸\Åå}\~‹Ëå«ÝŸ™Ô™¶w’‘¿H<„ÇŸ&n¬D(ûV”?&qyÀowq¹ à6qþP*£œh…ìË+è~¾o ¡·U–¾‰Ë}¢&è½oT ÝÁr]¢kéÛÞsKopÂO0íZ&ûÞâÀÏw›¯ÄaZÛVw¾ùxÀv\ø5zü[“Ü~úÆ6goî¿çŸOÇ_î/†X<´4‰õ¨hG<®ûÖôš!%¥Ïa’ }ïÍd”Œ‘
âζÆF|
Y7Ð}\ ©» q¸{âDiCär é¹]‹v‚3ÄWŽÌGBg£5MøHսƾNñ>œ‡á^š V-|k4W`.XUpU¸–5úê`=ºR~"Ó¨^? ]^i†ôlt…k¯ƒÊ5Íú )}Mù¬Wµ
áðj§ZÓYÆq.…Œe W`Ϋ"D¡æ†~W
T¸&Ü%Óëú”O¦öCz )K…hr!/Û¶ Ç|aoüecl_CGÜ/›Ï›à¤/ N°#¯tb|‡ð@>IU®U` .F¦#nD.@áã_´%ôÁÈNì¢]5 `1XUbFû;“(#`li+Ùp#2ùû êHp.„ k
†Q·È&€UA§ˆßB¨EÚÃX_êE6܈Lþ>;R@ÖÜGù`µ«lXt™w&¥JÄ@4ºèŽ>Å$Ž (kŸeŒjd®QKes2¿’6KH2µ,îL„<‰
ºã€O1,Â=C…
=À5éÉ Â"ð+i-‰{iE¢? êI„Ð |ŠÑ!ø3TØ Ð\“ž *,¿’–æ.éúD´¡ÅUO’ ü#ìx\„ 6@ô פ'… a„<¹TB’éûD ¤h¤ üà e F¨°2 ¸&=TX~™¶”ªFh‚râÍ’tÇŸbäôŸ¡lC–1ꑹ¦ÊÆ lQæWÒÒ: TW‚ÑŒIw ð)F.*l€ è®IO_IKk‚2®(
¢™“î8àSŒ\2TØ Ð\“ž *,¿’–Ö‡Ø]äú{
Þ}ä2ìäú¡ÂÈ€ àJ»¤*,¿’–Ö‡Ø>–=•£3ØÎö\´'+,ðuÏçHÏG!;ÙBÿ þóÝkH–:#ÖþéŽXû°ÔÇ°†mM/Ã+ürÏÁ:¬um/ÄËo‰Öµ¼`.—pÞº¬+ã¼°-—ZÞb¬+·¼ -—DÞ
¬+‹¼P,—.^²×•/žÐ—K /ëÊ O¼Ë¥€—Àuå€'Èå”ÍKÕº´Í“Ùrrþ áªp+\"”Ÿ÷=Ytè=C:£#4:ZÑ ÿÅÚÇ8nñŠZÓ
©Àóu\dž;+¦DE`ó%.§˜’\¼¤czI mZï»<óJa䑸ݖ#-…ƒÚ w ÎïØ#bœQ‚{w]zi“ªjb éj#éMÙgCú,\¼Å‰ÜÑ+xÏ‚<‰®ÈÓëÊqSfâ.^Lh¢CÑ(¼t©O˜<¾£7rÛä~K 0E„—[ åídÄ×JTöhœç Ëïy‚:g™, Š}RÀ5Óbó)Ëû‰yrÒCH’äÆ™uÆŠEÈ.â%e*œ×™üF2çi/ëD¤«ŸL\ErB‡Ë—4^çä:5“Æs?Ávº8ÝZí*Æ6çÆúä˜=s¾+žÕ~6ô™-á[¥íuø ¶ò¡æüï±ñN ¿Í~†œ¯!¢ÎWåÓ8=0IýÂEúøÊ¡IéÔák£ 5¿Bw4í>
stream
xÚ Ùn$¹íÝ_уìUÖ}¼v·gÜXßÇÎúm€ì"H^òaɆT»YEQê®î1[¶jHŠ’x‹eµ¸ÿωZÜ…Ç
þÿãäo÷'§K½È‹û¿Ÿè…‚ÿôB[¿ð>
!êÅýëÉ__”Rñ‡ûL òŒ@gø8ÇÇ>.NPƒUQà|ÀÇ‹2êí§C¤Ó¥â,™‚™íÇü\&ÂÇ
>ž¦Sk†œ@,l>Ñã kbý™þ¡}d£\ô‚â'|Üb <ùÁÉ@ öíÜ*?d+zE þFl}¤…,ñqIû}º´|묋Cv‚è‹Ò–ÐoÇ
¤¹nh3Ê„«7¤r>jHQ……²Ñå‡yñï?ÚïoW'ç÷'ÆÀ¹/¼…—).^·c—ËøÛ‰ó¹ ½Á~;ùó–ƒBIØeDÐH« ‹|Ãhl… ±ƒ±[Z8²pR#&~:Öÿ}‹¿á< c³Öh¦4q}r´¡¿ mèÕ³m÷ÂY?å FÿìM x1Y&+ 9hDµp)F“½)nµï
þ+ ;=þ&<‡Ø̹¥°MÖ@s Dµð)F“½)î8C™3Ú‚ÿJ£ ‡ìM x±™sKa3š¬æ >ˆjáSŒ&+"zSÜq†2g6ÿ•F‘K
{žClæÜRp©:šƒø ª…O1š¬ˆèMq ·
ZüW%&)üM xH ÆѸ†qŽ- #Õb±Äh\ÑHoŠ˜> µJ¤£í’Öl´¦Õ*áM$}G“5Ð ÄQåVw;š¬ˆèMq#Óï™öšs,ƪkùŸ¬ÀW>„h «‘júâ¿A—Ý–¶l¿u• ež…•6g¿”Öž%”¶a¿µ’VzžÅ’:¼ßªHk:ϲH]Û¯ýÒêͳ R'ök©´Nó4UÊï~}jÇDÀX]æO,bÌ<¶ŽƒÊI QÀú,S +á?ÌÅ·iAj0ªó` Î C[cû‘Èn_?ŸwÓ×È/ ª½¿N¡ÎÇøX,bü (Zÿ‰"ík±5o QjÐ!…SÂ…éCMSÌ_a×ó'ZÖ÷ç²JɉKzPn²¥…Ì)tС³¯@#íÙ8C¤ßN)i+)˯õ"jjõ", Þ#=¾ŒÙWo9œ‚ ·æ¥<µ˜¼;¥Énˆígz÷¹sŠÎÝàâhÅLL c©ò±ñqÁÀ¢cŠ¯I]d.Zf5`='²öûÞ}¦aÙ‚ëVu¦–Î/là Mõ3Ï0/ çÈÈƈ0î ÚÂ$ÈÞ’Ò~â™ò
3¢¼aƒb²ïÆ^L¥ÒP“Ý°Ç &
È.ûc<º–ˆkY¤ÐàçU7´²1¡¿
ãŒܡ\0HZBŽ„Ÿ¸Tóâ œdRA`W¶$ŸHûØÖ[`µVÐy$3:‘ÉaÁÏ¥>µÿm@; Û;t)Î&βà"S ä¾ Tb¢îܘьԸ¹ze‰ý…ŠK.ÛXhsëÆ æ±'. 7Ü£/[:ËÈÂṘYæjÝÖl¿ýdŽÂd?ä(ëõ êw.¿Ï¦X!œ7Gž©MÀ¹‹ûrô©\áœÜª3¤,OÊÉ5WýK~`kbúZˆ+XúÝvG;ÆV ÞÐç_lÆË l0Õ±3OCƒÀLå g»¤9> =0
œT4çŒÎ挰¯xÝ|ÍEãIòo\ \p‚ø5ßá3^ ¿ÞQ&·Ê4Ù}ÜLN¿ŽÖœ šµè’å}7”{ŸžtF8VNf ŒM×-ÀÒ+[nlêL[‰b‹ ÙN·¬ Hú
rÜÛ3šè©í›5d¿9fA¢íÓ\yÇd·” Ýuš“ÍqÐô¨d|l1É]NÅ@hå‚@éH…É›ø°¿äqó ·Ð`ç|lï*÷üè“œ„¼¢Xòô·Ò.ïÞo,gE¬ö76€…µRnbG/p¿Œy S¹-FKž°ß Ãâl R–‡q]Í-t \æþ\Ze0‚&¹&òwã-dËþuD^Aòéu›ì' K“€OýXÆ£*Uà¥"ð¡.«X+!·î&›A£Wð4õ,½‹ú€NF ð†‚büQ
ù á—MÅeÕw((>þ·9¸· mRål´äaVš<†» å-FÏ9IýEÙ·î
ËSY
ð>4àyäõ¡[hø €ÕàëVÂ["A¦‹ñ‹
’ÔÈ2^0˜ûɵõ¼¡Î9~\úŒ0ª4W¸?STÉ;#°—£”ó
[Lä©4,¸UÍ5ökFm nŠbgF tÚîÅÍ=›!p¶¼WÑ®HïrfE|’W“öU)eb S“„>Kë6YèÉ)¶)¡úù1¶1`S8
±h¹Ãlf<TÐG¹&l×ÂD &Öv›ñºF,Ors‰!}FÇNËÝ_q¶æQ×J¤FžÈŒú~«ðýÀëWo_‘9b{Éõõ!7¾T›§è•ŸhÔo¼vjKÐànå$ø‘µSPÆ(÷{w¤©„ì3³€ZC Q@I|OM#@Ì4Íü‹2ƒ%ó PFóû;ψŸ…Á4X,—›öÄñªÒ¨ÛÄ%Ί‡mg
×i“UV˜) %ä»"ä"Òét?64ç¡rÈ’çÔ V20çC2ZÀuœF× ízÞqVF™Á*IýÐ ×Xp#YNÛºàÙ-“ØšR#6Bõ’ôHÈžE‡ð:bd_w¿†ƒñr#Ž»8u ˆ¹önìO‡A2Œ×‚aA0¢ s÷Ãb¡kËÅ.‡e•èL[þθÁ’Å ~5š8—IT/
îâÐ@¨V,¯¬ Sµq=“Ý#øÏÜÔZ g®é¿óK]e€3£Å†¬‡<$ d³o§Ý6 Ke¿&лÆQÀôG^m”b°ñ×ÊíO¬¬G³fæÞÄ
, "µñ ›®ê2KjˆÄy³èh•Ë†=oTúÁÓZåÛ¢w#Á1…’›'ïŠZ@ä8Gƒ°7;~°¥YLt†ê) ÈÑØñ€Y+ˆ`R{=¼ã ²¼ $äË[ŸfU#£‘eíÃßú:ëEP»¹;‹_ã¡gí¯s4êëö¦Z…]hrÆϼíñY^ÐO-ðvʼÃF0)7*©Gß ä§FïÈôã<3ÆY Oæ”.=ÊûÏÚi€LfîY8ÈîðF¶¿pˆ#Ì`!¯²
f¶}³·’
»\8îì€WíF@ö4 Zð’™CJ‰à]µ’3
‰3ï‚œê ï1Z6R7(cÛ‹çñœƒ€R› [ûTwuzã;»Úè] )ÔuÚ£ôf×
¬cn\$ãž@\CÞqsûÛ®:JŠÍ;$En°Å–õ §}äëºáêxq)J«n%•çŸÀî e‘icuO“2ŠLro“²ä‰Øé0Ķik‚ ?çÍUµU•,Æ9¢õc*®Í&vm4ë6?îÂÛ`aÄÞùÂv>99KïÂû-)ÁeØ4è’ðñµbÜXʼní)7[øÓ¬ö[]ôCã{‹ëã«Æåo.%¤4³µæŸ°Zx½Ü§´Á‰iwµÁ[C —:ã… Èo:ªå,ìÒ¬{uýèKÇq=V°
Ï!bétKó oØÉ“Uz—}AlÝ) ß›Ž±“ƒL¡¢z@k:äJ9×ø±×”æK·þû®aû2f‹l(ùÝŽƒ1Í{¬ûësËè•l,í;ô ÷ÇŒ¡ó‘ ö*£ýj5WtÛ"1â
µ3ö¢ù³õâj¼P|x@‡o¬ ¿Ê"¦ÿ2E‘D:_BŽnn]•lë:aÀ/@Ó¾¬vI—÷3ûž{&’çm9øöä
fÌ Ö°Õ#p°5 vð^×´Ö\Wž¸þ,»U!‡6øbfõöbdh¬^t› vWéÆÕváiå=¿'|µøÅ-¾¾NÆeè°§ÛÂé‚Ë1i/@.t¢ßèý=‡?ŽBªG„ºù£- 2å+åêã_ppJåÏæìíFCÅ‚x ¸Úܵÿz~•¥˜ë#º?ñBž¹)mvlncO¶2ü¶AÃ1ƒIÌïö"~ã!ĨÎø‚„àæä_¥9ôžÁáÑxå&¿©rXˆíx„Øâüyò´ø'Ðú?pYendstream
endobj
537 0 obj
3561
endobj
541 0 obj
<>
stream
xÚí[ÝoäHÏ_aéŽ]î ow›§d&Ù. ›™lB„@' 'Ä"ñÄ¿OU;Óvu•= ß hµžñ¤ªºº>~]]m«æá_gªyø.[øÿ׳ï ÎÞmTÓ5?žéFÁ?ÝhëïS¢n >ŸýòE)µÁË9^î¾yøÛ@êM«”fä×™/Wx¹ÇË/·„;vK‘q?âå^. y瀜ö¡Œø>ߎyŒ¶m— ãÉSy*ß2÷M¹½ ¿]¥^^ˆp Û.&üv0Vù–U»,½,} K´ÚˆêîûÁË×ÇAaw0ÛÈ-ôLgA,dƒi_ì#kYÃÇ2ÝÝ`2e %ÈÑðq,ÔéÐvÆË^ÚÆëÂ-·'" øÂp½2ù # oEœëÚ®sŒ|ˆŠ§âˆ7Ta)|5‹LØœsŒVòv©¾ÆøÖE>ć¢å
³½qBŽ±p»„\öç÷•f9ˆ„„ùÂg³/VÛ[|rì繦$ÀÎ ï¶$òà]q“.¤C2 ¨8_%øðóMÑzSn? º£aª!}¤IèHéBë ¼k9œãT·Eã›Iì)·Û×™é:b]g™x#9š†òžÇ&ɱY Ì8,×Ìù9ø‚fÜçe°}±ÿ0I‚¦³ |6ÃDÎ…˜Ss3,!ý:tš4ÅSáÂHeßî)$zÚÄ(wÅ"wÔ²ùÛ{n
VbäÁî(T'PKp!2½‚FwÀ!Þ~þ
/_³ 6†0aûTTÛQRx³ N]kmdâÍ‹›®kuèå†^…ÀªõÚ0 Nj-KE²1ðbi¨6`Tä«bËt¦õ*0a“‹87X“IŒ{X ¶„ ‚@G?3Ø}A*:,åJó)ó Ä\±ŽkÄË&#*³2¸ö2vkÐÛÈ®:Št9ôv䈻)—=Ã}Ôãª5Jw*W•¬Ù:ñ#Æ3Y§ÀZÀ©‡½Â0Í{:4‡.°,pLØTbíØ;Îz…; 4Þ—ÃN]¦`0*ÕÌÅÐï©„}â]gjæ>E(aצÈÅì%|P»+ ¨D;œ\úBL/QvÆÍ:ÀêÍuß% h<‚Ö;2åõ˜ 75ñäÔ.6šò²’0å‘Ã)'ÎìäòBC,8QõO4.i‰uUH†$¥Ûâìí…&9æm*&çï÷ÌÑ.–€>hsÊö‰ïŒ¬ïÓŒ
K9l¡¢g„S^Äe-ÕÄ+×q€}ͦr%ô5xìe7-0Ý7Q1Æ`XBwÌk¦ûéI™OÄWÊ<ƒ¯”p®ƒÐ*K–Õ›$Z`²Î«Y.“N„ sL9dÅ®Äj×Qæ#ÈJ‰'§& k|u6•0‰¬Nn °Ý DÕ¿².4É1oS12²Zl ,L ƒL5‹´ï±9*Â)ǸÐzjêuh™lNëJÖr´7—##_w
’ëvEwª·ìùß1žU0i ;˜°e5r!¶‰êš,´1‡ØÅ
ö‘Æ -yuw5ÏÝR׺ҿ|³æLGÜëh&M*9±²5Œòœ=ª;F´§“ú(ù1°S¸7e*[¡Ï€ª£æ™ØÛ öI5ùº@ëlnˆ³Y{g¾Ûzx˜½
ŠUUƒzxdàÃøéøô´d±jG*R™6°a6uºÖmbÄ+ž›:¨ôßyV*Ò†Jé¾ÙÿÝx€{æœüs‡_v{–Þ»¡ÍúJAsìðsÍBCQÒ²wí3›vIUuè´jp×FÜCÆîþ^Õ·
¥Í CUÄýPU?ËÇŸv±{\ }`&1°ñs|p¥é£/V3šÛ²êγ ³„Ëw“VSŠS•®C¥+—×Û—d‘‚\ÍA ¨l%·¡ö
謉¡¿.Áþm‰ýßå÷S³Ö)-›uMHf h•ô8Ì¿>Ù LPS ԙɱæ¦éæ§ÃÂiư¹ çŸ}XаƒgI ÿ…"
ê 3?Éé¹PU#·ÐÈaö
IN3ÒQ)¹ä®6ÿ9Ófe:ꢄ>Bç$¼ÅË/äÞщ-+Ð-ìš% ´£OßáÚ_S5t³¦wHg ;y
±±Æ8L ч6œ wƒ—¿°`òìuˆ–’ù/Ö¯é¯Ãë¿*ˆ1ë¢~MHÜö[º |;lV땱ÓÑÉGòÿé+ŽA[ýÊ4¡»|’èˆetPâÄ™¥ë•I+€œ óŸIGý77òÂHñ9˜ j~&&ÊÃå õX˜ô~;¢§2ç̲,LòA¤ H=µy(;¯ÿ™OfÅÐ:Ô‡Q½™l.×ç_†ñÖ½?šTFਞžêsöÕRÅ{-œ*aŒápê’Ž±öä¬sÓ™ÿ×Dp%uÄ=:'u´ d$ý ôÑœh%a§ãmn®”ãå{Eô'ž9!ͧWÞvWDoWµ·ûÜ©D
/ TÙºä Y% sü‘¾Ï5~å烧`ûgüûÅC!QÍo\óÃçÑ}¾uxÜhCã;ÛšÔÀ°šèT~ø{ù!hƒw¯ôÃ]Hõ]aýéìÇÃΤEç‚í…(Ÿã5ä5¤-¡£kc—jò°¨ê p´ac½¡š\Ñw˜?ÑóÑÉ·_ßmtõæ‚·Ç1º0 m]_6à!˜ZÖI'œ }¶_±ul‰¾/¾¬œ´«©…÷|`së»þÍlõ†Ö©xäÅlˆÿ»³ž¡ˆÏp
£Ò+7ú¦rœö‡ûâÀóÓÙcóõoÔËç+endstream
endobj
542 0 obj
2711
endobj
545 0 obj
<>
stream
xÚ¥VKOÛ@¾ûWøP¥ ¶fß^W=!"HÀ$ ¢¶EU©ÔSÿ~=›dì™P…{7ßÌì~óð¨²ý[¨²}èÄY÷ÿ£8n‹£±)cÙ>ºTÝŸ.µõ¥÷Me•-Ûçâ`¥”š€¸± 1q~Øþì•‚b¦¶RÚTm+' ”#¨h3Ì Äˆ[' – .‡šF‡*ì=…1¡2Ò)j¼àgwèó=^únc°&k'4VDÇ( r‹¶†®
9¼ÕF¾"¡Ð#žˆ¡¬‚ö•ÄÂ9pçjÎU (Ÿ`(
â&EJHN=Å4›¦4RøohøÓ}nŒq›ÐÔ!>ŒóÒ©Äû pF3c‚—xùuʬ6ÁÔ»Ö›½¥dä ÷æ”Æœ3ÝAÑAQK°ß3@Çß ”¹k€%†ËÊÜ7fѳ°@jnñ¦s±PUÊbfiâD@¤Ê] ‚üˆ?¯Äòó^¸À öG˜„÷¸·ìíOû •Ì®¡•
úûŠÇ=gýâüAã¹d„öÖ—}‡d0`ÀH
fô4Püƒ´ÒôÉ»S-jóîTïÇXhå %ô&iEÞb¹L1±„þÃÕÞUô[¢c¯Ë§€o'´Ø»*ØÕþå
vÁ¾ôÝžð*åx‰_¯_Ñû9êÅÞÏÁû{?×ØÕû9î-½_ôq™ƒƒÄʹØX·‡ ÙfOðõºF6…0¦É‹«É“Gý_Òç.ÝÎÄÕ4qO1 d¹£Kmž~K ë=
u¡ÂÀÉi‹~TùɕσuZºn¼il÷•í›‰e·T¥#nüÂ
¬6ø~"_¡êSñ¸ž¡¡¡®’å»ç€¢ m³ ë&rx@–fØÙò
qÊUÚd¾F˜3sš t¨èkbJ5àäh¬éÍŒ·•@Az»Æ\ ïjw©&î²I8nk*Ý÷úqa¹óø„Ûndi\æ伟Ï:˜*jÇÑ ÒÇ•†,T>ffgx¦9¾]ì¼ £‰•Ö‘äsSOål“ÿóâO&ž; d¥Wnð¦Rž®ÛuØê<Ëòwgë ÛCcendstream
endobj
546 0 obj
810
endobj
549 0 obj
<>
stream
xÚZKo#7¾ëWô!ñN¤M²ø¼.4cËcÀ‘-'ë[€$Xììb÷’¿¿EÊ&YUÝ-Éc ¦mYU_‘Åz³Õ°ýk¥†íoø¸Àÿ¬þ¾]Òƒ6Ãö÷• þÓƒuƒ
aôÖÛ¯«ÏJ©ï~Øþ)ÕGÇI½ •«”ëüø˜ ÷ùñ” »Ìý³U̲_y= »Ó•ùSå»ËM~\çÇUÅz¨+$WúQ+„SZÀú²…ü Bn쨼 ¾©~ÉËü8«[+Kü\¾ XÞŒ6HÑ›º£B `L.
òÏtÇŸ OÒ£ÓIð¬ëRוû† Å5Ý×.?žŸ{p0'OäY»ÿ &Ó+~‚Öáé›÷;A?&#P ëA<ÔÍ^Wqô À:9qU¹›]~)Øô‘;
fÔBxÑ‚êɳùƒE…Áaû¯J‹£×Vð}WÍ쬧ŽqLJR·³üX÷µ®¿Ñ£Õ Ôj›r/?=ßTö g-λÑ$A|ÊÚ²iÀeµ Ò,ã±ÚêºâÞ,†âÜF³pÈâ+éC5´Ûz„¿,ŠÔèÇFàdQ/?é’ÁÕj0WUî4 „ïìe õ
^Æ!Žõ2L# ¹;7Ó\ƒŸKÔJn+ü}•»;` &%vð´Ápå*^i]ƥܪõ£ NpnhXž`DçòQðu†Åm¼Îéìm~´ÇÔ«+xÏS
žêHx–Œ¸)´™ÓµÞÛ%ÅãöGm -
Åá2|K`÷4‘3Ë.û•oÚÄi‰zti1îø–-žê^Þá 4š,f$.cî ÉÀòo=†ˆ–´€íÎÁr¥˜„úª”/4FU\,:¬ £€ê|Àòàª.О\÷Ùx’oW 4¥=Õ/¤ßæ+ oÞÑì ùaòãǪ÷G©heFHV@´- E›qéÍ7ΨiuûΟŠÊ{ˆäðh£€Y’.®e°¿åÇ÷ù¡êN×uåñ+
Ò<¸êèl·îäÛåãÜ
âD6“Ï®•”[’‹å¡ó]4þ@ýêùÖ™¢Á‰± ÎaåÖòÓD4‘ÛB-æ Íx—¤`±ëB‹tçõüîhIÑ9“pRlí8NËæ"bÀú:*òŒ:Çí„ }hæÜK{ÃÚÔ˜¤ëŽ1îNá‚4ÁÁNâÆÈL"â!qæ%9Xhæzâ•TÑ ÞÚ»æl@ƒ= ¿·ÔÖ9ZH鎒W :aåZÜp-,V=4¹çõÛ–’ox³â1ÓsØN%ܘ4V‘.º‚½'žÕàp9o±~7A`tæÑO,ZCœ·lÁaÔØ2qŒ%qXù¸fÅ mu‰ wi N—ÑÍÌ
ŽŒ¶*6
°N¬ãbm.(Ùçr¢ý¹˜µ¬#<„ëv´^ És‹Ä‚£\Ñœ\pp¾c;º5íqö Ô
Û,d¦¬lds¾µ¿Bo²V€Í5-Yh*ž^°q¾
-¼?M©IöXØOq È•BÐÉPXD¹è詶o-N “5àa1¶®×àN±J‹-,Þ oܹü ÍDaYäb Ô†Ð$Œ‘Óm&ZbmC ¶……x¬Ïb¤ ¹;BŠÇËxù‘a– ˜xPŒ 6D9u]2Tí~ÐÇè :¹ÁÀmÑÄ€³å’† ’d
9`åË!Úôk[Ýézb,Æz
âSàa4y„Ë°»!œ[qL& i%H€Æc Ê÷¦O(5¦›åS àǨ½€àCy‘Rì°»±ÍοŸ¹I)´F «
64_
æmv3Øo bŸRÆð u7}÷Jªáä'Ì›"(£[
qÜ<r[¹ >Oœ>!ˆ˜lóþ³…‚àÞUÏØ:åA,C=!ªöB¹^æÇäCz @âðÊF…N>XÒ!$"¢XÈ?hq÷t¨Ô0 Cî ¬q?RÝRûÆb{pÎ}Šâ½µsâËñÝ”öO*äHcÓØëü|Iååz‚]Ñ´õ=òpbÊ …›H |tºdÜ:ŒÆiÖŠ¢§‰`O•ŒyqQ„nù„ÚÅŒäg퀵ˆ5rÛùºo² È**wþTÄÀZÐ|˜sûœ‹ß¬bôh°.çäG(Fa`•›]TL¹±tðû¸1™Á7si˜#Už61ò7ÝÚg'ÎUâ$ØŒ@T£™Xï¢NòõEwÑu´NߎF“‰<š·6‚ñæÐÜÓç,L36M\-9ØRépˆN1n>œ¬²|W/ª…pfŒ#Ž‚Íê£qqÖøÌe¬è¤–N7>t*`³¥éÝÌ™§€¶’N÷êÆBõc”"z÷ z×1É ã5Èé‚IØ=;ÉýM#É´¥K«•&4¹›h[ÚD›dòE XÙ ƒÁ
XÉ ì…!_GÉØ|†Ž;Ë.sgÅbþ§S«ÆL§=Ǻž:˹¶ï`—
ÁŒ6Z.dæ•(À~98Nüc}û¬™{,×6ŒPQ7aíùíb£ {»î¶÷±]ì35Ò
NÇ2/çì‹Çg¹C} ãé{jüîŽu ö: æ݈à âk!`îØò›‚1ò™ jÀº][/È;i>zÉ/›ô÷¿3ÁÙ`bˆ‚üMÁ¹œ”ñäRø}šjŽzÌùOLYìhÀ °.×JÃÓŽÜ)³ìrpº›§FÙ.ÌÉéÊÂHœ{Ú÷µêèBB``Ih< â„ hó¨:z1«@¿½´¿"oóÝÁvõŸ,¹Þž³b oÙŠõÛ* ˆ¥VfX×Òç1
¥à9áš6¶¼]ÇhNI:J>eÝä7p•GK®æO5Y“t6Y†27ÆÂãEËâÔ³¥ ÍwŒø… ñÄÔée N+:Á¬‰£¡€55d5 /0œ`yjƒ§Í¸Ó}ÜV5ül‡ß¾vŸËÇÿvÀŽ ‡=ÕЗËõ·B†í_Cywù|c†õVwøO1`¡0*ëò#¯éLÿýþbå”Eaø-îàëË'_>ýk匟Ô˧?W¿¯ ùŽwÿ©RS¤NÊžWuœª£¤(½„=Ÿ .ðÿËKþ
ý©¯çKƒ ˜@’ŸxÇä¢Íæ^Îä®(R•UäÉÓ~í7Uäî)^?7ŠWž?W»á߈õqLºendstream
endobj
550 0 obj
2398
endobj
604 0 obj
<>
stream
xÚ¥–KoÛ0 €ïþ: Ãlœ ”,]‡>Ò-€›ÖiÚ.·]1´vÚß e7T$ÙɆ¡(k¹|H )ÒRô¿)úçôû½ùÜ7ŸÎ”PZô’~”@+¬õàEÿÒ¼ÛJ)Û÷ýҔƒ-U±iYsÅ:Š«(n£8¢‹bÅM_YåŠÍ–Q¬¢øãí‚8#¬q`â(—ìlqÌ:X°^U ®yŸ‹ü©çm/y³K2 `ß¿BZ·U€Ôíø×`yí™fÕüŽ£
ËûçRR¦x¥³tœ”…uf¨m´²ëX;c,hª„Rý‚·ÖÍp±CeH<ä+ŸŒKÌ‘¢\YóŸ\T¹ÎÎx¯·œ×”Òœ:ˆi*<ÌrŒÆJý8¡6 êP "$-ÁL÷ò6/Ñ©*1àÚÊÎEñ&
“—†)}¥Þq„;>ÊÛ(N˜ìpŸ9M¡gœM`l ˜VWêÇ1Ò
Ƕ>㌈ÛÆXÚ¥f—@ä 4B îZvyeO]^‚-šià ‹¹=P…õ¦÷¸Ø¢1¡GBèþž‹·–Âì,5žüÿØä·Õ@uävqÁ ïôºm%Èà+?ežœvh¸ÈÏ;¤f_Zå€Rg9áŒu‡ð+×'œßÛmÆ£¨6GhÁ]9|K]ÙÐ ºJ=EIÍ6MU>uWu"½”5¡XeSc0Â4-f;3
â#Ün÷}Pÿ¤cV~ëó rK®§íöÈq
+¿sMÓx4àJõ›|ßÍÌG BOŸaªœV©ÑTPK¯\å,vÀ× ¨2:~½ù<×\z©· îÊÖ¾&+8-#èÂöëö;÷iÏ&R|Dñð²· –ñã„
´ô‚†2•äîÅ3¿ptûŸY?œ/WlúÔ<Ž ÊÔ²~àÌè„OÈÆ·šê¯H ˆJWê ˜M*Ùo¯§^5¿šhüBÒaÜ‹•¸÷$‡Ý»uÒØÙ<5ñ“|ýìæ—ƒendstream
endobj
605 0 obj
766
endobj
3 0 obj
<>
endobj
78 0 obj
<>
stream
xÚí 7ÆÿŠÒ¢Â¢Â²²Â¢Â°À ВЂâ‚òHA%¢’’HQHH•”$‘Ž„\AHÉõ‘,^]ržñ|ٞѪº&oîÝ Û?Ïc{gnnÊÊÊÊÊÊÊÊBíïŸùý‹/ëù?¶?ùðüEû þÿ[Ž*++cÚÇw￾û ~¸~ý¦QåÕƒ‡íomÊQeeeC†€×èHyýÓ£¢JYY™ž*ˆ[þøêkü€ÿ–*++ÓS?Cµ(åíã'E•²²2=U®_¿L^Þ»ÿáù‹Kª\.í~zA1ß9¢©Îý´Õ!¦µ5%<;Bµþcê/|‘ø‘¯ž>ƒŸqŸýg ºðÛÐÖÿüúœ l‘Öa:_$øWñ— þ»þS0ºÜÑZ¨ÆÒ{U`¸ t•°.}¹Ås ¨ãÁ?¾{ß~Ægð3îíòÃè{_ûç7ßFú
Në?&>Àq><;_¿Ó6Mê}opð‚¯+ªðl<øAçgø¢CkD^âl‚¨sEb¹ï:´2‡KãTßiãï_¶UHÃÌË41*ófÚBè”KLLaëˆ üÁƒôã®u¨2eÞ9 €ŽZTé¨æQÚ©òÑxi®Ó4ÁX †a"H#€”¥©§ÊD¤ AËPüy ªˆ{‘yÄ2wŠ4¡
ãþ/ Ý‚åÏt¤ðûÕq^h#°œ‡*šÖ1\(X¡?ë©r ¸½ë’éñ0ù³Õ9– ÆÖËI¨BŽRZZ
„E¢¤
ù øÛeå¹Ú¼H§Å¼-E^hVÎÆÐI¨¢#MBúéÙ*ÓELþ`PLÙñtZÒÈX'¡Šžùú~©hVO•é"H&¦/’GvZ§‹œ/Î@•vFT û)GÁjD g¢Ë N+ ÛsÎι§Ó¾¼wßjů Âdžs 7FeTqÚNu: BÊŸ6¾Hy¢ é™Ñl{¡oÊáÞ½DÙXŸ•ÿœ¡úöñ“-|ëtæcTˆø@uå TéOO ~@HÏ™"A?ñé)6Q1ÛtTþÄl]é±éz"ˆs¬«ÏÞôT!§§Kÿ8…ôœ•E¦È-DÐP›^Z?Â7ïíëߪ7ýÈ%Ž~¤”ž*¤ü¹ œBz2\÷~5 ™jSþP]
ìý[
xIM,¥§ÊP¨ìÒ÷'ôà—|ˆ ™ü¹¡r8,µœ5*d@xZªBe>¥ö™%‚Äò‡lˆ¥¼:*¤»:Qhnªâsqt-–¨7›é1[¤i ¢Šá|ѹ‡ÜTL£š©pÇ›¹ÇœäOQÅÖÕ礊Xòkúí ©bî1?‚UøFfÑ9纊x{ÂV*æ²Ñé‹Š*|#ßÁ<'UÄ«ˆ¶!}ßÃœˆ%‚¬‚¢¢ŠÕðé“!+U”;ž†!=I†%ÈÝ]éÙUT±ŠóûID³REy:Ë6¤ïŸ6\vÈ-‚ô_QT1Ñ>äÙž¬TQ ¢°
éÉÌc • ¤?ST!ãjN&"òÜfJª˜ ø4 éIøf>¡2iÓ¢Ê]võôÙ«™ù¬HW§¤ŠÉË)†!='ÿ>°{Äâ*‚LÚ´¨òi„‰VÊüƒ“혒*&gÈmCzfnÉV~´DS›’ïxú]KQ¥e)”9ù¬òQÅð}7à wÅO—Új³Ê®Ö‡Ñô1µ3bDU›N̼·UZ`M}fª¨|T!Ceþ
`>»SFtx#/N"È*ßÂi©2´l¢L°Ÿ’*†µÅM*ƒóÃx¿ =*†-æ 3”?'¤Š`ÙD”|T1/¬)ã«ÔA‹Tâ 5[ÙJÚóPJÇp
ÃL½ò[*ÞT!÷pG7pÅ57;ÓÇÄz4£ÝC`æ 3L7wªà¯ «9È&£dT1”?~!ý\° …²+ˆ ìPé©b[–Q,œ3QÅ\þ8…ôíV™µWv‹¡Çl3X榊R0ùb$jâ2QÅ\þ8…ô—±ý¬ Åõå#CÙfÛNL})=ÀÓ®ÉïLT1—?®ûGЂ§žRÖÐoñÖÐcýÁ5Ú¦‰©"}
a’*NòÇO}:q‡‘[Ïx(¿íf™·)ùŽ§ßåJA…b4ZÁ©ðkª8É ot×b‚¸÷"á žtªªiå1ó6Íú ó}o˜ä£Š“ü A .1{šS¸bâ1ó6ÍJŽ‚€I2ª¸ÊŸ0dnœM¿²‰Jy´iVª hÁõ»sP… >úûóæ²égIÏøUNTŠ I{BªL™ïrP%`Ý# \NF.³8‰ ¥Ç<$í ©2¥ˆCªÈ“ ‘å·Æ2eQHã1'oŸS…½[š‰*aK©® ®Öß°ö[Z{ÌiG/+U8À–°p:U¶}]7¯]-¸ÞcN ÏJN
ëcDÛ¨ÍJ•°Ý™}EPßí~·-󘟟³Reô¸~{ÓÇochwªŸ$ÙTÍŠUd ó‹ gÃäl'â<–\v§Jð©×MEP?Bv¥ŠÀc~èŽ)=…*š„`ø.Û%—Ý©|8mS4kµVæ1¿6íŸA]êl€ ‚àm [¸¶ZrÙš*SÒo'‚ÈÎæ=š†<æÚ¦ý¡ºÔŒ ËÚ„?WæÖÀ?W&WÙ*ÁògSD¾#ï ùy̵MÉ_¾Žg˜L‚ÁWâž¼5U¦¼›³—"Ë… eh ð˜k›’|›rÕ–*ǸÖÔý¹tˆ 8Ü—*ß#ÞEq*Å$ÞgzÌ»MÉcÆ
³S
´ÙRåx^~’„~
½¢¸/UHwùE³†…ÌüÖR8apXÌO ÀZ¿ ¨˜HZæ ÞîóËãÔg—a•±–oPŸË¿Q%¹ûRÅ©ø¦É”wW àšm 8”PÎu÷g4HˆÉ1¥Ü(1¼úÎ÷¨ˆ
¶›ä2%·Š6¥Šk¡pŽÉÊI,ÒŸ§,Nê“gZIÚ‰Õ
æRå™JãtSª8Õó5AŸ
—¢Jpþ:e] à ½‰$W Ê1/‹—\²Re¢üш uŸÌœ×„߶bͶ׎T9º1&èQƦ¤Êtù#A‹ %€º²m»Èíïé`Y*—˹|槤Êtù#A‹D)Ïz ¢n̤N{jsÁ²U. ÂYþJI•éòG,‚¦#e…zC`ñCÊÑÿ§”x[“*Ìc ù¨²ˆü‘‰ ‰<ÁØYçí9f)Xt¿€iVÇ9ÒPå˜4ïâ>ª,"d"hÖ²kŠ ± “²ìÖý 5#kG.N•N3å£Ê"òG&‚‚aoMÙ'¼„¦o×ÕÓgsÌc µÇ-9]}2 á:ÿ6ØEðÉå :rœâö:7oÞ'ÛùO™Ÿ.)ƒy¸Âw wG=æ²t˶6ôgDaG²ËÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÂìܯ&áendstream
endobj
616 0 obj
2589
endobj
79 0 obj
<>
stream
xÚ3PIæ2P)ç*ä2T0 B]ei¨g¡œË¥ï l ^ ¢
A´ž¹……‘‚ž…¹ˆ²´P(JçéËå‚jËá216Bf i0™Á•†ÅH¨Y–F†`ÊÔÌb¦¹ C’95c¹ ÈG)’endstream
endobj
617 0 obj
115
endobj
618 0 obj
<>
>>
endobj
111 0 obj
<>
stream
xÚ3PIæ2P)ç*ä2T0 B]ef¨g¤œË¥ï l ^ ¢
A´ž¹……‘‚ž…¹ˆ²´P(JçéËå‚jËá216Bf i0™Á•†ÅH¨Y–F†`ÊÔÌb¦‰¥ž cÁÒ90uù ¶*£endstream
endobj
621 0 obj
117
endobj
622 0 obj
<>
>>
endobj
292 0 obj
<>
stream
xÚí[ÉŽ ǽ÷W´Ã°t2÷å*ˆ dÁ9cÊ‹|jC2„¦Ëý¾ß‹\ªª«{Ì.ÎÅVsÀª‰¬ÌŒ‘±eVÞ? wzÿøóî_;³×ø9ðfCRº¸ýñÃŽm¼ö¦ÓÎe§LHZ4~×rýÇîÛÝ?9§Š1ɼí7¥µN&´`òÎWe¼ß ê
O^¼~Ðû þÍ»á —y›å]ï_ïꀟ÷èð%þÿ¸ûëß0ßßwdhrè&xeC,k‹Š:^j‘Þ§1Ž"|þÙîí ¢Q%—ýÁ)mó¼ *™ÕÙ¨rrgø+Ve“‡ÔÊW5$_öïž„ ²ÒøMªèÜN³†mRˆ‡Î
˜ûlh ´ÇŽ–Ó¢%G»Âã‹rÖí0g/Æð’£8çx‹9îúl]V)·E´J{J #Ñ&û(MÙå= `ÅLp*$»*'T‰eÜeU¼‘wÕÀRÑ<ȨBI³ÞЙ¶ÓdÖ*cóÄ ¤PлÒåi×{;($£w› ¤…¦:/#³ w |(û´QMŒÑ¹ ÙæštÐx
] a¸ßv«¯Üõ|»ž ¶*y6i©ÒWž^+nˆ@%í&Åz&m†b;Ù„ ½»2ÚdCUeèÙ|ŠEåì2€QLqÈ`ÀvŒÊ:ÍD°Êê0‰ÐÈ.Bï=D¹ºO“ 9žÅ«=rÖ-{óÁ¦^`
£›d¬Ù?“R³uÀæUhFn #¬ŽähxAeïFäòÆŽÁƒ¬¬Dnih8NS«øVŽ¦hÓ`×È㮡iôeàmªIÚñâ—©ª‡ízºÈ®Kèº?h]ØFNºi
]Ô6øL@³ڮ‚¤ÇM YÿÌ@Vr²6 uð +«s·5:¡±ûƒGíRnõ[Æ>3£³¶£KXL(¾ ©Ú`¢èKvP@ïkzlP²è4Æ’”©êäèÞç“4Ĥ´Åƒ¤‚“%qlT¡…`í G41°˜Ý>©lÊ <¨8ï Ú÷©2}‹ºd4I¿Íïª3[]¦éë
Þ˜²éº‚ÙGWº®5éª5t]µ±gªÙ »¬‘ž›´P;{Aíd3ŒÄuŸYd-Õq¬Ìì`¶r<Rë:žbߨ|-ó"îÏŽÍ}Uy̵4¢æÞ€—ƒkÐFÒÖšý³&Ôj\ü~Óéô%ÌÝ>ÅÒgº}`KYB®Ø¨r1ÜFæŠgWQ|¢âsSüÚZ† "`g1µ%㾬[K¢€´¹~m4S˜åQ1››=“$ñýâ$·6yŽ@QV»ñ^Cªæ‰„±!<º0= ãô˜ñØÏrh¥½;¼)Ót•äΪr«ô„Œc—8+s°J³º`Â|"ñ¹+ö‰}ƒwÌ ^Œm(Q,q½T±Zbq–GŒ²ã|¸•_lØÁó°xì,P™¸ÒY ‡Ë[X•åX¨±€Î¢,YÐÚX\ŽV¬P&˜x:{‘FÕÊ*]H;W_¢]‰5.ÍÐ&æÂåù̦í# 6ÏÁbÞH„ &z`ÀÃüN9ŒÒµÓY©
tR4µI©ÚpPŒ
’üxBˆ"°#»EÏÜå9[µw—ùÚ
–!ÈÖTR3²`ÖÖ]@Àn|ʵ?¤åt›A€©Õ´fÔÑà©CLöuHÔ SÆ™:"%q|zˆ¨.‰œ½M´²ÇG(ˆ6\Ï8úbá
ôôk¥Ä¯¯B-èyĦsóG:Öw8E6|ÇjZ s¢ ]LS4·Ú³¦ÛŸÅÙM?™5òT×&÷:K$Ç ±ßyØ¢$¤R$æ]zŒø›Ò5‹]ú‹gö 5È9C ™|²Û`#!TaäGßRê &÷>WÇsVŽxe¡[V®Ì.U5“4©d{k¡P3>\üÂ̈́)µÃäYˉ
¾5‘,&ý°¡LKC’õ5â8ÀVš[IU€
åí2$E¨ÚÔ-UÖ÷Šø^ß+â{E|¯ˆïñ½"¾WÄ÷Šø^ÿÒ*â~
.¯ÂãeÝ°ß»{‘sp NggUÈh1<¿ð*‡ß·ÀŒž o/ ;ÿF«Ôkît«Å—¾‡z»bØŸ?òcäŸv/^ñMzÞ?~?Íæå ’5_ÀíñÃî·ß!9^þÄËK^¾æå+^^ýîñÇÝËÇ[ù8*"¯ù^Þðò-/áå /äåÙ™8D>xGLò…Û³¨yŽj‚~‚yù=/_ P‚öõ65Xz^óy=ôû^ä–߶±àþÅÆ5‹ïàvgäÛ(÷q ¿ jz7,èa.Ír)–2¬edvϲ–Hßœ¤ w°…—ßÈšnÓ‚‰¨Üzb7$Uüy‹ô›îâå–³-îbt”ÈüÆ3„-:Ö+;Vžà±JÎòkÑÉGI½šÕp§“×½Ôî›±”¢çWÃGßlcË/û}Y³}9ؾ]F€¯Š÷Û8²(-vÍñ‹ÁìõXÊgZ+nY|¾=¬µ…}É… ßü#6¼ìœêÝ%Þ_ŒÕ3cÈ7C¡¿ÚŠß‚ ¼]¡ßx»q‘P r3}QÒí9aÅõLÒyÍç©œ°ôpÏê±/@õTžÅÁy²(ËŒ|ÍÝÔ" ½ð6zœEõéÝzvØŠ¿ Ã"b—£Ç¸ ßùüOËf2ÊQÎÞ´?ãÇÇØi_ÿlbûçI&(;ÿ:iYCfd
É‘fLü$6Yò÷5>Äñ¦ T ŸÚxaÀ/}øågLíä9öñúä¬ûüÙ³:nì¡øó (÷Åendstream
endobj
623 0 obj
2713
endobj
624 0 obj
<>
/ExtGState <>
>>
endobj
298 0 obj
<>
stream
xÚí[ËŽÇÝó+z‰–êýØÖŽ[š‰í$ÊŠT€$ ÿ~ιõè&Ù¤EÎØ …Ü£[SU÷}ëÜê–ž w==þ´ù÷ÆL¶üaW^»i÷aÃ1>ûÐ~ãBT:å•¿kyþsóÝæ_ÜSŘdßñ7¥ñŸOÎs÷ÎOe¼Ÿ¶Z%'|_¼~ÐÓ?þËŸ†?ñXŽYþÔÓëM]÷Ó„ _âÿ 7ýöûû† MJ"»ñZEo!—5VùÖFdö~¬£Ÿ¶y»Ñe¡ÃÖ袒6GRV‰”M>@/ÚªäËôî¢.*W,Ä4Ú¨âÇÀ~óp†¹SæùxG}Ä›ûå€IñDXÏF;mST6Ÿó&Z,w¶úÀeš ìgÂäáÓ\á&£•‹a»APå2,Cc¬í”lºÛ4²ñÛÚ«’ÓÔw©Cœ¹Û4AǺYƒ ¢á‡Ï®
ÀOHý‡§ènB3u…mVV‡YŒJÎ
·®C]{¨á-ò$Dr'+7ÛßeöoäBœ:ШkgáLi–Ùa’E¤GR¥åB~@9ŸG€$ËT«rþÕ(VÇg¡-ž®LE¤z§ ³W9˜1`
¬åÇÚAVN˜Þšûy f.ܧngƒr.tnb܈,^»í4ëzc&ý?êáv+³@ìêÐ-ƒ¸6Ñ Y+5[¦
EëÚ#CÜ"#³û‚ŒÈ¶8dtØÈ5Ë؆PuíBdr:ÎΔ¶HNs^ûËÉY¹léwà 2€CÅSDC
,ó€(G¡¼¥ã“ Ò‰³´Ê&ͤCZÎFÅñ)ŒÍLFDÌŒ²T¾.
f·*æ~Ó¦Ó3 û^«˜ýàÒ©nM h˜° Ú¨¦Æ<¹*ÙöšmÐx
[ÝœÛw;_i燛ŒC-+ÙQPù|Í ¤NrL4 ã $Ñ´™
Õµ÷cí¡en«9DHµP¹NŽÕ’à¶Û ”;5+‚N9 ww²¹`Ìî.j›uÿ5F]‡*Êq±ˆ¨4(, ŠEVÞÌTF\u¬—ªœ* ê™)KÓ)è â0‰~, dÝÓÛ@c¹Ÿ’hÜ·c¥ÁQ»M¥‘z¬šu¸1‹?%<¤ÕÞô²¸âxö¡@H=è×F"ìij"z„˖ͪ¹+L®Våv@€ÞÏ4.å¾Q%ŒnñËœÏq5Xi®áG›`ÏöûèÁ¬‰`c᪫mºEáÎq6l£-j¥¥eA{³ ,þ’0÷ív‡jtJ(´â=ÄX~1pÈ4DÀ5(ŒhòñÏsvYpJ⸈þ ƒóÀ–FYs=ÇáI°IúüÕ1Lk@Îh•ô¼Žò–À¢«×H° šy cyA ]ÔàüfÁÝîð¾Í°ã5‘6ÁíQª!sËr‚UDEXN"2%H¥æ)Š®86;h雬ŒmxS˜Ê2 g0Uzm‹Í²'µ4õ¶^½IÝ+Ò•I5D&ZB2®–õ`9½9ÝÒ⇂î붴„ž¶XÈ ?k~æÛ©ý©2âqv ‚%x‘Z‹³!¦¥”À ¡ z€Ur1
XCó ~`?ërë1Ã$Ûæ¾íqIes”P×@¬ˆk>B\@7+.[¢ ¤€K<‡¥¾c–Ž¼°5:ÁrÍš»ZÓ)#RgT ¬ç Ä.ÑL‡ÖØ »0¸F¾œà„w¶ä«M¯ëÆ!/nq«Á™frx–å€v’‡ûÅBF©i—mgLU@Kˆùª‹Õ5™{x@–˜äL“ð(ô~¬¢ÁäÉØvÍ.ô0|q‡†_ÄË" Xåˆqw…&TOÔÐ_÷g óˆ ã-*n2WçPwi^Ã7ÚK‡ ïu×ì`È÷D°q‘Ÿ?Öé±ãnÜõ¸©OiÒØRl›„W%»Xuá¡»“`0ª`ÖÖIqÖ îLp:ä”Üe žQ à Ø1Ô–ŠwéðC–
,%Àú Pî,Pg ¨¸ØÎ##9íàöíâåèY ¬¨~æò‹”ï<€¾Jg±^Ð iX½TÒåèµ¢L]ûFçL5ð¹6äêiïig{Ï .êÍ,.jwëš
A456½ ÊÆ(s;MÄÔV2 éÛŠIhh0Í•©A[yjÁÕ¼Êâî^‚¢HÀ;æ8ÉÌx¶Œ¡Lw_®‘±¦úìP§]ëŽAWV„\-X&µW4|!ÄE€ÄAFl–]˜Çž'K•j¾"©pôz öô™Å€ŒÎž:z¤ØÚ ÐÀ‚¨UI5t¬“|5©ÆU2”D·”äaÌÞßèVèû0^»×ã Á?IäÄ•´6pH;Ž
ðìRŒÝJéw|³@ã¹äc®ý(¤¤ ½þ"mnù8êÑÊàHá8afÒHˊɱÞnÙÂÈ!.”Ÿå
Œ¸¹ŸÊ•Ý¦™õI¼»º*Ôê`øá€M†Í'«Y4¹ 4qôµ'ÉÁ¦ :Éw[>VS¥šUZ,åkqu‚ŽšU”·‡U K,ëÐo)ñïð÷ïð÷ïð÷ïð÷ïð÷S†¿ýrÛ#k׫»lð3ŸŽüÔ)Ì ¤ÓÚ"ºW®¼-ñ–{.î|Ã\/†:ƒ
!¯rGˆ32Y8üºU¯7ˆÍçüö?›¯xsž§Ç æw\¬â[9Õ0þaó»÷(@ŽïùxÉÇ×||ÅÇ«ß?þ¸yùx-Sß¿ ³1|¼áã;>þÂÇ;>þÄÇ ¯#ï;)ÛhTðÏbÂw$[b˜E‹|ü/†@"éëÛ,€ …ˆå˜ÍëaÙoEeùÛm ä+ÂὶöÆ
kÅ|”È_½‘ó°ÔåćÁ0êø‰²®8ö8·¬>
/ExtGState <>
>>
endobj
533 0 obj
<>
stream
xÚíXKo1 ¾çWäPQ¨oœw®´¨ tKA”Ó¢RU 8ôïc'3aöýPWjÑjµÎcû³ã$ߌ’ÑPrx'~ ”Š~
DëäèVp Ë®ë‡0ÎBðqF¢ºÊòZ\ˆŸ¬¼Yo[¥”Vy,)Լ5d=BôžŸ
ŽÏ”üþ‡Kä’BAp^""¥3¬®Î†QG0ÈÕ2l¢YG^‹«qÚ3 =„äec=(æ—¨ yá‹aåÁjVghÛ3WÛœ³Y;q†mÀ·Ì¶‰`Sµy[ÛZ5n®B›6Ã:
*"ÅÊ`–Ä]0)¶î—ú
q¯#§¬)ZÙ†‰‹§ˆÅv[]nºœ²ì‘R—,£
`K¢Oš&ÑïÓÎ1«ÖòNÒóú߈/_Iã7a$Š1R"£6¼D]‡gh·Ø‚N‰¬ÇÚ ßŽ,mU稪n”S=RÙŽ&-‰ÆtÊÚæH°¡¶ÑAh'N@ QXg‡Å‡œÂ»¨”M‚´µíQãÁh³ ËDXH©Â]TJTèðv$v1iÏyt*7†XBØe‚ñR–\¼åZ»]páMóŠuÕú;ÎDWE¢0ÌçL-/WÞ£+ÓœDbèKéØÚª3Ø°
è^@fðª
YÜŠ3aFm3E£ Dçf)$f; LÌwû<ô_O/V+H¢lvŒYl¿á1™!çüi›Óü¬_ƒx¿‚é¾ëŒwÌó¶cMÇ{Ñg0,FPœì|/r±ëݘé{ð™r…®ÿ®Ô”bNŠ ùuî· )i!ÊáUUÉa&6ÜðþrAoÅÓKrO±øÀâ‹Sφ7âå¿,p‰31~¿MPžÅ s™!]Jݶu†ýŽÅŸY¼bñ„Å G,^ׇ,,²®ƒÚwÌâd¦Ë|ea"x”ÓÒãý¬¸õnM¬tœ¹h¦°†
µ%@7íùÞJ áAkšk-¤Â!v ±½…x¿ì$ Ò¤#/]¤)ü7'Á2¿“ÃÌ$«³ñQºŸ-ô‘ÜsÒ»,ÎëŒó9÷XûÑËð÷§û§Æë}TÛÄ@Ç ;Ðl8e·‰i¿¦E^î·uŸƒ=›ƒ“Å?x˜Ý·QT|ÄûO¢u>¾n¤ßòË{ãé®1Û óó|ŒÌŒ¡'²@/ÃDlzC| …¦·uÍ 8íçhƒUO® nþýê=endstream
endobj
628 0 obj
931
endobj
629 0 obj
<>
/ExtGState <>
>>
endobj
270 0 obj
<>
endobj
631 0 obj
<>
stream
xÚ]”ÁŠÛ0E÷þ
uQ˜.ÒØ’ž4!0¤”fÑvO?À‘•ÔÐØÆqùû*:f
$p°œwî5Ï ?¼Ô«çv8Ä•ù\ª×x®Sˆ«Ý÷f,Ö»ý—}ßÍjý2
¡Ž³:v};-gÔ!žº¾¨´j»0/”Ãy¹¹¾]æxÞ÷Ç¡ØlÔú5]¼ÌÓM=䉟ŠõÏ©SןÔï]¸¾ŽãŸxŽý¬Êb»Um<¦?J.?šsTëçöÛVéè¿ o·1*¹Â! m¼ŒMˆSÓŸb±)Óg«6_Óg[ľýïºÓÜv8†ßÍ” Òñ²ÔÛLzÊT•P iè™L¦„,TAiÈAò… !ž 5‡ð4xVxšÅ³…šLº‚"„™ÅLcf1Ó˜YÌ4f3™ÅLcf1Ó¸X\4.—TO¦ÉÐ ¥Aƒ™ÅÌЧ¥OCŸBŸOÁÓà)x<Oƒ§àið<
<OK/Ž^,ó ó,ó ó,ó ó,ó ó,ó ó,ó ó,-9Z²LwËtž˜ã‰¥B2 t4(4èhPhÐÑ Ð £A¡AOƒB>O>!Ÿ'ŸÏ“OÈçÉ'äóäòyò ù<ù„|ž|B>O>!Ÿoò.Ûv_ÇûËâ}ÅÃušÒöç7JÞïûfw}|éŒÃx¿+ÿ7¶ ñendstream
endobj
632 0 obj
506
endobj
630 0 obj
<>
/FontDescriptor 633 0 R
/W [
0[750.0]11[333.0078125 333.008]16[333.0078125]18[277.83203125 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 333.008]33[583.984375]36[722.16796875 722.168 722.168 722.168 666.992 610.84]43[722.16796875 277.832]47[610.83984375 833.008 722.168 777.832 666.992]53[722.16796875 666.992 610.84 722.168 666.992 943.848]60[666.9921875]68[556.15234375 610.84 556.152 610.84 556.152 333.008 610.84 610.84 277.832 277.832 556.152 277.832 889.16 610.84 610.84 610.84 610.84 389.16 556.152 333.008 610.84 556.152 777.832 556.152 556.152 500]
]
/BaseFont/GFEDCB+Arial-BoldMT
>>
endobj
633 0 obj
<>
endobj
634 0 obj
<>
stream
xÚì¼x”Uþ?zÊ{Þ6½—´™Lú2I&„@ /BB'A ,$ÁJ@¤ª`T”è*(ºzÀ†eŲ®Ø±ì.Š-Ê®ˆ(dr¿ç ‚ûÛýßç¹ÏsïýßçN2§½íœïù–Ï÷|Ï;#„\H€lôÊÁUSBuó—AëÖáãÆW]•×("D¨§Ž tÉø´ç zÔ{
7aàû'?û3Ôá|eû¬ió›
)e8nuåµ3µÞu;Ô½
›=³iÖUòWsšÐ‚û°rÜ°!~õîÉ]ZƒUÓ¼†¦ÁË)B Áås¯œ;c~‹
GhÅh8ž?»aÚåù{ð1„ZoàÏŸqÍ‚ÀiwÃó[÷ $õiš;Áº¯?| ¡m'ÐuÉøqCÏ…ÞÐ×PoŸ
7°ßdïBè$< e̸jZÓ mN ¨?‚gÎ
ó® P=ê3„e+eòUÓ7™n¶S„S®„óWO»ªáϳN¿ õ[J©ž}Õ‚ÅÊýg_D¸Ï§Ð¿œêqEfCñF„'pzMDœ¶Fÿä#_‘““’3ˆ’_(C˜ÊT†T¥FHíÔŽ(M¢IPN£éfÓ^¡# ýz#”—Ð%ˆÐÚå¥ôV(ßFOAù'zÊ]ðX*ƒTHMÜSp
.H/F!,Ìfyâ•‹óÄÕz õï´yÓ¦CoE½·Œœ¤Ipîl8[?>’<ß‹” Yi ³ƒP ˜×8íÊÀÀËú§ >¨¢+6`ì%#Š4”¸¯Šú£‡w—¡†G@~8"! Ð…B.êuQ¿†·P–çϽéiïÆ« þW5\Þˆ*g6^=
×ÓÑW6Κ†&΃ MI<‘§8q'žR=ô”é3!³x
žì(UáǨÊÆKʇôk1´ø…x}~A«QqŽ˜BïâwÓÄ€¼àèSh<
Ò\Z@‹ét-½ƒn¤÷Ó-ôtÝM÷Ó§éóô%z˜¾AߢïÒé'ôsúz‚~ ?²\–Ç.a£ÙxVÃ.cõìr6›]ɚض˜ÝÀ f[ÙvöÛÅö°v8óYöû{½Iß…ü}öûŒý}Á¾f ìŸì'ö ë±ÈDE4±KD
ŠIâb/±\œ"NgBÇŸeÓ ´–ÐÕt ½‡ÞK ÑGéNº— ÏÒèŸèkôMú6}Ÿ~D?££_Я¡¯ÿd9,Ÿ
g£ØX6‘MfSØt6“ÍaW³yìv ke°ÇØ“¬
úº dO³çÙKì0{ƒ½ÅÞfï²Ù'ìsöv‚}Ë~`?²ŸÙYÖ%RQ
¢Mtˆ Ñ´Š}ÄËÄzñòßQ8æÑÒSôVz'ÝD7ÓVú}Œî¡íôzˆ¾L_¥¦Gè{ô(ý” £ÇéWô;ø;³‘l ›ÀjY ›ÆX#»Š5³…ìZv#ûÛÆž`;Øn¶— €3Ÿc/²WØëì/ô=È?` ³¿²¿³/Ù7ì{ö/všýÊb"EQÍ@a7M“Å+ÅR±Ÿ8Uœ!Îúß“Â8 ÝN4‡æÓž´ˆö¢Ëèrº‚®¢kèít=½›n ÷ÑéÃt+ÝNŸ¤OÑ6º‹î£ésôEú
}þ…¾C? Ó¿Ò¿Ó/é7ð÷==IÿEOÓ3ôWzN W?VÁ°Al0†±¬šc“Ø¥l*›Áf±+Ø\6Ÿ-b׳%l)»™ÝÂV²Õl-»cw°»Ø=l#»—ÝÏ `[ØCìQö8û#Û s¶ èð ;Ä^f¯²?³#ì ö ;Ê>ç³ãì+ö ;ÉN±3윈DA”E£hí¢SôŠ~15.ÉbH̳Å\1,ö ÄB±X,Ëľb…8@ $Ö‰ÓÄ Òíú¬†óº”ÞLo¡+a~oƒ¾ë‚9~œ>AÿHwü/纃þ@ÿ :ügú =«Ó§œõgÈ*Yú_¸à&Ö–±ål[ÅÖ°[Ùíl=»“ÝÍ6°Mì>¶™=ø‰O,ç9%%AŸt1CÌsÄ<1_ì)FÄ"à ÞÀCýEM øÿ}NbÇþNú¿‘“À’œ“0&€ ü¨ íBÏ WÐô1:Ž¾Gg ÕRQÊGE¨7 J4 ŒDAëÏÅ4ú`£eôgH—Ó_ ]EÏBz»¸V!^é ñH‰« í§£/Ü7å¡ê…Êéiýgô;üªßáœ~‡kõ;\¯ßáFý«õ; Þoâgè¥%çK-çKKÏ—–/Ý|¾´ü|é–DI¤pŒu‚ÅÁ`sX ETBRœB¨ž‹ÈŒœ@© § àIBþI‡@ú/:Ò é0HOÑáþ¨’Ó\VÉÏ:j¢º}„HŽ‚ôrÈ…g ÜCpL”ÚI…æ@LˆQ¤JB #Ÿ,²¡Ïà,¤à6ìEÞ°õtygù(ë©ò‘å¨ÊÖsF‚¶ -ÅÎè¡sCgQ@8đر1d6{YQ•fαl£DV0R¬È.? jØ RDîÖTåGãý!"¡lØm{ô
þĺŽÎS ÖTQa-·Â³p e‘«£Wi1!.§Ýã&
/ÜÛ:câòC«gõ+ ÅÆœÀÿú19ölìíØ¤ï ‰=vÿLÞ“AÐMïÉ0Í›M²ÕYd–º‘l#™%üø·[yŸÀã‰÷iü#»ßÈ{cŸ3ˆ÷¦£óøÅqô§%QB‹Ýv—S"tð¸Ê>É3W?¿qÛÀOÆÆìzîÌç ¿Çã‚c©gÞþ!v*v–÷d ^II+пH F°† .…Ù°‚JPV2+Lsû„G¯ô†GY×´~Y‡
:ê
# ö ’ƒWb_ìÜ«³ëé 㢨·–ä F¨“J8>Vñ·ÄÏè·p§»ô;Ù1Êzz$Œ¡¼¢|%ë¾ÑúraDÂŘâ+ÞÝácßýêäHzb× ÁÌ×Ð]ÚˆÅê*uÞ.mW¶™÷+¯*òD[»Ö?1m–m¶{¶Vš\FÊÄ^J/Ó02L ¬T™¶)o×Ä—•—M ‘OÄ÷”÷L6«7à%Þö®CZ¦Ý õn•Mi– ±hP³lE,åhµ€ºó¨Á|÷ÅßúÛÌ;Ünæ_NvTW‡‹/n§+šB¬FK
gA¹P6‚C»aŽP;yh7ÁFK;ž¨…ÒŒFbäsgÜê`ÊQ·WC—ýi–£ÖEÄ—Ú=§ô,/ É%§3Ü| TG¸®¹Üf/öâpÝ Ëj ”®C»le¼»,z¦™e‚l-c²
r[YXÿÔîÉ ñ5šAIò%‘$ Áà¿®–sƈ15Ï¢¤®c(¾)]Çz÷î]‹›ë€_lÁ^öRà’hV˜%³WFq‘Ûå¶DI0žË¶¶~÷\¸OCmÍl9ö•Ë¯|tfÈÈâØé!nÌbgïÆÊ';+&M˜Ò0çúä¯^ÿæ©»§85:‹ÏÒH•$˜¥\ô‘V´Òõš‹\Ÿ¼6™l¥³mN€=lŸócïg>ÙíÄ·¹oó jBö8ÜÁ4“Õ¨¶ã ÍXmši‰˜LØÝŽ‰fIs8ˆƒ“×±5‰a ù^+ð𠧚…Ù¦6ã!˜£ÛztIÚº´-i;ÒžOciǤ£Õ8à v õ,ÂG‘/ï¼0Jˆp ¬ .1!<áÕæ̉Y– )§*È‡ê ™ºléÔ“JÝçÉØŸƒ$‚ösC‚Bé#±Õ4o̤EóÆö‘6oqÍ°¡3
±Î¤«^ºög½{ÓÆØ—ï ŽýŠo ξzyÓœ\_ÐÆIÃk.¯Ï¿e˥˯\õÂü¤gny!vò ' ®P tU‘ }®•¦2Åè3†ãŒWÿn;LXÜB¦cjºÔ´Í´ßôŠIÁDFFÑ$1Õ`’Ñh2µã§4?œ”+1
&j"‚Š$ÍtÈt*Oã ÔîÙ‡.@í¸f[§b•O„Ý*m‘ž—¨ä·T%„Ÿù ¾Õ¥úx3˜¨‘ Û\°+À4vÖ•sÚËtÚ˸Š@ÇZ,–nÖíaìg i|Óø™‘¡8ÓyÃ`?Kp±Ø²a&7u>Fnønß¾ØÉØœ}šþáÜ”Ÿc ‘TüSÌ w)p\ Û
zÁªåÊ怱Ô>Ø>Ìw¯éAóFûÇfÅns؃¶ý;¨#lR
v›´jn³Éi6›ìª3€¹é¡£ñzPx±×~»’L`ú&k¦4µ@%*gDu«“3ŸÁ鎜§æ¤Îvü„æ´ÙÒ¬VR`°V[©•ŸjåÏrX,fÁbv<âÁš{üiæv Ôì¦Eø™#kh ÚÁÍ\ê»ð„šäÌy ˜T/puiÕµ4„Ïój]³-NZ3ŸçWW/bÔlÐUêU\„€CÁVd\Š½ÆkFÖ\wí´kë¯'':¿ÏŸ2ýi,4®‹½Ñ…ðµ)Sç®[¿råAr6öË/±“ í½ýÅ'Åó€=(„žÕúÎ1,”WÊ}ÛØ6ùqóvÇó>Û³ŽC¶· &ëe«´^çÞKÞ± qJO£·àrK^»5) J‹“0H”´ÕbJ I,¸µBÁšrDéR¨ÒŽ«wïÀsb¥§ 0-š>'.â¼(õhµý™Þ£v_Æïì䩸’=ULXLÎ(!ËÀj˜eé¢ T±ë" .ÄÎótKì¤:~PíõÖÆÍmgcgÞúkìï8ïûmŸt>tÓ˜Q³›ÆiÆ¥Ž ÝÚyCìÔ{‹Äµx5¾ _þô¹¯WßsÝÚu·,.òë.5 ÐuL+´Ø¢ªÁoè#ôV‡²‰†í†ç o>2¨A6P ¥
¤ÀPa¨6P ±á ‡IøÉý„`A’2ˆæî ^×̤šbê7X5&¨PÎ-
Èc§nf :ëà;¹DBbzÜû¸kê¶ìùGø÷§z9V8V8Wf a 7¥’{n‚RXáåLÚ“½¢guOÒó ¹ LÙ!ÍêöF›’[’Ik2NNí9œ‹8-’£åœvr»f²›*Ò«ÓI:¿:·øE–vTY>ZmÁ‘ï(]”yÔí+üwk 뺊κ°U·áŽº°N6þÕy'a Ps]8Œ³²J¢½æ“ë}!”žÍ› °½ Œ‡^5ã‹wß>1§þº%±Î_½åkL ]?uÔ˜zÿ¢ÚIóÔÎj žžÕ?òÁÌÜ’WøÌõoÄo8ºè0 3~ÊÔñÕSë;û-Xvã5³n¼£Ó0;΄4 ÑjúÚFØ ×É«åÇÙãòVóVÇ^t€î5·Ûö8þ„^· rØ¢Ž‰†ZÓTÛXG½Cô±Eî{=ŸY?w²Ù δ¤N-.˜Ì €`r"[uáŒ(¸Zù\9™ÎÖ¸p^`‘“âòiò ¶c»?3.§Æ äóÔy$û ä³›À
V
úŠ”DA4¹€†Ò³°NK—N×:lUÇžtmΖ?žÅÊ›ŸãÔØ?<ù ™rãØQ³@>çâq©ãF·ž» >ø ÛbÛb cWÇ6ï§É«6\ëí·€¿Š^ðòw!K÷{jI´7ÅÞ‚ªì „ˆY8À"Œ° ò›OèžwøÊO£TtĽ€T¶×¸‚}ÔÄós?&|4mF
]àµÎÔ¬‚â#£ f[”µƒ&0A¡WáEJKR¯ÑT\
P“, 0± /×ÌH T”>iä ‚†Œ´v–û} È[áïèìà ø±®¹Ô†Álº¦’ç:Òï·â$섺/6ò¤ +@ìyvF©âÔuTSJË¢b$’.H9%QQƒjGµÑÁl8I.ÊŸ£{£RVaœƒæ:“Í–g©_QËpsg–ªŠ"H
Æ$ë$‰Š À œŒ‰²ªùSú«ºÑô§DÕLB©( =£™E‰0A ×ÞèñøYOÓ ip0Ê-à‹µ“ MISpDiQˆrd ÎPàwø SfÄé1²Ó\&ÓÛ9jpCå— ô€Bå#;€›
e‡uoå/¯ìéå™d-/_ùòËq$²G‰*¦(
s2¢Í0nD[ê˜É ÅiWl—,¨»b@©s;E¡wcð` :(eÏÇžkéÜwmìÒ—å½þ
ÛÍž[CÇøú üt ¼¼‰|tT«X”‡g›ç})œ%èRÄœü`¦Ûžæªv‘ˆk‡‹¸\ÎPz¦Ý!œ™‘¤ì&±E$∜ì !¹#¢¢ LnϹ§ÖstÏúžM=[z®ïÙÚSôŒ€Êt¦PÀðÜNÖîîQ8®Ûýêæ©k> ŽÃ_}ƒu…§;!®®–])e.î„øyÖ²ÓÁýŽZ8éÓÊ´Ú©€. ‹RI·2Á¥`ApmŠJ{qý—¢¶`¢’Ú@†?õÄÊÉs§®X_÷Ð5Ãc_ÄL8çÅ?æ]2iÄðü··c{kxà8íÚ×ÙÁ”Ëî:ëÉpö3K.¶Ù$á•Ø ™2iHå…u ˆ-VŒu£^–ÇåmZ× 6…½‹üèmÔ
eµsµ{ Ú$ VÞ£ï~¢J¦’cÌ1å:sÝ ÙBe“%‡äñ8<ž\’G3™”Ãîe•×èŸ ¬W kEøâÂÃInóFõ\~iÇ“5·‡ ›5³=j 1Õ‚¹yÑ\Þ(ø…9Zº½‡J-?˜'¢ ~+L–+»UÂ)MŠ ’†ÙÛtÓ¸óxo”´aºœ‹}<Ìs^¨ãŽ¹ûÆD!àŠ0ð¸=qþ>¨B¡§
Œ½ù]ìÓØ*| ŽbÓc—Å>ñ?zÍ Þxµõší$éÒ“_ãux2¾ß³eJ[Õ¼åßÄ~}óÝnIî jEih‰Vœâ>ÄÓ 4Yž§Ì3Ô]ëžífež^I+“îe ,ÍÆÙÒaÏ´Xe_öEâ<ÉG¥9Z‚8Œ€é°Ù +±r. ü\xžù(›1g#[_Jù_(ÎDý çࢻIÊþú¥íõ=JgŽ¼yú#ïâœÏn( :µ¼üÊqý÷²ƒÉY/ÆNüeïÍ3Fä¥ /ž+1Û'þiûö}3ífÎ#÷ ; #5 õZ?™œÊíi GØPóL¡B&ÁDU2
H–Ä” UÀ2À1ià& J ó` ‘ñÂ鸫üTùÿ V ä)¥ Ô~ ˆ»H¬(T)\L|ï*Î}MŽuh1;x&öôϱ柡÷¡÷Ë¡÷
š§U@ïE–)äˆü¼ü¹,Èëe"Ë(>ú_!VƒÖËW;‰?`ˆˆáâþ«ÿSÿëâË3åvÞùÿ©iGg_ryçfÞ·GÏtÞÁ)˵\žNÙ?h™ŠÀTJ5S°ï xJ‘ÈtB’e +“â[:|]«¥k¦Ñ¦zm2µ˜'r+ø£‚‰âÝ<Ä×]tB/¼˜uæ®K¬ÀêÊ Þ[ÒT§4+0žýŽÒ݃9ÿ·çJœ;Úù ;Øù<ðkYÚɱû0°=0&Šæê3¸»(Ê-÷¡Ý¡L=×*œž(bÍZØ1ÆÒX=kb'™ÐÂøúE2¡ a„ÚÐ1DqMÂujºZ(Ü’þy‰¡TèË©Íó ·¼·â vð×*èÇ0ﲧCý4ÿh‰ß[ …dù%B/œR±ðÀ…Sã÷ Ù™¸µ>j×0Þc쩳Ã~æó“Pð 2¯f0Ð,9Ë@˜3`QMIîU}úF€+»¹öHrOh…DTdõ Êw*X1UudÁª¤©!’/”u™-4(sÔEd±ðˆ²]Ý« TO+¿ªî-Âze‹úŠòšú!9*| |¤ž _ _(ߨ¦EÊbõfr«p³r«ºžH5†2G˜¥ÌV¯!×
R%!T*#ÔIò$¥F•¼j9JúQ¥¯Za–ø¢†¨(ª‹ø"%Ò€PªÂŒ’T$šEú3‘G˦¨'ú(ÍSTÖÌÙQO i³fåƒL9,&’ŠdÎhå6»'±W‡ :¬ïuððeûj=à)AV”¢ø 1¨j%P$pj1ª€‘$9ÍŒÁÿ7íû( $½u¶º´.ÎNžq㣬HÒ¤%2–Ÿ]³ð¬!`0’vÒ[³ ip"Òà$T”Æ ÜÆÄ%Ãz
`tØZþ½`¡µ³¹³¹Üïµôëñf¾~ ‹ ôöb,”À=Žq 7r×±† 9uúGçÃ0
7s¶Á˜K
e|~«XÂÏÄ:bŸÅþû+@ /ýê×*aÙÙ›øxjè‚×Sø/šY¡¢ì£ Y°ƒ4 uÑn»¡‚Ë% 6ϵ<-’d§$ÉT&D¢
Ð hE>bX(ßÒ×›×j>Í0ÚPo M†i5 2¸n“•ÄM}étܸ¨Rt‘Q/Ð" At+¨éòÇN‚ïÊž|ð@¡8 qrLS€+ä@œGíW8×èà‘k—ÂÈ ý¬–}†¹ÅP¢¬Ÿ¿gT £nZD5*TÑ[@M·Ê»äãT|™¾%,Ó -£´¯\-ßI·Èt‡ÜFŸ—
qP^\%Z±ÊÁa((Š’ O$g ´lÔ”`Ï(‰~vUj jÈD’¼„z¤|’-õ%ÅÒ(¢I—‘‰’â$IÒH2XºOzBzƒ|D¾"'¤_ˆ!›äHÃ¥ÅÒ*éI"r 4/ÜýAݬP‹tNà:Û6á ©ÁŽØ‡;zÐw¢Ïœ«äh¢pØ Àa”„ Ö&ldåMÆMfAÆ’Y¶HÞlïbe‘]Zd[ìZ!¬–WW˜o±¯v®rò¬ò®ð%;p‚ße÷;ý^—_rô0)¾ ugïP1Rj@¥*ÇHŠ–RŸÒ”Ò’Òš"RN¦kv+€1}ÎoÝ|ÓKç!–Ž9êâqî¿£7n*-íUœ V;íç}öÚAEœµz7®Ä·ÄnŠ=;» ~¹sç?>Û¿ÿyïئ¦]á>àRÞ{ 6àÕì_b]]]çÎœåtàXã H§Ã"-Sdœ¼tó،Øm™&³%Y¹µ¶ Ùýo8Ê–IŒ¥X-jùä‹¡Ôy$•0Û¿¡)˜0€Š @
ù -ÇïÁŸ`óØ›¶Oß8jÎk/<¼ãšAS†–´²ƒîàg;V¶7Ú\
/Æê{N 0z¶I…s ¹PÑ–•Y†Y&Is sŒ< ÖÚg>ª¨¢,ª Ùö2W™«,’lUlN³Óâ´ö2÷² ±,4_k}W5,Vû®IY¥¬òH·S1ZÌãÌ ÍËÍw›ÿ`fæ€Éè4™Œ£Ëäqg:¬N\ïlu§‚œ\@8’ÍÜ…ÌF&«‰˜ÞKÊnÛÄCâQW6…p ‘PÐu!ÕÒ güF5>® <º
PwÁʪŽÁ›ë8A‹Ü‰5 #H{’PÈfûªàÚÌýöý–_¨¿qÎî؃ Ì?efù'ïÏ)¯ š±ç;Xýú²G?Lî½â‰ØßqŵÁÎÍtTFÍÀá—·Æû¾þ²“hýØÚSöå¼’/€£âGÅå
7°†œâbÓ‚œŒ „Œµêó„ôÚÐlãLû¬`cάüE)+R6ö·Ø©iQžk
>tLú˜Ð é/„„æôæÐÒô¥¡¿¥ÿ-$†ÕÕgr§Ké!Õ$`ÏD¯æ Dçzñ\ï/ñ $
( ´Ñ_––„“z8)Š¹ZæDù2ûh\×ãV܆a/hþ2«€… yŠ÷‡.öhOÔ3BÊÎò÷LËnµ¶ß0ÿ`‹O ¯Ç; ž 1®f'Òz×ê ¬ È=žÇݦæð©ºðñx>/| ¬]\ué°0 è‘”Ò èq$‘ÿc—£, ÈÔ^Ûeçµ#šÅ^f
ØËTýkám_if#´™ÊT/ÿ:ÊÂ~ºÃq®>j SIz Ðq˜iPzUh«úxºªG7âŽÍù5ùlý¯$Ú ”Žwã$Ñåô¸³¸7 ü[V®»£ß%Ñßׯ\òÃã؉=Rì¨ãÆ—+ÈïÛÞZxkz>öMìüYò «® –dïÙwâµO5½4ó_¯›šg”¤—E3 f^õìÚ›>½cÎ_ù “è«@ó´P"l´Ò¤´(ëIÄŒd
”HHV< ¿°„Û[ÜCSE)€#h —"¨Ú¨y4i"-d=ˆOî|21+cjv˜•òx$’Á
•Ç:©\‡Ÿ<¼Ãýüyl¤p[l”ðâ™3gûC¯î‹‘½ò¡5ZoI–É
JD"Q¤IÊDëëFÛ&×ýîmÖýî]_ˆ§EƒÉhTÊt(FCÀôUº;‘4:©>‰6%µ$‘@R$©5éP’„w|ß! õqEàÿîD‡® tîÚ`JܺhƒÍ³šI(» %wá ƒcÝ
7µøqNdéѧÞùè&g
Á/Ÿí=ùªYž¢ás±Ø™7ÔN»ÂM§‘¾ã±ñ0>›w#ŠeîÚËtð9Þß'zHþ @>>bŒÝÅl#Þ@î6±-²L‘A,9˜®—aɇÜb.ʇ¡!â$˜EJH #'L®Hϯ¸Ñv2]3ˆài €£0aÉ4$€ k¼Dh>Ž ‚ÐŽ
šº„¶ðÍ7 úAV÷ ;b"|-‚1öI¬µ„Õª« {;Σʎ‹1åoˆéÐnk +í˜4 Àt”ôP4
c@AÌ‘%&†ÎSx žgá>?²ƒg_úãœ!!$åÞ îÒìa†bƒ „4h@8(¸rzA¾ËWøðµF $Æîâ5}áµÖHà0ˆF?r)¹(S‘¾VOV~Q6²Ãì5õ°ñcô ø' ¿A_(Ê Øê£Æ§…Ýìiu¯ñUAé)¤³5`¼_¸‹Ý¯Þc”«Š26›DnËÍÁ8ÄU îEwyóî¸ç±Ysq?är^3ˆaIÐýv]f.ð5ts”´çEƒÀí]‘Ý"¸í]EÚep€
Nv‘Au ª"JR@Vœ²¬£1á”ÀC¨,)S
’"‹²$±“èî Uüð>ÚqDSⳆgµî
BÕà ³ûLÝüà÷ì¬ó{;;ý¾Î:o÷òkœ+¬‰?½÷ðo+‹„¹ 2òB~¹8‹ciÝiNàOž4sVq «8t–Á
±‡qÁgØÿ
çÅ6Ç^‰}û ¤ÐF8î5ø#C϶óA {5ÀA2ú¿=§õ7” R±@F% ”ÅË‚<ÀÆ[¢Ä$ð]`V(1UÆ™ÍÙRƒkG¬>M<|gñìï%€ÀWóìÇçAÇÌÝ
' ø¬ÇÁ'‹g :}< *·é¤±%<4€ä^½ (ª|¥Ì·(aÝ ãŽqwžÀ—âZ<Oèü‚4Ò1ÏÊs켞<¬ë+¡§Ð …PnÖfK~9™¥¸ýÓ†&ËüÄú¹Méå«òMʚ雕µ"ëNß]þþI‡ý¯&EÑär‹>w¶˜ëªõ-"+ÈVq¯øŠh|>ú‘•¤dÚòMZ¸g4CKÏÄ—›q.ƒdTé{V"fK´_
æ{kÚR~IRRòq1Ò •ãr‚&µd[EPK²BâõGƒídÁ^A2šÔ|.1pLÏá°žÃùp†¦9
©…Yr®’cªM3n1ð€»À ÖÌî¨Ñ_ ÅÑz¾ã”+¬âÜàTþ܃«=S=s=Ôã+n нÖh¡¹£Ž/v…ãµãºÞ ±GPÇ: Ç…yWA
n®íèVkàú%¥DÇg\žAêµ< HÍÖ¸‘k®ãÆ>» º]Ôéö¹µE0 Üâ—ö*M„9"×ãXú† ÜÐ~çgÚGФÌØ7«D‡>R÷ȳï¿óO—Œž;b<žÒ뛌ҚÊK[
äï=ï»»võþXû·\’\ê“«ªvš|ÛˆäÌ@ò˜Á}cïØ‹¼Ùå}'e•f4 ÉW7Ü{"ÉèÈÞuF+4”•&
I"ö‰âDu¢{¢·6ùgI,úšú:J’ #L# ƒ“î–îUT£„ ùav1ÉÉçÂa0Xê Êþ¦TœjÍ%4ËÒŽs5#nB<¦æK©ˆÓ»¹|dGgù—£ÀC‰û' Ü j®Ãuƒj4ÃLq¦:Ó=ÓÛ˜ÌêÀ¿Ô×½xL> ìËv9ÀŸ÷ÆVbß²]/Æb.ݩ٣î»yù¬†ì`çÉ»c'b¿ÄNÆ>¾´v3É{´ºiËû z€[ 0ö
ú›6¦ÆRk¯u϶4ÚÝ7z¯õm$¯X_ñ~hýÀûµøµüµãk×ÑÑÛÑÛ5Ü>Ü]å56¥>öRw©—.b‹,+Ù
Ëjßcömîö}nŬshRÔ¬›NgÔ\lâ-¾Ô¨ž[lQÓA, hf·§"
ÎCÅëO‚ÒàPÀ#aÞŠƒ¨ÀÄ ¦`5 ’túü5~ÛÛP7²#|ª#ÌCuÇÃñäq„Ùܽ«! -e¢x~_ƒPûÖ<£ºñÆ%WŒžéÂÎð©7¿Ž}‹Ý /~A¾+7þŽíÏn¾tnÁs/â,,` gnã ìx ݴ߬×zØkÅZµÖ ç–MÀg¥)µ%•ô¡Qc WÔ7œV‡»*}÷*ŠSgçÍl̾Éדk6eaÎ) ò¯ã¼”})5åçGØ|:Î1º
Œ{éºß¼bjÕF{œ[ĺÚ`°$1@ð×=¶ ¾U„i±³vNÞ ;{q×2ìë´T^7mÕòY—¯Ü|i-ÎÿÃŒ}w빦í—\ýè#û Ú¢GÔ¿²Wœ(ÿá ²‚œTÊîUî3m°>ƶ©O+O›Úý²ìÄCɱJN}Ì´OÜç?¬¾jü@=j<#ýl2%[’]h—f¶E-®ç]o¹¨Kç†Ô
=7{ '·iàôÚG›ëÍÄìµs?iŸ/)Š‹íz)%6¥çÆópxîMÖsÍê´•¿f…nOµÛÌ»ƒÝËÉaP¸âLT:5unê–T!Õ”5“%
OhÃðEQ§p“4§WËqVxµT $ ‚½\Wë^NE§îFÙ¡p†wN²'T5ÏwuŸz*aºõ °—ñNïòð¬m·¢ö׫‚ºq¯=Î5hþx³T2ó‡šùãÍ+¾À¦‡rÁ™@Q¬ãsИ³x 9çqDƒ:ZwÄý)ù{{}½#öí-Øùn¶‹]6màälºxâeåå-¸ï¡½w|¼Ž Ž={ãÚ¡øÊë– 4Ÿë
/À—à‰»Q»VÔKÀyBÀ°Õ
-^& Ï{‰Ëm#N»ÛfvXÕìÀÈJœŠl1੆.1ð‰PEl³¸q—»y5Õ
÷=É_Ìs8U¥¸B®–GËTαئڈ šÉìÈ"Ω¨Õ}ÈMÜœ'cÔíó,>@ã[àRùŽósuàbùŽ#/ˆ _´€o$eEø$ì£X÷1‹<’®\|_]Ðòn.»wáâùYƒú÷+yç؉ÍBÖèËÇe¼l-3â³sûé0]öcc„z AàQÚôE)+SˆÝhj*\aj)8DB4‚‹I1Õð 2ˆ^j©uÖfNÌSu…åŒíŒÃÞ×Tìî›Sœ?ÂTé ‘S™ÒØéQo›m0š yFS¶Ùíqõ0Áñõfp Ø«K€Îèf›Î$»
Æxž“€Pf1/×å÷r¥£ø|~ÿºB\*¨]SQqFÐî‹œ×>§úÇÚaí<Þm¬:O%VB»í?Ò;§?|LŽÎ¾˜ã6¾JÄ7à•q¼–0qͺ޲4:3gåÎ 7ˆÜÊy˜ÛÓm÷KD}Ûg`O xœàe (\¸‰èZ<@NÉ™xui¦ÃtÓ¡nœŽñójÁRÿ¦§×Åþõ÷s7×Ϻ}Õ솛«²{»RƒîÂДûŸÜ»î}lÀþ?ÞsnÈ3ç” ¸ÝLn~ü‡ |´õ Ö µ ×Ýh—¶à4\Æ'Ò:´ýÿ‚‰¹Y©±Í¶1Œ‰Ãi³;¨“` 'j
•UuºT7B5KV´@Ft‡‚»¬øõ}íîôŒèzo«—4yOzÉ^ìEÎ,·KW[pn« Ÿta—ÏS'|ó¼p"ü¥Ó‰ZÜ?¢hêÑá•\žØºÇB*q+Gus'ò"~bÕ³Ó6W§ÄNÆô«ºº8v`Á[†6Z×y)Ü6¹¤rõŠÎïø˽݂ø¤ דТHá‘<›Z¡)£Ò¢´)‡”#Ê
KSê•%J+40*J< ߯ÉãwÕ&™( *‘Àfê¼Ìˆ
>91®ßÆQ¡‹çoÁGÎyáîÍCwÅ7 û°;wv¸uöcDº ŽÁ[õ ºÐZm¤[Ê’ž^Ò>™µx0¸+Èå4YVå÷=\âT+¶Þ®X°3‹Xfþu c©Ø
’çs»=É(Hæì„nê˜Ø7ò¸w”¾ šX©ëî2ßQZ|Q¿y¯]6§g³K»WGnþ’ ó¦õ.t†,áR{|0ëÏž}cÛ‹å¤À2£ËèO\«®Î›ªG‰ä+Ÿí6ÙôXv£¯GT¢V곕™âõyõUå
õcU Gë)1I^¥Jœ$_#²}ÊçB‡pNøId£¤QòLñFáVá~a3»O¼OºOVÓ»Â,OÌ“òäÓaSk+ª"«LU¨(˜ ò€ YR©ª„vr•ægrYš„¥1dá„ÓøÆ+cÅõ ×SÇg=ÝìMÁ}·î…ãx\{jrùo‹ ¯îR‚‰EÜ—EóêâQݸ÷&ÙVc †'ÇîÁ·ÄÞŽýt3¸®§ñ5±:§àÏVÇžä«bç¹tœ }Ör9²ÑŒ´°6vˆ a?ÄCÎKX+4°øË.€Å1êæFäþüW ç½D„ù&„ÄM í³qß(®®ƒgu5ºD·1J£rÔ
U’Áò`oeÈ ¹ã”úÜ–Ü-¹ˆÛ¤Æ½â^c[î‘Üc¹f”[;<Ÿûy®˜«ù“£PoÑ2)(Hþnw©RP·Š‚dµÙ²“’“³²U)‹5ËnÓ&—ÔÛð\vR¥YüIY)ÉÐ67×'ãdhÛ“™••Í‘ä.„²up¥Tð\ëýΆS³µð-‡oFv4[ëÓ/ZýVöçÙÔ’–Ý’MQv ;’Ý•-dûrþQÞí &–tã6 ü4à0µ§›ëÂå¿©$}yLû¡æ…¹¹ÅaGÐÅý>îýyܺŠÊ>¯¢~ÓV7aºöÐÌ
‘ª‡/[øp謔ì1}g÷ŒHè5`vØ !ëŽÇÇO˜0~êe•›:kÉÔ{–]»!FHÕý“ó«–ßÛy. ¹jaÎÜh‹æ• Çdy¶,´ fËZ)WZ¾¶2QWÙ6Él@p‚³ÜHWÙwñ7UþƒÊV
YF3§¯Éd<¯¹ø$×!inRÿ¦¼ã‚ÑÞƒ©jH À…Ú؉Œ1eÄA²µïÖÝWFRŸlè=zù®XšµyÏ Ù˯çúz,àòû`¤&ðâ6jC¿Â'äŸ ?»„Ãä+Fì>æSHu¢c¢»Ö»‘l7ÉíÊûäö©ò¾ñ;!~e²n“ß _’_1²…òjq¹Lm:<œDNAr–Iþú¤¦$’d¢‹Ü®¸ówFººÒh ¾H£WÀܤã:GÔ ßbÏßÿÈʼÀ~]Ó¹ùŸ8{í»;c?¯Á
W_}Ï=W_½¤ßŠÅ5±Ã?ü3öÒò®Ç |ì±ÖÍ=ÆÇ»6v¥°Æk¿ë>goÇP±Gi™©ÌMª¤ÃLà •I¿$)ÜwïöÇNK¿$É ?úénƒÁj1wûé¶\³Ù’eµê˜á÷žúÈŽr˜HëñóÕu›Ëq ÷Õ/ð¿øŽ?çôÄÎÜlî‚ý6êµX,~jÎLbçÔ¬«†)vß>sú²3f‚© }y쯱ÎØéØGU:¿¦v?ñÀîms ìRût»
¥ ´R{9‰š¢Îòäá¤ÒTé ž,7¥áÙå‰Ö²Zu’i¢£ÖS럘²UÝš|F9múÙi´!s'‚`pÅ+$‹Uô‚£™jÏ;ËfÓ+”u`(ýiqøwú‚ñŸúÝðÃÍ 4²Fu¦£ÑÓè›™À6Qoq›£· 7'Óa¥LÝ»p
¦‡æÜ_Žiìä-—Ï\½|Ú´;cW÷q«¶`+3ùÒ~¢{þ°åᶠ÷?ÅmäJ„h©>ûi9VÌx ›É2Z`¯1Ï67ÙU±ÓŒd±ËH*ŒÕFbl'‹´\IâoÒQÍAŠU‰(MŠ ø—Ø·ØÉTûûû»`·¢,¾œ @H nå빶Š8u/ØœèÓ è们(Î ÍhD›g܈¶}÷gQïZý ¾8/Ä]
ц[¹Lº¢²¾vÒ~}ÇY¯¨,ù©ç€í±Â# ÑVc yQ;$ÚÄœí±yB›ì›œ³ïÉS$g•“ØŸ6 0 ~:c:.æš&˜L÷6Ú·¥ 0JBZFeÖ¬ô˳VÚW:W¤ßœ¡”f
« ÃMÕ–ªàÀt)=#;«ÔXä1¹’ IT™M zMÙÆôôô”‘®åÏ7.v^ëº&waÞ*×ò¼û\÷äíIß2µàuž[½÷æ=ž×–/z‚n-Šºµä´hšÎ\± ¹.“djÞ”h¦?_ߺvgt>Žäã‚|œŸŒ sã JئøRµ"n™ù®_xq;'ù9°7úšdB‡ê;s¹%ê@‰Àb‰ˆ±ˆÝ8+½W°*8 ×z.ÇžÓXÅ "øƒé$Ça2’ ÿT U9†Ñ~ì¯rHà
Â?wLº¿uÍI< ú÷¥‚íñ<]gðú±ÝiñºÏ¯×µ$(\a½ҫÒ7™îN9ý½t1˜n4 ‚ %¼5TÌý¶Ýž 8áÚëõǫ̂ ùMëp<ö+Ôã|S|Ï#Á‚~¦Ã
gb¬Dž*œ ‚[ƒ[»‹=Ü×£ÁM=ZIiÔÃל=Zf.$p_‹'M_Þ<üØ/‹ öwùIbðz0Xÿð´uÍ|Oí¼x5NŒDô6ñÂ|êâû3º^Óƒ½Â’ Ðá»}¦2£ÓXÆ‹»Œ< üÍNC™¾(ù¦˜îwø[•ÙYÙÙ‰÷B.
ìò·9fŽ`¿ýêW•f:]ÃbO^zÓÇ_|ü^NìgÛÔš¹‘@r~¡¶æÔ uâ‚ðØ 9É—Ó6¢ÿÄ{×ÿâÖn85¢ôD_}G½³ëŸ‹Ç†§ôµ‹ý
z8õ¸îj$Ö.ê°+dsê4õˆ‰ «-TR\’i#× 2d'g÷N¿á’ëÊ ÊÒ¥Ø/d ‹_NNú8¯xÌàÂ{ð[ÇÞ}$Æûé6Ð2ã„,@H›5Ï$Û,ÛFÑ'–“rÛ2Âv‚HºOk n¤ºœNU Î,— qivë8)¾€ó_p’"ŸH2>)cù?»¶q#ó;|T_ÈÌÊâafçog:ªÏ³Wl¿ûÒÆV —‡}[&LŸ²}iy5ô^x gÆi $8ÆiÀIš‹åø ¢ODžÈ<ëènÈu75àï½OÀ"5Ȳj4€/NìÔ¯øÕtÔÃpØ`Ù>©¹SQ1ƒù ™(ÏE} +‘’ˆoªØdÔïeP Ñl} c@½Î¿ï ìîу¤Æiª€GÔhj$ÙZ!PVE"Q%¦$!7IlÌ/9•TÕf4êaé¡Œ–‰CéPqÝ$êqmqþ ¡A˜ TÁ˜„ü‚›9Ÿê2C(GÈf=” 5ÛXˆJY¥
!CØPi˜²-±ÅÊbu‘q%Z%¬d«”UêJãGè#á}ö¾ò‘ú¾ñôpœ W¾QA¿§Ùé´ò‹zÚ؃µw½«)I}¢B$J{×ÇzMå5c÷1ÄkzˆÚ×'¾ŸrƒÉïCØJ"„íRx›×ºƒÕ¢Â'ý‚`õőꑉHõ%ZTÿ·è³>«æ
3á!hy€‚ù¯.ˆä*d€¯†(6ï `ŸéåØ Ç*<úœ>ÇcÏuÿ'‚Ïq•âÊ[×á` ×ü{ š© F|f—‰oÍ8jß yËIPû4ž‰|¿×ŽuÝŠp\ÄùËÁÿqR\köÃû±eçØ{"ö¯ý{€Ç†’vþ=û1y¢sp™$·^—ÜMÚÚ éUl’àOñûÒI“%¿àsÄRÔ[ Škñ
x¡¤fá°Ô ÷‘ªðpi“áŒxFR2…,)O
}ÔAÂ(õ%A¾D /Ôª— W©‹ñêÝÂé ú¾ð©zN5QA’Õ-„<µX¨P«Å%øÔ>ê(õ
u›°_xM=-(Œv·ÝËõÅÑÝ€µ\F[ ª$ðI„LFŠÌ7ô Û—Û#Ú¥o?¦YÜQšE'!
†Äá“Ì‹š²s"Äx ˆ²¢k'W틾cªM[LÇLÔDy3)6ðfûÉx¸ƒGÖÔð›&höò¥[ßHkÝi½„
οÀCéáæîÝñR÷Z§,Îè{Õ ð4 `|Á¦›=êš›çažc}^1ŸU#^»Ozæ<<¶ ¯Žm;ú1 ûgĔηñ°Ø~®;̱1ÂX˜UŽî±ç0ìàC÷-QÙm²D%žˆHìÞ
ÆÙ *<ßõø½jãB$™)xWÙz(ӌñ38[=(sФ%£ÇŒò
,™>Åe&ÿ:GÔMï—nûÔ4¿–S? ü§€úV; ’MЩ6¨rp›/TÉ{ÐF3O»¼mô˜šÁ•IÁ`mü6µ®j» f¤±MT¿ÆÚ‡·óëÛX¦5Xóu|wqË´D‹˜iý ñ"ç“ó¬Ç»Ëmáp[^ giÌ)ô±¿^/é‘M;éj² ò¡Ñ@Ûiµ}
€üÁ Ÿàµíš•¶–15ñz MOÚ…´‚pm©çGu qMàGZºœ¿¼>œ¼Gÿ™YW›œuþßbu;ÏîÓ†ÝÿåpCüøˆq¡`
ƒ×Ô'h;büEµøñÞç%JmŽA54‰$J$‰êG)/;2¯ÔÛ„Løu¦¾¼Sê
8PÕf OkÕ`ð?^Ó.É\&ˆ_¥g¿]–èe[ŸðÅõ¾Õ/êq
…þ
YdÄøÉkÖ¨ «´fMU(Pµ¦~Í´ö®–é¡€5´æ ÙF¶i\ß=¡í]×&µUÝZ ƒ˜û ³4pg¯³SëÆ?mE(°j|Í.°ëƒêÖîÌ€c5iz+9ßÊk^C#00ú."뇒hµèG½A¯ÏhÇHo“»Û0šÑNâmV½
>=º…8ñëÊþfÈñ ‚ö7F–ùD%oÅÐ?›°DZ—ù'BÓX‚q¡9båøŠԋjXÄ^V
ˆ²uldt$ÿ‚–ä‡S[’Q¹þW¦£ùh.º5 ðíÏÿ"‹ï'X/ûuJÙeO]úÂØi[_ZwhÀ„ÖeÎg"Ëÿfëpß;½o]V›ühÝü©®ºOÿ1ï' ;K ,L‹¤ˆt‚ :Üæ5Žkœuu`ü¼…óF5,X4wÞ…žˆ‹Ÿ`p˜»OÈ »zFÏÂüH^ü@è·+¯jŒ[0íª¦Æ«gÆ5Ì»¦qFC`ìܹ
£‘¢øÙáQÕK†
8ì’aãk
rÓÛ¤y©¯ýáÏËÿ±úîK>5í‡Ýœê7:jØÒ4ñôíyK<ùbÆó×6Jó{¶Ý“³æ§Ží¿S÷¦úºUY÷—Ý;r6¼|mîò;?í:8kàÐëÇŸŸvfó¸/îz{~řΪ—?9áíNÛŒ‘e‰,£W´"Ä*_wÕes§ßU}ðåÎAsz øß‘‰g‹Šz_ÌĽÎ3qkwÿÔë_bd†ÿ8²¾‘²ø Eãæ]5?0wf`áü†À´Ù 4ÍïSP°hÑ¢ž×ÀÅóáâž3æ^U0¯iïh¤°0;’É/¦ŽÔÿ>úÈ2œþ{>^¸ÚU² ü¡ë¦üv×6:#)ìŸö×–ý®”Öµëû=}çrgÙ··ü%÷NqæÐGhõm_Uo;¹cÊÛ¾Ãwüsïƒ×ßüË×]ÿuòÜŽ{jÚgôøòöÓ¹Þ7›n ýRdž§µOžËüjà„Nßò/ñÄÚ{“ ¤–÷.Ùœ‘÷iRÒºe?¶ý°mä?œÛŽûàðì§Õ<>ï½3‘¡Õ ÌøhõëË®qÄ39Z:ûÄ—Ë´'«ú´þRÑëÍKž ?pòu
×Ç– ?V‘^¸ÅîúeþC©ËÖ
áoªÈ%WKÝóžy‹Åå úݱ.H¡.JXÚ Yº7¢‰2htÆ$`O`˜H¤» Á+2ø¤ÀœÌ1¿éâIá-óL[°p~DIIq€ H%/„~>φúCñŠ3ƒ1Ü:’Éé¾1Áîäÿ6Û¿K¦`Œ¨Ý—P9bà|ñÐÿ züX=£>ßûñO–±»ßî~fÖ-/†:ÖU™Þò|îÇ® DŠ¼³×Þùtѽ'ïjï볯ïODôHðÎåõO›¾Ð&ý‰e~µc‡mÎã_ô}ãëÐé»së´ ?>:îW{õ)kçϤè O>˜•w
þ>Îxû/3žR¶ý{Ò?:¨s6€°ƒû5®,è´¶¼|•ííþ§g|÷¹ö{%ÐTŽäÆ!}Ðܦkç5Κ½€sy ° $rdãŒysçϹ 0hž…©‘äøÉ®‹Ì7mAãÜ« ƒ‘´¸`x;Î5@`À³çÎk\pmÂ4F"¥ ©.Š&ªÿôè%¤“ÿƒ½ï ªèžrçnz„NØMH$lß
H¥K
•”…ÒHA¥)*‚P,P@E ŠˆŠ(v, XlÔýÏÌÞ;»ðò~ßÿýÿó—ïyØÍœsîÌœ2gδM2»ûõÊÓÝÏ
jÛiÕŠ;n3ÿ¸æùÅ ·ÿsuÙÀµ¯\}z©ç]C×<¹fÉ딳ŠfüºqÚ;y_žûé©ûÚ-YuïÄÆýSftø,&ýx$~ä‡åoîé:qåÊâÄ'wë²'lëèÄ×{ ÒÓ½¼ËóÒ6üÜoïܹ²tDþÆywžÐuúÀ3Ol)ê¾rH;KP|ôªç¿8¹Õé FOÍ<«b\Ãîÿ{ýo‘·Ú~¼gDnã‚9{ºýœ÷Ø —¯¬ŸYV3hS«÷–wŠE£–N(qí ÐÔ>Ò;îÒ³C‚Ö}4wä¨ß¶u¿ÅÜéÊ—½öòœeWëÍþl}›ªñéïî:´6ÎܨΧÑ4½ÙüÚ Ý`žûœyî ýX™»Ò\öCèÞÅçW´rü² Ç ™Þäüø ÖUÏ„ ìÉ ~`É;ÝNÇž;;êÑ.[ëú¼]ðÛåÏßëÞ}ìóμ’«ñe½Þyï…ã쮯,‹{¬Šªœ¼ójÓÁJö^>œým“±¦Á?ܹé…Öo'»º¾æYÝtaBdáÚ¿óÚ]ˆ}ç³æç‡m,϶®ÌkùÏ©I¥áCÿÚýû°»¿Ó|Ùd ~ fYç6·|Cžû}ÎIºeÜ ›¿z{Ô¯ž~†åmÛB;5õ.ýìlÐ’YÛWìÑÕå»™ßm˜þí´:txr¯×?r.<™ÙtƒcrÛÉG _ÒNùnC®òöX›»ü–vᯄ¬Yôñ§y½z j7b]åѦÝî´vÕúê`Vxö›µ½ÁäÐ'ïEÇ_hòÉ‘Œ•^;ýÿÅ´`†y ¦·¾Ø;,ØÀú Ís×YBů¨ÍȈá–fæ&ü!¨YȨüêbXsk@O”9‚gš†yŠÊ*Ê‹tËBþeÿ®™|ãü/Íì`Žõ5£M`I¬û°hðeHv&̦MÂùl$f“5÷6 ~$Ô a_æíÖöó©w–¹:Ürþ£E§®lº²ŸØñN>–÷ó,RÓçÅ£ÖÑ-¢‡vvÿ>«aË¢n}¶¦
*Ï{ÃÖìÒ¡C‡<ÕöåõG¾èŸØkëþƒK–Óï\Ù‘3Ë{ g œ]7ÂõRê„Csò³V÷Ëë Ùê•_<ú„ylŸÚ¢- ïüjÛ‹aOÞ^ݽU·¶Ü¿¨þú[5Ùj›s"¼[QEÎûîþ>¹k]ÌÖaЄÎKÞK:wïÊ'^Úp4¤òÎÏì™KŸ{eâñmcÖÚ"žÌ£mz=¾tû{ß÷Pj²Û-ù;ítãƾ3§$Eàü´iåWz>ný;î}¥9:ÙçËÁß±ïæ$L×ÎÃÀ ñ7Z_é)&J
ÖŽŸÍ±øôQì7c"”Jtçñ;Ún;dûuç3cîþûÔ»)o†Û;™[K†h¢„µAÃQ- U³QfÀ†÷6GŠ= Æ^…™) Mf¹£¿Y™9ûòÓ{úNŸþò¢/N·Þ?jK›Ý[vÜNVçNNsaGǧºÞòÌå5ß¹º‹â²NìHMúà•ÏÔwJÚs²Íü»Ž
êñGÜÇŸì-{`nóœÛ‹î)zóùǺ,<ºÔÕ?ò• >É_2mÚ×_$xãï]¶X™÷ØêvÝzÎÛõës÷/j·hÀŒÛ·ö»x›µ¤›1ï¥Ú[N}oN?ZÔ/çÒ¥7ÛeM=]×#÷×)hÕƬݯ6i ùÝ¥O×$Í=b ´fÄk —T®[SÚÖ›·pÞ®¹ÖÞùîò]æãWG¿ÝÑzx~Þg ŽÚy>ùµÖ§è“¡÷Åœ¯O[´ýJhLzuâÆQÉïv^Ó|é¼æßL_›1Œ>øô•¯ÏØÿ:ïxdЈ{þùÒ¼Ít|”ºul–z|ÌÁs'ÖínÞgjë„ ¬x²õŒ“Çý>Íè|yßÈw—äÍ ±ðàÛ‘½Œ8¸hùôþ÷ÿð|¦zÀ~¦xTaÕ¾’Q[²?°v3 k{æÓìĤW— ›ÿNêaû·§/
íwßöôÃ ·öó34ÿþç‹3üó
=ýóm£æá ðHºèª˜H>Î}‰N…þ9eÊÛo
5Ý’úqݶ—gß–Ø°ýþaÍsŸçå ”¹«á0?ç†óÎêšgÿ_Ì—ÿºÁèÏM5*ÙæLs¯º uÝïKÓŽt…U¥)eº qòªœRÂsS+«*Šj kªSùpá£FJ
\7ÊÅ”èèp¥YÞå3ÇÎ~=óâúÆ÷¯¬ïöö«§¾ÿ‹^~týÏ×=é|Šþ4¯O»ØÝÑ¿Ÿ”| ÅÃdÄûÙY[µ½µþ¼UéÑôTÌzÃú%kg厘Övù²‡KÎ~å>ßwÁo•¯ Ý:bÎ^úfʶNÇBæE Èþvfß[·« É(-ß쟕¿…¾²(µÛÖ_Ö¿?õþâ_7~×êîí}ðsÉoŽ>Ø° ôö+ wy³b{‡†poú¹&¹5ç‚Õ'Z}U±÷>ܪiLr‹M#óØVÿ8iÐ æ½x&ò¾xbÂì‰}n=Ø¥ò½;}¡n/_vµ }Ö…GïZóbÈ3‡;D½|Ë ®H|øâº^«:üôöÓ;ï·ÌcaZlNà„ géÿ.ß5“÷5 ÑÖÍ=mŽ–kf'l1P&¾ÂŽ¯¤ZïSKXàÃ`½ÿ)T|ˆìnQ+KS%j𞃠¬ëÖÞÝ©Ë?o.1×T³L4Õu›ãF™¨
• |TŠL(K|²\To ÊQ
P#‘jTC žcB6”‚Ìȼ:qŽþ©ÿláÚ¯™QY1©*¿²xÆõ›Ee FÍÿy§vRÙȸÞ^½èž?—X?ÿ8Åøø²m ÿÞ÷Ù Yš>
ywÒèͳ¦GÏ*¥>U’ýnÂûÿŒw>[uàõË¿MZÜóÒ¯™ ¿ÿåÕÉŸt3.w¶ å‡ÿÌ}ëî/ê~)úlcÛœy³g Éþq΀¾¿Ì SõnXÿ•¯ûöpýÙ^ãNýÚ~gÏm‹2͜ѮkÌŽŽ]LžœÐ:ÛÛ/mÑì_Þ?0qøÚßϦdΊü|@ö±'ú˜3ÿN¸êy¤àä’àMÓ[$“ðoæ^¼ùœž¯eü¼x{Ò©‹é]ÿܺv[¾Åü·I)kóõ3?XÐîÊé+=NÔ~èútEëÁUŸ÷ ½?|üCÙÓê¶íwtmrÏæ»›ÝÕeõ<2Ð<ôõ÷—j™GÒ Ë!â»ñÿûÏ.oðéëµÑ=ÆÜ*0ŒCý¿ÁŲ„Y"ùÎÀb¶¸‹Ëæ û/QüåÃFîË yhಜÎæÙ ½A4ÿ”ù›ÿxçð§bŒ0k¼†òèJë-2z÷ÒÇ£¢Ûé‘ͬ™Qt‰ zz Ú ‰
ú0š
‰@õ
]-Ö œh ‰°FAý‘ Ò HÕÄâ9¯ÿ`c³\ü=
‘Mß
f»hŒje ’Mï@˜zh9ꀌtàö€ Ç . E(\Ø™ÑeúzAõ^´9ê Å™´²Î¡mP[Q¶!§§¶¡S’53„fÓV¢J$
GvÀAÔÐ`5švRþkº ú@cp(·ï†¨æÖÝt>5 h¨5jµ4Fî¦!(oI^cp¸uif̓fæ[Œ`#F«Ì å
ôåÒv¨”M¡1¨9àÞ´}CsãÞâÛA3è#\
èëÙdã¨1<º73˜òêéCàñ‡„¶¥‰n+ÊL¤§ÎŠß'Eµºi!tÍBèš…`ÅBþU©t”,€:©t&ª¤ÓÑRH«€V@dóðàAÄw²î i+ðDÔNð †Ü6ÁܲV
M›‰jÃ"¬½vÓj4ãk[¶²Vì¤I¢)][µå •
Áaຖ¾¾ ƼvÓv´½ðDŒð@}¦ž1Š¤F„É»ä0÷ù˜|Êû—| Ï Ôð!
¿ïÃÞ½äp#hÉØN>âødf;rŠÿ3ù
Šd ¬4Fò%ÙÎ _ ¨à#ð\x`àWbß6n'ÛíO6„·à%û’S5˜ -ÛjDÓÖÌòy µŸŽü:Ù‹â ï!üË Œd/©AoÞJ ¨;à-~“ìâ1M^!ÛpcC7¡¾ÁÀѦ•£—ïiHªqy™¼ˆÚ@Õ—Û@î†ÆÄxcäN‡És¤¦!ÆØ43„¬Æ£ñ P© á5%k\\ÈÒ†]&ã²”,ÍhåÊHÈèš±ŽšÌ]Íë¨)ÁÔÕä23eF‘‡çÁ€%t!è”i)YÐ ¸ê3¯@›x»š°NP V
Œ’¥gÕ‹ÌGƒ!1 ÒlHs ÍE
À™î„t¤»EN
¤ZHÓaú¨ŽJ਎JÁQ •ÀQ •‚£Rh¯…Ä9& Çà˜ Çà˜ €c‚ààöN Ž ‚cp Ž!À1Dp Ž!À18†Ž!À18†Ž àÈ Ž àÈ À‘ À‘!82€#82‡8ÌÀa³à0‡8ÌÀa fà0‡Yp˜€Ã &à0 p˜€Ã &Áap˜GpDGpD Ž(àˆŽ(àˆ Q¢j!qŽ“Àq8NÇIÁq8NÇIà8)8NÇIà8I¦o¦‡3÷Ëa`9 ,‡Ëa`9 ,‡å°`9 ,‡å°Öôá a3 ÒlHs qÞ½À»x÷ï^Á»W„W-$Î[ õÀQ õ‚£ 8ê£ 8êG=pÔG½à¨Ž:਎:ÁQ uÀQ u‚£Nn-$Îñ_Êÿr×¹xt,®dî,ðlô³À³ÐïF›¾ øN4Oà™È%ðt”(0ȸƒpƒÑ™Ù¦€Án‡Ti¤Mö@2êH' y‰##N‰4 6¬2l2ì1°M†“©VW©›Ô=*Û¤žT‰)³- ó(L-h‰€³þ €½Õ‹ØA¯ æY¼íÄžÑäÓoIøƒ$¼' oJÂK’pf0éƒ1Ó™œÎKìi<ɕر'ÌLmû¹¥±!ÑiÜŽwùPçŒdÀ?CÚ i ¤y\¬ºBJ€dyIPtFœ&r¤Žb!™¸
Ô¢ìnš6 ÊØAÂñºÆýáˆaFCÇNÀ·³¡£Ðö†Žƒ½ÒбÀ˜Œ·¡Ž|„·BϽxSƒñ;(~ɇ66wÚÐ`´ºµ¡c
q
3ÃñdT8kž†‡C»9 Ö` Õ†6;ù §vL䵓@Q”vÆ£Ñw€4®xŸ¦
Æî€âŒi¼vêÈ; «¨«0Aâ˜6‚A¿íÀ£œjüÅø¨ñg`ÿ áñ…i»èƒþ {!Æ]]ŸÊ™Æ†Ì^ ևͮçx«q]Âã“ 'l3>aL1>Ôu{d/»
Æy¦íäÅŒfÆ9F³±¦ëwÆjcc¾q˜ñÖÈo0Ž7îâf¢1x4yq›qìHh0öIØ.LìmœaÌ0v4¦™vqÿ"·O®«ë.îdõiïþMJØÎc|„k;n’‘d8kXjgÈ2t7t0ÄÚb ÑAMƒ¢‚"‚‚B‚‚‚Ô %ˆ¡ hþ×ÀÉüª¢Õ(ñýíŠøfwAGÿ7¾#‚ƒêê›ÑdÀð,< ~o!P`ªÿkx‡í8dèØzÖ! ×7 €äeÕ»“l7x‡Õ»’Ô†Œ½ã‡Æ@n=y`;Fy£·c/Ïšß–ÿáçfŒæ/n»aÜzþâ1cP«ÓzµêÕ´g“´Þ97 4p j«@2¦~ù€á£ë_ˆSoå„7fÌ€ú¹üÏBwHž›³ƒDp4fô¥’DæãùJeΨö¨Ñ ÕPGŽ ZP2ñj0ŸdñjÐG¾z‰Àõb9‚z!á(QÔK õÌëm>bÊÍÙl2‰: uŽ$ €:1À›³91QÔê`£y-<ºƒIÖY2¡JW£¨‚a_'±PVŸê¯’ UqÈ*¡‹b £¯Nt'½Nt'¨“ü¿ùòd%ãFKí¬}ü/m'tÈõ@šPÿà´âVõs
L¦Í³jµ?ÁMœPPXÌq¾§¾¶ƒ'§~V‡ Óf˾ïãÅ–9›Ñ¾Ü¼Ñ›÷exr,–Üù9c{¥Î¼Fשktú
„¥sa£¹®^™7(Î䎸®L®+“ëê•ÑKèÊ-áq?dôæ ”Åÿ»@àF1<¡m올Q•=y@ïè ÛjVÛW„7 Ðä1õa ²êÃ!ñ¢®™]3yŒ3^ÁÿœZ+j5«{lÛWñ(
²›tÈ’ÿïƒx%þ Ðêc‡ ÍC¥>#ÿÆ}VÍ_¢¸Ê-É x® Þ5Qõ
_57zÕÖÖVsP›\Ѐú¤áêüÿ±
P5!g ä¥èy”Š¼ÍÁÁ¹Û½{¡0ŒÀ5\ §’1¿©+#N]R§Ö?*Ô4¶‰±Vì†|6$8Ç‘é
©â¼L¦7Æ%ðóKMcªÃ‡á|ÊqC›X+ÿ·°rœàÃMº±4ai×¥®º„º®u.þeÛÖA¦q _JR×QT“\;Èš1Èwè[ÝÐ.F(®ãDrò˜äj,o½ö…u§×øݯa!¾Fï_~5òUö&×êLµ‹(¬,B¡ö*ý/$~ðœëÒû¾Dâá˜Û Ò ±!©2¼P° ¡bˆ<(ƒçˆ H×¥³þ5¡& !Ô, è‹Þ‚Pó!¾Ôd´ØèO-AVëñµ ‹P;cõ¥öË2oì"„âÀîëJøÁ—ÿÇ©ÓÏu†zÉ «K4B)&„R!™/#dd}!Û4„ìkrD ä„6¹À÷S¥=ŽP·•uŸ…PÏ7êõ Bï!”ü9÷!Ôlíó%BýŠo¦›éfº™n¦›éfº™n¦›éfº™n¦›éfº™n¦›éfº™n¦›éfº™þŸ'~;
9=iüÊß ™þgPë ñË£5ߦÇp¼ãÓÍ.^¼|%
5÷MúîSAìUÔN¤õ¨’ˆÚ!äýNOWK¼ßñ2ŽÉá_Ò^
h#ú wÂ&Ôˆ/¢–è Ü[P?¤ ¿E›Ð´ E£<´ 7Eñ¨úaê$£EøIï4ïÔ=‚Öx_Áó¼/@ùôú,8®`äBƒ þäAgè)4Æ»¡ûQ(ꎆá( }ï?Á†GÑcè5|—÷ Ðæ¼t”‰2½¯{/£$´HYÊŽoE£XõzKP{‡’dïgÞ(AkÑF°)ïUú¢X4ÍGãÖô- –¡gÑU Fn¥Ùlhê‡F¢r4 -D/ wqS<„ ag½wz¿G*j†:M%è và[ÈsJ˜·§÷K4í@oC{ù{¯2NYÏÆ]íå}ÚûjŽ^Á!x~YÙCWæzW{_Fa`<2ô {Ðëè ô;:Gf{g£¾h8hÞc° '‚Ç?#É,2‹~ŒR µ·‚µµhª‡ yíD»Á7GÑIt
G㶸?.Àãs$Œ‘è“t ýDÁÊóàï(|TƒžCÛÐ{èú 3Ì¿sqžŒ+ð
ü4>IêÉÏäo%H¹G¹¤\a‰WO^½ä äýµBmÐ@4Íß®Eh z }ŠÎ¡óè/ …ݸ¯Æõø$þ™“82˜T’åä9ò D ¦¯+%K™¢ R¾d÷±
ù†«—×]}ôêKW?ô¾âýb'ä'¢Þàѹϡ=ècþú
}ÃãäwÇcñm ¥?€ Ã/áýøCü#´‰w éNr@k©?Í#’Ç@ûüeÉ—ä+òù“2Gt*]Mëévz˜žV¢”D%E±(ƒ•±ŠzÆÊú°ál{‘½ÁΪéj‘Z©þ`˜g¸7è½+IWŽ_EW‹¯Ö_m„Ø
‚Hš žx¸ß}ð.xô}°ø$úz¡
ŽÅ Áî4ÜÀ·àQx<öàyø~ü~ ?‰×à—¡Ðb Û“I&Nò‰‡ÜKî'‹Éx¿JÞ!Ÿ‘#ä°¼%í@“©…ö£cé8Zm¨¡³è½àÙ‡é ôú1ýžþ@^k©´Wj•™ÊÊze‹ò!ÈÊཆía{Ù‡ì2»¬µÚNMU'«Ôo ªÁibX`øÄp>¨·ÃI`¹ ¼HkƒíÉ $Z™Œ¬ Hhy2ôÃpçQ/zú%‚—ƒmÍIk¥çT3”zþg¯x'ràýh¶Êÿ“
)'Q>FN*ûHô)ž€[+ëi9{—Ä¢a6ZJv‘8 m!éd$yŠ"|
o@§ Þï@á)¸½ˆÁÝðÝØ…g£OH : ß‹Ò½kˆ‚ƒq?|h®R„nCÿá §¡cèÌÕg”på.˜Ÿ¶£åÐ£Ñ ü<ºˆ™÷g˜Ý(ÌFù0Ë,‚xŸø¬w+Œ³Ù0 [à Rª~€¶`!ƒKí©ÌDgÑt†½
•3é÷WK”g”o½.oWa0ÊÐwŨŒ˜S%»á™?‡‘ s‰Fõ4¡»aÖ{Ø[ï}Ê{w†· Þ‹¸ ¾ˆë`DlŽtô6¼— /ðƒ0û ÿ¥×Õ"´ýˆ[ál…ñð ›Æ–²Øö;¤ZÀÛ÷¢'!¢¿h¢Ñèo }ÓuAv°×
¶F¥d ݲqT c¶ÌãYZKªAÊ<ðÞS0žwÃØ8 óÄxô:‚ n -*ýA g øùv¨½zð Ü9E0k'¡Ÿ ÝØMj@_HZ³Ö^°é:
Þö
»ºÀ¼ƒG‚¬¿Ñ(TœhÞ =°
¥ÁÌšCßÇã(”…ãð³À7FhŠAiì[LP—«ƒ¼nRBwÃã…ü:X½Ú¢ x*X í¸‚šãÁÈquØð1 >ïy;¢ÏoäUu!DÁbGAŒÿÁ ÌüãP˜íÃA~$ŠBMPSX?¢aMhQÖ
üÉÿ#£ ØÔ ‘ V¥8˜©ãa®ND Á£ÁÉ ¿+Ìý©È k†Ù È ÞvC;»Á*™+IOÔ <• =rP.̧} ú¡þàãèðÇ`hÓP4 V—<ðúHðÙhˆû±°r‡è¾
úaÄ|*„>ð ‰hDi š 㯕ÁjX½V³{aÌܱü Z +胋ÑCµKaîxD¬âË`Ÿ ÇÑh%f%O£g`<Õ¡Õ0§®…µø9´‡qò<¬¿/¢—ÐË0Ó֣ͰæñÕg+DÃ+0 vˆp6@díøx ½ö¡7Ñ~Ø[ €qòÌÌÅj÷>ú †8þ}#é3èÁ#0¿„•ó¬3ÇÑ ˆŒ¯!â¿EßAÌœFߣ ЈúŸÐÏèô+ú
¢çw±âý;‘¿ âþ1]B—!N®BD" Á—¡8 ‡CìFB<69²¬Íq ˆúV0w´5º ¬ìí±"8Ⲏ‡q˜+F'Üæàdˆë®8§ÂÚlÁVlÃvØg8aÎsÊÒ
b> ÷À=q/œ3qΆ1 +M ÜæÀþ°â „5g +ûP< æé<<FÉ(<ut ¬F·Âjz;Ì¿ù°[(ÄE°:MÄ“` /½À\ŠËp9ì *ñT\kn
®ÅÓðt|žgâ;ñ]0ϳñ <Vµ{ð½x>¾V·ð¼?ˆáÅø!¼/…È#øQX±—áå°Ãx ?WÂú÷ì5žÁ«p ìÖàµøYü ^‡×ã
øyü~o„þe¼ v›qnÄ[ðV¼
¿‚·ã øU¼vR»ñkxÞ‹_Çoà}øMXKßÂðÛø ü.>ˆßÇðûø|v áñ'øSüþ Á_à/ñQ| …ã°_ùƒ¿ÅßÁ:sÀg`WñþV™_ñoø,þ ŸÃçñ øOüþÿƒ/ÀL| _ÆWðUì…&„P¢FTX˃`÷BBaïN"H$‰"MHSÒŒD“æhiAZ’V°“kCÚ’v$†´'Fb"±°è@âÑ
’@IGÒ‰t&I°'èBº’’JÌÄB¬ÄFìÄAœÄEÜ$tƒýN:éAz’^$vY$ö?¹¤7éCú’~¤?@’[È Ø
!CÉ0Ø_ä‘°¦Ž"£É2–Œ#ãÉä6r;™ ;R»E™H&‘bRB&“)¤””‘rØQU’©°«ª&5¤–L#ÓÉ d™Iî$w‘»a¯5›Ì!saÇuì]æ“û`ÿò Y@’É"ØÉò&ÙOÞ"ÈÛ°wz— $ï‘Cä}±ü|D>&ŸOaOõ9쪾€]áQr v†ÇÉ r’|M¾!ß’ïÈ)rš|O~ gÈ°güv_¿’ßÈYò;9GΓ?ÈŸä/ò7ù‡\ É%r™\!W‰¦{þÞ”*°ÇT©Ñ`BCi
§4’FÑ&´)mF£isÚvshkÚ†¶¥íø?|Q#5ÑXØ›v ñ4&ÒŽ´íL“`Ç×…v¥)4•šaïg¥6j§ØÁº¨›¦Ñn´;M§=hOÚ‹fÐLšE³iÍ¥½i ÚvŠýé :ÞûïÁt J‡Ñá4Ž #é(:šŽ;ÉñôVz½N ù´€¢Ý´ˆzèD:‰Ó:™N¡¥´ öt´öœU´öµtNï 3èLz'½‹Þ
;ÑÙtKçÑ{`O:ŸÞGï§Ðt!}.¢‹éCt ]
;ÕGè£ô1ºŒ.§+èãô ºÎ&Oѧé3tƒ]ùº–>KŸ£ëèzº>;ÛéFú}™n‚ ÊfÚ@á,³•n£¯Àþ}}•î¤»ènúÝC÷Ò×ét }“î§oÑômú}— ¤ïÑCô}Ø! ¦ Ò`Ÿü ý”~F?§GèôKz” £_Ñãô=I¿¦ßÐoéwô=-vÓgèô'ú3ý…þJ£géïô =Oÿ Ò¿èßô z^¤—èez…^¥^Á ‹(Tá_Æ *؉+!J¨ûË%NM”¦J3%Zi®´€]z+¥µÒFi«´Sb`ÇnTLJ¬§tPâ•ØAvT:)•$%Yé¢t…Jªb†SŠU±)v8I9—âVÒ”nJw%]é¡ôTz)J&œ°²• %WéôQú*ý”þÊ e r‹2Î7C~cüp%O¡ŒTF)£•1p槌WnUnSnW&(ùJR¨) e¢2I)VJ”Épb+UÊ”r¥B©T¦*UJµR§‹iÊtåeœ2îTîRîVf)³•9Ê\e œïUæ+÷)÷+( ”…ʃÊ"e±ò²DYª<¬<¢<ª<¦,S–++”Çᄲ’¢ò4ì“W)uÊje²VyVyNYg—
ÊóÊ Ê‹ÊFå%åee“R¯lV”F8ÓlU¶)¯(Û• Ê«ÊNe—²[yMÙ£ìU^WÞPö)o*û•·”ÊÛÊ;Ê»ÊAå=8s¾¯| V>T>R>V>Q>U>S>WŽ(_(_*G•cÊWÊqå„rRùZùFùVùN9¥œV¾W~PÎ(?*?)?+¿(¿*¿)g•ß•sÊyååOå/åoå å‚rNÈ—•+ÊU8;"†a”)Œ1•X f!,”…±pÁ"Ykš²f,š5g-XKÖŠµfmX[ÖŽÅ°öÌÈL,–ű,ž%°DÖ‘ubYKf]XW–ÂR™™Yàtjcvæ`Næbn–ƺ±î,õ`=Y/–Á2YËf9,—õ†Sl_Öõgàüw ij!l(gÛ<6‚d£Øh6†eãØxv+»ÝÎ&°|VÀ
Yó°‰l+f%l2›ÂJáôXÎ*X%›ÊªX5«aµpR˜Îî`3ØLv'»‹ÝÍf±Ùl›Ëæ±{ؽl>œðïg°l!{-b‹ÙCl œ- f°GÙcl[ÎV°ÇÙl%{’=ÅžfÏ°U¬Ž†SêZö,{Žcëá þ<œF^dÙKìe¶‰Õ³Í¬5Âùd+ÛÆ^aÛÙö*ÛÉv±Ýpbá§Û×á̾½Éö³·Øö6{‡½Ë²÷Ø!ö>û€ †ÓïGìcö û”}Æ>gGØìKv” c_±ãì;ɾfß°oÙwì;;g?°3ìGöû™ýÂ~e¿±³ìwvŽg°?Ù_ìoö»À.²Kp¢¾Â®2¯ŠT 'kª**SUÕ ©Ájˆª†©áj„©F©MÔ¦j35Zm®¶P[ªÔÖpo 'ñµ½jTMj¬§vPãÕ5Qí¨vR;«Ij²ÚEíª¦ÀiݬZT«jSíªCuª.Õ¦©ÝÔîjºÚCí©öR3ÔL5KÍVsÔ\µ·ÚGí«öSû«Ôê-ê u°:D ªS‡«yêu¤:J ŽQǪãÔñêêmêíê5_-P Õ"Õ£NT'©Åj‰:Y¢–ªej¹Z¡VªSÕ*µZQkÕiêtõu†:S½S½K½[¥ÎVç¨sÕyê=ê½ê|õ>õ~õuºP}P]¤.V b)åµ¥¥QååeùUSJÊ'Uyjj«ÊiY…V–Xèàâ2%·¶ªÂPT–_XUQ \1ÍSU]XQåQËJŠŠ*jÔÌ‚*Ï4š/!³bRE¹gŠ!߇՜Â|àR‹|(§º4¿ºØ«Uòh•r}¥ ˜_X[ãQK}h /³T e hTJ¹ÚA¾âr ä«U.Pðࢠwp…N©Ã|¨J{òÕ¯ò¡á¾Ìj‚ò
=E%¥¥ùA5¡æùªÕÄFT›X-‡Á#¤¦Z©i¬ÍHË-ž €õÉ/+ËgyÅžš|:¤¸„å—Vç³"OiM¾ÁSY]R
²«K&•åÓšüZZY\^[^¤9„{î(,Í/ãTyum¥§ª¤¢JôTƒ¸àüªªŠé¥ž‰5AÕV†,®sñUL/÷Q5ÅÁZµ¢ò0IT{B*ªjŠyŸä—†•”×€nO!¿%&Ô3µ¶dZ~©§¼ÐÊ+j«=áÐÙ¥“J
óKË+jBxåIUù¥5•’,¨ ÞÛ"®ùå„E#Ì’°é„U'ì:áÖ‰4pê„K' a×åXuv‡®Â¡K¶ér¬zŽU¯cÕå8tSíze›n†Uºv«nMz‘]Wa‘JuÉVÝT»¬¬K¶ëöØe»tÉvÝ!(åˆ CmeAiEáô!ÇÌ÷T:ч«j´çšêâü"ÐP4Eàà‰à]w„ø¨*èqCMUIþ¤ÚJ ®Òž‹Ê}¸t¢ZXRUXê .)ŸV “‡§†SZ^uY Äa~¡hš| ÕµåêDO„«®åJaim+ö䃊¢’|~_QhYmµTžˆ ¢žôëOJ&‡–çWVT×TUTó¨\Œ[O!°çO,)qZ¬v·N¹ÓÔ¾Ðã.›Ú×âvØ}ÈaÈf ©¨ô”ûì7dú&7C¾‡fóÖÔ–M,õÜZ觕l>˜ r5«¹¾YÐ#’Ëëy „ö 4)@R ^c€ >út3I#Bûððô-ȯRŠ¨ýjJJ‹ƒ*
¦óUé
`Ru@ƒóxƒkxƒGø\ëkðM~&„O~¯Á#´×j
}z =&€žá§ÌÓªC2ùü.¦p˜KuÒ™ëÃù C‹ÍGWøéà| ´¥ž’|uL†`Ût å[¦ûj**ñTyªKªƒ§ë”:ÆWq†@áSkAoLÅEÁUùE|@xînv§Ù-Ážêèw!ÁÐXŸð‹ÃjŠ¡ã|tuèÄ’i: V
’Êõ‚Â
Xò =å5Qb¥ È`5åÕáºUâ)$“/X‚ ËõWâ!(·Æ—ܯB£Â‹Ë±|åa#*‡ .óLòUjRÕ¯ÑÀ„% –4–#ÖEM2–/š Gá*Ø€üÊÊ|Ø'”å“[jÉ Z2ºÄ é$CJè°â
6\,¥yùµM?Í..¡CªKÂúèÔ
õç|#=ôè,Ñ]{-«ÈT
¸ñ“øR¯ÌäFóǾæ+œ‘M¦—úL/¯%w”À(vÓªâ
U¬ÿƒ&™‚Å@²
î´°@E^§<¬"Ðãµ ¯ a+Õ¦S‹¤¬’ò—Ú%å”SR.I¹%•¦SN³¤¤§®Ãb—ò,RŠEJ±H)V)Å*¥X¥¥ViŸUʳJû¬R²UJ¶JÉ6)Ù&%Û¤d›ôMê°I 6©Ã&uؤ›Ôa—:ìR‡]ê°K v©Ãï»Ôa—:ìR‡ÝïgÉá” NÉá” NÉá’V¹¤-.i‹KÚâ’’]R²KJvIÉ.)Ù-%»e{ÝR‡[êpK n©Ã-u¸¥·Ôá–:Ò¤Ž4©#MêH“:Ò¤Ž4©#MêHó·Ã/E×´¤,’’±k¶IÊ.)‡¤œ’rIÊ-)©Ã"uømvøÛæãà@ßÎØ VØ»y¦å‡Àü”?±Ú3©¢ÔGV(äTØÁÔT³â’ª’©¬¦æ&*2QGÕ‹+`R§ÖÔÖT«Eù“<ÕŬÌûvV–?5¢R•?Ñ Õž©~µ$?nU T]Úªk§*°
M¤0×±I%ežRVÏ5¤ØC§åOc3óg””S˜óh
¤EAKàH1%"…Ä@·GË*ó”QH¾‡òÚr
Žaež)Å
b• Ré dM5Ì€L@:µ,Ón#œ™¦UÔ”‚‡¦©@¯–”:‰O“ÅÁ€`‰žQR^î™Þœê)å_õµ–†ë¶
_GèO>Ï…Û…û¢ü¤Ïƒ°ŽÛ ÊiÂB-È&"KÔÔ
£rDF0wªè¨NùTŠÌ²üÊ’©Áàn_õPát®÷ÑAÅ íÑŠEgh¹5zÅ`p‰’
Ô
$*Ú§åB it
óu“ï!\ë'Í ¥qBwù¨ÞéwAPfrØ.Üj€öòH4€M Ãa—#áa\Ó™ 8»–Õ—W”O®()÷TEÊ,í™ Šk*ÄA˜À)¨š
žÍŸÅØr¸lÚLãpÙµÑÍ)—¤ÒtJ›ÑÒVNNY%%yµ•“SI9%%%;t½¶4«¤l’²KÊ!)§¤\’òK‘–š¥¥f‹l¥´Y[“6‹Óo‹Îë°ë8l² š-N«[+å”?ÏgŸÓnÕ<Ä)]Gšô†M[
x©Uç•V9̲žS·Åæ2KJ¶Ã%}å’¾rI^—ßW²½.Ë5yV«ô½C›³Ö4-SšŸrÉzisš¤\’òËÓóÒt?ƒ”4™g–õ¤6§Þ"‡ÓÏ«µÈjÓôrÊ)yýòü IÉzÉ«És‚ƒl’òç¥é”S–¦Éö¦é}éöÛ¬íx O[Ë Oöjš¶k᥺<·ÕOézÝ6™ç&·?6d¬¹ý¥þ^pJ^?•f¨-/±š™ÎÒpŽ†s5œíÃÎÜ îÝ]ËÐYZA¶^ $ô6›35œ¥ál
ëåBCïÞ½³õø7Û%å”SRº Ót?%ýhÕý˜f—±dK“y6éo?%%Ûýq-Ç¢Ý á69>¥^=mV㔿ž”ì6˸ÑãšSš»¾‹Jç°ëg t»Ù?NäLbqËø×g5«>«9.ÿ\k±È<9[Iÿ¹üó¯ ‡'gb‹]æ¥IÊ%)¹*Xô˜sÉÑk·8ež”,Ûá’#Ún‘òœ~ûÜ2Ï_ê×á·OZå’-wúyålo•¥.i‹KÚ"çK»ÕŸ'wI È™Ón•þsù-–º¤_¬R›[úÅ*åù׫l›Ûo‹´À-ûÒ*u¸ý¥~y~û¤äLìrûyýöÉÒ4Ù¢4é+ÿú`óçIKÓdÛä:l·Iÿ¥I Ò¤¥rE¶Ûä fösÈ5ÿ6Ûäüf–ó›ÙÏ+ýbó—ÊõÆ¿ÉUÁ.çÿœìŸ±Ýû©CŽ
·ÅÏ+ûÈ¿Ö[ü1)%[døçn±n÷n‹ì»´YF˜[Æ®Û*ûCÎ\n«ŸCÚb•ýa—:¬R‡Ë/Oö‡œõÜV¿¤¥6ÿ®Nòú{Fö¹Ûß«þþ°IûlÒf›´Ê&õÚ¤6»Ô½5©tFe1 .-¡rïÕÕ*w‘´¥«UÖvHÊ*w8uÝ´ËO§ÊK ´Õ¯Z©SR£Í§Q¬È—ØÃÐÎ Ú@;h«Ô»¾ íÎ Úæ·âA§\ž²xÊà)›^Û!=ì°xÊà)[€§lž²xÊà)[€§¤ XtJjtZcðõ¾¨¸Þƒoä‹Šùbðõ¾¨¸Þƒoà‹ŠøB̼¾_MWøI‘+Œòå
2BäJ#"*®yôñå> A†‹\][xEàSðIÕJ{FøÖúÉ~Ójýä¿•µ~+G\keíµVŽð[Yë·rÄ5VÖ^cåIÍVŽñ œá c|£c†ï `ƒ•%GùîíÃ9f
[4lÕ°MÃv
;4ìÔ°KÃn
§i8SÃYÎÖÖkšUR6IÙ%å“oO³jئa§†]ÎÔp–†³5ìkŸ=SãÏÔø3s5ìk¯=ˬa‹†µúYZý,·†Ó4¬éËÒÚãöɱ:´ò\~®¾K±É]ŠMîRlr—b“»›Ü¥Øä.ÅfuJÊ%)·¤¤›Ôa“:lR‡Mêû›Íç_§Ã¦a»†µ|—Yþ•:ËaÑž¥T»Æé’Òí:¯Ã rì.íY¶Â÷¹%äÈÖH¹n&r´'ßžåtiØa?S³ª·–oÖ°.-K+·iØ®aÝB=
mNi‰SúUjÉÑs\Ò«þö»ôöë6hºœš.§¦ËÙæÐmÊÖpŽV.e»¥'ݲŸÜº©Wž(øïstJ³ØÙàÒüæÒüæÒË5Û\z=ýY×"#Ožìò´`7kÞuëÒ'ú°ÞB·^®i•Vùeé9™zŽEçÉ’9š_ÝšŸ¤r´g½õGŽ?bÒtézŸ:ätȻì[‹ ;•°Ñ™¹’Ã-)ÝÏ‹fw–Ô OéyJwX4»³´ñ“¦ù9Mó³¶Ú:³$¯\õ rÕsX5‹³´Ù'M›GÒ´ù"M‹¬,»ä˵ÎaÓ-vÈ ©U®t›n±Sæø)—¤4OgÉ »´[ŽI‡]·[Zc—Ê1é°kþÎ’–ÚýõežC·^[ÁÒzkÏšGõÑ‘%ûÞ!í–£ÑáÐíÖdzéËí-s¤Wäht85¯dk‘©ÉlMk¶ÖÒlmîÉ–íÔÇ@¶]¹ú³6f´}ž3[ëSm èÌÖú6'[{ÖVö\]ƒ>^ ú¼žy"GóL¶l£>Ógˈ–+‹CÎõŽ4Ý2é mïèÌÑZ«·A³=W“›#{\Dßîü¤Ù’£E®¶[tj»a§>ÖrtIZëst9šw´]°S÷FŽ6nrr5¬éÉÕzS÷r®Ö/º×r5½¹Zÿåjúõ–h»Pg®¦?WÓŸ«éÏÕôöÖ½ï”ãË)÷’N}½ë%sl’²KJ³¡w¶ÌqIÊ-)Í’ÞºfmõÖçÜL-N2¥ rd9åj生t9åØrʱå”ëÓ¡ÍSmn´äÊm–´ô–9Rº _N¹Ú9 RºüôÛ)?ývÊ1æ”cÌ)W<§S¶À)uÈý¦S®zN¹êÁ®[RR‡\÷`§-nx0`Œÿ2¨êß¿zø|-[fà¯ñáqááfwlxä4s|\\,›enQÈ
âT¨¯ª ±jl³„X{ª',ÕmíªÚ_8ÑùBŠjäå :@(×øŠUµ™ªbµPÓjŒ›cÈŠ4–Æ©x0/V
qM2¨De@¨íÚñ‡} ƒ1] ¤zp!Æ x·K`j\Š1ÎÀÿ‘óBEQpx¬§¦à §ª+V$ Ñ,¢Y»Ôv–vÍv³=>6¥CJœ: ÏÏq)q)8þMnTÌŽèÖx ö½Z§ðë‘ZãÿÚ ¬ðjÍ“EŽã p(°€8øanRD³ðXxÇq#Ü âëI ÃíRÍv vrK¹¼ž(¸º"!.·Ã…'ø»àB î¸ 4'¬ ùqfwJ‹if Ÿ‡g௱» {í ö¹ í8¡í\û 8c{³‹/&Øcí/öµxÛb÷ÈÂ!xöŠðÜ9â1l6‡`ˆ
—¯PˆÀË Áڷű ±Ð¶f½#Z¶Ä–ìÖ±c±÷—Á€[·6³'G§¦nòD`;¾ðgGŒÃ®wÓZŒ¯6ÃáÆø×àRH;€-[áVQÉœÇkxqÏÁyðjÖLT¶o†`~?…¨5ZEú$AŠÆØ„Û*Áò¥iÓ©¶ºz°‡†jM}¨‹H G_ojr[xýkG«ÿ3ÑÐ'%µÁ åÓÇ¡ š$]¤êK׿ÂqxžL¦$ܹsïÒ%) ¬“ÃÃE•¤¤¤Ž© E]^ ‡k¬
XnŠæMç¯düêþ¿Æ–ÊGèÞ¾ñá»SÝ©|@øß~!|h„cý]p¿W$ðúúÀ1ÛÅMJÉm!vBpŠLÛÁ#íBq’ˆk;Î÷NŽÕ;íF階¼A§þû—ÞÝ×v¹¯£¡§¯Oá¥G) =éy‰GG`âQ.^‚ÖÍKºî!”Ês9ì˜0€0»íºµ\g§.üŇr<Æáoîû¶>CÏ«ƒPvºxñj¢ø.¿¹‘Q-µó•†fÀPa½‘¿
æ=¥|:Z‚ 7¹ Ã^2† ï¯(¦”Ót]HÑÕô}%L¬ŒWnW UV(O+k•Fe§ò…r†íc?²?Ô0µ-¬cÝÔê/êÕöóÛ_0Ešš›Ú›âL‰¦“Ùd3u3¥›zšrL¦Ù¦gMëMcYl³Ø±q±‰±)±y±·Å.‹ÝGâԸȸ¦qÍãÚÄã:Ç%ÇõËót ¢:Ä& ’–•Ð*¡]B|B—{BzBiÂœ„{ HX”ðhÂê„
¯&ìJx3á` _$œNLOÌHÌJœX˜81qÊì‡V?t;KÎZ.‘K¦KÎKé—z^ʼ”sió¥ï/y/\éuåÜÕËÞË^/¸Í„ê„wêð&|_ï¼Þ9B‘ôνà‡èZ+ÊPå6e©²\Y©¬Q^V¶+G” X=;ÌÎjÞ‰U3Ô êÙösÚ×™ÂLÍL-!:MIà «)MóÎdðÎZðÎ ×xgxì¸Ø¥Ò;MÀ;ãÚkÞ™W$¼cú7Þ"½³4¡.áéwÁ;GÀ;ݤw<‰“ÀÂ;ø¬r _Š¹”tÉ
Þɸ”}©÷¥/]¾|Û•žà9Ü;Þo!À–y£É»d7Mõ #ï!t5"ë< OÁU—ëà¹DÜ;–|5éjç«€¼ ÍDÓP)*FQO„. ¾|ðòÉË ]þ@ÝooEè›c>úä|H˾ wòÞ“¾Þpr:<½i)¤…'ïþºöÄä3N¾úm—“ØpbùñåÇ× ¡ãë8ǧ ¿ žÌÇ3ŽÛŽÇ ë},÷Xú±´cÎc¶cæcÅ k{,ú>úëÑŸŽþpôÔÑo8×Ñ·Žî9úÚQÐrtÿÑçŽn:š{4ëhæÑø£qGc¶o³·ÍÅ6_G½†ƒdxÚð”áIÃJÃÚ¨;£öd‹¢…|œá6׎Iò®/]óü ¹¨?Ó¾×Ö§ôxˆ°íÊG)?ƒî§X {p}`}¶Ò_úw/ö O¬N{zêþæ8VæIºê?¬9úZËØFužúµMCkùMaô6´ F÷¡‡Ðƒèiô0ØÊpò^sו~;ؼ–ß öŸÝ{…þAŸŠû´ü÷_ñ{Åø XÚÝbüÎ2q¿¿‹ß1¶èš›±`GÇoM·Žñ[²ô›Çöã·ÄÝeß oå-d×ßž¥ßJp‹zU¿£Œß‘†ù-j'´;ÔŽ£ÏÑWÚYÇ´;³ü7f%Ë;³ºü»[³p×Ý›…SHsÒ‚ß„vû³ñÛ³ø i¤¶‘øënÐz€,à7¯ÞC%o¡ºÑ=T¿Ñ¹ô :ŸÞOÐÅt }”.£OЧaÅ{Ž>O_¤/ÑMt3ÝJwÐÝôuºŸ¾C‘³ôCú)ý‚~E¿¦§èú ýþ~ý}Q¾ûZþÝQägÊX'ÖEÜçÒ“e@Ý,–Ãz³¾¬?Ʊ‘l,5²ÛX›È&³rVŦюl&›Åæ°yì^v {€-d‹ØCl){„=Æ–³ÇÙJöMæ#œ=Ë6°°ölaÛÄ){`•>À²Ø‡´+û˜}ÎŽ²ì[jaß³ŸØoì<û›]b^•Â4TT›ÀI³%ýImÆÈ›JâÕDµ“š¤vQST3u¨VÕ®ºaÅï «Z–šCƒþK÷ RÇé¾Ñî;QÇÃ
YÄï"ùïp/¿E.ðn ~S!Yˆíâ¦Â}ø”¸µðM4½Žî·r
÷ré7r
§yèOü=Ù«ÌB»Ðè˜ížCà^h ÎÄÓ´{ô¦£íø.~7¸i®Rí¿ÉK¹W©U¦+ó•iÊ}ÊŒkî`ºCy,à ¦å7/ùnbºÛ“¸áe:ìlnp/š¸mH»EH¿µLÞ¤ß2¤ß&¤ß>¤ßÉ£ßÅ£ß"¤Ý*¤ßv&oâ7ñ„øíA³Øl~ ¿=èú›Ðä]<Ú =ú ;\§¸Sg2Äêµ”þä»ÇK¿!G¿ëGÜ°ÃoÚIR“Yoq¿¿{‡ß·£Ý«#îZ;Oÿ€õ[õo«1ñßê¿L2…©† àаðˆÈ¨&M›E7oѲUë6mÛÅ´7šbã:Ä'$vìÔ9)¹K×”T³Åj³;œ.wZ·îé=zöÊÈÌÊÎÉíݧo¿þÞ2hð¡Ã†ç9jô˜±ãÆßzÛíòQAa‘gâ¤â’ÉSJËÊ+*§VU×ÔN›~ÇŒ™wÞu÷¬ÙsæλçÞù÷ÝÿÀ‚….ZüÐ’¥?òècË–¯xü‰•O>õô3«êV¯YûìsëÖoxþ…éÆ—^ÞT¿¹¡qËÖm¯lßñêÎ]»_Û³÷õ7ö½¹ÿo¿óîÁ÷½ÿÁaôáG òégŸ ùâˣǾ:~âæIáæIáæIáæIáæIáæIáæIáæIáæIáæIáæIáú“‚ï,Ð|$ÂtQBÁÁ}aÝŠ÷n˜î=
¡ú;§ñ/qH°€!¼”DŒFÑÞ%( QÈG.o1À4»‰ütoÀ1¢t,ÔGã½
J;£Ho À&ÆCN*È9
ËIrR…œT!'Uð¦
^›¨iC‘WÿØDÀx¨ï ®£ » ˜õ]B‹ E—Kèr¡Û ȹ\È
õ](Gнì+à@‘?LÐ#„„‘‚ -àXÇL-9 ¹–4ÐÂéA·0^ÔÉt_¹ä4!9MHN™[ ò6viK Fy?ØDÐ1P¿Hã0^ä䈚}EÎ@ï¯ ‡ z„€£ 0]ø*]ø!]X˜.ü2‹¶0 lN¦ ÓAæ€ÃDép‘“'èÑ‚ ° Ì h„°v„°sä Dc §`€cÞ° Àñ"¼Èߊ¶BÎ6°m À‘‚ÞðMÒÕkèp w À¡^ À<ï@œ Œ ›p‘É}‰CˆL›y_ØFÀŽè6X•/xßx‰C¨Ãaˆ÷ ÀH€]EiW, Ïï*òS±•CïÝpÐVœ"`ª€m ’([
h0NÀD“Ú„4içýž¯å Ó&dþŽ»€ÞßqW 0Ø;`ˆ·7ÀH[x· l/ ŒMü§°óOaç_ ¡`WS¼Å S¡Î_`!§mþƒÀ í/ð@ð‡Œs‘p£xMÒ”ó‚9l%`Û
# IÔìˆÆì ôßž¿…=øØ„}o×Ñ® ¢]D».ˆv]íº ÚuA´ë‚h×%ÁuIÔ¿$ê_õ/ñúAé€]Lñ~0U@‹€6J¡-œn)`kšL°³€É 1× û6& èzr½ŒGÀK òøíí%˜.lÂ!Ô,x‰C¨YL‚ ß¿‚=à"€ÁNº‘žh À\Ô`_¨ßôp€÷ÀÞ• oÞndÈê-8JÐc×8QŠ€¥N‡üî¤pu'P³;É„üî$WÐ=Pз8Hä ôPÁ•'à(‘3FÀ2¨“2Wì)è ¨“.$§ Éé`?‡Dþ@opÈ ,è¡æ 9cD~©P!àT(í!<ÙCx²‡ðdáÉ Â“=„'{€%³ùwÓ€„ B{á½ ¢u=ÈXÇ‹üÛDýÛÁÛ=HÈñ€ö d¢ÈŸ$rŠEÎd‘S&`€Ó¼CÀ {’LðmOr‹€Üo=¡E Þ.rò‘
`± Ë fˆú¶ ѧd ÔÉ ¥y¢73À’S$SôZ¦hW¦àͼ™Â«™Â«™Â«™ÂŸ™Â“9 k @î ¡%GhÉvæ€.N-9BWXË!œ\ȱ‘ÿÑÞÕÅÆq]çKrIQ%[²+2u _¤…l§ü5KTÕŠLZ"wIU\‘´%™îÎr‡;?ë™Y.×E›<9rê<¤NÒ¢@Ñ¢/MÜ¢@}i‘¢H†¦i_ ´Fú¡/ý{(«ßùîÝ?R’›6@_vˆ9{öÜóÎ=3»^kI_$eµøÇþ+Èóû€‰¿@¸@JŽPjzÖ…þ*).ð%\ažüè}À'I‘
.A[ð"j·DmKìŸ%èÊ"ñ+„ïâd×»€’Ã,"Ê-R¶Ð“Yt¬àEB—zJèä,"Ü£Ô.W+¤Ä#„«5Â=Â}¬ä¸ËrÜe9ø,”OÊ.Ëq—åày ð",æà³PÄç }Î1?9Ö"‡ü¼EúmB©KQ¼CNåQ®¿@X$tÉSâê)eR<⻄R"Z©’&„û„
hXaÝWèó
}^á®Yá®YapÏ®Àó÷ ]ð¯²CVÝ{€2ÁVã*gà*wå*gà5ôCPöû5îô5vHžS=ïö¯/õ¯Ó“uvà:§å:¬eø"ñ+\]&ž½7 ¸
Ï×á¡hØ §èÜ`ÿlp2lÐÛ
êÙ`DœÞ¬Å2/éÕ
F·IO6©a“6)»ÉY±É]°Éþßdf6¹—7©a“^á¬xÝþ~ÿM®ÞdMo¢¦]RJÄ+„aDº‘JI©Ê½Åý{‹;ëúDà B—°DX&¬@Ã-^)nA³à!q¹^Ü‚f¡ˆÎÛèê,àIÔâ6'ÿmúv›znÓ·WË«ˆ‹o[ôd‹>lÑúy¶hw‹mñ:µÅˆî°îwèù ê¼Ãùs‡RwÈã0F‡»Ã!§Cýóæ0R¶dµLX! C®JŒc,ö»°Rd,EZ)’§È)Tdn]FáÒ–KN—œ.ýwéU‰^•ÈY¢'%r–ÈY"g‰šKÔYfG•éy™üefµÌ,•)UF–„ˆ¿Fh4HuvÙ9»Ô³K=»Ô³K=»Ìó.5ì2ϻ԰K
»ÔPaÎ+ô¼Bž
xÞ”
ú¨~ ð$zÀ§Ï>{Øgž}ÆèÓ[ uŸÃ)üùÎí€s;PïÈ*³Ðç€ù ¨- çuô<`íL*Á+Ä}r†¤DÄëÄ%Šþ‡ô0¤æy©-¤Ÿ!³2!óR6¢lÄë]DO"Zh7b?G´Q*¢Ý*óVe—V™„”„¶ö` WðgûëÔ_§ouVªN+uzX§‡uj¨ÓÃ:«P§oû”ݧì>e÷)µO©}Jí³OöÙ!ûìí}zøkñkñkñkñ¯¡w±úÀ“à¹ËÕ»\½kWß|K¾íœ&œ%œ(ßö Ž~Ÿ•Þ’ï| ?Mx†ðgî}Ï|³:ôeõ/êçT¤†T¿zTM« <©þ&c+óºý¥³R Ùÿj(r#}-Þ¯†ÿ®õ‹èÍÁ?³xF=>ø× Tãƒÿdñ!5>4nñ#ê»C3 VgŽ|ÑâGÕ—Óâ#™?§eÁ©íÏY|T•N|ÍâLJþhèß,~BÝ:ñŸ —|á‘u‹÷©ÁGþÝâý*sjÁâjâÔóϨ‘S?oñA5zjÉâCÀ·-~DmŸ
->¬ {ì´Åª…ÓŸ±øH¿óÈßZü˜š= Y|TÍþm‹ xåÔ_Yü„š:ýùyF²~bì¸Å3ê'Çúˆ‚>2ö´Å3êôØÄ¥jCcŸ³xF›%~Dê2¶jqÔbì2ñaÐGÇ
Ϩñ±
âGm}
nêkpS_ƒ›úÜÔ×া7õ5¸©¯ÁM}
nêkpS_ƒ›úÜÔ×া7õ|„¹úE‹K®"âÇ@?5öu‹gÔ§ÆÞ$>Êœ|Ûâ’“ß%~B:ìûϨOŽýñG©çÛ=†ÿ1æüŸ-.9ÿ{âÓŸ{þ•øO€þøø',žQzÜÔ÷´ðÏ[ üã“Ä?Aþ5‹ ÿKÄŸ O,Ž ß!þ$ýYµ¸øcjýùß´¸ðÿñŸ– ÿ-‹£Æß&þÉÏø [ ùÿ=â“ÔóžÅEÏw îÈÿpGþ‡;âîˆk´ƒ´ƒ´£.£ÍºäUCUù¼dGðªÕ·pæU™xóJžœœZ..ã] \ ºG
Šù)`/’îü 5M·<Ój
+>`xЮâÕØ›Uóø›Q“{ŽÔKðñz 2ò$è”Rס/Á«=À"}±æª åI »\Žµdø=dHóÉÒ 5†j‚VdÅ¡¥‚Õå€b$j”Êð> FÏŸî2mIÖSk!a„ʦ\©E^ŧˆ>x6–*u‹Gz•Ðš¬‘¯ÆÿiZèôÊ£~yvÈ÷uê.[ë®å¨ËØnÒ}êNmF
xg2s/…N—Yñðjt,¥ÆLKÚ]±.13êS^<•î¬TÓBò{Öªg#•5“ÍvJàm†ÚΫg³ÙH<ò×ø®]Õ„ ëÓ»û÷Dsç$Xd- ¾¶Žv*Ö[Çæ¿ÀžÖ¶ï›9+Òö©F¾Î'™›
Ú› ‰ w°¶g³m4´÷²ÃZ™îÐÌaÁÆï±j>yªÜg¦CJšH:»Ûku–Æú¾L@o¤7MÝ»“ý– ß5::£{Þ$â+XÛÔPc¦‹]½éª×@ofVz»ÐŠ°ÄÞÖì}æ6aߥ¬ÆN«êâ»Ùï²—&Z»)±]ætÌš »wp¾Nyãµè-pµÝiÆz‘Ùªr—4ZQ4m‹|ë3[²‡LSÊ7=nj¯²‡ÎЦoS‡æê…®ª}ž“³êºµÔœ²sÁŸVÏ@‡d?æN0;èÙ-“--9ôv›þìõØîý€ýSiÕù;÷Mmvì4tíŒkÏ*£õ® Z]£¼Vgh/¸
Û%vo3kÒŸ 3^¶Ú¦Ô
øò¸‚,⼌ˆ_U䳤/€²(ûà%\9ð—#5¯Ž«žyvnrŸ¾Ö-ºñØT¯jëÛÞ‡óc®{r³CÊänÆÓœþÍžÚæjüµ–ÍBkŽšÜÕ(Ûž®Ý!2¥Ú3ÛÌ
ÏÎçÄÎ jq[óWrû²µ&“dÏÎííÖ•ÏØL ’™f—Õ[“е»Ûmퟘ³*µ³£d{ÿ~ùjîxɘۡ¥=1Û+Úþ’^Þæ6^oÛÊ„Vóý*ô4£êΔ™þ‡»â°åæ •‰éð®ÆUßf;±óêA¶§ØûaÇLo ª…kïh:wŽ¹R8ô¨ÊÌʵËã~ûøškÛ‹aÇ mÚ•Ý_d¦½Ž+VÜq×5ÑâŽ;ú¶}ŸððL‰wõ7û*êÒWgý+¬fç4iÎâ6g^3gj̸è/·â1~uvw`§·É¿ÙUUÛ ñzèaµûã*c?\¹æ}ž\ß\{7h¢1÷–V5†iZ”éµÈ¯ %ÑWCÈÍÎÏÏL<7¥/ù¾¾.OíJôu7qã=·x9
S7%qC'„@÷JºèÊ?ë=¡/Åžãë¸ ‹A»º\ œÐKR](;±SH!¤^!ÑiÙ 5Ö:*iVª±[t n’Dq¢°¨ è¯ÊÚ³ª¼P§µÐÕu/-CÜ5*Š´à¾wàL“–ÖÝ0õ\pË¿Ö]‹Sš)‘g©;/]'
°$…BLÄX•à&](ÉsŠcã+ÌŒxa±–¤ 5I¾Û™ )N"VÜ8G³iydrj ø_¨ÁPHÏŠžÃÇ}ëzÙC„eׯ"#‘Þñö\2°ÊŽö‘ ¸È](O ÕNµê"aÁ…“nO’¥Ý}¸~CË3kQd_tžÏô¦¶ok¯ ‰mW×·h²é¾VgkÉ¿.ETšzᎄ »¨{šLH™¤Œ}„·³ã¼î…Pí¦… “4ˆ½¤ê;
1!ÒòÔ¿ªS…k`)ÂÅÔKD±°Wã(ˆ¨mªÙ«LhŸüâ…uIËÎMÍÌègrò´U)гd™–\žø7u>FõåñróÃz Ñì
]t »
¬7Öô5'Õgt>§WK¥)ºæú‰[/ƒmje5uñêåKù««+zuQg¯^^XY[З^º¾°[XÉ 9>’/£Í\KaD1ÂCÜ)ëÐò{/Ú‰j¹A;Òþ’©í†nD5‘,HÂ;> Ø43ZŠ®ðÐÏ`wäAÑÒ¿Súeˆ• 4O´-›’i—3’²º4¡‹r»R yâ8º£„ì·ý’ÂG;.YØ-9=¿]K¡nF؇ =4Bû·RÑ– Õ{Ž_s¶Ñ—N‚¾ê”žÒ7Bvz£b²ÅÁ¦ptRu ^É+ Ž\#‹!{TdbÑ“£wøÀAtÈ1sË™pÀ)ß < FÈWâJbZ›]LbTGÏÔ¶}O š¸#ºLº´7üG©ª
mZÞf¨ÛóqµÔNfÞk5y€4Ì`ZÜ8´ÄÖo2'å¨æÑ«{ž[7CîPø‡Jº˜Åö`lÅ·8Ž i»Æ˜c½.Ý_-]n ØiaÁŽ“^†k—ô¤~æüÙsÏês³ç'gä æ=zcÄ™ÙÙ³gÏÍÓçžÿìügç”Ó´zazº^¯OÍ¢ sO¸úÅØ©K.°á4]¶±CW0µ"Œø Ù¤±Wð ½æpo$¸fËiàOièîtl92'¦„ø?¨»>¨îÇ‹È»i›Grw}]²Â¯ b~sºVRUë;ŽËü‡]Ôo;)‹öë¦ÚÀÝ? øîÀw ÿð¾Ö¼CÖ²ÀÌÇ‚ˆ«µ®Õ—x»—´¾ÚŠxð!^+ê? ý!èkë”è¤\áë #é^¹f¿‚¨ñÆ1âG“yßåAæ©ÌÅÌÏf.gžÏœÏ¼ù\f93ß%™¿o.—åµoônªùª®Òm£ï¤ú‡ŸÂVwÖ"ûåéÐÁJê!Gÿ;ª‚óòZÂ×ù{?Ì$j çïàœÃ™ÃyçMœö\Ãy 2Ù©#óû¸÷lþ?¡ßãù
œÎ¯
®«¯g>P¿f×¾Ñ?¯ÞjÉ} ~sè õUÐ}h^½,¼M>àKXŸ þöàú½{G¾¢ŽpmýÞ #ü»
¹/áõ^óÖßqâ ¨_…ý·«Äø¦àGžT¿ úWq^Çù+8ozGïè ½£wôŽÞÑ;zGïè ½£wôŽÞÑ;zGïè ½£wôŽÞÑ;þ L^=¢úþ¦ÿOÔ Rƒ¿18§TßæuàûªÔjx°ÿØ‘L¿ ¥^ÿÒà° ù¯¡òù{ÿ5øƒ~¡oîÈžw_P}÷äßÐýo |Qendstream
endobj
635 0 obj
41861
endobj
636 0 obj
87386
endobj
315 0 obj
<>
endobj
638 0 obj
<>
stream
xÚ]“ÍŠÛ0F÷~
u10]¤þ“ä ÃRšEÛa<} [’3†Æ6Š³ÈÛWÖ1S¨Á†ƒî•Î'® >½4»g;unW~ÉÄ«»N7oÜîø£“ôxúz‡E¤/~2[D?ŒÖo5¢sçaLòBØÁ,ů¹lÍÍýº¸Ëiì§äpékX¼.þ. ㉟“ô—·ÎãY<þ>6›Û<ÿq7."KêZXׇ‚ËÏöâDúl¿OfJÿ-¼Ýg'ŠÈ9f²î:·Æùv<»ä…§‡oá©7ÚÿÖeF[×›÷ÖÇò6”gYQÕ‘:è 2Ð>R.#•9ÔC&R‘C¢RRY(¨€4TB$¡=¤!Ì$f.—‚Ó%§—d!\$.eIe.
—…Kù©HA7R‘H“HÒ§é“dÐd좷]H¤I$I¤I$¹kÍ]KòiòùH DZMZEZMZEZMZ…µÆZ‘¶"ºÂZa]a°®°VXWXwk_‘åû8PÛ䬣µþǸš›÷a’ãßguÒat ?Ð<ÍkW|ÿ.2áªendstream
endobj
639 0 obj
417
endobj
637 0 obj
<>
/FontDescriptor 640 0 R
/W [
0[750.0]10[190.91796875 333.008 333.008]20[556.15234375]31[583.984375]33[583.984375]36[666.9921875 666.992 722.168 722.168]41[610.83984375 777.832]44[277.83203125]47[556.15234375 833.008 722.168]51[666.9921875]53[722.16796875 666.992]56[722.16796875]66[556.15234375]68[556.15234375]70[500.0 556.152 556.152 277.832 556.152 556.152 222.168]78[500.0 222.168 833.008 556.152 556.152]85[333.0078125 500 277.832 556.152 500]182[222.16796875]
]
/BaseFont/GFEDCB+Arial-ItalicMT
>>
endobj
640 0 obj
<>
endobj
641 0 obj
<>
stream
xÚì½ \S×ö?º‡s2“œ„@„ 0ƒR 2( €
*• ¢ÌÇj•Ö¡Õjkçj'« ,‚¶hmµ'{;÷ÞŽ×εv°£ÞÚ' bï½ïÿŸ÷¿Ïû|^÷¼ÏÞk¯½Öw½OhF‰8£`ZeÜ© …áD¨Ílttµ£¤„r”…Ææå £oþh5”ÝYŸZØÞØRy¼%¡¤l„øW +J&ýìºÿ„Ò=ØÞélïé•AÛäCÉV5·Õ;Ð
·ÃPeéiÏ59
'¿¿%¡ËãÙ|õKÜâø £^‚r-ŒWÚÞÖå ÛÙûBõ½@ÞÎi•“ßjLAèj ‘žh‚4:Ì¿‘ƒçcê[ íÿ Yp+”a<áÓÅÎÎÖÏ_ú8
¡›5ã[ ËÚe;*„ ‚ù‘ØêhqÞ?aôh(W"ÑÝÔâ^v÷·r ¡_ú¾/«HN½m׎ý½w úÏFÀ¤éäx"Éáâ¶¿Ï …²˜ßér4‹%nQú Áå
yò˧•ØlÙ‘ô¡HÒ# Æt ¾—£) ~ E2$'Y}ˆçðØC©ä,s£P…ŒgíQ\Яœ÷DˆUø%w0·T8—;}0åA^¸ QŠ-J ¥…#]é‰ v G"w¶ s´Ÿ€f uØsíè ž´ó˜ç0‡ùx‚q!G GyL î:Š·“xÄ¿Ii<Ìþˆ …Êæ] b-NON£ä™IKù7eÚu·k Ò¹€ šR¢øM>€î'ÚßÐ >w˜„êZV°‰ÏM?wF€gP^ }º!+3+M†Hˆ§Ü~eÏìÇ·v{Î/éòÌÄUxñøΗ7¾»Ê3Î3åÏ#ž;`vzf’tiÖb»Þ¥Â;µ{Ð -Õ
Ã¥óÚ5šR 1“dBI˜0€+NfDüR3ý #cÐGD
6èD.“[2‘!C x× WöÌ9¶ÕeÝ]üž}ž]?yj_Ùøîjü,>ü!ž‚ ° É°ýoó'm´GN%«0©Æ8G5—¨*I•ŠW©ÕG6ÂÖ œ·k©*^É«ã‘F¥RªÕÙUH‰±r“ËR}8@‰d:
Ã' «Õš‹+„ pHr
d“}y–•vŽ…ä3ø±VØ,¶
ÔQ(ã³2c?1>óå.Ï÷Ñ°|b|ŒËó
W±dÒ=™òãsþ°ÃŒíèSn<÷4Hm]EyU5 Nä–C²mSÈô»ì(¾ Äýr{ Z„‰ SpE #u øud%’dù °…&‡M?Ÿ0áL
ü“„)Řƒ0j§/]ðPBÖî÷ô{Nzžìÿ3
ÁTί!˜0ð6lFoÇŒÞKƒl‘Hi‘ …)øKhø (È~†ñohÀ8ƒýãÆ_È øÂ}‰¬õ8úq Îí÷,Ddè „¸³ Yr¨=öb…LFd
…œWª4œL¡Õhä2…ŽW
š5˜ˆ°[‘rQ.×
ÇERb¤”`¹Ž£„
šó° ¥"Š—
àÇìZ¹ ”ÀC³_wUOˆ5T8‡Bòrö=Ÿ—{ëM9 iÆZ7¬:¹alˆUR=PFø·AОäOžÜ År!wÛh N ´Ð(Š£hÜh™| ÍûâÇ'&
>ü
¬ç³œ(Ej-ôb¼×3—\†Ûÿ¾cõC€RÕ€W—Á
hŠGoÙ'ʼn‚>=ˆE9Ñ® çF=ÁÆGŒŠ
Tó1cÔñ£"""½âk ŒŠ˜åÂGEáÚxŽDFDÅ” »ìÚSS³&†‹‰ÀoÙ##@®‘rÔ(eDÄJ¥%ö¡â1’xÏô‹v©ð½$Û+¦ûåÚ*xåüGV?x0"×:ˆró¬ ©¹À“ä\€+ŸÄ3À’¶Wž›Ë¤ßjMÃQ©¦Hd”Ƀƒ!–Y "3#=.ÎE£R³&È[¢ªq~öŠÜº
SÖ]³tÉæ϶zà1o=6αÞóü\ºnl{âÚÞ-üQ•~ÖÎêå¶Ñ·»–¸œNÞØ3aî˜ó;•ÂôÕE‹A~}Á¿ 8Žv÷ïRàÀ¡ûuút#¤vVŸ.0þêÅ }z«JQëÓ¹c‰3æ Åt™À ZcpP¨`Ðåhw¨qÎv†œ!IMC“8%Z‰ˆÃnÔÔ'Øä8YŽå飴é Ä>ÎÕtL$e|:“wØSsZ<§ÉÁ† /p[àƒj°I†,"Ò ™Q©œI<å2½18-5“{ã©ùž=÷üìyî»7ñø¯p”éшÃÛýîYû:$«$K‡D´Ã>Å$Â"G±E£ÍØkätX'%V2ãðQf1'‹òI<Á'_f1
ãxBs„¨x R„%(fFZËíz¯ìGµc ÂÃd¥ƒ Ÿî“‘Ó€† ¿Á‡°äššŽBAd2¹Ì›–
à_&£AæáT|twå²ûg/~èñµuÛ<ï|yûŠi™“ÆM›wEí¤]žAþ¨É¼û»ëz>ø`U¤io„Á’4¥îüž¾ãfìV
¬~2¬^‰ °gš±™ WÐ4š)"çe ¯PBP«8¥Ò·R ¸"G”‹Šg8`®ºû¼xêž8ú¬=„ãåJ7[· *ÆÅ$0FL „‚pî´À’Ó5^›îÕŸºø8Â,¹_Uj€)rP 58• ± ª ”Z. næÞçIºo°VöÜв(m½|E‚ôêA '™qd‚–‡V’é/ûÙn3Ù·ŒÚn4Ž T,ðG‡Q3ŠˆÍf Bš#s ;´b<Š"ñË‚“´4"I¦ L0%è ž`7E‡%ØT8Y…UéX$P¥Jgˆ!!¸*'p©Wìa¥7ñ°ìú%æ´bƒßñº499^|`z`ÅYQTÆYÄÑqzÁ“– ,)C4"ÊH'YHϪåžwyNܱî+\ÿÞm¿] qÂüôÍ»=ßÞûþ‰ãÿ˜H&î |`Zí“wc„øàk ßtãyîþðƒOWãñ°Ï¨Tc1ÈE×Û••8'üÀЉþ¸„t)
±H©}´1(Pêà ¡ „()Ý#¹Èn°äƒ }õaÑéŒ~'Aé 7Ž€RX€¨×Q˜þ/žÂ°› H†»qÚÓžW™€ËwR%ß²Û r)9 lüSàÅŒ±‡Ë%ÒVJ¤ù‘]æEö#x ú3¸ÿ‰ ¦²§‡aý"YŒ (y9N=éùünª¾ÝËø8Î ]!dº=owΤYò,e¦0I>IY,”ªéysF}^Íà‡ï4*CCžæ^˜ò؃×Ò-“~ÅiÛî½O \ûà“ ªAZá”-Ó‚´âz»ËM—ð˵4G[]È»´k~´&KÓ _¢Z¢Þ@® +€ÅrNô†@A}j§Q«#Ur#4! RNÀÙ$°Õ„
ù\M`€0—Äh4°÷ø{˜FIÈJ ¦a£*5šóJ¹]¾FNÀ¾¬·AJ˜@rÊ/zdJ¹1 ÃA”Wn‚ù¤]®{7–-(²ßIóî«×Aóíã5R*µ°Ê‹ |UŸú¶I[)°½ÌË•gûyÑáe‰‚¥—l™Wa ¢J“.#Ó)²Z«¥ÃŽb°‡la±´}
8í‰_;&Æ¥†9tÜóêSžë ™:ëQþèàû l¸ÿÈ3ôò?ŠiÙÇl;ua ð
ì÷
’÷†nµgïãî $‰ã—^cà´B˜.PÐ
AáD ¦ÓùvG/DŠ£Ð0Ɇë`Âðq{tPB²,O6CV+k—‘Éd.pxܘ Ûo˜î¯÷ÐÁÏÿd«‡MµÏ³ÍcÏ`#f±S™S çkx³àØú<Û*œFvïnšÒីu»çº+vã‚c½‹²^çÙÈ -9Ø:ïØŠ º¨Á‡Èï3÷ÖLžgRØíÌ;°jŠAgík£˜›!jôésÔ˜¡—`0è‚CbLá!ÁJÞ c2ùVo >hÕFèeЩi¬6ά6˜”ëƒÃkC¢€Â d‰‘øbÒÅë€KŠ˜¥Éä7€g‡c•æQfƒ#VA 3Û
¼6¸vÝïýÿˉw.ú6§…Ï|ž][Œµj™ñ^‰BOL–X¸xJŽ<“@¦öÀF c©÷„ <ž6>rlñמó3ÆÌÏnÿ»+§$µ©ûôÆýXw,§íÚÒq—wx¢ù£—í[Óÿe|ÎÚMžo±þúæ©ÉƒÝ4W—^=; šÙ¯ípBX ^TzïJ„㜘¿
c¹{lÏ’Ée*²£¨2μИQìØ gQlrfÒõjª P'$Ž•gDäŒB98""δ–¤`*KÊP╈¡~ÀèÑ`3¡Ý@ $?[™Â ^S¥<‘V;Š…èøtq”mI ujÔǣ訲¹?çyØ
ág€òsƒç¬àbÕtŒ8\ès’…ÓÂi߉šùSL ! Ì’ƒÙA"#}t ûÆe¤gf¦I\–ËÓG%–h¹ Ü+“ôe¼ç,Ñ1ÛOÒCWô IIý衼ú˯8»«ÿ—6ü¸ÚX¹sÞžêÂì’ô§ïÈ1ûº!tïïžgðû†´Y[§ßR_”“];5>ÿ溎Gj—=?O¤›`¹¬2mrÖ¼ÌYc"fÇgÜX»ô…Ö÷÷Ÿ ú\¦dÞÚeOU
J}úhA ›ä
ZŠ—É@Ô#Õ°³ çø`«@ŒH¼<É Œ` X›°^ƒ5Œ·J»z†š 5VF»6 ßÅ%¬G¸ æ¹+0¸?4½‡Ý†œ®é É'õ4¤ÖqQŒ…´${Ò“FK´L>šÉ¢‰É"ãµÉ'A-ñ±
— ¨ßyhæzÇexÖ” ±yË;¯‹z4û§#ÏtU…Ž ü¨î²¸9 ïè™èrÌÝ[{õÌ©m¨¾¦Â ÑFLIÉ‹IuÖw컼¸}V»ç·Õe©—§ãÏu‚Rk½*UÒÕ@
¸€€\±>0ù\ Ƙä 3´„
·î¿ñ…Ýg—=ë\vÈóê} [â¢)+Ö_Ý¿Ø5ù–¾Þ|
çï9NÆÿQŒ o[3kÍý¬¾vÜæ·™f-~ähtâŠ>(!ffiƒWªWdñÑ›C6‡r!¡“ˆ }&”ÆÑDõÒ°
a b}Qx¢¬×E ׉ xd8\Á…‡%ê·ö Ò8Ѭ‘›@2 ôwØâ"Î!êì&1 é]»î#àÔ„˜¸ ^ñ°zåÃË I8Ø;ˆAÀ,Éñ zÁÊD¥³ƒ<ÈŠ—¼Âb”GùP Gy™%£3zãK¿ ?SNÉÜÛiÉÙéeÊ5ÊSJjV&+w+ V W)eˆç8L•Óx"—[8ld5õŒ·2^&çTÀ5¹¼•S
× GØ€!0àîG8»Z—Îu+”Xà|Œó1ÍÚÁnà
æW æìÓÇæI)óâò8û„X©Ô?5Î[«Í‚Zc™ßÍ?Ì ç‡x9¡Ô2|‰‹(à†tqÛê‡:Ž^Cd
:ÊdWƒGÞä½Už½`øÝ3Èt§W¤‘=ćü"˜HK%í¨,(({o©™èFeySaäaÄDXªF>]`é£ù¬Ñb¸T®‡û?ßcƒ ³K<œ °1|‹]€l
ØÌ\b¿¬XíJUúîÄÇ,Ç_3½`ù‚Èn6Ýl9| úáÄÇL²"ílÅ,í ÃB핉2%ŽVDk3iÚb…,‘^ ¤Ó1 „$$0NbQÈÇi1‹F‘UˆØluƒ%Ðh4²
# 4Æše¡fFÂlY‚92ØŸ8€ÿf0ꔆ*£€…@8€ÛÌBdS³`&fVcFDH¨ºD°1¢`6
r¼hì
^Éô¿bÙ‘¹“Øû3øø]8\H‚ÝÔú„óÒìEĶ2ȶ‚#“&— Ûôoa{d¾àÃñÎÝ5õë‚föׯ[gÚvxGàÄÜ™ûj,͇w ùéÓ÷/ŠvqqwÌv]ÞP¿º3¥c°’<1;6=·n÷½ƒƒä•sº½îá»<*Ÿ ͽ4¡³ö1ò 9±E&)VÌ&s4 ÉrÅ2ýýúã`>_V¼ ×Ò`€%&“´Wv!§]Ú+Ÿ ¢SÀ>KJ°Ç®'Ëâ5¦€ ðZ˜)hx´OS%@b£Š/ÔÇÈ*ðä >ÚgªÂø¨=pÄÞ„\4¡ÒkÉÓ¾ÓÿàiÉ¢Jnc®5/…
§C$ûèã8³^ŽKÜÚ“'}w}~Ž_Âk° Þ3zñQÇÚao
*)Úü^Z#w¤¥aK÷ø+W‘;ë’3&>ÿ“Ç
Ý çràž‰hÙ¤o±¼ÅpöÞn´×F·G dŒ¤ÕƹA³#g›Û‚jͲ »…%Æ•a+"Q~”™“ÑS‘=)9 ÅE…ŠH.ÈÛåTÞ ç qÖ´N÷ 4½ ¬,PÈò.Ã{‘ÅŽ ÈðùªáÑ>ñÍõž³7^ñÒâÃÛÛÆuÖ™¯kµ¥#ïÄY/ïûþåG=Ïì[ôÔu»nM®]9©~ÞöÝ3o{ÍçeÑy°> :g_©¤ë•;×)9Y@pÀ^ÅsÜWÜ TGâ¹lœI&ãåø,×êUÎïZÁñZíuªd:/8êàm×
éÒ]¥ÙØ¡<åZÔ0ù=ì¶wß)š-HXùÒœ{ñ§:?ÖHîQ' æ„ äŒQ>Ôš 傽Зd’Ò¾H êUûœ+ë¿õ§òüv I2"¹R ~ñž-(ˆÆž¤òÛË3˦$g/x>g.÷ÞÊ%£÷E¿é9ã™ÍøU
ò@_‰èÇÃê œD†Þf¿U ì
™n‹º-š.¡+Bw©oÐpj&*";n@ÅzBf Ý rzo WL—«7ªi‚&&*Ú’áDšF ‚BÊaSLpy ŠÁxL˜9PΛǨ#D;x«nœÈŽ§J\%2g³ó—]HbwGß+D+Ä’Ø71cÒQ°L>ÆÁOŽý¤WÔ:¬ÓÏÕ ž®lçP³ŽáÛ
v¹¡7…õ^!ïÑ û.(/ÞOÆx¯'žyï<‚ŒÞkIé#Ñ£ãf ¶½lYL¬ç“ø‚Âç=ÿ:w[Ó}ySRäªS™³ ÏmX»/V—¶×æ''$¬ Ó6yõ¡#7jjÛg§¦Æ…eÎM¯XZvÓ¼yó¤ÛŸïÈ~
Cí St uKtt7io¼OÙ;êĨ/ê0E¡:dP'ê5`5¨Z÷½ ð©OpŽb
$áýÆ*¥f€„÷¸ÕÇH8k8R“Ô1‰ ¬‚r›’*ȶþðì~vYc=wú û%ÄÞû8²ê¥c*“žX¹´ÎŒô,vD
Ì¢ì`ê=Ïão"ó/k¶ÛÂÖn‹Ø–õÚ̾ȃ+M± ¹;¯×gÄYV×̯ò¬Þ2x¸=XŒ†õ¹ZÂÅ:zìÝ¡ŠPå
êG䨾ú,Dþ˜òjÍúä7¨ ûeŠÑª¬%ò%*·¦;D–ˆ“… }‰ž
Ð5F_ Û Ê@›W6 mæyR„+pFÕ™‰:4DŇŇ*xÁTÌàXR•Š…вСm¡\(œúÃAÃ’Òˆ6 Ÿâ?æ¿çi2Ï^Çšx ¦Ê~Òw>-eJëýE tãíûÅ<;ïí pKw¸‘|:íð/Mj|wIÒ-®ÿFWºÓµÐÐãϯ¼1zÍák
%“¦]çŠ
Ž¨=üá}'Þݺ°ànâ ¬ž•œ[0eõì¬Mø%p¿1º ,ßrà©
ÝnŸjMEM±Ê®™¡¹F¾Q¹Fs/Þ«z«eàðs£UÙ _eš‚7*<¬MAÒ02²}
öžX¦—·
)nÑ“n¿Ç´
oéâéÒå+S©ÁŸÙua®÷¢ƒÁŽbÄANzq
ÐvH¡2˜Ò±µ:Š¿CÅ3ôÎÓ§ÏÄõÇ÷pqƒÖ¾×±ƒ\ÉÖÎç$‹?„”¨É #Ë”ðÏ©‚ç(’-ÒÉÍì %ééGEÒûjä=E„ÛÕj“)Œ>LŠðÃh OíWÍÛÄ(=7xº´ÈYøy5; <vSÌ” Ž^g ðH`ð뫱ÑÛ ú%£¹/^9tç
š²( gdϯ´çM¸,wü¸œì¬Œô´Ô[òؤDk˜øÑq±1–è(Ñ 1*< ¤°!Ð tÚ ZÅN@:™Xd)®{ãj{¹8ËäÉI¬lq@…cDEm¯UÅ—öék¥nâ¥=íÐsáŸzÚ½=íÃ=± æ¢Ü¤D±È"ö¾RhðÜ™UßZh©{ÏHùéRž‹“
PˆŠ‚'Ä¢¦B±×ŠE½ÅKš6ÕÂxÕªKS•”ˆªÔUC®×di?ˆM°”!¦¢q R U½a–¢ÞPK!#¡—Æ9zg̬** ŠªNJìÅõ–º^d™Ø«³J]P4M¯¬ W.M#ºØrÐfñ`â‰M[TWkÕ4X ó«z©£šÍ¡·Â¼…½¦§C.apCAÕ†‘átSQˆKdÅM›6ˆ½{fVlbqu5ŒÏ’ØâÚMÅ0õÆÅd „‘Ï–â]”ÓRÄjj‰½JËDKÓ¦Eµ°!a›zQùò¨¾°0û‘¡QX‘¸©²ÊÕ›n©vŽ:hD›Ê—÷‡ÚÅÐK[’
z/7ju¾Œ&`dÆ9Ü&å¤î,7µ|˜˜Qd)1èëE ¤Ê Éf‘3mªÏ†nð©ÆðTolƒ«WYP»IÇêÙó½|¬`7ýŒ`Û-g¾½´Æá«‘Å
?#–eÂ1,`ÐîÏ÷Z½ L.ä°‘@ã©œ‘”¸d€dZÚ` šQUKžGE±]Ý<`GuPè]3³Ê[Q]x ²'[«{I-k9áo šÅZÖø[† ¯µ€ø b¶(¨W7üO'5ëÅÁÿ7ÍNoûÔ
ËÔ™s«Ä¢Mµ>ÞN¼¤ämÏ nóåz ªh8ñåH8•ZAçwf…*M/ ÿd’$7 È ŠR
‹{…ÚÉÞ¸Zõ_>40ô={JJ.>æ#³wœõÒòøKÊ—§ÙD`.ŽLœ»i“ê’¶bÀM›Š-bñ¦ÚMŽ¡5uQ°l:Bî%÷nj/ªõïèÀÐÑÍá½Å[ªaMx H+AZðÆ™íxcÅܪ#BâÆʪ>‚IAíÄêƒ1ÐVuD¤•jÉp-+‰¬„¦bô>¢šÂØZ#µrR…T® ÀHªSøë0ª Þ:AªƒO’ô7Xú²Ý ©Ñû§A[m=A×È” ë'¯ÿ5 ËÉžž Pµ„`œ¢µid
o áyd«•©¬2Ìáž,‚¹=嶶Ä5£îŠ\3
åJß2T‡ºPjFNä†0}mâ¥ãqBMý‰E£tõ _9¸é±la{z„×l=ÄnëÁû‰@ŸÛ–õ÷ ñ å>öPÏ ‚-`˜NL€ GŠÞ¦“ÑYœsMPH±e¥¦eädäÌýŸ aíî‘ëÆ<¢k·"ÛÚkÈÚµèé7\Îr|}åñÏÖ…ôWÎz¦pCÑ”ñO~÷wž_³~뻚 ‚o{yñþ1}Û–tíxþ™º½¹g"ùîïQ³qú›7m—?áêZ;PWšùú…4߬Ú~üÀ¡I3¿m{µ!ƒ¼½ª‘_úé¶÷f¾sþÆÐcÞYºöÙ‚~üà£ï¾jóKùO^=yòÞPBA¨þ´-è:|¬·{Ñ5w¼aÙÓ÷¥vwêï#¦ZÛ´NN=R>efÈOEÒÊ·R¶<ã¼9??ùÇõ+¾ìº9h{˜yÅæüS׎;õJvzá©îß¾î8¹64Û”1åÀ3R?àOìüä¹ìùïþº3»aû™ÊW_|ãS Îr·~Hz>Ø8æàÓe÷¾ÒÑ’›k롧!Lßž!ztáž{w'êN ¡7¥…¯¬¬ŒI2’´öŽ³-»iÁÃ{SÙÙÝåKî¥m‹ý»ªþ—]M´%x,Ÿtµ8Å
·£¥ÝÕÚ(V8;—¸êby[›;%Ý–êím--§•äO,™VRY-æͨ,*LãëÇäd‰—Î!ÉaNJJJæ¥r˜é—õ}ÿYê|+SÿÇ•Û
½ .[ºtéØ%Щ :okIît¶·u¹ÜmË“Ëgä³ñÚ:ÛÇŠuËÅr籉Œþ±Ó* ÍÙ)c` û¿`DA¾X1'”<úϢ݃uêU¤<ã7oú²qÇ“-úþû»ïµçRŸýúÇ—÷þß våž/žH.[ðñ©ðÎ×öæšü´ý¥ Ÿë“¶íš^wã½’%§ñoÚïý "ìÞs´åõçËÞ^ ”|øèiUp©SSdQ=7´{ÇýøµY;ŠO ºµÊR[þʯýº¾×–¨Ú7Z G6¼òÔ?ú^m?(ûg]ßÏzÕ—“;_ØЗ¥|¶"‘ sÃÇ·LIåãø‡ LL¿jFé”)¶mu÷ÞA‚ÖE~mÔqówa Í|å\ê½g?¿ãÂ/ýö^êÎÝK±ýxdÝŽòwö”ä|ýÅ¡ kŸÚ–öù5[¯¯½¹ú.2[?ñ·Øo¿ÐßäY»í¦·IÚu÷Ú
¶µWÛ³±œÆ¦’) qy^N¶2V)r“mlÕµë'ãõ¿a9ƶ [š¿ ÁÁ£›Üîö®qÉÉÿ‹ý• ,"SØdoS³
½ìÄŸ”†éù_ßþÓõ×Ü uôï?ÿie·|cÈ }S›ó^–G]þÎÓ/íÜxnfÁ™¤ý‰wv<÷ÜašûÕ úó1A›º>}oÚÓ“Îw÷h"Ñø3ßÜwCYíÂúõ“>Œï<° êZýéd³kÖ£¡ñé„<œ:ãÍy¹Eç¬[*‹¯yùù}÷Ü{oÈË]¥q¼ÛÖ£Ú
AáÕs¡ûÇkÛwþë}ùƦ:çÿYÍÿg èg:|‡5Å–ž2l0zpÍÿëDü Sè ¶\ï8…®F—›ý!h¡XÐìèêÓÄ$qº«¾³ H¸HÇlG³«ÁávµµŠKRSÔ6%{^HfU¤Úô¬ TÍqt5 ¸ÛZS›ÖË
y¹³¡¥µ!%Ò6JcÐÅá €Æ¶NiX»ú?´ÛÖÞþ/ær3 üf.ß*ùjè ÙÍqÙu>0kÇ
=U~W؃ÿÓð´[ ¯÷ k´krg, è×~wä>]Wá¬ÃߌùÿöèÓ¿U]¿»±BáÖ¾šúSךØð ûÃxb´ûió6ýëûNj&'ÕôåLÈ´ï|hË?NUÏÜßrR1ÓmmÝ_#´^§Ü÷Íø«fÖ”>@0½»GB Ÿ-qTØF*¿Ç¶özVÂÜÚ-`ã×+w~½`°é¦Ÿ²_n ÿ£ºçÎúÿ)îùW×+ŠQÅ*p&›ÑÆ Ã‹Ž_0%ò5Ø]TœÌÆÐ\8.sD {´‡³@µyϘ5ÿ"̨¸³‡¬í¡‡*›\]b½³ÓíZèªw¸¢K\¶éÎ.&½Î…ÎNgk½3Qt´6ˆ.w—ØÝݺÄ.w§«Þݼ\ÕÕ]·ÈYïÝm‰¢»É)^äÇð¸Lngt:êÝÌJÙr;[œn1 (£2»XfçDLJ«ÙQ×Ì(¹t´‹ îqªÿ´ÐñŒê¢¤ú‰0CR§³£ÛÙåî²_Ú¯S]ý /ÝÞD15#'
vÔö<‰*¦·u·º @Õl—si"³µ9 GiªYùЯ}y§«±ÉͼŒ”œœÌ?
'ŠùÍÍb9ëÑ€ÐöÚÙ0V,(*¯Ì/)UÍÉ//Ï/,)ª K*
¦å—L/*óK G82ÓJ¦—€ 3VÅz—–”N'VN.gU‰eÅ-©†+).)ȯ,¡XQY^RP9Z¬˜5qJQA¥XYÆ QÍ.*/©(™T:¢IY©8£<¿ ²¤ žƒ¦•VÙlŠ’ŠŠY0Ÿ˜?«rrY9ТòYá_X2}Æ´ ÍEU3Ê‹**Ä‹«&”L›UÈF¹X«º§•L†¢•eåbqIe){¼òùâŒ| ±`Ö´ürqƬòeE‰Ò$sJ¦MKË*U‹$&M+’ ((+(š9 ˆ/ÉŸ–”–T–Ìö=ã'¶ VU.æOÏŸTT1V¬(*R±u‚¨HcA¯iÀé‚6€Vز¶…–ÅFW „³AlmkebµÐål¨ð*B¾4£®Hå\ÏK½ÄÑÜí»š mn±Î)Ö·ASƒ4ˆ£KtÔ×wwz5pa[g‹¤3ª%^؇ ©Œ‚’ü±ª»3פÿ7jî¯onklÛèZ@3ƒÊõ`( h!¨.uqzðïÁ=ø¾ÿÈ þ?D†‘h */þÇECçÿ µÿ¨½ÈÔ¾ÒÙE' }²SÓSÒÒ3misÿEZ ŸóŽÛµå£ŸºßyïÖ×;þ¼Ÿ=‰8(~ydîŒoÏÎ]²b(:øÚ´ô˳®eß_tÂz`Ñ‹}[cÚ ›Ÿ\ºqâ£ÁéïS¸÷ž
ˆøhÍ×ß>Ñôé{oúìÍëÔ™-Y7Ÿ™¿éëEûå-¯½~èÛs÷<[9çÃТIïÍ?8ç§Ä«ÒƒFÏU–>é{nbøUcÖü²±`èà5³U_4ܶe÷Ü¡ÑｧËK|¶}Ê»{^r§{ɾϵ!{•Ü©/zJÎ34õ‰~JoöÁô&õÏIY.Ó¶ëÏÜ¿ò—–õ·)\×õ(·åÛÇÍÌ-{-ì®kÏÞþ㸷¶Y ÑDèÂV6?wヶӵÇn=½íµë¾ÎH|êÛmí ¿_øF}vòªžŠ‰¡ƒ•WæëÉ^ô0„ãÎBà
â2 Pd'{û¶¥Ù Y %ý¥3S×°tÚôT©lŸìMUÞT9ΛÚÒX¿{ú‹–±ò=ý©ã¼å„o9&6õÊ|܃0LÌb ÄÉò \ ƒÉïéŠð>¦4²Çîî OÕ 'wC»á¹»%ﶫ ÙP&+““³ùYøm·_)Å ¤8OŠ“¥XçkýšÍ.ÅÇ¥øa)N–â<).“â6)–úã3ðý¾ßÀ÷küµÝ€12c! flOÄv3>‚•XÝ—n¾n «íYéf°dæTiâ$3XL³ÂÊ„Éæ$Q …æ,ÌÞÏ*1A
d2±ÿ’”^a À>êÙ0¸! )p^_Â4s¾CG96]&„[ p} æ'0hVDH$ô™Ï'
àÙ}æ?Ì
ÜgþÝ<@°=Ðü›ù´ùWócæŸÍSÌ/$<`>½né3˜8èµ'a€<`×™7›Ë¸Óæeæfs«(55GAbW›ë᡹ sÍUâ ›¥T”f™d†a 1Aca ƘíækÌiIÒ£©ìÑGÌ)æNóX³4]¢wº1^ÚâYòˆy4L-ÍRdž Pfmÿ‡|û>ùö½òí«åÛóåÛÇË·gÊ·gÈ·ÛäÛ“åÛòí±òír£Â Z…F¡R(2§
¤þÓ VöÂ(X"ãXÌIy°˜x_Q¬ h
ê
¤SÉÔŠ‰xjï‰z4µNìý¥Â2€U3çöò–‰¸×0MœÒ›m: *ïͲNí•Ï˜Wuãk«¡¶—l À¨²j ‡²ªuáì éØÕÐu[ÃY:´nku5
^’’g˜ Ï).ü7Q/ ñ ÌK9uÆò#°ËUýróer(V@q;+ngňÞ]S+ªzï¨îMe™¡ˆê©½;+ÄùUGðü`QáüKª«ŽÐD| ¨œÕÓÄÂêê©°5R?û¬ß–@?ÅÛ(õCyŠ·¥~ öö³Hý@ì¼ý‚Ed‘úY‚ÅKúEâ‡X¿–@?ÓÇ(RêiúxD¿ƒG-E…-ÿXG¥>G½cõæJ]Ìfèe–º€ª˜¥.fL¤.Å»$ùºŒ î2Vš‰â‹}ÌÞ>¢¿O ›Éú_}œÖ"“•UhbuÁ|o,´Oö= t½áGÑßè7HmîUY&öª-Q^^ˆô‡Ù2M¯ ªäXïñQ!«Ãrï“zk :À×””Ÿ”Ïš@zY“–½Î÷5…¬ ~ïó5 P‡9FÐévwÃ…¹
‡ÿuù>ݾԦö&TLíÍ›9·ê \^Ôk¯-¬†:›¿N.:á •¹¬’ÒáŽÃuJ¥¯#p㑲D\fÆY@Bµµ H‰FrÐÝeEà ÷°ÂjPXîžúï-ö…W/®!™ !¹
!…Â>EH%ú©‹AÝ„6!ÝóÞ <á
†x„÷zƒqÇžõ†ào0V…À|¡3
«ChTB=E~è
âEíBÈm1{Š]s1ÄÁâ†1@{Â|„¬‰…ÿñðÔ_á¯ðWø+üþ
…¿Â_á¯ðWøÿy`¿Œ%Ÿ7>ðhò] t¹?+BÒ!øîΧŽ³ôð {o<ÿÁ`£â>ùyDÒ÷[ZÄ E¡R؋¸8‚Ðоd©Ç5ô kó´
}J>eƒø‚÷s G[P?Ú ßƒHÀ j@ËÑfø>‰¾F›Ð]è:|u¡è È?† 'íh.ZƒL¨ =l˜B¢U8 ɽ€^A³ÑuCÛp R£PT€:Ñú<}gè;\Œ[æpTˆÊÑ#ô;ô.æÈe|ß5”„xX˳è2
èÖ£ ”…JP)š4Ý´>ƒþŽãù‚¡P²£
˜y9ºÝ^ÄÛˆ“t“{èóü¬¡[†`IâP1rA¯.´Ýë8‹U8?‰?£!Ümž =¿Ý+ ÒQ>*BÝ°š“è%ô ú ý†gá…ÄJ*i;ÇsCÁC‡€æ”Š¦Àw:š…jÑèJàØíè ¹›nñœôü
{@á›Tg¡q°þ¹À«WÐûXCq, 'ã
ìÂ{ðy"'9d-¹‡üJyßLz7=L? Ñ ¸ÉÜ2îs™z(~hêPÓв¡ÝCLJ>žšQ<šcÎG—#¬j)Z‹®Ba·nƒïíh7º=‚Ðt½>BŸ ѯX‹Sñxœ‹âf¼ À‡ñ£ø5ü7RC ä.ò
µÐ¹0÷= â
¹\÷7òd{¶xz^ Òõ
=7ôíÐ pÓ <Ž&¡*䄙סëÐÍ0ãèaÔ ß£èïè è+àœ¾6bŽÁcpNÆ™xž‰çâFìÆËq¾oÇ7ãÛp/îjžÀÏà÷ñ—ø{ü#pØLÔ„ýgà£I"I"cI)i$Èvò 9LŽÁ÷y“¼KþN>#?ß©žáMãèd:…Χmt]NWÓ€Ÿ/Ñ9öOÇÅs‰ÜÕܽÜÃÜkÜ7Ü：¿–ßÉßÄÆ&C2Av™l†¬Ivƒl@öžœÊgÊÊW˯”÷È Q …Eñ êí8+ ñ!óÑè
üúï¥Fò žAîû°–† ÅôVü:?]CrI/žN‚éOx ^‚‚è~|CŽ¼‹Ü}x:š´…,&Ë8 žÃíç±›ûGÉi´—|Ç摹û`¶%á<r¨ÝAŒè%rìBz
Ý!S’í°ïÛP ™Œ2p Ûr}Ú¡ÇyhèÉ ¾›w“;ñ
ú%Ñ Ùx|„Çón´P& µ¸Ÿ”Ò—ðiмc /SqÉÁuh}ŽïŸ“Yh:¹
ÝÍ5òoâ°—òM ˆû˜–Ð…$<†þüy MxM£Ï£ùxhÿ+ÄŠJHº>Ž¿B‡ð\#m*—_ºð ꧓95šˆÑCè ¼¾èannÅ;‡ŠkÐϲ½ÜzÏäF
½èù¾Ÿ:J~@YC/ÒYžF|
zyho'pH €çoÄØ‹‹}¼ä5°M Z^ È5
]Ž¹
¸”‰ãQ)‰F‹I¾\”’f› ÈyÂh´ ý›=Æþ‹
˜i=:"Cr@ %RÁ쀴H‡À1
DF˜9æ 4 ôh Z%‚^E# Š‘´k4èø”€¬(4m,JF6”¨“•2W²Q`Ëx”‹.CP à`>ð¬ дÖ4 MÄœ‚¦ÂÚ¦r–¡h&àlªÞÌFs@{«CæŠÔ Ž, s :ThïD Q#jÄ\„£fàa+jƒ}î ~v!7àãÀœe K+ÐJàó*´p
`ApðjÅõhàÑ5`-62n~oCÛAw èztÚVå&@[0/!Ö X†ö€Ý~ì
Cù}h?º På!t@B–ƒ {ý M‡Û õ¡Ûc 5rôèä @õ§ÀþœÛð,z=–çEØÝ—Aö^E¯¡SèuÀÂ7Ñ[èmôz°ý} §>@ B~ ù)ú':
2ó9ú} øõ5hÍ·è úEߣ Cýý‚~E¿¡ßÑ è<º šáACÒPZ 6E58 V¸§Ç°1F „ƒC ùÃp8 …#p$6cGáhldŒÅq`â!@£'ÇRÚp
è_NÇ ‘Y8çàq~_†'à‡Æ¿à_ñoøwü>/àAìÁC`›0!„~óDV\A”DöJCˆ¬–@ôÄ ˆh$Ah7 &&BBI '£H‰«&’(°lƒn$±$ŽŒ&ñd I _Ãkí’‰¤T’FÒIÉ$Y$|…qd<Ø’ËÈ’Gì$ŸL$¤‘b2‰L&%d
™J¦‘é`+ËÈ 2“”“
RIf‘Ùd©"Õd.™GæƒÍ¿œ, µ`ùëH=i Ÿi!ØÖ&â"‹À5“ÒJÚH;é ¤‹¸Á£ZB–B/'+ÈJrYEV“+É@ë r¹š¬#ëÁ2o$×Md3X±äZ²
,õudº•ì$דÈ.r#¹‰ÜLn!·’ÛÈíä²›ì!w‚ïq7ø?÷’½ä>²ì'÷“ÀÂ?D‡I/9HúH?9ÿò( GÈQòØþÇÉä89Až$O‘§ÉIò y–%ÿ$§Á‡øœ|A¾$_‘¯É7ä[r†|GÎ’ïÁ³ø‘üDΑŸÉ/äWòùüAΓ dxÈÀ=FSB)åÀ“Q9UP%UQ5ÕÐ ª¥:*€_b ’0Ò LM4„†Ò0NGÑIÍT¤Qà·Xh ïe4xchµÒDšDÇÒdj£)4•¦Ñtšþaͦ9t OséetÍ£všO'ÒZH‹h1þO x@Sé4:–Ò2:ƒÎ¤å´‚VÒYt6C«h5øzóÀGª¡—Ó´–:h §
ÔIR°ÆÔEÑÅ´™¶ÐVð£Úií¤]ÔM»éºTò«VЕô
º
ü«+麖öЫèÕt ]O7Ðôº‰n¦[èVz-ÝF·Óë躓^Oo »èô&z3½…ÞJo£·Ó;ènº‡ÞIﶤàƒÒ{é^z ÝG÷ÓûÁ{>DЇi/=Hûh?= Ý#ôQ:@УüØÖîæf¡µµÅѹØÕÚØétww¶Ò–îÚîJ¡eM-\Qwg›¼¡ÅQßÙÖªlc?—®oëtÊZ\
mnY~]§s‰Sæy~[c[«s±ÜáMe…õxJÖàM
»š ]Mò"_'§¯S‘·ÕéM¦9ê»ÝNY³7™æl–nÌÈ5³iK½ÍÞ¤ÔÛ«UJ”e
uÞ§•mþœ¬Ü›túJÞþÞ¤Â[Ù%%ŠÊzgƒ«¹Ù¡pû2²Jo7·”ð³:M|7‹•³†gê ži®7Y!%Ü\Fñ
ˆøIŽ–_Ùät;èŒ&ïhnorð
Îf·Cîlïr5ÃØ]®Æu;ºi{“+ »µÁÇl\é\Vßìha¹Ö®îvg§«SÖîì‚ᔎÎζ¥ÍÎ…n¹”ënWI©ô#PocCÛÒVo®®ÍݤôukhÕ ç꺜ª¶NwÛG³ÆÅ~ÅØå¬g¿U;;º]K Íì׶|S[w—3 6»¹ÑUïhnms«XçÆNG³»}8[çVT§H,Ã2)¾Œm8“æϤú3éþL¶?“ãÏdú3YþL†/“î 'Õÿx†Š ÿÈiþqRý5©þ>©þq2ü¤¦û;§ùÉH ÎøgOõÓ“6œñ7¥û§HžÔ?rªŸÔôáÎþ‘Óýô¤¯Ë?rºÿñŒá#ÕÈ»ÛëšÛêËaYÊ{KÍ ½i§ÛWvw59œ¼ËK©r!8HWÛ2•7× ;.wwº ÝíÞ´ÓWnhõ¦Í eõ®Îúf§ÒÕº¤ÀÃéf9_]W‹ äÐQïZ2\ ]ݲ…Î!ŽE|W;LÎÕ7w×ñMNLÑàr°?R·twù„Ê© ‘©'%Sˆk‘ºÕÁþ{míM Z%½uÖãJÇB—+3%5=ÛŸËΑM† ÏJ“MNÉÎH÷&)R’–¦jkw¶zé—ç{ÁMîð¦ê¶šî–…ÍÎeêú‹y®€)s=Dò"ßNo*+ò¢ SJ¸"ÖÏ ‘zÒˆ‘GŒ4‰õh„H1É7¾ŒzòˆgšF<3¹ÎÑÉ5A$+q»šœ2—”ÈK|´¸|´”xiqy¹Ä¶.oªž2bôEóŠ©~:û2šÅ` œÍŽÖW½bš¿¹ÙŸ)õgZ}ZÔÚHò2 Am>‚ʼµI‰¢Üÿ\§Á#Hê±àJ¶`7[ð,ï‚»½ žå¿Û7þ,ïøÝÞÏò-¸Û·à9#F_:"_="¿übž nìRå3|— °ÔŸ•çyS‡SJÕe’AóæÛ.æ•&´ÍN—C6Àh[êMæxmÃRo¯9
.g§³ËÕ¥\êÏɪ½ —KI@Gwû3fs
ÊNGSç2IÂmÙ9é)Jg—ö 4D ‹u2ÀoÒ¸›`ã¼ù.õB×^Ó#µúêÛÀ 9êënA²4#*xw[k[W€Ÿ*©¤ÊgKÊjŠ¼öJ*(ŠÜÞZeI›/§)“~êím×ÌÑYUÖâlôvÒ» û%3ðÒ ÜD0i|¡d}óps™Ñ„y86?ÕÑÞî ?¡¥®ÁA¦w“ÒnRå’ûæ$3\´¼©¯Li¥£[4¹èŒ.—¦dļ:_£¿¬r\\¤sä"þEºü‹4v_ú¨TÉÕ1♩çV0¢YÑÍl>Ç äK¤7{Ioí&Ë\ %Ý´³©M&Ùÿ¹odZC–ocLÓŒä—îO“kÚFr¼{$Çÿ¯ö¾<ŽêJóVõCË’ü”ß.É–ŒlëÑݲ F6¶Û’,lK~c¹Ô]R·ÔÝ%õò˜°’ 11 ˜0!k !ÀÂäA0„$<™<ˆ'áË2; ™<¼rÜsÎ_·«[² dw¾ý¾ÝuÉõשsÏ=çÜsϽuÛºª6íˆ#mèIãõ¥©u ›òÚT¦´Î¦ÖÙT½M5ØT£M5¥©úZ›²mÔ§mxêl} [‹ÇÖâ±µxm-^[‹×öÔkûçµõymÿ¼¶f¯ÙkköÙš}¶fŸÙgÇÀgÛðÙ6|¶
ŸmÃgÛðÙ6êlu¶:ÛFm£Î¶‘‰Km£Î¶QgÛ¨ËÄÙ®Qoר·kÔÛ5êí
¶W
¶/
¶/
¶/
¶æ[sƒ¹ÁÖÜ`kn´57Úím´m4Ú6m¶FÛF£m£Ñ¶ÑhÛh²m4Ù6šlM¶&ÛF“m£É¶Ñ”iGFKÚÑ6å±);wk}6UgSëlªÞ¦lªÑ¦l ÛFÆçu™¶Y5x ¤—3¾u^Z»Gõ|šŸôþ¸1`†-r˜ 8ä`qW0 ¸qš\tAÆ.6ir$û’‰¸; ñ +bкÝÑGô~gLï7¨FÜÉá¿èæ[q\rã&Y‹'GœôêwÐ\çEŒ°+@÷ 5h8ŽêG]×èc¡¨ƒæ3 Í ˜É¾0E訛N²+D¹xš æÑ… Ñc¡Ę̀1JÑ 1Âü·hù$/[:3í+b]˜¾³"—ß¾â iE0‡¼cŸg°"©, 4ÈY`ARgqÀÈã ¢£ò™²L‚чC#ynK|‚.i„Þ¢sƒ†EäQ{d1:CriÁ<
‰EÙ
”65í“\ê#IQYTÕMÖÍLÙOÒ41 %kRwYT>÷„$3!ÈMH—sÉw„5‡ÚË™˜C>ñ•>ìòs³¯1è³k(FÍè Š±"›%ïùCqÂÄaþŽ"P “Ù|Ÿ“Œ†¼µÞy½R^·Èk«¼n¶®õò¾¾M^e½zY¯>-‡úmµµ-òz¥¼n–×t9ôµµµmvuÍXÔe{€IFgmm ƒŸÁ`¨gh`hšM+¶¾P”V§AÓ ÒûÌ£,á©eð1x¸ªgÝ\[khk™G%^n€¼4
ri™ ©#—5AÄÙL#ƒÎ`ègu^†:vÇÃîxXÎÓÄÀ vÛ¸†—ò²?^oÆ,r-W2L¬mÿ#lŽ²nŸ—yÙš—yÙ!ï:öÊË^yÙ+/;îe_¼ì‹}¡§~KZ_žž¦ò[ìHæë6YÜ’ùx ïŠõ©Œ, 4*[Œ¹Y¶â¹ú4Ìl]è«l]`ÌÉ’H{>G¿7Ãú¿9ë㉞E[|ø%ù ‹,¾íI‘>ù^Öƒ² èB‹Ÿ6[¨OºÍkµ)›—ßš‰sF¿»Õú˜gi-ndc*£ujÔ©Qo.êÆtQoucjÔ[§‰ºq!/[¦m!›ÌÛfG!dS]6eÚµ»2µÍŒw]S›nNetM…95]ÓÅÂœ.]ScaNE×4±0§‰æ5ëc´™!Á…Sd!¸¶…æ¤[«Œ[u@Î7mm¦™}—×cSIÛŸžŒÂd†ìɸ–Ì=/“/{&{™œìeOÆËdÆËžI^&'y¹ß¦Æl/÷gŽeFÇ~ktŒYÿ BOŽZÏæ-òÚ*¯mÖuK¼zäÕ+¯>y“×uòZ/¯
òÚ(¯MòÚ"¯WÊ+ždô1Ä+¯>y—×yÕåµO^ýò°®º¬¯Ëúº!¯ýÖµ¯V^=ò*åû¤|_£¼6É«´×gÙó4Zz¼ëd¹!å&ì:à7ä¸Ýn—‹À“Ãÿì#‡·—Ë\D¬q»Ü·ºs\9tWà:árYånw!Ë.u7Õžq—ºëÜîùîÙw6Þî&}TÛåÎRj©ÍºeË?`‰Z"”œ6æ¥TEq+t Êþ^Ю òUq§ÞN¹U·Kaq… ¤:\|ää¤ýYñ«7ÿ¤Ü®¸Ï¥RJ˽äö ¶â"å)÷9§Ó©(K×(J5ý°ZE’tÔÚ7¥k‰²d!SKn_r»¢Ôp±K™Ëod°Ž…×) •… •?ï
^:rÅ5àxdÁ]³‰µ0Ë#:–ÒîפðÓD¼"ò¥ì)ûY-NÜ© Þ¢ùG)œb~ÉìÅóV)Ê*eI5YSýy,½PY gV-G(V)ª2[)õ(ËÁ+¥ËÊä¯å0ÕV”i¤cžR½®W)sJ¥¤ŒØªU:~*Êß*ÍÜ–2Ykµª4*¸Œ
YtÎÔ0ÍKŽÙt²‹Œü‡ÏäÓœùªJ•æ2IÑ :&·Ñd9’X;m7üDɳºôÏ?š\îö³¦iMSNiöOž’þ)p¸k”ô«?n–ç뇣¹b5‚8grF(Ø©™³ñü±9÷é‰WÿÔžûeQ*r¦î*âï2À¹ÄÚÙ™sŽîˆÊS…3çuëõ©¨Å»2N(ŸUîR QN+)u¿ú¼ú‚úªCq8 yŽŽ8nr wÜåø±³ÀÙå<äìuÞê¼Ýy§ó ç×O8_q¾íú¶ëû®ß¸þmÙÇ—ÕŠ´yÚ2L«ÐªµZͧךµÚÍÔ>ªÝ«}Y{¨ÔU:§t~iYiEiuiwéáÒÏ•Þ_¦–¹ËŠÊf—Í+[T¶¼¬²lMÙÖ2½ÌX¡®(^QZ.ÊÕò‚òâò¹å Ê—”¯,_[^WÞ\ .¿®üúòÊ—ßZ~WùCå_+¼üÉògÊXþ“òWÊÿ±¢¹bSÅ•G*üýCo¹ÞUßõL¨ÚDýDóÄƉ–‰-])š)(š8‰œT¾ªüHùŸç(/;„ ë)ŸvÜãTœ…ÎÎÃÎ[œ·9ïpÞí|Øù˜óeç[®G\O¸~êzwÙuËNjÚ DÓ(«)^IF`"pEàÁIØ]z°ô;³( Ë–É ) ÚE"p• [ÊO–?hGàEŠÀËõvŒŠAÞ ù®sB¡¬žh¤lšØ<ÑÆH½)„Z™š« Vv*ßOVŽq¾ˆâR!fP|ÜçNÒ}ˆsèüšó«ÏWž¿LˆTqª0•ŸçÏýüÏνzîô¹Ÿžûá›W ñËÓV¾þq:?÷ÆÁׯýì÷¿>Jwߢó:ozýÚ7’¯
¾6öúão<ýú§_»ÿµÛÎÜvæî3ŸâÌ}\÷µ’3#gzé®ö̦3¾3+O·n=Ý|ºétýißéÚÓ•§ËN/>=÷´2þÎø?¿5þ«qÞ,ÆŸÿÎøSãdeüÙñ/u¼uüÊñ–ñ•ãeã¥ãË=Í1ëz*羜;s¾ó×9wä|>ç¯ Ö¾çó“wå©[ç¤ûÇÔ3öøZ+.r8Ñù¢ãÇŠ‚ã̤’ ó—ÖyÑÚÇ'ÿu0î^ øpÜí¸×¦O^Tê¦éÙâ Þ}§ž·‰ŸŸŸwŠÄ½¢XÜDáù˜¸;Ùn·‹Ä÷Äiñ/â‹âAñ?Ä¿Šw‹‡ÄÄsâ+Øx‹ˆ…!ž/ˆ Ë}t¿ýâ%ì¥{X ˆwÄgÄß‹Ÿ‰S"(Þÿ$nƒ"$†DD„ETœ¦ÃØ1˜ ì|K ׈1ñâZñañ-q—ø¨øö
þFüwñmìSéáT\¼·.½gŒ÷ØÑj"GÉ©IûÇÒ;îîVîá]yï·—LüQü {Ô2{Êx¯ ï+“ûõx öìñ>3Þ·w|Òn³eïDÄN>Þy–ÞÍ÷¬ò öþR¼iï웺#-½Ó/kgšx<½ï÷ *¼3ñ5¹/ñŒø…xUîB;-÷¡ev¡±÷¡½ØN4¥jº½hJµ:OÏ» §Ývœw¤ñ¾Cu…âSWNÙ•vƒz#væü_°ûˆ÷õeï@â½£êMJ öŽ~_ùö‘>#þR|W|{½ÞÅn¯ô>¯ßªÿ*~§üZ}Ú1[<)>/þ™ÆÊ—Äg•+Ä ¥E9*w6ŽŠÇ”ónAìüšçÈÉìs, çÍ ÇBG¾c‘cæ¤^ŽË²v{ÎÚßeí÷š•ÙçEÏv·° úüîÕÚ…<é B‡“–ç¹yù3
fÏš=gî¼ù% .Z¼dé²åZiÙŠ•å«.«\½fmUuMÇë«[WßÐØ´þòæ
¯ØÔråæ-m Úºm{{G玮«vîÚÝݳgï¾ý ºúpï]ôùFÿ@048ŽDÍá‘X<‘<:zlìš¿øðµ ùèuÿé/?výÇ?ñÉn¼éSÇoþô‰[>óÙ[ÿóçn»ý¯>Ç_áÎ/þ—“wÝ}Ͻ_ºïË÷?ðàu<ô•‡¿úÈß|íëßøæ£ßzìÛ?ñäß>õ§¿û½ï?óìsÏÿà…øw?úñO~*^úÙ©¿ÿùûÅ˯üÃøéWϼvi•si•si•si•si•si•si•óÿâ*ÇZÇÌ])Çþ!òrçÓ_™â¿kN ‡ò[¦•ßƒ> z‚QU˜£æ‹çŠ¹© X) TºR4€nJ \O¥+Isöƒ> <”z‡ðQ’¯¤Zã„EçÿH8 ¸’äkÀ¯¶h«!mß lNm!<„ÒG‰ïƒ] 4ø Á
ë¨î8ap=°™$DihÅÀYÀ¥$ß –W½$ß ¶ ´
¸ØAž7ˆ] { ¹ô>Ѐ‡›È
c1Yl"+L/%Md…q%yÞDú¹t+°ü] {@ïrKד¶oƒžz%è-À@öqkF›I>H8 ôRªÕLÖÙz3ÕåÒ ;PkèÝÀnà>Èï'ÜFÙÝ!zHó Bö¤žô€¿ íÝ– €Ì¢OˆCà ÿ›â›$ÿ(yx‚pix9ðŒZ•rÖ§–vœ‡pçù_v§–*k¨giV¢žå¹éâ%³©
CXDXE¥ÐüÅœ*pjoê”R£ÎO®L=Kxœ8µjYêÅ«T§Þ$¬z€>FµXÔ€eÀ
àB 4û ÙÍ>hþ-g,ͽkS·V¥nT~«º˜VóRM„ùçÿHX亿U—©Ç•ßÁóßÁóß“o'k€ ÈÏ¢ßSKƒ„ŒÆb.Ug“žß«s€ €‹€‹K$W‰AÂJ¢ÿ »€Ý³ðÿ,÷ =1¸gÑŠ³hÅY´â,Zq8‹VœE+΢Ð0º¨5Z¨5ÁµTA¥_$¬J}Œ°:õk èc¤º$Cíbº¸¸ ¨+€•À5„
UaëôtsÉ:!Y'dë.šýÞ&< œ`ä\"¤8R Ô ÎLÂYŒ m FŽ¶šK½ÿ”šGùßFX œ¤Ù†p#ù0NX¬æRjã“„µ =@ ú”ð,j±•<χçùœ„”„s€ó €‹€‹Kä)' )'i
RAüÔ§ãjYÿ9a
Ðô1’F
X¬®!œ‰Þœ‰Þ,‚ÿEð¿þÁÿ"ø_ÿ‹àü/‚ÿEð¿>Áç"ø\Ÿ‹às|.‚ϳxVQKÈÖ „5©g k)ÃKÈ"s¼©Oú˜&ýŒ³¸”¬ÜL8ŸåÉÓ A/½ ´–º‚pä+Pw•!¬½ü5 “•ÅS‹1¦cL-ƘZŒÑ´˜FÓ³„Ë8e +@Wy4-á’°èúR¯Ðʯ˜iÊçK@/jÀ2à
”V€¾ t%èÕ iU—Cÿrè_ýËy¦5e1°¸ ¨Ë€¬G£x"¯4žy JœRž™i=J³±º’ô¿JXô }Œ¤Ÿ±¨Ë€ÀJàÂ
h«€•
X©€æJð+Á¯¿ü5à¯
økÀ¯¦ñå#œ|€z¶Z·Cg;âÓNš™ÃÙØN:Oî$ Ú‘óíˆF;"ÖŽhtP’7”ŒÜ–´¥¶:ÿ ê&ªÕ‹ °Ø¡¶³¥;ÀÙ‹Òýà ÿø½À>` h ûA`8 F€&0LÇ;Éÿ#„³€<‚:ÉBø߉Xuª-äU'Fn'¢Ý‰Lî„·ä'ó¯ Fi/è# u` 0 4(g:ɦ€Aȇ@‡À1AcÀ8ðûtùy3áFê ä!ÓmàwP‹v`¶Ü¬Þ±Ù¸ƒ|8¥v¡Gº¨ 'lr_tÁŸ.ÌfWQo!ì¥1{•$ÜM Æ^Ò¹ã¢3y7fÂ=D»Õ=äÕ}„Üû{(‡o&láRÄpyȸ•2vÙeì
{(ßXr'Íf{( X~?•îÅ(ÛKz^"lg+ÙÝKíª"ìB)·k/ÍÃÌ9‚Ò~ ÏÆûàÏ>Òs3!Ö}ˆÕ>äü>Ì û0ïÃÈÝG>Ü« ¾;EÈ#÷ zç òê eþ(!Ï1ó D_ DT"n‘{1K T@î¯CÈíCxZ ¢laºx¨9ÃQ†0 èAiœjÅ!Ò/áq®&ýoó€½@ h ûAàk ƈîEÝ^ÔíE‹zQ·þô¢n/jõ“^xÒ‹gk/µ÷>Bö爦˜ An Á,qDMC¿Ž¶ë°¢ÃC ¶tDO‡ êhµ+:¬èЯ#žÌÒø€Å lh‹È÷Ãÿ~Èôƒß=ýè» b „LÖƒ°Ä, $
÷Z’ ¥Aø9ùAÈÂÛAÔD¢Ö j
¢Ç‡PkÖ‡ y¾
Q+N‘ßEÄÓüCˆø„™0j…a+ [aØ
#2aÌa´+Œ| Ãb#¤s”p#E©ŠGD9Áó+ŠèE1Š£Ð ¥ÑÍt4·Â„?&úÈ„'&¬›°k"M)ÉÖ‡ñtF¿ÇAlj®R’Ìvu-…QŠÃK„ìí1ð 1<Ÿ VÜL8‹ðÐ7Hú’¼ž•§ÔãXE Ç*ú8VÑDZŠ>ŽUôq¬¢cý| ëçãX“ ç8~Ûù$Áâ€p U‹Ñ#„ºÚ}pàw£½Îkän©ôoI øßÅ|~_hU¸Þ±wU…]OKÚ)¸×JÚ%¸ÎIÚ-–¸·H:G<ã>"é\Q‘óˆ¤óÄM3_–t¾ó{°Ìô ÑWØ'éÑ_øŒ¤gº¿‘³RÒ…âPÑjû—¼ -ú„¤á*.—´*ܳ¯•´CÔÏî—´SÌþ‚¤]D_/i·(œ}¿¤sDßìG%+æÌ9,é<Ñ:?&é|U/vIz†ðÌÿ–¤ „oþ[’žé80g¤ EuÉbÞ…æ䨖ôHÚ)•líß”4óý Ý ÿ’%M1/¹tøwIšùŸ þw%Íüo‚ΓýkÑVÿZ´Õ¿mõ¯E[ýkÑVÿZ´Õ¿mõ¯E[ýkÑVÿZ´Õ¿mõ¯E[ýkÑVÿZ´Õ¿LçgÅ*?+V3ˆ?W¶}ñ5ÙöÎð’W$íKJ~ºø¹%¿“´“ê¾
º˜õ/È“4ëÿè9à¯4ñ”€ž›ó¹Y1Ÿù
’fyèùàï•4óÛA/d= F$Mz CþFI³¼Õ×K³ì.Ͳ» zî‘4ë¹ ôJèyBÒ¬ç« WƒÿsI3ÿÐUÐó/’f=o2›ÿܬøçfµ+7«]YòYòYýRî—n1&†ñÞ4]ø骉èìAÐø.1S$¤”&6Ó]ŒhFø!HhÄ Sýj¢¶€¯ÿojª±=ÓÄn|ë}Ò–‰ã;Ï¢ÒžG4ÑO¨’”ܪÁ߶‹êðᨵ‹ôÅ錉£„ø¥2CDlObdW#)]Z²äC!
o˜‹CcT¬…•Ì·°ù¥.8VÍ4r ‚ä}Cx Ka‹£žâh¡ u(B _Ù'>„d[†¡›=òë8¬q ËpµüOš Ù^… ŸßŠÅý(t¥uCÊšÐeÙNóÃÐñÓ™©r Òi *!ºZºý’“D¤¹¯2Yb¢_bˆhõÙSÎŽˆ¬•¶àGý£ÒjH¶”ˬhf¢ÐO’¬Íâfâ’Ñ5eKBOâ.Ó«qdlÞMŸé‘·Ûbàí¬/£#Fv†¤·ºŒ¿ 9ɼOÇ, ÛàZõGñFC«Y&Œ÷Ár
“p€ÊŽÊh[2cYG_YÙ¡!†~Ùþz- ™aŒ3+£¨iµ$;»CvfiT~LöLÞpnZý—#9lûÁÝXVfLžoâSÚç—6ú !‰H&å¦!FˆŸŽ,ç¶ßna?r[C ClãÈ»zcÀîuöÝï<–ÖÚ£).³LÏškÖÊ18@ç5¨oyÍzý(Ídše=€h
c”ŒÙHÛæú£(׉˜´ÁcÈŠbõÓ §µ#‡"˜CÓ¾U_0¯®ŸÔk<ß
ÿux–ýM‘üv_Ëzzæ噓gRM\FzY&†ÑaªÊ‹~çd†_5‰ßIc!Sö0ÆFLÎx4dçÅÿêsÂêË9{rNÌÌm–Ö z†hâ*Ô×Dìuv‘í~d{:ÊœÏqôPPj«Æ;H»©emtn¦1ÝE\®ßFØ~+qvò¸ùE¾•~:Áí3E>Îndz|šq Ù|Ëc«·‡e>dÆÏ…ñ±ž“&Å †Œ
B:ÝžôÓ"ƒ}( #ù¤mÓoÏ»Vì’¨›™/
9¢xVËÌñÖÜ’óy\Î7ÐbØó5Çv¿´Æ3ÏQ9Ï÷ÙOJËfâ="“ÎÀQ{æ4äl`Øã-†¹-!çš~9V¦‹Wz†àˆYZ23Ì…ö2¿8—û0k[^÷Éž‰JÍÓõÐ*´jr¤¬§Å…Yq¡åô¼Ë3¬ŽU¿ë6,£ —óÛÅlW#÷£YÏ€± úÂ+ ì‘c=Ytx4ŒÈò³Îú~Ù÷ïsMæb4kÞMÛåÑ @¤CYO¸XÖ*m- ËÊÛ̺â½#ÅÞE ?Wæ$}£èÿ!ôföl’ž»3’&ÉZóLgýA»=–_ÙÙ ‘³½kT
Ëüˆ]$‡Þ«E™ü؆¶_Øséu!?
¹z´ZcEýèÕè”>ˆM‰wF3·ÏÄÓ" çÕ£X·NZù½ï§õÅäÚ4$WÛÓ0/ìG+Z™Õ´ :/ Çé ӧĺÿÏò6å -L^‹LöÈ+ì=GÓø)ÓBÜ* ƒ Á¾1mÌLrM?ç.y‡—AZIN©†Œ§l Qž“¸Î/å¼®ÖöSµ NIeöñ ¤š‰IÎp G99
Jƒûß.KYÓO½’ñ‹Â 0 ‚„±ëQGÓXèK&H5¹iÒøÌjЪxÚ)v(ìÊœ»ÚQ=œÔû(_õ8å[víj'Š0–n…Mw
]‹þPÈaË5Šb¹Ëuõ@ Ä}Li‚—KQ;†Øb®˜âT8 qƒÈäFÍØPÜJyd7˜æ(åL²/ âd
°.+ÜJ{òŸºjxL³†‚ŒÐdCˆÇ¶þLãx. IòËBÉ Í¢~#•-ˆI¿! šÉp€rõhȵ&¿ šÏrÔ“Í'Ì„i·‘ÜÂ4íOdú˜¦K¯û§W —í
r‘ŠÈŽžXÏ=»[´*í²Æº†JÁÓXÅ/ÎËëi'fÇSWGØàkÐê×5kš™ L$†××ÔŒŽŽVGÒ ï7#ÙcÂжÄôQŽ
ArŠ4í2ûh„î Ṳ̀©-ÒXÈ ÒµÝºõJnz–5z/¢»&˜ˆ„k"‰¨ 1j"ñ^ç‰jf~À
£F˜¸ÆûWá»GHOúÏ‘ÍXfDZðÕ'• ¡äñÏ)±êdóÛ³ø&–ÏÉìrÇIÇŽ‡ _w|Ûñ7ùëãAvÙe']S|6³ìLßþP>ocX¾Oµþ†\îLÒæ\äÜìÜälq6:½Óèš&2JÝ’¡I5®¦¢ãCJtŠÇQù%0¿•]ÒJº®Á²^ǯ•ôW_Ê'§ú øŠú`êÖ÷’sÆ•šú—d·ÄcÙWü*tOê®=b¿ëyñ8Qþ¦¸ÚÝ$žÇ¯S›(H¶-±Ëý 8@r«®Ø‡ëóâÑ·Hú¹äK<õ©ó€õëY':Lç Ù¼š®ëèÜ¢ðMqÜ Ü"\ôÉð—O,SãzÀñ’èWgçºÔn§ªªy*}hËÿdvmþ_ú°¬¥Î¹Nß«ør6*_Û$”ï¼ö!þ 4˜Õ>endstream
endobj
642 0 obj
27386
endobj
643 0 obj
55826
endobj
77 0 obj
<>
endobj
645 0 obj
<>
stream
xÚ]Ô]‹Ú@Æñû|ŠéEa{aMæœ3ã‚Ë–Ò½h»¬Û—q+Ô$D½ðÛ7Î_¶PAá!“øüŽx>~xÞ. º¡I ù\º—t ÎS›ßë±X>>}yê÷'·|ž†v›Nn·ï»évÆ5émß•wݾ=ÝRþl·›·—ã) žúÝP¬×nù2_<ž¦‹»Ëßø©Xþœº4íû7w÷ëq;çíy ÿ¤CêO®,6×¥Ýü ¹ËúÜò¡û6´‹ùè¿ ¯—19ŸsE‡vèÒq¬Û4Õý[*ÖåüÚ¸õ×ùµ)Rßýw}¥ÜÖìÚßõ”Û|¼,½ßäHBªI‘ÔV¤–tOÚ‘Úœª’Ô‘*R"yÒŽ$9IIRRE¢™Ð¬¢™Ð¬Š$%HFº'ÁPa ÁPu¤š„HyD‚È#D ƒbðƒÇ <Åà1(A1x ŠÁcP ƒbðƒÇ æ‘çÔ)"A¤ˆ‘"~#å7|†Oð>ÁgøŸá|†Oð>ÁgøŸá|†Oð>Ágø”žFO¥Y ™Ò,ÐLih¦4 4Sšš)ÍÍ”ffJ³@3¥Y ™Ò,Üš1ùÀä•É&oL>0ycòÉ¢€È˜|dò†/â3|Ÿá‹ø _Ägø">Ãñ¾ˆÏðE|†/â3|Ÿá‹ø¢ˆhÅSjîk®ý«å¤$N6”OV1'«Ë¼¸nêºÂ® ö}-¶çiš7fÞÂy'^·á¾Oï‹z Æë]ùýw¬^Çendstream
endobj
646 0 obj
582
endobj
644 0 obj
<>
/FontDescriptor 647 0 R
/W [
0[750.0]5[354.98046875 556.152]10[190.91796875 333.008 333.008]15[277.83203125 333.008 277.832 277.832 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 277.832]31[583.984375 583.984 583.984]35[1015.13671875 666.992 666.992 722.168 722.168 666.992 610.84 777.832 722.168 277.832 500 666.992 556.152 833.008 722.168 777.832 666.992 777.832 722.168 666.992 610.84 722.168 666.992 943.848 666.992 666.992 610.84]66[556.15234375]68[556.15234375 556.152 500 556.152 556.152 277.832 556.152 556.152 222.168 222.168 500 222.168 833.008 556.152 556.152 556.152 556.152 333.008 500 277.832 556.152 500 722.168 500 500 500 333.984]96[333.984375]139[736.81640625]179[333.0078125 333.008]182[222.16796875]374[604.00390625]
]
/BaseFont/GFEDCB+ArialMT
>>
endobj
647 0 obj
<>
endobj
648 0 obj
<>
stream
xÚì½ tTEþ?ZË»w÷í}M§;Iw–f d£!šË°É e
Ò²ƒ(aSQ$(*jÔÁ]Á T!`DfŒ£ãÂè ®8*3ƒ¸ÌDEt^UuwˆÎüßûýÏ;çóÞy nݺ·oß[UßíóýÖ·. Ü@ »úaƒ‡ ½¤0µ 8•ž}rĸñC•Í@=×5¾ãšóÑã"z\=lÜ„_½üÓ·é1½^yz‹( è2ýÞ˜{ÙÕs^ ¼“ û ¸Æ1gñÜEo_Ýp? ë{ ^>xÜðaEçýô% ·>@àÚÅKf/¾(}àk ¶ÒëÕÎË®˜9“°› zÌ›=cÖ ïÓû Ìž?sŲÈÝe^A¯¥÷+_|ÅÒe·ýáu z€£Æ» iöéZ ÝôX¼m ½£ÂÑ `¨–þ¾h梋¿4ô§ÇÓð.X8{Éå53’Õ VÐ>¹§/šqÕbm˜¾Àá´½ rùŒE³Û¾Ÿ=€ h™·hÙUã¯éü€³hÿ%cÇõî«Þw!€×¥×Olluù àG_¡ã ¢¡S £Ÿ0ËX¦¥ŠuZ:°` ÄAZÏÇ´,Æ´-x IÏ_‹WÑúj¼ Ü„›h}
ÞHë·â´þ#>Kë”LXBKYPhiè=—à¦å(a €Â\a>€¤L¼ @q‰xo#ßf,™q)mÈ[KÐq ¤×ΣWóïG£— PRˆ` &ûèqdà’ù3.‹ä>ôê:Ó/uQy9½
dï«‚óÁ£Ù»ËôŽ xQè7 #@ÇÓ½ÈEþvF uyþÒ+.}yÙoþåó—óÍž5 ž3ÿò`/ë/›?w˜¸„îÀ%Ù'²fïÄJÌK—„SB¤ÏbGôÀJÀP¸«d¼ô°ÜÆ éyD7:Bìˆ|Þí¬°¸@ÌÃw±;‹ùbDŒvûö90 Gq)î+ðø|¾?€7ãÇðSx7~¿„_ƿïã·ð;øþ‚?ÇÇ_âп H))#£H=O&“©d:™Eæ‘ËÈb²Œ\E®%’'ÉÓä9²‹´VzåoÈ+ä÷ä
r ¢û÷ÉÇäSòWòùš´“‘ ÉO¤C„"ÑBF‰n ƒâB±Z¬//çЧ|VŒ{â>¸
ß„oÇ›ð}ø!ü~?÷àñoð+ø÷ø
|ÿ ¿?ÆŸâ¿â/ð×´ÿ"%¤AÆ‹ÈD2…\B.%sÈr9YBV•d yœl%Ï’´{É>òy™üŽ¼NÞ"ï?‘CäCò ùœü|IþA¾#?“3¤SÄ¢$j¢]tŠ^ÑOǶRì/N§‹³~1¸ —ãJ|oÄwâ{ñƒx ~ oÅ-¸ïÇmø þ~¿‹ßà á¿à#ø(þ
ÿ“þ #œ £É…di )2ƒÌ&óÉ"ÒH–“«É*òyŠ†¿¡ßâãø{|ŸÂ§ñYÞ¯óH H‘!dNF’±d ™D.&ÓÈL2—,$W¥äJr
YMÖÈd=¹‰ÜBn%·“;È]d¹‡ÜG ‘ÍäòÙF¶“ç)Í^ ã°Ÿ´‘äämò.ù3y|Dþ".%GÉWäŸä89AN‘³"QuÑ ¢Kô‰1œ‘d±PŒ‰Åb©˜{Š½Å>b…X%&Åb8P $¦Äâl:J·qª&²t]ƒoÀ7âõ”¾·R
ßÕÆÛð3x;ÞñIëvü þÕáÿÆ?á3||jÉùÄ$¿"ƒÉPrÁÿ \GšÈõd-YG6›ÉFri&w’_“»É½ä~ò yøÿŸØº8%/;>b‘KÄ2±‡ØK,ûRêGyè|Ñõÿ}N"GþNú“Š%'Aˆ(r€Å`Ø^ï‚Ãà(øœ¢g= â è úQ¤1Œ õ#aªõ¿ÉìÅ|ü#ÅF×ãÓr-þ‰–ðZÞ&^©WÒr x--‰hy G>zß"PÊA5¨Å'ù Nñ;œæw8Ëïp5¿Ã5ü«ø nâw xC¼Ž]Ák«»jM]µ5]µë»j7tÕÖvÕnÌÖTŠŽjq µ9„Z ETéI™ýù^Và¢#acBñ$BÿÂÃhù=¾€–?àá´tˆS©F¯³°ªÂŠ:+0Û*Ü…8êŽâBg;£ÎèÜIÛ^ ‘þöžt÷$8`Ò=“¶¿5zÒoOº{búµIËaÿ‘éßûáÓ›àÂMp{z Û6¥7mJO„O§'¢:Hý&0…˜sRÜt‚!ù–ºk"°"¸@d² YL/ð ‹oe²4e ½G·÷)´“UQ÷@T
[÷ìa¾õAázÚz b¦±ÆÖfš¸[è÷[ÞÊ“)Î-™Fí;xð ÷;¿DIJ ƽpçg»\IÔÚù™q%ïÁQmFx€Th)ßÑëTü@_Qºm£v¯¤w¦ÕndhÀ¤'Eå†Ñ"‘pÃ
·5§'ûÉ?O»˜Þ™@õŽ´Q~ȃžGhÐøɦ ĶX¼T~ÅiÏ*¦Ÿ_± ]§¥ÎÎÞ”ðiqö‡õ(ø¼øŸw:Aï$²; £\Ä+ßš~MÙ-
vºÎJv®ë–çîÙ"FüFˆ²å.Ñ~Ûyxèæ ›óˆy© ®G´
¶7¬D‘4 â å á ïœêžê¿(¸PZ¨Ít^æ^èŸ ¼])®ÐVÚÖ‹÷Jwoø£Ä´Ol®æ.UÌhae¹bP;Ðœo_Êô™i¥g#À¤× ~ý–¬B£Ec¢=ÛL˜j)Ð} Ýœ†£º¢¯Çã Ì/dž§¢oµÝˆHâ„…‡¶¬ØµìW =òÞÕw¼¸íÚk·m»îÚ)t
ð¼g§íNw N§Ó¿Û~ï ð¡ô=ß ‡óà‚oç¯c¼ò9%àJ;ì0#˜Ù¦…Âjt;ºOž D‚°B Žà›*o½Êú WÉG¸tÓÊ7¦4Ä j奣lú¹r4áô èĤÖäF¢œÀEpˆøµ}°Þ2¢Ñ˜ ã’È|è³’ ®Î›„vfS •ˆÚEQª¢RXδ <4þž¿õ^&\sþµùÏ
{së[-åe‰ö- _Ïò’b7,>§Sœ`a¬d·óÊ·¦b´v‘0cQ/» f߆CVúMXg-·¢—L ©^o$ß°#É§Ú ÷{Yyông-c後yQ×u‡ñšŠÍŽrÏ9bj'šv±sì޻虨hšàeÚ‘â{ãgö<ö4þ0³z RÀ*¾$½.¿’†ë
úxëB}–u¥c¥ó&Ç~Ç/‚ÇúËÚ N4BFž6Äßv e~™îJ@X5dQ|3p…B9 ÚB„°%l´¢ÇwµC{+ôía= |8léêRï!:ÚŒ×áKh
Åfìgêö=uhºFÚ‡Š($¹ýù ³S½r2ÁÔ U. µuí ©£v£,-Ö[{%¬TÕd4-ÈI@?‚©%
1w4^C)^]]UIYŸ+a*T S&J‚t¶ycÝÿÝÖû®¹þAø¢óÔŸ¼à©W Þ¾}`í̶ë|1gá]Þì|ção¶O~zÿãfô¡œ2±ó˜à¡œ’€
YÂi~ŸÉÆß±jB§°´PµØt[XUKÝá.
‘RK¡E÷ù©ù‹Œù#RœQ‘] ïÍ´ÏÁÞì8’uuÔˆ´Súµ¿f¼æH}ÙÆèWB, ËË:‹0Ä>ɾ"ˆ/ò\f,pÍò,·\íZg¹ÙuSð ‹J"˜ó¦[¬‚és!#‹I;ðôR`U-ºî|ûÐãÀæ™Å´•„6ÓâX:-rEE|Œ“#MÒÒ8×MqâF ÑŸx}oîék…ývùÁ}° 5$m¦vN[õh…w>ŸSXœŠLgH¤2z«ã(cNj'=3䤢J H¥668kåüþþIPVœ>kY +å¤\ÛGõ¦Òa8U·Ãé|ÓjsY.«ÍBEÄt²†˜Ö-hZm¦fõ‚M€‡˜øPfFXóìÓŒ+ŒÕÆí†`P!ñq!ñAà3|È—_sı VÜD™ªß.ëžÿ&,ù?–sâ’bˆ’ÊïhŠú')ªŽ®—{%¥"àŠë<ØHÑÖÏĆʊ“¹$T^€Û%Q$Ÿð÷}—]ß²}ã¤%ÛnC w¼0ví mP^vë‰?tÀ&ãæ[áÒˆÂ> Óflé»ôÒ—¨´¢¹¦‘Xj3#TvlØ ²µÂ;ööõ-ÝI]gúý®¢¥î.—Æmº‘»¹O—Ks‚Êþ‰ŒÊkÏö-Å;—
kõË~(²k
0 ¯ªÌ¹ ôŒÓÕMZº‹\°ø²c/·}³pÑú[Ó'?þ8}òŽK×-œwãMsænè?¼yÜšÛ¯_ý–Þ»`ËáϷ̹§´Ç
û;„m·¿ÇÏ[{ô™ëמí Ý<öɦëŸÞšóeO†©V|.Ko-Ÿš€˜€“œ Ìpíäc.N £¨ÏÎIj瞎Ýgï‘ÐJÂ,²1ÖŠV¨‡ÃH‹A½
È,MÑlT$R}¹éˆR›±ŸÁ´è§¿ïò$º5âœí4˸ñ´s.þ_<õçÏúÅ£zwYÙ?0Êc^ì™T8_æY˜[¸2°*¼1pKø~϶ÀþÀ7žc‘“çyž‡=Û=¸é,3»[H™Éˆ‘’ðXë4fdCì‘ðP}F%·°FäïƒI Qlÿ¹YmîÁôt SÓö.^²›vdoN¼Þ m2Vjïn;sj¤aª!k)ÏGU•ÅLÛÒ= Ìä°s—99˸9/-Þî¹vƸUõÕ°ú¥E{ÏBéµÛÛ¯Yù¯GŸ=ŒÞzbÙU»¶]»ê8ÎXyù¨Õ -Ö}Bù£Ï¡qúïéïÓ_¦w?÷2®|`ï7R•KyæEêþ¬â<’ÜâDIAb€k¡(¨¨–‘Çüˆœ-52ýI½N‡L¤úèöâÁƒqÃÁƒgŸ:xþb1ø›0@ø ÁS¿ 7QwœˆXFä%4…žÄhÊ.dŠû`=…§õ¦<Ÿ‰( µÜE_.MšÂ‡°–inàï ÝN?¾€‘y8ƒè€jnè†Ð½¿u6Z³Þ¿;} ýÊnÖ»%ð¡¿ òÞ
3‹‰I1 cI1AcÔ¨lFï „^& @¿ÌžIøLx‹ö•EÏjù“Ô`0ÙV1”úŸí‡ÿÀ6|ÉÖŽ¶‚_ö¸ Ý.P¬ ):G¬Ç´ÇÄ„¬Ç$Ócñ™Æµ"ÈI¶ÇÇR´¿µ£ÛY—ÿK!¬bÿ„g«0<Û‰ßBkÒ3vÃ:X»;=‡õúŠô…Òûä}0 Lÿ6' Q#â‰FcU–
ëëpßàèТ¡Ã‡M o]YjõÄJa\)Ë‹—Vª“ƒb}
yG'–N Þ0q¶ovlNéŠÀʼ%E7úÖ6æÝ] ÷[z+Àã˜IVmÅåZ½†4Éóº #ÑK-ƒúc5Ÿ!Ôþ0’Xœ@‰}p4(F/íí}A‘M‚R+ºÁ´õçƒ"Ç[Q¹±˜Âš}p¢‡[êú•ÑëPˆ 6•H¬òOž´1cÃG·w00šj?Ñq”:jí w{{Šj†£tpêRG©Xeí9s¸cLŒ˜RæÁ'oMÎÈOMµ£ªÈír‘¢š
Q
ŠŠŠéÕ5í+°@-G¨ÅqèÊÊ%•@+nøÈ…
[ç?öý’I' v7‡Kóª&.¹ñ™ôöƒß¤W½ÿ>¼ëG(ÂK'ï©8•~ú_Ÿ¥oJŸ4~ÖJø
4OÁ[–Ìx{ïGC&¸,iÏõãû]ÛxÁúfãó±‘ÏûhÍfX·åâÔ 36Ú‚ÅçÕCËíOÁ‚ç>IÏýæÇôÃÛv^7ÿðê%_lúÍ''>…6yëío¥?ûë›eÅ~8ê¦{}kΆ»6ÿ‘Ò¿³ Ò@ýF XáܽÐj3¸ƒö}K¶rŠ ÄEÜ°^ö6ʹòÌh)?Ýè? åŽ€ß Ú×WW ÜRË"ãí,.œ›VIdƒ6L¾×X XO2{*î#wjãFî _8er‹`ò´¯ó8›FcÊ».iLeâ|…°b6Û‚ãÅ¢„QÅŸÐäOŸéxà‘á¿îZª ûN…ûÓƒÑx÷‹WÞz C‘wSÄû5¥”{2Î@i2ŒÅaháÄÂ9…K•µŠ8?°œ,V–j74±Ø£`_qYØ“§(NG¸¬¬´„òÂtÜòÃa;}qQgÐQ¤þ¼YÁÌè`¦VÙÈ‹2»»Èi-º ˆãcq=Ä~¡«ì:ñ…›]¥zä…#\G²±Ò“Ü~óJ6Nzº…9S3‘S•GKS‰S}]‘P6I8† Œn?‘
Žf£ht£&‘Íy%{ÛÙÄ!Ì„_X¤´Â í_±¢Bí› ¡Å ©î[Ãe“ÖïFño-3÷ÆÛ'5½²1} $g¸Ón„m@¦MV`>O*œ©•Ï¯øøÎz\%òóŒÿ1ëý;Çz§r¬þ%ëeë©s,ק|ÐÕf5J²(YÑï ø¨©TTj.<.ӃŠöF¡ÃJ Ÿ ŠBj:Š‰Dý¬)Æ¡^×C eDù3í›ñR/:ú0üé™)×5,[:få oL?“w<ÑgÈè{.³=ý6ÙçÎuiúO¥ÓÛfôÝ^ÝgÈ×O ûwY˜öúQª¾¢ã¨M¦[$aY–$€6ªÖ€,1îÈ3 •Òx<"¢F,H
Xåÿ†¸ê.Î0PvÐFsM>q4ñK9íSN{íŽf·G…¢³ãÄÙ÷ñZ²o{ºîÙ´e;“"
‰„i p«™à}¸šÿ\7h Œ ˆ†P@û ´ÛÔ2ómY!LÿGóÕS»5¿[ûfÜ}†ºÙöøÓ³_ õ¬Ýý·w°ÌËETö_¤² ƒN3tÝhz1¼DvB.*Q‡Å@qጰ6@(zÃVLýOÂxq¬ˆ":Ú¯âé<bÑá63àtW
8¬¨[ÔwU¤„4™JpD’D¹æŽ7 ½Ñò‰,dàã–rË—j²@ Ò"Ù¹À6S¥7ý °Ÿœe¿nÇ“•žˆF,õ–é–Åa@ƒ/‘jìšÌh µ< N¥)™êÍÕ¤FŽ²$Ý
iùø«èô«¯vˆd_Ç“hÊé¡hwÇhÚÆ—©@¡£€ÁÛ{˜ì 6 ¹»ßy|2rwEefß³<³/)Íì c™}^8³÷2“—e£2BšÉBy•‚µÛÁ°½ êÁçà8 Ž=Ù 0ÉDüÙ(ø²£óÏÜè|›“¦‘Az|t >hè¦|M¼«‰Â¹TCã’ÚŽTnHØT Å
û˯2hDûXÓù%žÁÑÐ6Ó˜æŠËÐrqƒeƒ]T¸¼µhLÜZaÀÔ„°MQâª*Ç5T`-Óry-£ x%c´Ù“‡FµTÄ #NÓYïœîœ0ø„WF%~“#ê_²:e¤co®'íFª1Ó#† ©¶'ê¸û™ qWWÑŽð@i|ÀiñÌá J^mxåúWÂ-¾×Zz þþ¬¿õÍŸ1½HQ ¹ˆq4L›a\P“”•þÅj•XS'áuøC,P?Æ S#Ä´7%d£p3yZøF&ª «„–uÄT ÑJ a
»õ¤ƒÝMåì^`û<¾oÛíð°óŸ™çùé3c±ódÅï?Š®¢*²J° Dˆê"„ Qq)jU$@$i2UŒ4êŶ¢þ¦œÀ-d'i#Gˆ@FÈìœV.ÁEá;%L¼u¦®EþwÑ÷çŒÑVã³<ÔÞA=qy`©–‰Om-Û¨d@žÍºÒ½Ï%I²Q+×RØ=Ha;CÕ õkÈÄØÁñݺ×qÓK+¢aµWʆըTXM5¨l€Ìs8nâ 6ïdW
è¸õð'¶“T8>Ûë¡UORdê9’r+)˜®$æ=1Zu'ç>
ìÆ°qI*˜ãÀ¸ F!ý'Ùï~}¥ŽûÐõ ãäq*þ¥èÃŽçÎÞ‹Ž}“2\#”ñü«E¦Õ€È桧L›„ðÿØôŸü¸$þ\:–ÊØüŒˆFÝ´y¦búÃvúˆ{m´%:š›7“©àR¶ZìܺQå@+„¥(”°šî`_›Ž ‘¬hV +HÕD.»FVpOïå‚k 6™íÉ©\Oζü,Ù†…¸ëÚÚŒwßmc¡‘D"C-K¾É—¸>y‰y)ð’ðRfÜVÈjˆƒ
j0™5¶žóˆU^J9‡Yf–ϧš Ô#ª£ÒÆ ¢c ’É›±Ž³»ñ
¿ÉKh"pбšhZ²èEÌ
?¿-`óĉޔ׹Y¨Ít&uŽ÷v š«²É.”…ú:ýt(õáúp.b– ÖÉøba…å*ëz‹¬!"'-ÕÖ±h$ ,™òh˯¬ê½è>|·t·¼?%‰d³ZË ¢ÒŽdÝb)'2ÊúE¶‹ I]pYVTê}«Õ`tšîhr Ç>´X`Ÿ]$"·Â>¦ª+jÄÔWkPÛG;i…ýµRÇ]±QF´-6 ÑŠ&¾!ÓI¡¦mÝmg¦ÑÏ2ÔRµ>ÊgÜ7§õ@×ÁÑõÔëj3iÙ¿ õß™ ¯_Å vº£º÷œcþ wž¡<ø@ p¿|äN~WÂ¥ßÒyêy«ÊÎf'˜ßÛMZ{Dù$óÞš¤µo
¯îéIÏf'’
Ô³§2Êb³”ý¡Ç[]£Ô@ÃBh¿Á‹Ë=þ*8
’—Òw¤'“}g¾¿ã‚úðÙÓC…·ÎT GÎ0a|jú|†€áªç ZgÈ>ÝÃgt¾2£¬&#j…%™ª[IËŠ€"ÉŽˆ"ÉÙ[ÒiHF’(1œS
F´zmº¶XkÒˆ&S4ÍA…>ì«…ÿÄ5]°º›1O¤ É4žø’á‘·dr½À)”S´¸óÈ T¿ÊZ ®L¨¤4h‘Í¡IÚý¶½C“²Ù7Sí›”¨ve®ï^?öÍTÙÙÂL V˜”¬.º9Ùñ‰½NZÍËTóhÕͪ§žïR·°›èPV@†¯ ýÁ×1Ú÷úÙ4%Øa5%VÓ™&æ·Î¤¨ÿSò °‚ xÓ¬Ø Ëp¹‚Þ`P Á¥yµ °Í»×úš{½¾ Šä™ö±Î±^30™LV&ìÓœS¼Ó|“‚·xïC†?Œ±#¬)îx„Å<)Ê`Dr¨Ib3llè%†;ØèK¹™‰‘%ÊUO )æÙ⌆b7Õáå|ýŒ³ŸÊiîÑ?Ë£¿Ó`ñLæšrÌ^c€Š¾À^‰¨ÃfÂ
°ú-8ô™–ôÞ—ßIïÛú˜÷á'0xõ×wü1ý!z.‚½š~â/Ÿ§·ìùœòÛô¿ÓïÀJÜ
µ»Ò_d|}¡ƒr·øÀ.³ÇlûBiŒt]l\ì4=L5 ðú2¾ž#.óè’lduoÖû‘‘ ¤ÿ>Ëÿ® øŸ ¬¿»ËFœS™˜S—˜ÁÜÔ•áŽ{ѱ‰Fí´Þå³£Ò;G_vg÷é7Òà5û Nê³6}ÙguÌÞ»è¥tGdzn\=õ·…qÎäÎÛÈ·”sÜ Î37M‹oŽ#¿¯Æ´Ï¼1W¾«P,#=½‰ø Rëí EFy‡ÇSdBáäøä¼’lÄÉ&p?~ <ƒßï{¾ _x¿ðB$ÊÈ "¤È¾»ãïÇ…˜§,^éIƇû†‡†ä) Ÿ(O¶OpO MÉ›˜?)2©`>™ã^¿&~[è¶ø'¾¿Äýšº©vÛL–TÓ/˜|._éO„=%X*‰û<ˆQì Ä )
‡mÉEaI Ä>F gŽs9Äìd,ÌháÌq.«˜1F爔5•¡²hœj'û^ç^Í_úKî }¢+ Ø^ÇVYŸÖ›ö
ã
ãT6‚–0ܸ$FÝÎx±ØÍeÿ8ý7ü˼©Ï~(•XŸ¼æâ68õðÇpÖ¾WÒO Þ“þüÖÞ©arTïJ˜¦§ÿX<ÀOiþÕëÛ)çû@°Êá¸õA1—-æÄ“;ØÜÕyP9)Z\ÔT„‹
|ÿS¹ÿ—6¨9¿íd•žÿ¨¯½kå—ïý®6Ù›gef’2IWþw·Èú¦¦*›¶¤Íèowôg¦6r”`¥'àOÚ©MrÐÍj†’…öFA>ݺŒLC·ð´×ãuâ^ˆªB®NøLôtó·W¾yhtÉ„Q'^pù¤žÑ‘…Üx÷˜{ K—“}cÿpõƒ äÅŠÆ,O7Â>k7öÓ¤Žå¸¢æêaóx–óÔÎ/…C ¹Íâ™x¦°/„XqN†ááÒ¨¼!ùƒ‹†Ã
ÒÔ¼I%79…,ÜÄÆ»(W‰å*ñ\¥8W)ä¤È\œ©Är•x®RÌ|ü¡¬Vb‰¡"\ «¶UŽ
é=%2±pBì2me¡uŽk¶ïjm¥e¥m•±¼hil ¾Y»Ér³íVãÆ¢bwZî¶ÝígÑyÏhÜŒ”x)uÂAiÀ!ôí³©pYz^ ¼)ˆ‚1¥g¸8cÄC˜bÉÌR…{*á°s;— :"• ±]ŠO‘önÏüÍž±"«E#ÑP^8(K¢€‘cEôœHÂÁž“±ÝíÔö´{@O ÐãÈÊ€X§ÃÅ°Š°î4=Ù#Ù£i‹G(qP
K™Ù¶ZÑ„RÖ4 û]i /íŒ;dc_9rLîèš sŒg²àï“
ð¥F å±…v>3r.dot¤lŽ3q‚õˆ²1›b³"
,æÐxŽ‹©.tÖ„QEßlŨ˜'¢ð¤Ôl\ßíòz/gR¦/ãS_°Lûê+ž W?u@ú² çϽîû_?öÓ:²Ï¶}ÛÎG’ýàÇ“›V®;óÐëé îƒ —ß:éWK™[葨ylö¯Ìšÿöë-·¹xlEÅÂ’{V,g鲯§–S<°Ï;ÞdZ
Ót܉ ´¢¥»#™Ù»ÄD½Y
„{`6þö•©qõ guÃ÷9Wõo9%q6§Ò§‰ÝQÞ{_w¯•'E¤GSÇ ¾ò%ãçSõî¨ 9ÓyÂÍé ±lß~úÖÚG(âcqEøØTã¶ÉÂdù
Yð06ðPÜ\) ‡
#ä¶'ÉW6IÈÞŠ^jW å09êÂäÈÈu˜!îR¦" ñÔ{ÐtÏbO“{,<À›sÔH6å6£Õ §¨]êP²ndF ª]êPM¹$?§)$Ά§2#œHÁ
{ùñøUÙ…é¯ÎJŸyïéÓ‹_ ¶}Õ{ɾ³Ïš>ûØmÐò5 {v×Ë{.}•¯¯aï !CY2 4‹zXJpLí—ëÓõ›ä›”f½M?®k½^GÒd”MQR Ngz˺:> K*JD&.Y&€²".„ˆB õuD¥ÞèlÎF2L–$ëeØ$7ËôBÓ‚Ì’ä4oG›BìŒ=Bê *§ h3i#Ç ¡^è†ÝÚô/´‘Ö`›ÏȬ
øÛ}u¿Xs—vQor°QJük—â€lGq
‹2©`Ìé,¡—Us§t¶õkhà@œ%UFaEƇ¬€h`Ç þ WõÊ/è 7¾Öñ*õD>lZ|ÕUBéé¡lÌý H+¶€Ÿ˜ñR·—:â¾$¨¶' Õ¾á`˜}¸c˜o2˜dŸì˜ä3î•ïµeÒ¬0`ÀŸpW’J}0¬t'ãõ‹Ý³È,}¡{Y¦_ã¶7‹V8d*jˆÓ±®ŽSÍ˵'ü0A¢D_¥œ¨X¬6›îr: n×ç£P²v7¾Ûë;Û›SÜÔå!êwº >"Ëa·Ïåvû º¢„ÝZuØu›-bØ]†aw(ºìs›Ý rE›D°Ï°ÙE–m“Ïá°Û ðzÆ@^"@§¥›n& ð½6ýé÷·Â[žÏ ƒTÀ?º#àëèø;|c†Ì |ìç«)é ÃÙe©¹©þÑÝ
?ßQIZo5 Eí\{A‰m£Ä¶3žp¨,½.Ã1z²ì dƒVzf·n³_†)–¤(C83 átгB–8 áÃék^ÿ¼(ÐO…Þoþ<¶0ÔóØïÒ—¿”~«XòºÒoPY»gÓ?Šðg ô?¸¥?GØÔÆÈìag ËJìpÊ=N´Ç,¥ÖÈ=*u”:ûÁÜOî§ô³ô·V9jœªÃÉÂÆVX³±bKvß=†l^Æ‚È‘\˜ùJx¥†âB©T¢•YãŽj¡¿Ü_cw¼@ /¤ä©ÚëxÇ\8[X /Ôæ[g;– +e† ®t\é\'Ü,ݬnZå ¯ oÈ
É [?p|)|%e=æè!òÕXºa+5™•TÔNíf•,Ÿk:p» ŸjîüÊ´²š!d¡Z ! ’`4¦æ1ÃÒ)ÊÍŠ©%˜§Íj±@Ã°Ø N§FÇ Y4¬;U
Šr*ªÓÉ,
ÆÈb‰èØ¥ë˜j$ŒrZ¨©ro7tSîŒè¦ŽôV8í…ˆÚ¬¶©Xm…{¦e•O«©Š-¦Qo¼c`ƒ^dªàw¹_2å“s‚ñlÊ÷…¿=Õž¢Î¶©Ÿñízò3eùõôc³1®¬•tße¸ò@¶ÿ¶+|ÈÆB(þ$d`ÖL:XŽA0éÌì–z LÊÁ$[ó½+Äbmf~(é¤ÀÓÍbõxk÷<™zµX 5…ezQWÀ‘Ôô¼èyäEk5•Õ«éN/=çôÒs¬†híg<»ÇÆa#U–ðœ¦Ì‰„‚jÒú—P WØg,>ÔÑÇÓ·çGû¸ÓÍè,úmzÃòºúIðÆŽÑgBZϪúpfÞ!”±^:\°WVúca íÜ—» ^ÆØ_šVZü´À¬P˜_åã<ÿ‘9€V„Z8(«Ëejo«0ÎçiŸ‰c"Q–¶Ê +ªÎr"ªæRUMÄ¢‚Tö°³8‚ 5\PÔ5R(µVä7U¥|Eí§µùLEW.2Õ&QÎÙcZ4M |ÑXt;ç =¦Bµ©+ç9™‡Gzý- ’o¯Åšåª“™¸ K_îÈìŽ1$TËÖ˜Û3*p}¯DB¦VðÔ'V[Ïž ZŒÜé¥Ê*ÄRd]Ñ…}' î<ÁU2yuÌcRø<Ý(Û|ö¼Ÿ9C
]dŒÚÏÐŽt¼õO ò«K`èo / Extzèµ×.m†;ÎîQ©”¢ÆœJúó+c;›Å^y &_ `UÖ”œy³êÀjZX§–),R1ï¨ë8ñÄ3 cEdUçE+KTø…\(P›$¨%Z¨²‚Qx7Ý ŒÒNv–þ„„%ij˜
·úÜÃ’5éðT.›\ŒÐë4¨¬ñBà·0äIíÎèTJY’AíèµÆQãlW¦D=ɹ›/@ndâk5²¦cI_sÀç”TMB_”ÉÝg{üITÀÇ“z–U°º†aW(EÝ¥è»ú ÎþQœ}£omÁÏ̱}ûYiîv ;ÿšžOí? Ô¡ul¥6ð ƒvKcíSŽéò…méù×_ÏbV#:¿BÂù Ô žfÅ¢”ù-²RKYYÒRí® ö/^–²¤ÊXæ—M/¿Ù²®ô~ÏmwInNµ˜¯ˆfµ'ýO—ìõ¿TrÀÿNÉŸÝŸ–ȃ=0̼";®Ç¹äÂ*fO&°Z¾7ß—èQV™’=† ô˜(7$æÈó+ôõúúO–ŸöšJ+ŒÞE•Þ¾Q—oZ饨4ÔÛZg½ÝºÙÚi%›;¬ßY±UÏ®Íÿ&·Zÿ„éfkb<«Ý*²¬w«5„½èé½¾M®PHì¢ w(†«}CX+aÌ "¬X´ˆáû¬ûüÏ ¾/˜¬±|¶ö¢ˆEmXß‹Ød±Æ WÄ T”óTŠZÑŦµØdk#ñòøŽ8I²(ó ©[ýÁ^^é“äaúpaey²-‰¶$aÒËÚ6ÝÑóô.zY|GDùbˆD+¹pñ}<Ö‚ˆ< *ZyÜ…gˆ}úu[€LÊ„AY¯êrj;_|Á|…£‰ÜòÇÜõ—:Ù•qÌU5›°™¼ZæbÖð¿ªÊâÌâ®ó÷9=n·Ëã-ŒcQ²¢LÆ:½×ÎzqÁŽýÖ^Pµðð\X1dÃê«óvú.÷¦
O׊·`È{é+¦ö]4Þ£ñ¼& }æÆ1kƸ¬–@QL½¼çy
¾Æ[Fš3Fôºêø™Ïë?- %£{_0ýâ±ç]I9z åh6ÓÂÖñ7™@¢ÛŠHBH]þÎ|”Ÿ_ªý*´8¿9_ìï¬õÔFyFRrÊ2Ù–ò\X _f™g»Üsy -ÿcý°÷°ÿoÎzÿéÿ{Þ‘üÎ|„ô¶õv•“:›IFÙêÉ r8ïGá´¡n«@uQ0Dí”êY5_Ñ»44S›®5iB&ÓMã<ªù²“œ's‘¿ã¹ì„Ì«4¶@Œ‡HôfôÔ–A{2s4ÜñÀ1„Ú l†[àNx
ù°Ž…2ט1-dKvò{AÎ*»¦ÐÁXrVaxª…q¿ÔÃ
}<•‰'„BxXÍÏ LÆKXþ=sÔè8w2°ãY›Ñ¸4F ©·Y]Ñ7ŒÜ(,(Æ.o·•/=ŸjYòü¥;Íô÷¿Ù¿UN¸cųO,_ñ,Ù×ñãícosiú»ôÁ»_žpËÁ·Þ}$¨ïü
·S}€S²~h¥uµ
Ú4ÈV³·:Bšä ´º%™õ^â½—øúÉ`½—8‡ |ïµLŒå@ª/Û˜»:LÑa~hswœsœwºsº÷ô ¾ßò¸ñx@—-~ušåúbK“åI}²WÝ£ë }þw„ÓlWØVÛ°
Rc^]γh¦Óf5ƒ-à8NA¹Í¦sm ѦYe®Ÿ
‚´EZ"ŸZzÈ’›LN 8Mœ&ÃCî¢w$˜/ÕIH²òù"•]$qõ*õ V ÈÆBX–D&clÉÈq…#¹/™/Ò¾äD¢}I.{Ìžìm¤ŽÒ<¢DéÖ ½™…~Ù”ù\ôˆQ×>Ÿ÷Ýs‡Óÿ^òõMÛÿ’¿Ã¿zʆ§ _»à6x£÷…w` TŸ…hÍŽG‚ /ûÝ¡^å6f(¥Ùç™Üf8Á|\E‚%f©´ ¶*WUh¯^äš‹f‘ÙÊL×ôP[þ{ä}ç§þ/œ_¸¾óþÃÿ—‰Nú à6‹×[ïaÑ1ì Ùš-2 !R%°=Í86§ÍÚ¨4Ðq7¨tlrRéñšÔ9ù —YrKÕ-¹ì-î·(Åe•;-ÐÈgIO±x%Û›™™Í‡ùž
£H2‹Ê*s”Št£TˆS*#`!N#žßÇ(Õ]'¦£;ŽŽ1)ânì
»±ä¶ìò®ÚŽÆÚìú¨l";ÏûɉXfÖ%EyDFùŠ[_²¯Ç·/~þºþò>´Â³_©»nœ¹±ã0ºPï7ñ¦k·Á‰ÞÇZ`>Uö:,I–þɈìØ7nZ7hÞ“T‹8) ›È!à…3ìR ÍßÛ_î7ý‹ýèZ¶Y䀥IJÓßæül;µãÊNí|ÃÍOîá/Wií<ÍW3ƒÇ|þýp ˆ‚“P9?¦+ç€y4µ|V{*ãΰwo$í™”W—aI”)B2GØE[Rײl͘ r²¤Â^XUQUYÃÂâT1æfoصy³3pÊQSƒýú^4øwðýVäxH :ýÒgçP‰øUúBü
•¶¦ò
sº¦W-æ¥
q‰Jž?¯‡wõ(LjÕ®ÚP×Di²6O;þè¶ö*ìQ|~áùÅ£Š›{lé!UG«Këz Õ†F‡”ŽŽ//ÍŒÎ,Þ£©Çá⯢ß~Wl÷zDw+z¾¥$䔸%1" œÛ‘&ÐÞ¶¢Uf_
ÙÔ!!]õ¸+bjÌç{×
¯éîmò
=è£ =¸ZórµæíRk^®ÖØòp~ö›ŒZcW±åâYµæe `_A¾Ìc ¿èeÛ;¶Ïm6!ßVgK
—[€ÑÖVÀ—,ó¨wæU6®ÛlþDeQ¦Þcº©·íÆ/4\ÇÑ“ìG³‹#f‚×Ô(yYZ=Å™5‘LÏy«r‰–Ý×ÖÎÙ¡õ ´lÕŸ®ØùÉñËÿtëþ•OÎþdËo¿¹ïÉU×nݾòª“ÆúΚR³óXûé½n¼·éì‚Sï\õ .ûSÛËoÿîµß1ot= ˜åÝ»àŒ‡2¾Û[Éß\ÂáuL¨ÂCð>‹ÀOõ÷ú+½²]·»0À"’KSõ˜bVTWv*°M nc<&_èPÂK# ;_òÀ±`×)ÜÇço„r1’(ÌÀð°Eüøä^žž6†OSx+«+wzŽ{ÐbÏÏNO§Gð W,“úcÐ6 gïÓŠPÎ9ž/‘
$œ6½\J…\Js· Ó<KÄ!ç÷°únyüF< (q¢{0'ó¨Ú d‘.VÑ*Ŭ¢ „™Ê%`1Ÿ5€
u&í9óú{¡“QtÛ×·\׶⹑-ËÖßZK!á÷w¦ °czdý5ãn[Õñ•É
”Pµ<ZÍK”jÖƒ±J³²EÙ©´)Ÿ+Ç (ùÊb¥IÙœ=uDéTÔ|…b,I@XñuˆDTQŠ l¶;…6ሠ¶ Ç„ˆð.=„ VF„®qø¸ *{ªÀ5›ÓlBn~J`B¤²1ÆÈ¿ ½%ü}‰l¤º¿)1µ¤1ÁÒÒQÙÐÒÒ"üãwθ…ø™ÃlMߣé aÞgxß " Tu„xeB$A@qhÑvé‚hë¡&J!»™jt¯—J¥%¦ªÍÌ×ê´±fé–f
ëQ6ý’;
÷)µ0÷LtÖ)Mæ> —mÍïtmë.Õ\ŠÙÚ„1‹`6‚ºÑ<‰Ã‘MâÈ„Û+*ÖrfÍU6lqÙPƒP±JAáö¹
7̼[‡ÍU±õ—ëZÒó
ªókª[*Þ3\øúOúéšû¬Ã咽Ùr`ô,&¯”ð)–Kf˜A1ƒÄ‰âÛ,?“"Vr‹á2ij®¢ä*<§iLÀWªÈ!Fœ<
x|·£˜E·Ð½ƒð<4~Ü\Kψ‚@±FFI!öT'«WâåêaüwQzR„…b\ŠÉI±ŸRgkiÄÉRƒ²J¸šÜ§¼&þYø@<*~-ý[üIv;T•`, –…Èô@‘åX&÷ B,“R†Ø™@ØÄŒ¦Uh…6S!®Èì(áÞ‘I k¦ H‹£¾"€u`,• –߇Ë>§8ȤísN®¸;¸küºå¯ÑasºÓš“šÏW7žäóÕ‰sÙžz“,Ü%äÒ±Y^¶DÉ.×b^fy–‘
ÌWÖb¤ø,,5ú ™·ÿ˜ªÒ#/©Èyyµ,ŸzW K«~oW„ïžfßñÃó2A6®-v¶íŠòÂ] ¶ûl—Á“±éŽ é|÷¼–Ëë„Ùdnǧ”] ú4—«–,™e—ýøŸÏ“Ùéõ†LôƒM´gÒµyXZ¢
Ÿþ:½ ¾üYú‘ÕdßÙýpgzEÇ,”¿2}1ãËhQÃåõï{ WP|FM¿ÌBŒÊªÌ¾¼OfŸy'k›£æÆFòÉfò9ÆÒâ8Áùd1i"„ýG*ÂÏ"›Í ¶Q7u×ö§Îiû¼nÚ>Cë “³`,7¥ÞÙ™›dÏê.0Fø¹îbÊ‹…Ž2‹7 ?b 627´ðe *Æ)f*„¯³tÛ¹ìé¹÷ ~dŽÖ,•1á¨pTù«÷‹yŸœŒ ¯ )T|Áˆ‚qa8$º¤ Xðê»1Ø ÛC1ªÇ¬±f;´ Ücã©iv ¦ã ›‹¿M‚¿ uÔŽ¸ßÆÕ˜èì¹¼A{.ÿÚÞ
S¦î‹5aß.Øu» ¿]å°ÛÙí‚ÜJ¹ã d²ÄsPg7æ"Av?@…1ø.€,€ò“?Ìå/ï?äk\àÉZà³9Œ|ÂtqSœ!…5#’E±VxÕî_jàL|¦ãh·M·P =èà³KK2+'ê2Bl÷v_9fÕ]θK·¡ÃâÎê¬ëÂިœJ¼ü 'Ü\s ÝÝp?Ò÷É+îÉ¿î͇ŸÞ]8õüÅ¿n™ø³Hy.PþË0y&±9Ù=JîÌ)UÛÅ_óSlÇݨ·þñþwÎÛðî‚åŸ_3åö^ö'W\õÌSË–>ŸžO~só…nì¼÷±ô™[Fõï8ƒ ?xà÷ßzóC&…¤çã#”†Ájó6
%P™o ‰®ÖÅ:w¤¿9¼%L*•Áºð`çàà8ç¸àLçÌàôpSø=ñ}Ç1ñkýŸQŠ
ô„;‰ªôáh¨>ÍG ëŸøþîùÚ,xÙ `qBšd]!Îk ,¾jƒ†Í´M·5Ù„0D„9õl<aë
DØx ÂÆ6nHy(ÁÃÆÚ–É/3—×qí±ÌþŸñÕ".É<!ñ„äÉ ßL¼./üóèÉvœ¨ýO€FhÏÆÁ«³á†ŸEU{”Ý3á7éï®8tÝï íˆ>{ÕÒ'w¬XþXz>’Œ½ ´%}Ó· „· <ø»×ßûàufán¤¤yRÅÞ0ôvBC€…B¥0H'Ì– ¢b—Y±8íŠåÿ`ï½ã¢:¾†ñi÷n…]–Þ—Ž€²4)¢,͆
**XYa)ö(+±Å¨±ÄXcIÑ,Ø¢‰&FÆÄ’D5±'1M4Ñ¿sï1É÷yŸ¿Þ÷y>¿p93gz¹gÎ93;3Q)VˆCÉe¡‹¤Xê¯uÄŽÄßá?ÏìmºÞïz‡V‚†Ñ …yrÏ·Rò{iº ýÛäþºzȯ•Â¹y¡k—u"õñÙöâÑ«!•Â½fò5¯¨I@PÌ\ß©$eÐÐNii †:ù°àuc»&mé’RPùìœÐ )-·éè uÕOfþNþI²î²ŒÀþþFÿ)²²› ߉øÚÉ\=Ü\uY\9OÒu4–»
––
–V V¶% %% ¥¥ e·3xgˆJØøئ}à@y¾¢(¸(´: :°6ð5ùÊÅ¡¯G,Õm”oUnÙÚüQ°K¨Uõ·"V$Њ„šg‡–8`Eˆ·°ýEã“8P¤”3m°3S´óö–îüÝ#Ä_ÜSܳ݇¹owÿÌW¹ûº—»_qg¾î ݉ûAx7Î@âZ·ÞIˆ®ŽÞ©ñ˜èa5Ï<7:¹Äš×Àí b1n7ػԛx{9K˜ù'hqaâ¦uñá¦ÞQxÁÌ«Â×{ºë Ýb£…ä‘âz›ÙF‹»x¹»VHé®R¹‹Gwq½Û½‰ j† ß0ðJ<†Ã„R„aÖ½ÿaÖq
Èâ½a bQ~!a±Ñ‡£IJtm4‰Öí‘›YßINkîe`í"T@+Þn(TB¨°J¬žJkáOôZ‘oˆ§3-ËŒþW¬ÓZ÷(Ëâ< rëQá :°*{Y~ú Ûêæ™pó/aâµ×cÅŸ¾…¹Œ°åZ°l·*¸šµ'}H[Ÿ Î)"ØAQ;ª)ïo§õD²P‰'æÚ‚áãN?û Oä `§”¶‘{âЙœgžÈWí-èYæ»DCÜ^WW‡Z±#aýgˆíÂÔàv$.¶}ü߶rÃ#œYW@STs'O™ôÚÇ+²SÂ^íûÒÁ&eUÉ”Q..‘ž3½Þ¿äã—>ûwô]iÌèàÝ®W—‰¡¾á]'të3¸O|€—·£<0&uÊàk¼+ŒÓÀ–$Œ[\…äÂ5Á±â§@R©uÇ+íä˜"µ,\%ÑM*µ?òÇvš %n‘H3e™’
Id‘„!ÐœÖJL’Ã’3^<þf9÷«HEa³·øsy>fA,'㞈Ô!èd‚ì–v,ª™Y«”ì#£n¿cÄ_&©âçž%«¯ þnŠø-
°¥>n>äjþéLøeÀ!^¼/XÜ MÔ =’‡—F̘Ѹk—cx¨Ïº5êNÆõ¤p –”6ÏŸ÷쵞 âü xÙU ¥gïE ÂoN0s'ZGá Î}}ŒÆ)6ÜJ ]”ØÑEÌܺ Ÿ¹¹
Ó q®â*ÎR\5â²¼m³‰«È¾]móW'˽e5ØUœpº
ó;¡?Z\ñaWìÚËC\¦& ÷=H…ÇZ“G‹óPÉl‚C¸Ñ_+;#»*c2«àÙ‡e5Z.®A‹ÙÄugqn"ƒe½Ü_X}ÿ> "î H¶^Ƀȃ©ííTvÂÎbá ˜ˆ0¥'²“:˜— ÃÂêÌ[-¿j†‹Ë€®Ï¯W )SÎÝVìT8”õî½ ÃÎ7vv “ WE?kœ Õ¥wß…sHâÓ‹ðv<„U|x;rüƒe¿€+'Er)yÛ¶õ@ñTmdxëÝëâæõ=q Fþ‰r¿Û9$Ê`š+ œ®ll±åÂR†ÌÇ/…‚!ê2ÿ Xä¸.꧆¶‹EZ0TÊ6(T,ODqò®¨‹¼?îOò¥y²x)‘–È& ñx<™( /Ÿg“Yt®dŽ´^¶-—½*— D{$;äÇÑGò‹è¼ü'tMþý*€æÈÝ‹<ËãåÙH/—qzK,¤kýr€°gŸ
¤Tâ!$òP¡/?QzEô% §T‚¾
‡¾8~* EÚ6÷ÇË%RiLî$“É%$ȼ뛓ˑܼ…›—Èea.R‰•þR½^oþšöÜ¥çj9¦—i‰ û+~øB ¦» îφ<âáv÷ú˵’¶uE‡Ä~ ;-û‘Z ç÷Ø‹[ª c0ÞÖ\úþõ _·ðŸö6—±àg3F–çŽ#s„µtó¾Ð=@ æm½¿@#h¦"÷1oã-sŒsâeøL<¡"`Z¥9àðN{ó ZÌA/ºå#%hC˜WAoØ)ÅK×”˜09s[V§ÌŒÎA¸ ÷”úÂ)õ9ñ*Ë>|±uÖͱž0pk#'Ý 9,p ZóÕì–K¦™qØŽÌ×/Víåm^·Öïñ
Œe¼RæÈ{ÊÜ5 CŒWÈöR9R'‰—ÔSá
3Ø I˜4Ü>ÅI’¤ ì3h^/é)ÍR¤«º8t× RõÑŒ–IGj&ò“$ÕÒ½ü>ÕnÍoüSY¨Â!…څ؇ªB4‘N (^3^:Kºœ¾®ÜŒ·-ŠMÊ]h7¿ÏþvÿZv›ÝVÝÒüÊ?‘y)Ä3‚JÑTóæmz¢HM…l=åö*¦AR‰4H¢
²¦qöj‡•AvM-ôñ—²ê çjvØÉ‘—+ ‚åṬ|°C©Ã‡z¹ƒœ-
¯Ãübþzä!2ü×HóA+µðI&‹ô‡O½BH8™\.…9Š\íà ü=«‘CÐYºéGÈUöÚ#©Vâ Ñ„s'Ž“ØÃ{²³w²³³—Ât'\.u‚äÂùËHAK4LªrPÚÛ‰ÕÓ nø†ŽF%œ›–;=RÛaá2¡Z;jׄ7ëåÚl9.—Oö
“~zY¶.w˜æ Kê§W¨9\ ®S\›wáGŽFˆ*‘{Ï_‡ q½þ…A6ÄíŸÏFXFƒhþ7ŽFHìÕÉ̶lkÍ2ùöÍÛi§UjÉ–« Ó^Eö-gv"J«µÝ˜œŸeŠí+Þrf‡D¸<üúf™bÄJÒ–«;$Z³¯Ær»ƒpóÌnP!oàVg$:!Ç”@ö™K²enKç*¦sh¹Ú(×2-J°œ»° í<·[“ˆ"4âè ŽÏ÷/›×³…á'Þü 0‘Ÿ8ºŠ4hÅYÍû÷mMa1[÷®‰ë¸{{óÎý[Û| fÕu‡¤ìÙò“§Èˆ§É”]~œFrèà4jüE9«°‚gDÆÞ(R%jäªÈp‘(Å›ú<÷¨4Xåïn¾R&Ç=q j[&]a¿Ru˜;Ì –œTÉTz—Dê(s¶óPÇá$E ^ Fj°|I¾"Ïþu¼\¾\±‡4)?Qœ°ÿT}‘ž—}nwI}C®ÑVŠrqTxy2U†j†ŠªÜmÕ7/"hlÇËâU*¥x%hîNŽŽA¹8TJ`†A
9LƒåŽÂ–q/d€¼Ô^$Òëñj")»TÐz§&’«W¤hô2LsHC4M8m·
û£LO¹$ö–^«Ô)³•4GÙ"žÐIkŒTAß”žÚ)À¡óž ·Ã wθ©½î.|¹é®‡›ú®ˆ!7aâ`¥(iëŸ4’²œ½É2Ù·qn³ )[n#EËmÜš×8µ\Þ Ÿ(÷O´‡Q¶Ë9ÑÁrx<_З…K €| CÌ»\âÅã`Fø(P€ÿ4§É]] ‚9Eó˜¿
÷÷
¿¶³¹45P7¥lóÈêÐ@ÏÑ*oúlEMÝ”qdôÓO¶§å÷´œPà=瀮ìñv½¦‰ —
Ž6 ~9—‚;ùˆ¿t¨ïH*‹T'âDy7Ü™t–v“e«ã\’+ (ËQ—âBR( %›Œ«¥“e¯à™Ò¹²?ð¯ÄÓ]ŒÛHÃe‰Ò·¤_b‰0Zö¨c °W™pßD L¤I’LN¤ry& þ. &. š(7Ø!ó÷¥Di n/'MXµ„!Çï'ƒ„o ËVâb½¿ÝZ{Œìõööµö÷í9q¯ d_äS1ÞŽp6*GÂ72Å '»J]í'°
aÐòÛõ3¹ .î(S?’Õ7`ŠxCÜ\iQ5ÕöG-×I ‚,g¨vµÁÁRaQÆÜ{R¡/Áõá ¡…®4_›86_<%#ȲË
*ñ\‡Ùº½Ç3Q&uñì((g
®‰â´Kî’Hœ <\ž3–˜8̘~´ñs%«òš³iѳÊ'ŽÂ?.¦R~ñøgC'ËV ï9±¹7™ÂEah²¾gÕ¨ b‰`HÜö±A0\B\P›°0¥oÖ±ð^_í6OCçžäL“¸ma!IÁÛ†¡…ˆ ’ð
óç*“adÿ•۶UZ¿õ þºdn´c'¢‰ïDâÛÇÀ\ÚŸîÏ6_Ù+Là¯v„À¬.±§AK8YTׄàþ ¾Å
Í€!e…Lš:Ì7ax„>×h
=IɮǽârGtTËWgMo~’9ººm»ƒ_ Êh¿Zí:òM\\ŸC„ÖGBë+ÅÖ× 7ýÜínÓd¶…Y5Bë¥Â¸‰€¸†º¢6Ûiƒü ìƒì ý´Z{»m$¯ §$M ’º
³$~ÊÁµ@¨%«æ‹·I'?ï…ëëk/8Û"±'> N\ƾ÷%lÐ
½\}ˆÆÅ…Tþ¥dꂼª¡œ¤u'¢
$gnsC\?cGµbuÖËOÒËgÅïúòHpzÜjµKñ›ÍËçæ ¥C£¹ÛÐ*ä‹’pŒ^»D³Äe•Ç*ŸMt‹b‹Ý^Ý9Í9—K —|ÎÇ\ho_!Õ6‘wýfF
¶® n·Ÿ pP¦†ëÕÙXX 8-ð^ \"nO
_ÞN× 7p7HjÁB4R°Ú…ü†7úÍaqÉpBŠyóHN=|—Ò½ƒðMFá°”pËAϻ·µ]t`ùІøå-è[q¥ 7&>( û¶ ÖÙ“ Ÿ`—`y ìç‹âƒÀpP9ù!_ìå‡]e€¹K ‹
öÅíƒ|‘£Ú{S0œn~È“sóC?p(üÕÕÕá!¸Õ
IÂm2®ÖËá£ÅËâ ]m‡^þº1ž9‰G½¿¦ùìÛ›qĆ
8bÓÖæ/r'û yÅôMÑÞñ3MÚñ>5ÙUKçW œÃ=Ò¼ô£#ÍË ÃÅG>£¼´¡ùóšÏoÞŒÃ7lÄ‘ž©_ZzýÄŒ#…ÓÆxwÏÞ¸bÅêbáž¾ô!ï[!¬Ïé¯qßîNîIî9’+’+Žä3ÉgŽää#Ù.ÙîHÖHÖ8’…’…Ždªdª#y*}êDJ¥¥Nd t QJ•NÄÉQ*qUªˆªþ°§{;‚•Év(YøQŽ>Ò±\2M²PB%Ø1Á)ÙÞN™ ½«G¬}
–$H“ FÉ”.$˜¸»Y> l¾«V*ÄKÂÔÂrp Ó]µxƒ£ås¿EÂí>0å ;v, kùƒWâ Œžxèy‰_+ ;}
Kñ+ÆŽ~þÖ¬äœ6]
xŽAOu¡wH/î¸ØS—ô½Äžº/½ïD°;‘«’«ŽäŒäŒ#9,9ìHL“#Y/YïHK;’é’鎤BRáHŒR£é+íké)•RA‘Ó;ŽBß(í Ë졳°ô ‰à¡ÃÐ%cl¯JVB…عvR*í„!„&#è²$œ_ åfùd®À[Ä ª…„".~¶Uøh«Õ~±³lý4v,ô›y眓ÄüUטVø€|ÃE´£_Yö;tP‡Þmº¸ ëû øh)½ƒ;Š}U>+¹&!;$G$ä¿&]'%UÒéRÒOj”"ÅRèKƒ}Äc4ÙZ'6Ï]¹z¢,zÖúc´ÈúÚ…÷Þº Sþ©¶B #ÄÒ¨ x rôsð[LMæ J‚>½_nª>¥SÇäI‰ ñq±1ÑQºÈvm#ÂÃÚ„†øûi}}¼½<=ÜÝ\A,9j Ô* f…\&^QBŒ#2:hMÁ& еk[Á ` C+“¼:¿Ç¤-£i_Œ©‡˜#þSoŽ©·ÅÄjm2Jn¡Í КNeh›ðÀÞy€ÏÏÈךîŠxO_$âv€ûùAm¦[q†Ö„ ´™¦ÎãŠë3 2 »
yz@ºQÞ6í+ U fr
¨Ø];a!®™I;’ÚA¥L ™&÷€ ¡&”i(2åôÎËÌðôóËoaÂé…ÃM( ͤ
£ t±Ÿn’ˆÅhK„Ö W´;"×ÏkR£ááÊ¢€"Ãà<5ä e8„C¹&×I×Ýž;!sMzÞìÖ¡ž´>ÓD+8ëëgkMk{çµõÌü|ÈÒ’ Îõ¡èyЉY}µP™™ŸgÂ3¡HСUæö2Ÿ‚QZ“, - ¸~T¼zê3ѯÁÃC¿·å*òÈÔÖçæø™R<ò
^;œP}Ÿ‰îzû‹!m#v¨ Ì »Ã^eA”v£-LÄÄè–ÕÇÖ³X¨Q@7 “¶P 5É €6%†1Õ&@4øËÇÊTo¤Ä$K/¨W' þBz¤ÐÖÿ†€îþô¢ÁâéC*Ð‰Ô ÜŠ›ÂÃMaa‰HÒáB ;‰î¸¶ãšH@@…¼Ð}(úÖŸ Ýïç'¼àWšôh88Lµ½óÌn-îÙ€ô‘áù&R „ ¶†8÷Bj!¶ä@É;…Ÿ³‘³IlûW©] 3‹“LØå¿6šÃ-ÇÜ´™õ–¾ÍÊ}ÁeO°…Y0“cz õ$ŒxR1ˆr°-²àÈSšXüó"Q5I¤@•¢Öv6© ºšÍ|¹Ÿß3èÿB*ÑzžÌRMSRø‹î/¸_¨ž²žB…Y0ÉÊ X_/! HÍ\`7‹róü´é&ÔFfüÃd-A€|O“ º,]ˆ ôgö²8_ˆèiÁóáO ζÑÕ×wÐv®/¨74µÔЪê÷’ɇõ™VÂijÙ÷Š§©ó¼|è«bœƒ‚ ´ xNï z<§ïÀ¼½j sró@“H/HËßay{µÀÜE_"ø
ž‚C+8P†F6©ßs¯ ¡Z1”‰ ¢»° #ÑOjõè°‰˜ýÔV?~Ìì§ý„?Ǥç浦 qHæ·E ñ›å #Áv}‘Ç0ÝtA¼,lV×Yí°„¬îѼºŒ£ìuJ^j! ‡t¼<œÇ O'˜í£ËÑE´òñZïSë…’Å'
GU0·-EFT
ÐIxtÚócꙧ,¿>§ó“÷îýžû}AÀÚéNtÓ‰ ADÝÝý‹„yÓó½ÞR5ÌyÈ7tv¶zbÕ©{3ÊWçÍÓ~LîèÒßXYÒ·dd™6·²¦ªZÛËX=¾¼rt”«ÎYˆ p´·FˆÐv++l¡ 3—ÔÕ¡³í´÷‹§D´mW絃oجØã`7àb߯j® k8÷H6(öáEÍ2å™Kž÷žºõhÎŽÕ‡gýøRžºjÔ„“cŸ}œ÷¨Í;yC—±gm‡;äÕy»ä¼^äùO¸í÷-y{gÏîw~îàÿ^ÿSýÞ(u¸{—×GíÜÔþüŸ²¶gw&®"ú/$A¡^†~ö& [¬™ê ^àÿé¹FÇðA·3®+&¼¹qêÃÍ’JŸïóï}:ãÚÜ%=.õ2ÜkÜø´sÇœXÅšŠþ„Ms=}£ðÐÄIU;ÓÒÐúßî¾½õ‹!§ä'Ô²…§·‡.;:±ÍŒÅß´ì™ÖuÓ"õõC†ßßè{ãµÏ«R~¶:{Æ»ý>æPX¨›Îˆn: ½–
߆RK'\>üµì}GŸ¥çä¶ú#ÍFG'¼HÄímD¼ÖZ?ùßêgi™â?¶¬ƒ.Ñ !:×X9¦J[>B[SeÔªµÅÕÕUI‘‘ãÇo7WAâv…åc"++ BEuQQ!º !1uôù¯[¯›ŽýÿJÇÓ±
¿œLÇ žd˜ýcÃfZèîa¸\»ÇÙ{í+‹:îY<Ã)ñÇ™§Û,æGtÝH³çßÎÞ|ûÐÏ#ݽúË®7'¿êwúN˵^÷ÿܾ4¯©°íÍÚ¸ªXsäî²ýúKïÝNëwáÑÌüWVxE=¤ªs=Þ ûÆÓsáô‡¦{›{^sÚ|uá…cÅ ò¶Vžû]×5ûëÈòBí×sOLŸüaÖÐêŠoÝœ®·sÒÚ?RÚŸê±?7mà$ãäæ×uÉ}woÇŸjy<>SWwÌ.,ˆp»ø[ ªO£òÇÆ#g~pwag»Ï