./0000755000000000000000000000000013320062076007710 5ustar rootroot./pkgs/0000755000000000000000000000000013320062076010654 5ustar rootroot./pkgs/VRTSacclib.bff0000755000000000000000000175000013320062076013275 0ustar rootroot kE{ZE{Zby nameby namerootd k^D{ZE{ZE{Z ./lpp_name4 R I VRTSacclib { VRTSacclib 7.0.3.0 1 N U en_US Veritas Cluster Server ACC Library by Veritas 7.0.3.0-2018-02-07_09.16.20 [ % /opt/VRTSvcs 1016 /usr/lpp 24 % ] } kV,E{ZE{ZE{Z ,./usr/lpp/VRTSacclib/liblpp.a 11032 0 0 128 7760 0 855 1112 0 1518016581 0 0 644 13 VRTSacclib.al` ./opt ./opt/VRTS ./opt/VRTS/messages ./opt/VRTS/messages/en ./opt/VRTS/.ACCLib ./opt/VRTS/.ACCLib/compat ./opt/VRTS/.ACCLib/network ./opt/VRTS/.ACCLib/system ./opt/VRTS/.ACCLib/vcs ./opt/VRTS/messages/en/VRTSvcsAIXVRTSacclib.bmc ./opt/VRTS/.ACCLib/compat/ag_i18n_inc_v35.pm ./opt/VRTS/.ACCLib/network/Comms.pm ./opt/VRTS/.ACCLib/system/Arch.pm ./opt/VRTS/.ACCLib/system/Lock.pm ./opt/VRTS/.ACCLib/system/Proc.pm ./opt/VRTS/.ACCLib/system/Sys.pm ./opt/VRTS/.ACCLib/vcs/Group.pm ./opt/VRTS/.ACCLib/vcs/Hagrp.pm ./opt/VRTS/.ACCLib/vcs/Hares.pm ./opt/VRTS/.ACCLib/vcs/Hasys.pm ./opt/VRTS/.ACCLib/vcs/Hatype.pm ./opt/VRTS/.ACCLib/vcs/LogInt.pm ./opt/VRTS/.ACCLib/vcs/Resource.pm ./opt/VRTS/.ACCLib/vcs/VCSagentFW.pm ./opt/VRTS/.ACCLib/vcs/VCSDefines.pm ./opt/VRTS/.ACCLib/vcs/VCSHighLevel.pm ./opt/VRTS/.ACCLib/vcs/VCSType.pm ./opt/VRTS/.ACCLib/vcs/Version.pm 933 2180 128 1518016580 0 0 555 20 VRTSacclib.copyright` Copyright (c) 2016 Veritas Technologies LLC. All rights reserved. Veritas and the Veritas Logo are trademarks or registered trademarks of Veritas Technologies LLC 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, whether delivered by Veritas as on premises or hosted services. 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. 3468 5782 1112 1518016581 0 0 644 20 VRTSacclib.inventory` /opt: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/messages: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/messages/en: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/.ACCLib: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/.ACCLib/compat: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/.ACCLib/network: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/.ACCLib/system: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/.ACCLib/vcs: class=apply,inventory,VRTSacclib owner=root group=system type=DIRECTORY /opt/VRTS/messages/en/VRTSvcsAIXVRTSacclib.bmc: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=14414 checksum=38012 15 /opt/VRTS/.ACCLib/compat/ag_i18n_inc_v35.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=9532 checksum=60677 10 /opt/VRTS/.ACCLib/network/Comms.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=15117 checksum=18422 15 /opt/VRTS/.ACCLib/system/Arch.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=9207 checksum=21577 9 /opt/VRTS/.ACCLib/system/Lock.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=12187 checksum=08035 12 /opt/VRTS/.ACCLib/system/Proc.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=98881 checksum=32372 97 /opt/VRTS/.ACCLib/system/Sys.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=59094 checksum=13357 58 /opt/VRTS/.ACCLib/vcs/Group.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=29607 checksum=48344 29 /opt/VRTS/.ACCLib/vcs/Hagrp.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=18879 checksum=62607 19 /opt/VRTS/.ACCLib/vcs/Hares.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=20415 checksum=64566 20 /opt/VRTS/.ACCLib/vcs/Hasys.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=13265 checksum=38873 13 /opt/VRTS/.ACCLib/vcs/Hatype.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=7138 checksum=62833 7 /opt/VRTS/.ACCLib/vcs/LogInt.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=24765 checksum=53019 25 /opt/VRTS/.ACCLib/vcs/Resource.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=26100 checksum=51491 26 /opt/VRTS/.ACCLib/vcs/VCSagentFW.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=55156 checksum=53271 54 /opt/VRTS/.ACCLib/vcs/VCSDefines.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=17407 checksum=43597 17 /opt/VRTS/.ACCLib/vcs/VCSHighLevel.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=24698 checksum=39220 25 /opt/VRTS/.ACCLib/vcs/VCSType.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=7002 checksum=56107 7 /opt/VRTS/.ACCLib/vcs/Version.pm: class=apply,inventory,VRTSacclib owner=root group=system type=FILE size=5992 checksum=35066 6 15 5932 2180 1518016581 0 0 644 19 VRTSacclib.namelist` VRTSacclib.rte 1696 7760 5782 1518016580 0 0 555 17 VRTSacclib.post_i` #!/bin/sh # # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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. $ # VCS_HOME=/opt/VRTSvcs HAD="/opt/VRTSvcs/bin/had" ACCLIB="/opt/VRTS/.ACCLib" ROOTDIR= if [ ${BASEDIR} ] ;then ROOTDIR=$BASEDIR fi if [ -d "${ROOTDIR}/opt/VRTSvcs/messages/en" ] ;then if [ -x "${ROOTDIR}/${VCS_HOME}/bin/bmcmap" ] ;then cd ${ROOTDIR}//opt/VRTSvcs/messages/en ${ROOTDIR}/${VCS_HOME}/bin/bmcmap -create en HAD -path ${ROOTDIR}/opt/VRTSvcs/messages/en 1> /dev/null 2>&1 fi fi if [ -f $HAD ]; then HADVERSION=`$HAD -version | grep Engine\ Version| awk '{print $3}'` if [ $HADVERSION = "3.5" ]; then /bin/cp $ACCLIB/compat/ag_i18n_inc_v35.pm $ACCLIB/compat/ag_i18n_inc.pm > /dev/null 2>&1 fi fi exit 0 3139 11032 5932 1518016580 0 0 555 17 VRTSacclib.post_r` #!/bin/sh # # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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. $ # $Id: postremove,v 1.12 2008/04/09 12:16:32 aatre Exp $ # #---------------------------------- # Configurable settings: # Define package name #---------------------------------- PkgName=ACCLib ROOTDIR= if [ ${BASEDIR} ] ;then ROOTDIR=${BASEDIR} fi #------------------------- # Set VCS base directories #------------------------- if [ ! -d "${ACC_HOME}" ]; then ACC_HOME=${ROOTDIR}/opt/VRTS fi VCS_HOME=/opt/VRTSvcs PROD_HOME=${NGC_HOME:-"${VCS_HOME}"} #------------------------- # Set package directories #------------------------- PkgDirectories="${ACC_HOME}/.${PkgName}/network ${ACC_HOME}/.${PkgName}/vcs ${ACC_HOME}/.${PkgName}/system ${ACC_HOME}/.${PkgName}/compat ${ACC_HOME}/.${PkgName}" #----------------------------------------------------------------------------- # ****** No further configurable settings ****** #----------------------------------------------------------------------------- #-------------------------------------------- # Define full paths to commands and constants #-------------------------------------------- RM=/bin/rm RMDIR=/bin/rmdir LS=/bin/ls $RM -f ${ACC_HOME}/.${PkgName}/compat/ag_i18n_inc.pm #------------------- # Update the BMC map #------------------- if [ -d "${ROOTDIR}/opt/VRTSvcs/messages/en" ] ;then if [ -x "${ROOTDIR}${VCS_HOME}/bin/bmcmap" ] ;then cd ${ROOTDIR}/opt/VRTSvcs/messages/en ${ROOTDIR}${VCS_HOME}/bin/bmcmap -create en HAD -path ${ROOTDIR}/opt/VRTSvcs/messages/en 1> /dev/null 2>&1 fi fi # # Commenting since files aren't getting removed.. Atre 09 Apr 2008 # #ISLINUX=`uname -s` #if [ $ISLINUX = "Linux" ]; #then #exit #fi #-------------------------------- # Remove the package directories #-------------------------------- for PkgDir in ${PkgDirectories} do if [ -d ${PkgDir} ]; then PkgDirContentList=`${LS} ${PkgDir}` if [ -z "${PkgDirContentList}" ]; then ${RMDIR} ${PkgDir} || echo "Warning: Problems removing directory [${PkgDir}]" else echo "Notice: Directory [${PkgDir}] is not empty and will not be removed." fi fi done 252 0 7760 0 0 0 0 0 ` 6 128 1112 2180 5782 5932 7760 VRTSacclib.alVRTSacclib.copyrightVRTSacclib.inventoryVRTSacclib.namelistVRTSacclib.post_iVRTSacclib.post_r] k@AD{ZD{ZD{Z ./optpA kAD{ZD{ZD{Z ./opt/VRTSTSacA kAD{ZD{ZD{Z ./opt/VRTS/messageslibA kp&AD{ZD{ZD{Z ./opt/VRTS/messages/enA kAD{ZD{ZD{Z ./opt/VRTS/.ACCLibenA k.AD{ZD{ZD{Z ./opt/VRTS/.ACCLib/compat.aA kJAD{ZD{ZD{Z ./opt/VRTS/.ACCLib/networkaA kAD{ZD{ZD{Z ./opt/VRTS/.ACCLib/systemaA k?AD{ZD{ZD{Z ./opt/VRTS/.ACCLib/vcsA kXN8D{ZD{ZD{Z N8./opt/VRTS/messages/en/VRTSvcsAIXVRTSacclib.bmcGZ{DenHADv') @'''%'< 'H'Hl'S'Sp']'`t'l'w''''''''4''T''l'(;(J(_(f(\()  C.m *  <  w a (  1C 9y/`:x;!kcI Dmk'U*] X@ < d !![!!"5"n""#G##$+$$%%P%%%&A&&' 'F'|'((_(()+)|)**I***+?+++,],--l--.I.../>/t/00^001#1o122x23334]445.5|56C667J77/%s:Comms CheckPort Invalid Port:[%s] specified4%s:Comms IsIPLocal <%s> Could not resolve Host [%s]K%s:Comms IsIPLocal <%s> Cmd [%s] with Args [%s] failed with Exit Code [%s]I%s:Proc ReadPidFile ReadPidFile failed to open filename [%s] for readingK%s:Proc WritePidFile WritePidFile failed to open filename [%s] for writing;%s:Proc GetDefunctProcessListHash Failed with message [%s]4%s:Proc GetProcessListHash Failed with message [%s]E%s:Proc GetLongProcessListHash EnvFlag [%s] not supported on OS [%s]8%s:Proc GetLongProcessListHash Failed with message [%s]S%s:Proc GetPidsStateFromList Call to get process list did not return any processes:%s:Proc GetPidsStateFromFile Error in call to ReadPidFile?%s:Proc KillPidsFromList Failed to kill Pids after kill (KILL)6%s:Proc KillPidsFromFile Error in call to ReadPidFileA%s:Proc CheckProcMaintainedPidFile Failed to delete PidFile [%s]I%s:Proc CheckProcMaintainedPidFile GetProcessListHash returned no proc'sM%s:Proc CheckProcMaintainedPidFile GetLongProcessListHash returned no proc'sT%s:Proc CheckProcMaintainedPidFile Failed in call to WritePidFile with PidFile [%s]C%s:Proc CheckProcProcessList GetProcessListHash returned no proc'sG%s:Proc CheckProcProcessList GetLongProcessListHash returned no proc'sT%s:KillPIDandAllChildren Proc Call to get process list did not return any processesV%s:KillPIDandAllChildren Proc Process [%s] must have already died, nothing to kill...i%s:KillPIDandAllChildren Proc [%s] delivered to: PID CMD ---------------- %s---------------- Total: [%s]S%s:Proc RemoveIPCResourcesForUser <%s> Invalid User [%s] specfied. Cannot proceed.Z%s:Proc RemoveIPCResourcesForUser <%s> Failed to use shmctl(2) on SHM Id [%s]. Error [%s]P%s:Proc RemoveIPCResourcesForUser <%s> Failed to remove SHM Id [%s]. Error [%s][%s:Proc RemoveIPCResourcesForUser <%s> Failed to use msgctl(2) on Msg QId [%s]. Error [%s]Q%s:Proc RemoveIPCResourcesForUser <%s> Failed to remove Msg QId [%s]. Error [%s]Z%s:Proc RemoveIPCResourcesForUser <%s> Failed to use semctl(2) on Sem Id [%s]. Error [%s]P%s:Proc RemoveIPCResourcesForUser <%s> Failed to remove Sem Id [%s]. Error [%s]n%s:Proc RemoveIPCResourcesForUser <%s> Following IDs could not be identified: %s Analyse and remove manually.,%s:Arch GetOSType Failed to get the OS type<%s:Sys RunCmdArgs Failed to find an executable file at [%s]B%s:Sys RunCmdArgsAsUser Failed to find an executable file at [%s];%s:Sys QuickSystemShutdown Shutting Down calling [%s] [%s]-%s:Sys QuickSystemShutdown RunCmdArgs exited-%s:Sys QuickSystemShutdown RunCmdArgs failed6%s:Sys SendMail Can't fork a process for sendmail: %sd%s:Sys SendMail The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]4%s:Sys DeleteFile Delete file [%s] failed to unlink:%s:Sys GetSystemNameAsVcsKnowsIt Failed with message [%s]D%s:Sys RunWithEnvCmdWithOutput Environment file [%s] does not exist8%s:Sys RunWithEnvCmdWithOutput File [%s] does not exist;%s:Sys RunWithEnvCmdWithOutput File [%s] is not executableO%s:Sys RunWithEnvCmdWithOutputWithTimeOut Environment file [%s] does not existH%s:Sys RunWithEnvCmdWithOutputWithTimeOut Directory [%s] does not existC%s:Sys RunWithEnvCmdWithOutputWithTimeOut File [%s] does not existF%s:Sys RunWithEnvCmdWithOutputWithTimeOut File [%s] is not executableb%s:Sys RunWithEnvCmdWithOutputWithTimeOut Failed to create directory: [%s] for OutFile [%s]: [%s]E%s:Sys RunWithEnvCmdWithOutputWithTimeOut Can't fork a process: [%s]E%s:Sys RunWithEnvCmdWithOutputWithTimeOut Can't fork a process: [%s]~%s:Sys RunWithEnvCmdWithOutputWithTimeOut The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]`%s:Sys RunWithEnvCmdWithOutputWithTimeOut The command [%s] did not complete within [%s] seconds6%s:Sys <%s> Called with empty list of files to remove0%s:Sys <%s> Wait on child [%s] failed with [%s]6%s:Sys <%s> Child with PID [%s] exited with code [%s]+%s:Sys <%s> Failed to setuid to [%s]. [%s] %s:Sys <%s> Could not fork [%s]%%s:Sys Directory [%s] does not exist,%s:Sys Environment file [%s] does not exist1%s:Sys File [%s] does not exist or is not a file#%s:Sys File [%s] is not executablen%s:Sys The Child PID was either undefined or less than 1. Therefore we cannot kill the blocking child process%s:Can't fork a process[%s:Sys The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]=%s:Sys The command [%s] did not complete within [%s] seconds*%s:Hasys Display Failed with message [%s]0%s:Lock GetLock Failed to create locks dir [%s]X%s:Lock GetLock Failing attempt to re-aquire lock [$sLockName], duplicate request call?2%s:Lock GetLock Taking lock [$sLockName] by forcec%s:Lock GetLock Failed to take lock [$sLockName] by force; could not unlink lock file [$sLockFile]B%s:Lock GetLock Failed to open like file [$sLockFile] for writing^%s:Lock ReleaseLock Failing attempt to release lockname:[$sLockName], duplicate release call?j%s:Lock ReleaseLock Failed to release lock [$sLockName] by force; could not unlink lock file [$sLockFile]x%s:Lock ReleaseLock Failed to release a lock lockname:[$sLockName] with lockid:[$iLockIdTestRead], we did not aquire itE%s:Lock ReleaseLock Failed to read a lock file lockname:[$sLockName]G%s:VCSagentFW setupLogging Setting LogLevel to Default LogLevel [INFO]]%s:VCSagentFW SetupLogging [%s] Entered by resource instance [%s] with clean reason [%s][%s]K%s:VCSagentFW Called with message id [%s] without first calling SetupEntryQ%s:VCSagentFW entryPointExit Failed to create FFDC directory [%s]. OS error [%s]H%s:VCSagentFW entryPointExit Generating FFDC messages for resource [%s]%s:VCSagentFW logOutputFromCommand Command line [%s] exited with code [%s] , truncating output to approximately [%s] characters [%s].N%s:VCSagentFW logOutputFromCommand The full output is logged to the file [%s]g%s:VCSagentFW logOutputFromCommand Command line [%s] produced exit code [%s] and generated output [%s]%s:VCSagentFW GetVCSObjectHash The command line [%s] did not complete within the allotted amount of time ([%s] seconds) $sCommand $sCommandArgsd%s:VCSagentFW GetVCSObjectHash Errors encountered during call to RunWithEnvCmdWithOutputWithTimeOut$%s:VCSagentFW messageEngineLog [%s]$%s:VCSagentFW messageEngineLog [%s]$%s:VCSagentFW messageEngineLog [%s]J%s:VCSagentFW RunSecondLevelMonitor <%s> Failed to create SLM folder [%s]U%s:VCSagentFW RunSecondLevelMonitor <%s> Failed to open SLM file [%s] for read/writeg%s:VCSagentFW RunSecondLevelMonitor <%s> Close failed on SLM file [%s] after update. OS Error was [%s]1%s:Hagrp Online Failed with message:[$sHagrpOut]6%s:Hasys GetStateGivenSystem Failed with message [%s]5%s:Hasys GetSystemStateList Failed with message [%s]1%s:Hares Online Failed with message:[$sHaresOut]M%s:VCSDefines VCSDef_CleanReason Couldn't find corresponding string for [%s]O%s:VCSDefines VCSDef_ResourceState Couldn't find corresponding string for [%s]P%s:VCSDefines VCSDef_ResourceIState Couldn't find corresponding string for [%s]H%s:VCSType GetOfflineTimeoutGivenType Failed in call to Hatype::Display@%s:Group GetIPsForServiceGroup failed in call to Hares::DisplayP%s:LogInt SetDebugLevelWithString Could not set the log level using string [%s]2%s:LogInt GetLLString Invalid log level used [%s]J%s:LogInt SetResourceName Subroutine <%s> called with: Resource Name [%s]I%s:LogInt SetResourceName SetResourceName called with empty ResourceName4%s:LogInt GetLLHalogTag Invalid log level used [%s]6%s:Hagrp OnlineNoPre Failed with message:[$sHagrpOut]2%s:Hagrp Offline Failed with message:[$sHagrpOut]E%s:Hagrp GetStateInfoListGivenGroup Failed with message:[$sHagrpOut]F%s:Hagrp GetStateGivenGroupAndSystem Failed with message:[$sHagrpOut]2%s:Hagrp Display Failed with message:[$sHagrpOut]G%s:VCSType GetOnlineTimeoutGivenType Failed in call to Hatype::Display6%s:Group Offline Called with WaitPeriod[$iWaitPeriod]2%s:Group Offline failed in call to Hagrp::OfflineF%s:Group Offline failed in call to Hagrp::GetStateGivenGroupAndSystemT%s:Group GetGroupsCurrentSystem failed in call to Hagrp::GetStateInfoListGivenGroup=%s:Group OnlineInternal Called with WaitPeriod[$iWaitPeriod]8%s:Group OnlineInternal Failed in call to Hagrp::Online=%s:Group OnlineInternal Failed in call to Hagrp::OnlineNoPreK%s:Group OnlineInternal Incorrect value for OnlineType value[$bOnlineType]M%s:Group OnlineInternal failed in call to Hagrp::GetStateGivenGroupAndSystem<%s:Group GetSystemListHash failed in call to Hagrp::DisplayQ%s:Group GetSystemListHash System list data invalid format [$sResultEntryString]4%s:Hatype Display Failed with message:[$sHatypeOut]3%s:Resource Online failed in call to Hares::Online/%s:VCSHighLevel KillProcs Subroutine %s called@%s:VCSHighLevel KillProcs GetProcessListHash returned no proc'sD%s:VCSHighLevel KillProcs GetLongProcessListHash returned no proc'sL%s:VCSHighLevel CheckProcs CheckProcType:[$CheckProcType] is not recognised4%s:VCSHighLevel CheckProcs No ProcNameFilters given4%s:VCSHighLevel CheckProcs No ProcNameFilters givenZ%s:VCSHighLevel CheckProcs ProcNameFilters should be empty; got [$sProcNameFiltersString]`%s:VCSHighLevel CheckProcs NumberOfEachProcRequired:[$iNumberOfEachProcRequired] is less than 1B%s:VCSHighLevel CheckProcs NumberOfEachProcRequired was undefineda%s:VCSHighLevel CheckProcs iNumberOfEachProcRequired:[$iNumberOfEachProcRequired] is more than 1R%s:VCSHighLevel CheckProcs ProcType:[$ProcType] is unrecognised (not implemented)0%s:VCSHighLevel CheckProcs ProcType not definedO%s:VCSHighLevel CheckProcs ProcType:[$ProcType] not set to Proc::PROC_TYPE_ALL2%s:VCSHighLevel CheckProcs ProcType is undefined!1%s:VCSHighLevel CheckProcs no pid file specified9%s:VCSHighLevel CheckProcs PidFile should not be definedI%s:VCSHighLevel CheckProcs CheckProcType:[$CheckProcType] not recognised2%s:Hares Offline Failed with message:[$sHaresOut]H%s:Hares GetStateInfoListGivenResource Failed with message:[$sHaresOut]M%s:Hares GetStateInfoGivenResourceAndSystem Failed with message:[$sHaresOut]I%s:Hares GetDependInfoListGivenResource Failed with message:[$sHaresOut]2%s:Hares Display Failed with message:[$sHaresOut]?%s:LogInt SetDebugLevel Information, Set Logging Level To [%s]H%s:Resource Online failed in call to VCSType::GetOnlineTimeoutGivenTypeH%s:Resource Online failed in call to Resource::GetTypeNameGivenResourceJ%s:Resource Online Resource [$sResourceName] is faulted; failed to onlineO%s:Resource Online failed in call to Hares::GetStateInfoGivenResourceAndSystemd%s:Resource GetParentResourceListGivenChild failed in call to Hares::GetDependInfoListGivenResourceI%s:Resource Offline Failed in call to GetStateInfoGivenResourceAndSystemQ%s:Resource OfflineThisResourceItemWaitInterval failed in call to Hares::Offlinef%s:Resource OfflineThisResourceItemWaitInterval failed in call to VCSType::GetOfflineTimeoutGivenTypee%s:Resource OfflineThisResourceItemWaitInterval failed in call to Resource::GetTypeNameGivenResourcel%s:Resource OfflineThisResourceItemWaitInterval Failed in call to Hares::GetStateInfoGivenResourceAndSystemG%s:Resource GetGroupNameGivenResource Failed in call to Hares::DisplayF%s:Resource GetTypeNameGivenResource Failed in call to Hares::Display8%s:VCSagentFW setupLogging Invalid LogLevel String [%s]J%s:VCSagentFW entryPointExit FFDC file [%s] opened for writing FFDC logs.X%s:VCSagentFW entryPointExit FFDC file [%s] closed after writing FFDC logs succesfully.g%s:VCSagentFW entryPointExit FFDC file [%s] could not be closed after writing FFDC logs! OS Error [%s]S%s:VCSagentFW entryPointExit FFDC file [%s] could not be opened. OS error was [%s]T%s:Proc GetDefunctProcessListHash getpwnam call failed for User [%s]. OS error [%s]T%s:Proc GetDefunctProcessListHash getpwnam call failed for User [%s]. OS error [%s]Q%s:Sys RunWithEnvCmdWithOutput Call getpwnam failed for user [%s]. OS error [%s]\%s:Sys RunWithEnvCmdWithOutputWithTimeOut Call getpwnam failed for User [%s]. OS error [%s]K%s:Sys RunWithEnvCmdInBG Call getpwnam failed for User [%s]. OS error [%s]od kr<%E{ZD{ZD{Z <%./opt/VRTS/.ACCLib/compat/ag_i18n_inc_v35.pmc# $Id: ag_i18n_inc_v35.pm,v 1.3 2008/03/10 10:06:45 aatre Exp $ # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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. $ # # exported functions can be used after doing the following: # use ag_i18n_inc; package ag_i18n_inc; use Exporter; @ISA = ('Exporter'); @EXPORT = ('$VCSAG_RES_UNKNOWN', '$VCSAG_RES_OFFLINE', '$VCSAG_RES_ONLINE', 'VCSAG_SET_ENVS', 'VCSAG_LOG_MSG', 'VCSAG_LOGDBG_MSG', 'VCSAG_SQUEEZE_SPACES'); use File::Basename; use POSIX qw(uname); use strict; my ($ACTION_ENTRY_PT) = "actions"; my ($VCSHOME, $HALOG, $SYSTEM, $FILE_NAME, $AGENT_DIR, $VCSAG_OS); my ($VCS_LOG_CATEGORY, $VCS_LOG_SCRIPT_NAME, $VCS_LOG_AGENT_NAME); my ($VCS_SUPPLANG, $VCS_USERLANG) = ("C", $ENV{"LANG"}); #our($VCSAG_RES_UNKNOWN, $VCSAG_RES_OFFLINE, $VCSAG_RES_ONLINE) = (99, 100, 110); my($VCSAG_RES_UNKNOWN, $VCSAG_RES_OFFLINE, $VCSAG_RES_ONLINE) = (99, 100, 110); $VCSHOME = $ENV{"VCS_HOME"}; $VCSHOME = "/opt/VRTSvcs" unless (defined ($VCSHOME)); $HALOG = "$VCSHOME/bin/halog"; $VCSAG_OS = "UNIX"; $FILE_NAME = $0; # set entry point $VCS_LOG_SCRIPT_NAME = basename ($FILE_NAME); # set agent name $AGENT_DIR = dirname ($FILE_NAME); $VCS_LOG_AGENT_NAME = basename ($AGENT_DIR); # special treatment to action entry point if ($VCS_LOG_AGENT_NAME eq $ACTION_ENTRY_PT) { $VCS_LOG_SCRIPT_NAME = $VCS_LOG_AGENT_NAME; $AGENT_DIR = dirname (dirname ($FILE_NAME)); $VCS_LOG_AGENT_NAME = basename ($AGENT_DIR); } # set category-id ($SYSTEM) = uname (); if ($SYSTEM eq "AIX") { $VCS_LOG_CATEGORY = 10011; } elsif ($SYSTEM eq "HP-UX") { $VCS_LOG_CATEGORY = 10021; $ENV{"LANG"} = $VCS_SUPPLANG; } elsif ($SYSTEM eq "Linux") { $VCS_LOG_CATEGORY = 10031; $ENV{"LANG"} = $VCS_SUPPLANG; } elsif ($SYSTEM eq "SunOS") { $VCS_LOG_CATEGORY = 10001; } else # if ($SYSTEM eq "Windows NT") { $VCS_LOG_CATEGORY = 10041; $HALOG = "\"$VCSHOME\\bin\\halog\""; $VCSAG_OS = "WINDOWS"; $VCS_LOG_SCRIPT_NAME =~ s/\.pl$//; } if ($VCSAG_OS eq "UNIX") { my ($PATH) = $ENV{PATH}; $PATH = "/usr/bin:/bin:/usr/sbin:/sbin:$PATH"; $ENV{PATH} = $PATH; } $ENV{VCS_LOG_AGENT_NAME} = $VCS_LOG_AGENT_NAME; $ENV{VCS_LOG_SCRIPT_NAME} = $VCS_LOG_SCRIPT_NAME; $ENV{VCS_LOG_CATEGORY} = $VCS_LOG_CATEGORY; # set the environment variables required for logging. # this function must be called once before calling the # logging function VCSAG_LOG_MSG/VCSAG_LOGDBG_MSG # # usage: # 0. VCSAG_SET_ENVS () # only for triggers # 1. VCSAG_SET_ENVS ($resource_name) # 2. VCSAG_SET_ENVS ($resource_name, $category) # 3. VCSAG_SET_ENVS ($resource_name, $entry_point) # 4. VCSAG_SET_ENVS ($resource_name, $category, $entry_point) # 5. VCSAG_SET_ENVS ($resource_name, $entry_point, $category) sub VCSAG_SET_ENVS { # resource name and/or category and/or entry point. # passed by caller [optional] my ($VCS_LOG_RESOURCE_NAME, $OPT_ARG1, $OPT_ARG2) = @_; if ($#_ == -1) # for triggers { $ENV{VCS_LOG_CATEGORY} = 6; $ENV{VCS_LOG_AGENT_NAME} = ""; return; } $ENV{VCS_LOG_RESOURCE_NAME} = $VCS_LOG_RESOURCE_NAME; if ($OPT_ARG1) { if ($OPT_ARG1 !~ /\D/) { $ENV{VCS_LOG_CATEGORY} = $OPT_ARG1; } elsif ($OPT_ARG1 !~ /[^a-z]/) { $ENV{VCS_LOG_SCRIPT_NAME} = $OPT_ARG1; } } if ($OPT_ARG2) { if ($OPT_ARG2 !~ /\D/) { $ENV{VCS_LOG_CATEGORY} = $OPT_ARG2; } elsif ($OPT_ARG2 !~ /[^a-z]/) { $ENV{VCS_LOG_SCRIPT_NAME} = $OPT_ARG2; } } } # all perl entry points must use this function if it is not a debug msg. # # usage: # 1. VCSAG_LOG_MSG ("", "", ) # 2. VCSAG_LOG_MSG ("", "", , "$param1") # 3. VCSAG_LOG_MSG ("", "", , "-encoding ") # 4. VCSAG_LOG_MSG ("", "", , "-encoding ", "$param1") # # example: # 1. VCSAG_LOG_MSG ("N", "a test message", 1); # 2. VCSAG_LOG_MSG ("N", "a test message of $test", 1, "$test") # 3. VCSAG_LOG_MSG ("N", "a test message", 1, "-encoding utf8") # 4. VCSAG_LOG_MSG ("N", "a test message of $test", 1, "-encoding utf8", "$test") sub VCSAG_LOG_MSG { # @params includes "-encoding " and all the parameters. # caller needs to make sure that it has passed the parameters in # the correct order. # if is passed as an argument then the format of the # params would be : # $params[0] = "-encoding " # $params[1] = # $params[2] = and so on. # otherwise : # $params[0] = # $params[1] = and so on. my ($severity, $msg, $msgid, @params) = @_; my ($i, $log_msg) = (0, ""); my ($encoding, $param_idx, $parameters) = ("", 0, "", ""); if ($#params >= 0) { $encoding = $params[0] if ($params[0] =~ /^\s*-encoding\s/); } $param_idx = 1 if ($encoding); for ($i = $param_idx; $i <= $#params; $i++) { $params[$i] = "%$params[$i]" if ($params[$i] =~ /^-/); $parameters .= "\"$params[$i]\" "; } #------------------------ # VCS 3.5 halog tags: # TAG A => SEV C # TAG B => SEV E # TAG C => SEV W # TAG D => SEV N # TAG E => SEV I #------------------------ my %shTagLookup = (); $shTagLookup{"C"} = "A"; $shTagLookup{"E"} = "B"; $shTagLookup{"W"} = "C"; $shTagLookup{"N"} = "D"; $shTagLookup{"I"} = "E"; $parameters = "-parameters " . "$parameters" if ("$parameters"); $log_msg = "$HALOG -add $shTagLookup{$severity} \"$msg\" -msgid $msgid"; $log_msg .= " $encoding $parameters"; if ($VCSAG_OS eq "UNIX") { system ($log_msg); } else # if ($VCSAG_OS eq "WINDOWS") { system ("\"$log_msg\""); } } # all perl entry points must use this function if it is not a debug msg. # # usage: # 1. VCSAG_LOGDBG_MSG (, "") # 2. VCSAG_LOGDBG_MSG (, "", ) # 3. VCSAG_LOGDBG_MSG (, "", , "$param1") # 4. VCSAG_LOGDBG_MSG (, "", , "-encoding ") # 5. VCSAG_LOGDBG_MSG (, "", , "-encoding ", "$param1") # # example: # 1. VCSAG_LOGDBG_MSG (1, "a test message") # 2. VCSAG_LOGDBG_MSG (1, "a test message", 1) # 3. VCSAG_LOGDBG_MSG (1, "a test message of $test", 1, "$test") # 4. VCSAG_LOGDBG_MSG (1, "a test message", 1, "-encoding utf8"); # 5. VCSAG_LOGDBG_MSG (1, "a test message of $test", 1, "-encoding utf8", "$test") sub VCSAG_LOGDBG_MSG { # @params includes "-encoding " and all the parameters. # caller needs to make sure that it has passed the parameters in # the correct order. # if is passed as an argument then the format of the # params would be : # $params[0] = "-encoding " # $params[1] = # $params[2] = and so on. # otherwise : # $params[0] = # $params[1] = and so on. my ($dbg, $msg, $msgid, @params) = @_; my ($i, $log_msg) = (0, ""); my ($encoding, $param_idx, $parameters) = ("", 0, "", ""); $log_msg = "$HALOG -add \"$msg\" -dbg $dbg"; if ($msgid) { $log_msg .= " -msgid $msgid"; if ($#params >= 0) { $encoding = $params[0] if ($params[0] =~ /^\s*-encoding\s/); } $param_idx = 1 if ($encoding); for ($i = $param_idx; $i <= $#params; $i++) { $params[$i] = "%$params[$i]" if ($params[$i] =~ /^-/); $parameters .= "\"$params[$i]\" "; } $parameters = "-parameters " . "$parameters" if ("$parameters"); $log_msg .= " $encoding $parameters"; } if ($VCSAG_OS eq "UNIX") { system ($log_msg); } else # if ($VCSAG_OS eq "WINDOWS") { system ("\"$log_msg\""); } } # remove leading and trailing spaces & squeeze the spaces # # input params : # 1. strings # # output params : # 1. space squeezed strings # # usage: # 1. ($a, ...) = VCSAG_SQUEEZE_SPACES ($a, ...); # # example: # 1. $str1 = VCSAG_SQUEEZE_SPACES ($str1); # 2. ($str1, $str2) = VCSAG_SQUEEZE_SPACES ($str1, $str2); # 3. @str = VCSAG_SQUEEZE_SPACES (@str); # 4. @str = VCSAG_SQUEEZE_SPACES ($str1, $str2); sub VCSAG_SQUEEZE_SPACES { my (@string) = @_; my ($i); return if ($#string == -1); for ($i = 0; $i <= $#string; $i++) { $string[$i] =~ s/\s+/ /g; $string[$i] =~ s/^\s+//g; $string[$i] =~ s/\s+$//g; } return ($#string == 0) ? $string[0] : @string; } 1; # k긚 ;E{ZD{ZD{Z  ;./opt/VRTS/.ACCLib/network/Comms.pm_v3#---------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/network/Comms.pm,v 1.17 2009/08/11 08:28:58 aatre Exp $ # # Veritas Software Corporation # # Package Name: Comms # # $Author: aatre $ # $Date: 2009/08/11 08:28:58 $ # $Revision: 1.17 $ # # Description: Provides Various comms related calls. # # Authors: 011787 #---------------------------------------------------------------------------- #------------------- # Version calls. #------------------- use Version; Version::TellVersion( "\$Header: /project/isv-agent/ACCLib/lib/network/Comms.pm,v 1.17 2009/08/11 08:28:58 aatre Exp $::ETVHeader"); #----------------------- # End of version calls. #----------------------- #--------------------------- # Declare the package name. #--------------------------- package Comms; #----------------------------------------- # Turn on strict for vars, subs and refs. #----------------------------------------- use strict; #---------------------------- # Include necessary packages. #---------------------------- use LogInt; use ag_i18n_inc; use IO::Socket; #--------------------------------------------- # Include perl built in modules if nessary. # For CheckPort's socket check and URL get. #--------------------------------------------- $::bINET6 = 0; if ( eval 'require IO::Socket::INET6' ) { require IO::Socket::INET6; ++ $::bINET6; } #------------------------------------------------------ # Define the global variables for unix system commands. #------------------------------------------------------ $::gsCommandIfconfig = "/sbin/ifconfig"; $::gsCommandGrep = "/bin/grep"; #-------------------------------------- # Settings for timeouts (in seconds). #-------------------------------------- $::giPortConnectTimeoutSeconds = 5; $::giHttpGetTimeoutSeconds = 10; =pod ---------------------------------------------------------------------- Function: boolean CheckPort ( IN String Hostname, IN Integer Port ) Decription: Checks host is reachable on given port. Parameters: Hostname: Name of the host machine/IPv4/IPv6 address. Port : Port number on which the connection needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 false 1 true ---------------------------------------------------------------------- =cut sub CheckPort { my ( $sHost, $iPort ) = @_; my $sMyName = ( caller 0 )[3]; LogInt::Message ( LogInt::LLTrace, 10001, "Comms", "CheckPort", "Subroutine <%s> called with: Host [%s] Port [%s]", $sMyName, $sHost, $iPort ); #---------------- # Validate Port.. #---------------- if ( $iPort !~ /^\d+$/ ) { LogInt::Message ( LogInt::LLError, 10002, "Comms", "CheckPort", "Invalid Port:[%s] specified", $iPort ); return 0; } LogInt::Message ( LogInt::LLTrace, 10003, "Comms", "CheckPort", "Checking Host:[%s] on Port:[%s], TimeoutSeconds:[%s]", $sHost, $iPort, $::giPortConnectTimeout ); my $oSock = undef; if ( $::bINET6 ) { $oSock = IO::Socket::INET6 -> new ( PeerAddr => $sHost, PeerPort => $iPort, Proto => 'tcp', Timeout => $::giPortConnectTimeoutSeconds ); } else { $oSock = IO::Socket::INET -> new ( PeerAddr => $sHost, PeerPort => $iPort, Proto => 'tcp', Timeout => $::giPortConnectTimeoutSeconds ); } if ( $oSock ) { #---------------- # Connected OK. #---------------- LogInt::Message ( LogInt::LLTrace, 10004, "Comms", "CheckPort", "Checking Host:[%s] on Port:[%s], TimeoutSeconds:[%s] (Connected OK)", $sHost, $iPort, $::giPortConnectTimeout ); close ( $oSock ); # Ignore error.. return 1; } else { #----------------------- # Failed to connect. #----------------------- LogInt::Message ( LogInt::LLTrace, 10005, "Comms", "CheckPort", "Checking Host:[%s] on Port:[%s], TimeoutSeconds:[%s] (Failed to Connect)", $sHost, $iPort, $::giPortConnectTimeout ); return 0; } } =pod ------------------------------------------------------------------- Function: boolean TestURLFromHostPort( IN String Hostname, IN Integer Port, IN String URL ) Description: Tests the URL on given host with port number. Parameters: Hostname: Name of the host machine. Port : Port number. URL : URL needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 false 1 true ------------------------------------------------------------------- =cut sub TestURLFromHostPort { my ( $sHost, $iPort, $sURL ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10006, "Comms", "HostPort", "Subroutine <%s> called with: Host [%s] Port [%s] URL [%s]", $sMyName, $sHost, $iPort, $sURL ); LogInt::Message( LogInt::LLTrace, 10007, "Comms", "TestURLFromHostPort", "Checking Host:[$sHost] on Port:[$iPort], URL:[$sURL]" ); #------------------------------------------------------------------------- # $::giPortConnectTimeoutSeconds is used in the connect call. # $::giHttpGetTimeoutSeconds is used in the HTTP GET # (implimented using SIGALRM). #------------------------------------------------------------------------- my $oSock = undef; if ( $::bINET6 ) { $oSock = IO::Socket::INET6 -> new ( PeerAddr => $sHost, PeerPort => $iPort, Proto => 'tcp', Timeout => $::giPortConnectTimeoutSeconds ); } else { $oSock = IO::Socket::INET -> new ( PeerAddr => $sHost, PeerPort => $iPort, Proto => 'tcp', Timeout => $::giPortConnectTimeoutSeconds ); } if ( $oSock ) { #--------------- # Connected OK. #--------------- LogInt::Message( LogInt::LLTrace, 10008, "Comms", "TestURLFromHostPort", "Host:[%s] on Port:[%s], URL:[%s], TimeoutSeconds:[%s] (Connected OK)", $sHost, $iPort, $sURL, $::giPortConnectTimeoutSeconds ); } else { #--------------------- # Failed to connect. #--------------------- LogInt::Message( LogInt::LLTrace, 10009, "Comms", "TestURLFromHostPort", "Host:[%s] on Port:[%s], URL:[%s], TimeoutSeconds:[%s] ( Failed to Connect)", $sHost, $iPort, $sURL, $::giPortConnectTimeoutSeconds ); #------------------------------------------ # Return at this point, no port listening. #------------------------------------------ return 0; } $oSock->autoflush ( 1 ); #---------------------------------------- # New line stuff for HTTP commands (GET). #---------------------------------------- my $EOL = "\015\012"; my $BLANK = $EOL x 2; print $oSock "GET $sURL HTTP/1.0" . $BLANK; #------------------------------------------------------- # Set up 'try' block for the SIGALARM so we can timeout # after $::giHttpGetTimeoutSeconds. #------------------------------------------------------- my @lsWebServerResponse = ("Message Set For Timeout Check"); eval { local $SIG{ALRM} = sub { die "sigalarm jump eval\n" }; alarm $::giHttpGetTimeoutSeconds; LogInt::Message ( LogInt::LLTrace, 10010, "Comms", "TestURLFromHostPort", "Just before read socket on Port:[$iPort] on Host:[$sHost]" ); @lsWebServerResponse = <$oSock>; #----------------------------------------------------- # Cancel the alarm if successed in getting response. #----------------------------------------------------- alarm 0; LogInt::Message ( LogInt::LLTrace, 10011, "Comms", "TestURLFromHostPort", "Read socket completed" ); }; chomp $lsWebServerResponse [0]; close ( $oSock ); # Ignore error code.. LogInt::Message ( LogInt::LLTrace, 10012, "Comms", "TestURLFromHostPort", "Web server response is:[$lsWebServerResponse[0]]" ); my ( $sVersion, $iRet ) = split ( /\s+/, $lsWebServerResponse [0] ); chomp $iRet; #------------------------------------------------------------------------ # It should match HTTP/1.1 200 OK or HTTP/1. 200 OK, do simple check. # The return value should be in between 0 and 200. Do a simple check. #------------------------------------------------------------------------ if ( $iRet > 0 && $iRet <= 200 ) { #------------------ # Got the page OK. #------------------ LogInt::Message ( LogInt::LLTrace, 10013, "Comms", "TestURLFromHostPort", "Host:[$sHost] on Port:[$iPort], URL:[$sURL] (Server Returned OK Code between 0 and 200 )" ); return 1; } else { #---------------------------- # Failed to get the page. #---------------------------- LogInt::Message( LogInt::LLTrace, 10014, "Comms", "TestURLFromHostPort", "Host:[$sHost] on Port:[$iPort], URL:[$sURL] (Server FAILED To Return OK Code between 0 and 200 )" ); return 0; } } =pod ---------------------------------------------------------------------------- Function: boolean CheckIfIPExistsLocally( IN String IP ) Description: Checks given IP exists on the local machine. Parameters: IP: IP address to be checked. (Ex., 10.212.92.176). Return Value: boolean value in the set of {0,1} where 0 false 1 true ---------------------------------------------------------------------------- =cut sub CheckIfIPExistsLocally { my ( $sIP ) = @_; my $sMyName = ( caller 0 ) [3]; LogInt::Message ( LogInt::LLTrace, 10015, "Comms", "CheckIfIPExistsLocally", "Subroutine <%s> called with: IP [%s]", $sMyName, $sIP ); my $iIPMatchCount = `$::gsCommandIfconfig -a | $::gsCommandGrep -c "$sIP"`; chomp $iIPMatchCount; if ( $iIPMatchCount > 0 ) { LogInt::Message ( LogInt::LLTrace, 10016, "Comms", "CheckIfIPExistsLocally", "found IP addr:[$sIP]" ); return 1; } else { LogInt::Message ( LogInt::LLTrace, 10017, "Comms", "CheckIfIPExistsLocally", "did not find IP addr:[$sIP]" ); return 0; } } =pod ------------------------------------------------------------------------- Function : bool IsIPLocal ( IN String Host ); Description : Tells if IP corresponding to virtual host is plumbed locally. Parameters : $sHost Hostname/IPv4 address of virtual host Returns : boolean value in the set of {0,1} where 0 false 1 true ------------------------------------------------------------------------- =cut sub IsIPLocal { #---------------- # Get Arguments.. #---------------- my ( $sHost ) = @_; #----------------- # Announce Entry.. #----------------- my $sMyName = ( caller 0 )[3]; LogInt::Message ( LogInt::LLTrace, 10018, "Comms", "IsIPLocal", "Subroutine <%s> called with: Host [%s]", $sMyName, $sHost ); #-------------------------------------- # Set Return Code Optimistically to 1.. #-------------------------------------- my $iReturnCode = 1; #----------------------------- # Initialise local variables.. #----------------------------- my ( $iAddr, $sName, $sStrAddr, $iExitCode, @lsCmd ) = (); my $sNetCmd = "/bin/netstat"; my $sNetArgs = $^O eq 'linux'?'-eni':'-ian'; #---------------------- # Resolve his request.. #---------------------- if ( $iAddr = inet_aton $sHost ) { $sName = gethostbyaddr ( $iAddr, AF_INET ); $sStrAddr = inet_ntoa $iAddr; LogInt::Message( LogInt::LLTrace, 10019, "Comms", "IsIPLocal", "<%s> Resolved [%s] to Host [%s] IPv4 Address [%s]", $sMyName, $sHost, $sName, $sStrAddr ); } else { LogInt::Message( LogInt::LLError, 10020, "Comms", "IsIPLocal", "<%s> Could not resolve Host [%s]", $sMyName, $sHost ); $iReturnCode = 0; } $iReturnCode || return $iReturnCode; # Return, if failed.. #-------------------------- # Get locally plumbed IPs.. #-------------------------- @lsCmd = grep { s/\n// || 1 } readpipe ( "$sNetCmd $sNetArgs" ); #-------------------- # Check exit status.. #-------------------- if ( $iExitCode = $? >> 8 ) { LogInt::Message( LogInt::LLError, 10021, "Comms", "IsIPLocal", "<%s> Cmd [%s] with Args [%s] failed with Exit Code [%s]", $sNetCmd, $sNetArgs, $iExitCode ); $iReturnCode = 0; } elsif ( grep { /\b$sStrAddr\b/o } @lsCmd ) { LogInt::Message( LogInt::LLTrace, 10022, "Comms", "IsIPLocal", "<%s> IP Address [%s] is plumbed locally", $sMyName, $sStrAddr ); } else { LogInt::Message( LogInt::LLTrace, 10023, "Comms", "IsIPLocal", "<%s> IP Address [%s] is not plumbed locally", $sMyName, $sStrAddr ); $iReturnCode = 0; } return $iReturnCode; } #-------------------------------------------- # End with 1, so perl knows its included ok. #-------------------------------------------- 1; kt#E{ZD{ZD{Z #./opt/VRTS/.ACCLib/system/Arch.pm_v3#---------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/system/Arch.pm,v 1.11 2008/10/06 05:09:33 aatre Exp $ # # Veritas Software Corporation # # Package Name: Arch # # $Author: aatre $ # $Date: 2008/10/06 05:09:33 $ # $Revision: 1.11 $ # # Description: This module provides the functionality which is OS dependant, # allowing the agent FW to be supported on different OS # types more easily. # # Authors: 011787 #---------------------------------------------------------------------------- #--------------------- # Version calls. #--------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/system/Arch.pm,v 1.11 2008/10/06 05:09:33 aatre Exp $::ETVHeader"); #------------------------- # Package declaration. #------------------------- package Arch; #------------------------------- # Include all packages required. #------------------------------- use LogInt; use strict; $::gbArchInitialised = 0; #set to uninitialised to start $::giArchOSType = 0; #set to uninitialised to start #--------------------------------------------------------------- # constants that are available for multi-platform support. #--------------------------------------------------------------- use constant OS_CONSOLE => 1; use constant OS_SYSTEM_LOG_FILE => 2; #----------------- # sun lookups. #----------------- my %hFlagToString_SunOS = ( Arch::OS_CONSOLE => "/dev/console", Arch::OS_SYSTEM_LOG_FILE => "/var/adm/messages" ); my %hFlagToString_AIX = ( Arch::OS_CONSOLE => "/dev/console", Arch::OS_SYSTEM_LOG_FILE => "/var/adm/messages" ); my %hFlagToString_LINUX = ( Arch::OS_CONSOLE => "/dev/console", Arch::OS_SYSTEM_LOG_FILE => "/var/log/messages" ); my %hFlagToString_HPUX = ( Arch::OS_CONSOLE => "/dev/console", Arch::OS_SYSTEM_LOG_FILE => "/var/adm/syslog" ); #------------------------------------------- # Enumerate the OS's we do/will support. #------------------------------------------- use constant UNKNOWN_OS => 101; use constant SUN_OS => 102; use constant HPUX_OS => 103; use constant LINUX_OS => 104; use constant AIX_OS => 105; =pod ----------------------------------------------------------------------------- Function: Boolean GetOSDependantSetting ( IN Integer VarName, OUT String Setting ) Description: Gives the OS dependent setting for Console and Messages. Parameters: VarName : OS dependent variable name. It can be one of the following: OS_CONSOLE OS_SYSTEM_LOG_FILE Setting : OS dependent setting for given variable. Return Value: Boolean value in the set of {0, 1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetOSDependantSetting { my ( $iVarName, $rsSetting ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10134, "Arch", "GetOSDependantSetting", "Subroutine %s called with: VarName [%s]", $sMyName, $iVarName ); my $iOSType = GetOSType(); my $rhFlagToStringLookupHashRef = 0; if(Arch::SUN_OS == $iOSType){ $rhFlagToStringLookupHashRef = \%hFlagToString_SunOS; } elsif(Arch::AIX_OS == $iOSType) { $rhFlagToStringLookupHashRef = \%hFlagToString_AIX; } elsif(Arch::LINUX_OS == $iOSType ) { $rhFlagToStringLookupHashRef = \%hFlagToString_LINUX; } elsif(Arch::HPUX_OS == $iOSType ) { $rhFlagToStringLookupHashRef = \%hFlagToString_HPUX; } else { LogInt::Message( LogInt::LLTrace, 10135, "Arch", "GetOSDependantSetting", "UNKNOWN OS type" ); } my $bLookupSuceeded = 0; if($rhFlagToStringLookupHashRef != 0) { if(exists $$rhFlagToStringLookupHashRef{$iVarName}) { $$rsSetting = $$rhFlagToStringLookupHashRef{$iVarName}; $bLookupSuceeded = 1; #set true } else { LogInt::Message( LogInt::LLTrace, 10136, "Arch", "GetOSDependantSetting", "OS type doesnot exists" ); } } else { LogInt::Message( LogInt::LLTrace, 10137, "Arch", "GetOSDependantSetting", "OS type is not known" ); } return $bLookupSuceeded; } =pod ----------------------------------------------------------------------------- Function: Integer GetOSType( Void ) Description: Gives the Operating System type. Parameters: Void : No parameters are required. Return Value: Integer : Indicating OS type. It can be of the following. UNKNOWN_OS => 101; SUN_OS => 102; HPUX_OS => 103; LINUX_OS => 104; AIX_OS => 105; ----------------------------------------------------------------------------- =cut sub GetOSType { my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10138, "Arch", "GetOSType", "Subroutine %s is called", $sMyName ); if( $::gbArchInitialised ) { return $::giArchOSType; #already worked it out } #---------------------------------------- # make sure we remember we've been here. #---------------------------------------- $::gbArchInitialised = 1; #---------------------------------------------------------------- # call uname -s and use string to determine OS # might need to look in multiple places to find 'uname' # on sun/solaris it should be at '/usr/bin/uname' #---------------------------------------------------------------- #-------------------------------------- # add more uname places as needed. #-------------------------------------- my @lsPlacesToLookForUname = qw( /usr/bin/uname /bin/uname ); my $sUnameResultString = "UNKNOWN"; #----------------------------------------------------------- # spin the list of uname places - see which one we can call. #----------------------------------------------------------- foreach my $sPlaceToCheckForUname (@lsPlacesToLookForUname) { if(-x $sPlaceToCheckForUname) { #----------------------------- # found an exec - call it. #----------------------------- $sUnameResultString = `$sPlaceToCheckForUname -s`; #------------------------------- # chomp the returned string. #------------------------------- chomp $sUnameResultString; my $iReturnCode = $? >> 8; if( $iReturnCode != 0 ) { LogInt::Message( LogInt::LLError, 10139, "Arch", "GetOSType", "Failed to get the OS type" ); } last; } } #--------------------------------------------------------- # use $sUnameResultString in hash lookup # **POTENTIALLY** only the 'SunOS' one is correct #--------------------------------------------------------- my %shUnameStringToOSTypeLookup = ("SunOS" => Arch::SUN_OS, "HP-UX" => Arch::HPUX_OS, "AIX" => Arch::AIX_OS, "Linux" => Arch::LINUX_OS, ); if(exists $shUnameStringToOSTypeLookup{ $sUnameResultString }) { $::giArchOSType = $shUnameStringToOSTypeLookup{ $sUnameResultString }; } else { $::giArchOSType = Arch::UNKNOWN_OS; } return $::giArchOSType; } 1; k8/E{ZD{ZD{Z /./opt/VRTS/.ACCLib/system/Lock.pm_v3#---------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/system/Lock.pm,v 1.12 2008/10/06 05:09:33 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:33 $ # $Revision: 1.12 $ # # # Provides: package Lock # # Functionality: Simple file based locking system # # Authors: 011787 #---------------------------------------------------------------------------- #---------------------------------------------------------------------------- # Important notes about usage - see (A) to (C) below. # # This code is written as an advisory locking mechanism # based simply on a caller providing a "lockname" # #(A) It is not intended to allow a lock to be held across perl script # invocation boundaries. # (ie dont take a lock out in a perl script and then run the script # again and expect to be able to release the lock.) # #(B) Locks do work between script instances running concurently # (ie contention for a scare resource, if script 'x' is running and needs # to access a tape drive, requests a lock called "tapedrive1", script 'y', # or another instance of 'x', can request the same lock "tapedrive1" and # will be made to wait.) # #(C) To remove/reduce the instance of 'stuck locks' the locking # mechanism will take locks by force if the GetLock request takes longer # than VCSDEF_LOCKS_SLEEP_PERIOD * VCSDEF_LOCKS_SLEEP_ITERATIONS seconds #----------------------------------------------------------------------------- #------------------ # version calls. #------------------ use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/system/Lock.pm,v 1.12 2008/10/06 05:09:33 aatre Exp $::ETVHeader"); #------------------------ # end of version calls. #------------------------ #------------------------------ # Declare the package name. #------------------------------ package Lock; #------------------------------------ # Include all the packages required. #------------------------------------ use LogInt; #---------------------------------------- # Turn on strcit on vars, refs and subs. #---------------------------------------- use strict; #------------------------------------------------------ # locks hash. # store the LockName against a LockId (random number) #------------------------------------------------------ %::ghLockHash = (); #----------------------------------------------------------------- # const defs. # 1) directory in which to put the lock files. # 2) period to wait for lock aquire attempts # 3) max times to attempt to aquire lock (then forcibly take it) # 4) large number for use in generating 'unique' lock Ids #----------------------------------------------------------------- use constant VCSDEF_LOCKS_DIR => "/tmp/.Lock"; use constant VCSDEF_LOCKS_SLEEP_PERIOD => 3; use constant VCSDEF_LOCKS_SLEEP_ITERATIONS => 5; use constant VCSDEF_MAX_LOCK_ID => 10000000; =pod ---------------------------------------------------------------------------- Function: Boolean GetLock( IN String LockName ) Description: File based locking mechanism to acquire a lock. Parameters: LockName : Name of the lock file to acquire. Return Value: Boolean value in the set of {0, 1) where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub GetLock { my ( $sLockName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10244, "Lock", "GetLock", "Subroutine %s is called with: LockName [%s]", $sMyName, $sLockName ); LogInt::Message( LogInt::LLTrace, 10245, "Lock", "GetLock", "Started GetLock for lockname:[$sLockName]" ); #------------------------------------------- # make the locks dir if it doesnt exist. #------------------------------------------- if(-d VCSDEF_LOCKS_DIR) { #ok continue } else { #---------------------------------------- # first time run - make the locks dir. #---------------------------------------- if(mkdir(VCSDEF_LOCKS_DIR, 0777)) { chmod 0777, VCSDEF_LOCKS_DIR; #chmod to 777 LogInt::Message( LogInt::LLTrace, 10246, "Lock", "GetLock", "Created locks dir [%s]", VCSDEF_LOCKS_DIR ); } else { LogInt::Message( LogInt::LLError, 10247, "Lock", "GetLock", "Failed to create locks dir [%s]", VCSDEF_LOCKS_DIR ); return 0; } } #----------------------------------------- # make sure we didn't already aquire it. #----------------------------------------- my $iLockIdTest = $::ghLockHash{$sLockName}; if($iLockIdTest) { LogInt::Message( LogInt::LLError, 10248, "Lock", "GetLock", "Failing attempt to re-aquire lock [$sLockName], duplicate request call?" ); return 0; } #--------------------------------------------------------------------------------- # Attempt to aquire the lock, if we can't then start to wait. # if lock persists for VCSDEF_LOCKS_SLEEP_PERIOD * VCSDEF_LOCKS_SLEEP_ITERATIONS # seconds then this routine will forcibly aquire the lock and continue #--------------------------------------------------------------------------------- my $sLockFile = VCSDEF_LOCKS_DIR . "/$sLockName"; my $bWaitingForLock = undef; if(-e $sLockFile) { LogInt::Message( LogInt::LLTrace, 10249, "Lock", "GetLock", "waiting for lockname:[$sLockName]" ); $bWaitingForLock = 1; } else { $bWaitingForLock = 0; } my $iCount = 0; while($bWaitingForLock and $iCount < VCSDEF_LOCKS_SLEEP_ITERATIONS) { sleep VCSDEF_LOCKS_SLEEP_PERIOD; if(-e $sLockFile) { LogInt::Message( LogInt::LLTraceTrace, 10250, "Lock", "GetLock", "still waiting for lockname:[$sLockName]" ); } else { $bWaitingForLock=0; } $iCount++; } #------------------------- # did we get the lock. #------------------------- if($bWaitingForLock) { if(unlink($sLockFile)) { LogInt::Message( LogInt::LLWarn, 10251, "Lock", "GetLock", "Taking lock [$sLockName] by force" ); } else { LogInt::Message( LogInt::LLError, 10252, "Lock", "GetLock", "Failed to take lock [$sLockName] by force; could not unlink lock file [$sLockFile]" ); return 0; } } if(open(LOCK_FILE, ">$sLockFile")) { #------------------------------------------- # generate a LockId and write it to file. #------------------------------------------- my $iLockId = int rand VCSDEF_MAX_LOCK_ID; print LOCK_FILE $iLockId; close(LOCK_FILE); #------------------------- # add LockId to hash. #------------------------- $::ghLockHash{$sLockName} = $iLockId; LogInt::Message( LogInt::LLTrace, 10253, "Lock", "GetLock", "successfully aquired lockname:[$sLockName], lockid:[$iLockId], lockfile:[$sLockFile]" ); return 1; #success } else { LogInt::Message( LogInt::LLError, 10254, "Lock", "GetLock", "Failed to open like file [$sLockFile] for writing" ); return 0; } } =pod ---------------------------------------------------------------------------- Function: Boolean ReleaseLock( IN String LockName ) Description: File based locking mechanism to release a lock. Parameters: LockName : Name of the lock to be released. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub ReleaseLock { my ( $sLockName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10255, "Lock", "ReleaseLock", "Subroutine %s is called with: LockName [%s]", $sMyName, $sLockName ); LogInt::Message( LogInt::LLTrace, 10256, "Lock", "ReleaseLock", "Started ReleaseLock for lockname:[$sLockName]" ); #------------------------------------------------------------- # check the hash to make sure we were the ones who locked it. #------------------------------------------------------------- my $iLockIdTest = $::ghLockHash{$sLockName}; if($iLockIdTest) { #------------------------- # delete our hash key. #------------------------- delete $::ghLockHash{$sLockName}; } else { LogInt::Message( LogInt::LLError, 10257, "Lock", "ReleaseLock", "Failing attempt to release lockname:[$sLockName], duplicate release call?" ); return 0; } my $sLockFile = VCSDEF_LOCKS_DIR . "/$sLockName"; #------------------------------------------------ # check if we are releasing a lock we aquired. #------------------------------------------------ if(open(LOCK_FILE, "<$sLockFile")) { my $iLockIdTestRead = ; close(LOCK_FILE); chomp $iLockIdTestRead; if($iLockIdTestRead == $iLockIdTest) { if(unlink($sLockFile)) { LogInt::Message( LogInt::LLTrace, 10258, "Lock", "ReleaseLock", "Released our lock, lockname:[$sLockName]" ); return 1; #success } else { LogInt::Message( LogInt::LLError, 10259, "Lock", "ReleaseLock", "Failed to release lock [$sLockName] by force; could not unlink lock file [$sLockFile]" ); return 0; } } else { LogInt::Message( LogInt::LLError, 10260, "Lock", "ReleaseLock", "Failed to release a lock lockname:[$sLockName] with lockid:[$iLockIdTestRead], we did not aquire it" ); return 0; } } else { LogInt::Message( LogInt::LLError, 10261, "Lock", "ReleaseLock", "Failed to read a lock file lockname:[$sLockName]" ); return 0; } } 1; lock kBAE{ZD{ZD{Z A./opt/VRTS/.ACCLib/system/Proc.pm_v3#---------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/system/Proc.pm,v 1.28 2014/10/10 07:02:21 lpatil Exp $ # # Veritas Software Corporation # # $Author: lpatil $ # $Date: 2014/10/10 07:02:21 $ # $Revision: 1.28 $ # # Provides: package Proc # # Functionality: Process and PID file # # Authors: 011787 #---------------------------------------------------------------------------- #---------------------------------------------------------------------------- # General info: # # There are 2 formats for holding process information, # i) PidList - simple array of process Ids (ints) # ii) ProcInfoHashRefList - array of hash referances # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #---------------------------------------------------------------------------- #---------------------------------------------------------------------------- # HP-UX changes # add the UNIX95 env setting in GetProcessListHash so hp's 'ps' looks like # Solaris. change GetPidsStateFromList so it uses a 'ps' listing to see whats # online (rather than 'if(-d "/proc/$iEachPid/fd")' #---------------------------------------------------------------------------- #--------------------- # version calls. #--------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/system/Proc.pm,v 1.28 2014/10/10 07:02:21 lpatil Exp $::ETVHeader"); #---------------------- # end of version calls. #---------------------- #----------------------------- # Declare the package name. #----------------------------- package Proc; #------------------------------------------------- # Export the constants needed for IPC resources. #------------------------------------------------- require Exporter; @ISA = qw(Exporter); @EXPORT = qw(O_IPCSHM O_IPCSEM O_IPCMSQ O_IPCALL); #---------------------------------------- # turn on strict for refs, subs and vars. #---------------------------------------- use strict; #------------------------------------ # Include all the modules required. #------------------------------------ use LogInt; # For logging use VCSDefines; # For online / partial online / offline use Sys; # For deleting pidfiles use Arch; # For Platform Determination use IO::File; use IO::Handle; use IPC::SysV qw ( IPC_STAT IPC_RMID ); use POSIX qw ( uname ); #----------------------- # Define IPC constants.. #----------------------- use constant O_IPCSHM => 1 << 0; # Shared memory.. use constant O_IPCSEM => 1 << 1; # Semaphore.. use constant O_IPCMSQ => 1 << 2; # Message Queue.. use constant O_IPCALL => O_IPCSHM|O_IPCSEM|O_IPCMSQ; # All three.. #--------------------------------- # Initialize the globals required. #--------------------------------- $::gbOSType = Arch::GetOSType(); $::gsCommandIpcs = "/usr/bin/ipcs"; $::gsCommandPs = "/bin/ps"; $::gsCommandArgsPs = "-e -o 'uid,pid,ppid,args'"; if ( $::gbOSType == Arch::HPUX_OS ) { $::gsCommandArgsPs = "-ex -o 'uid,pid,ppid,args'"; } elsif ( $::gbOSType == Arch::LINUX_OS ) { $::gsCommandArgsPs = "-ew -o 'uid,pid,ppid,args'"; } #------------------------------------------------------------ # time to wait between kills and checking if kill worked. #------------------------------------------------------------ $::gsKillWait = 5; #--------------------------------- # const defines for 'ProcType'. #--------------------------------- use constant PROC_TYPE_PARENT => 1; use constant PROC_TYPE_CHILDREN => 2; use constant PROC_TYPE_ALL => 3; =pod ---------------------------------------------------------------------------- Function: Boolean ReadPidFile( IN String PidFile, OUT ListOfInteger Pids ) Description: Reads the all the process IDs from the given file and puts them in a list. Parameters: PidFile : File name containing the process IDs. Pids : The list of process IDs. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub ReadPidFile { my ( $sPidFile, $rliPids ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10024, "Proc", "ReadPidFile", "Subroutine <%s> is called with: PID File [%s]", $sMyName, $sPidFile ); if(open(PFILE, "$sPidFile")) { @$rliPids = ; close(PFILE); chomp @$rliPids; return 1; } else { LogInt::Message( LogInt::LLError, 10025, "Proc", "ReadPidFile", "ReadPidFile failed to open filename [%s] for reading", $sPidFile ); return 0; } } =pod ---------------------------------------------------------------------------- Function: Boolean WritePidFile( OUT String PidFile, IN ListOfInteger Pids ) Description: Writes the process IDs(PID) into the file. Parameters: PidFile : File containing the PID once it writes to a file. Pids : List of process IDs that are needs to be written into the file. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub WritePidFile { my ( $sPidFile, $rliPids ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10026, "Proc", "WritePidFile", "Subroutine <%s> is called with: Filename [%s]", $sMyName, $sPidFile ); if(open(PFILE, ">$sPidFile")) { foreach my $iEachPid (@$rliPids) { LogInt::Message( LogInt::LLTrace, 10027, "Proc", "WritePidFile", "Writing PID:[%s] to PidFile:[%s]", $iEachPid, $sPidFile ); print PFILE "$iEachPid\n"; } close(PFILE); return 1; } else { LogInt::Message( LogInt::LLError, 10028, "Proc", "WritePidFile", "WritePidFile failed to open filename [%s] for writing", $sPidFile ); return 0; #return with error } } =pod ------------------------------------------------------------------------- Function: Integer GetDefunctProcessListHash( OUT ArrayOfHashRefs Procs ) Description: Gets all the defunct processes running. Parameters: Procs : A list of defunct processes. Each defunct process has an entry in the array. Each entry in the list is a reference to hasH with keys UID, PID, PPID, COMMAND. Return Value: Returns number of defunct processes found. ------------------------------------------------------------------------- =cut sub GetDefunctProcessListHash { my ( $rlhrProcs ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10029, "Proc", "GetDefunctProcessListHash", "Subroutine <%s> called", $sMyName ); LogInt::Message( LogInt::LLTrace, 10030, "Proc", "GetDefunctProcessListHash", "Calling ps command [%s] with options [%s]", $::gsCommandPs, "-ef" ); #-------------------------------------- # empty the hash array (just incase). #-------------------------------------- @$rlhrProcs = (); #------------------------------------- # from 'man ps' exit values are: # 0 Successful completion. # >0 An error occurred. #------------------------------------- #------------------------------------------------------------------- # On hpux we can set an ENV variable (UNIX95) to give us our normal # PS command. #------------------------------------------------------------------- my $iIsSetUNIX95 = exists $ENV{"UNIX95"}; if($iIsSetUNIX95) { delete $ENV{"UNIX95"}; } my $sCmdArgs = "-ef"; my @lsProcs = `$::gsCommandPs $sCmdArgs 2>&1`; my $iReturnCode = $? >> 8; if($iIsSetUNIX95) { #set it back $ENV{"UNIX95"} = 1; } #------------------------------------------------------------- # check the return code if not 0 then print an error message # using the returned string and return. #------------------------------------------------------------- if ($iReturnCode != 0) { my $sErrorString; if(@lsProcs > 1) { $sErrorString = join('\n', @lsProcs); } else { $sErrorString = $lsProcs[0]; } chomp $sErrorString; LogInt::Message( LogInt::LLError, 10031, "Proc", "GetDefunctProcessListHash", "Failed with message [%s]", $sErrorString ); return 0; #exit number of proc's zero - wouldnt happen generally - error } #---------------------------------------- # put all the proc's into a hash array. # # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #---------------------------------------- chomp @lsProcs; shift @lsProcs; #remove the PS header my $iTmpUID = undef; my $iTmpPID = undef; my $iTmpPPID = undef; my $sTmpCOMMAND = undef; my $sOSType = Arch::GetOSType(); foreach my $sEachProc (@lsProcs) { if( $sEachProc =~ // ) { my %hTmpProcHash = (); if( $sOSType == Arch::LINUX_OS ) { if($sEachProc =~ /^\s*([a-zA-Z0-9-._]+)\s+([0-9]+)\s+([0-9]+)\s+.*?\b[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\b\s+(.+)$/) { my $sUser = $1; my $iUid = getpwnam( $sUser ); $iTmpUID = $iUid; $iTmpPID = $2; $iTmpPPID = $3; $sTmpCOMMAND = ""; } } else { if($sEachProc =~ /^\s*([a-zA-Z0-9-._]+)\s+([0-9]+)\s+([0-9]+)\s+.*?\b[0-9]:[0-9][0-9]\b\s+(.+)$/) { my $sUser = $1; my $iUid = getpwnam( $sUser ); $iTmpUID = $iUid; $iTmpPID = $2; $iTmpPPID = $3; $sTmpCOMMAND = ""; } } $hTmpProcHash{"UID"} = $iTmpUID; $hTmpProcHash{"PID"} = $iTmpPID; $hTmpProcHash{"PPID"} = $iTmpPPID; $hTmpProcHash{"COMMAND"} = $sTmpCOMMAND; LogInt::Message( LogInt::LLTraceTrace, 10032, "Proc", "GetDefunctProcessListHash", "UID:[%s] PID:[%s] PPID[%s] COMMAND[%s]", $iTmpUID, $iTmpPID, $iTmpPPID, $sTmpCOMMAND ); #----------------------------------- # Insert hash reference into list. #----------------------------------- push(@$rlhrProcs, \%hTmpProcHash); } } my $iNumberOfPIDs = @$rlhrProcs; LogInt::Message( LogInt::LLTrace, 10033, "Proc", "GetDefunctProcessListHash", "Got [%s] defunct processes", $iNumberOfPIDs ); return $iNumberOfPIDs; } =pod ---------------------------------------------------------------------------- Function: Integer GetProcessListHash( OUT ListOfHashRefs Procs ) Description: Collects all the processes currently running on the system. Parameters: Procs : An array of hashes containing all the processes currently running on the system. Return Value: Returns number of processes in the list. ---------------------------------------------------------------------------- =cut sub GetProcessListHash { return Proc::GetLongProcessListHash ( @_ ); } #------------- # Deprecated.. #------------- sub __GetProcessListHash { my ( $rlhrProcs ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10034, "Proc", "GetProcessListHash", "Subroutine <%s> called", $sMyName ); LogInt::Message( LogInt::LLTrace, 10035, "Proc", "GetProcessListHash", "Calling ps command [%s] with options [%s]", $::gsCommandPs, $::gsCommandArgsPs ); #-------------------------------------- # empty the hash array (just incase). #-------------------------------------- @$rlhrProcs = (); #------------------------------------- # from 'man ps' exit values are: # 0 Successful completion. # >0 An error occurred. #------------------------------------- #------------------------------------------------------------------- # On hpux we can set an ENV variable (UNIX95) to give us our normal # PS command. #------------------------------------------------------------------- my $iIsSetUNIX95 = exists $ENV{"UNIX95"}; if($iIsSetUNIX95) { #leave it set } else { #set it ourselves $ENV{"UNIX95"} = 1; } #--------------------------------------------------- # Get all defunct processes from process table. #--------------------------------------------------- my @lhrProcs = (); if( GetDefunctProcessListHash(\@lhrProcs) ) { @$rlhrProcs = @lhrProcs; } else { LogInt::Message( LogInt::LLTraceTrace, 10036, "Proc", "GetProcessListHash", "No defunct processes are found" ); } my @lsProcs = `$::gsCommandPs $::gsCommandArgsPs 2>&1`; my $iReturnCode = $? >> 8; if($iIsSetUNIX95) { #leave it set } else { #unset it ourselves delete $ENV{"UNIX95"}; } #------------------------------------------------------------- # check the return code if not 0 then print an error message # using the returned string and return. #------------------------------------------------------------- if ($iReturnCode != 0) { my $sErrorString; if(@lsProcs > 1) { $sErrorString = join('\n', @lsProcs); } else { $sErrorString = $lsProcs[0]; } chomp $sErrorString; LogInt::Message( LogInt::LLError, 10037, "Proc", "GetProcessListHash", "Failed with message [%s]", $sErrorString ); return 0; #exit number of proc's zero - wouldnt happen generally - error } #---------------------------------------- # put all the proc's into a hash array. # # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #---------------------------------------- chomp @lsProcs; shift @lsProcs; #remove the PS header foreach my $sEachProc (@lsProcs) { #------------------------------------------------------------------------ #Format is # * uid + pid + ppid + args [args+]* #------------------------------------------------------------------------ if($sEachProc =~ /^\s*([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+(.+)$/) { my $iTmpUID = $1; my $iTmpPID = $2; my $iTmpPPID = $3; my $sTmpCOMMAND = $4; LogInt::Message( LogInt::LLTraceTrace, 10038, "Proc", "GetProcessListHash", "UID:[%s] PID:[%s] PPID[%s] COMMAND[%s]", $iTmpUID, $iTmpPID, $iTmpPPID, $sTmpCOMMAND ); #---------------------- # Insert into hash. #---------------------- my %hTmpProcHash; $hTmpProcHash{"UID"} = $iTmpUID; $hTmpProcHash{"PID"} = $iTmpPID; $hTmpProcHash{"PPID"} = $iTmpPPID; $hTmpProcHash{"COMMAND"} = $sTmpCOMMAND; #----------------------------------- # Insert hash reference into list. #----------------------------------- push(@$rlhrProcs, \%hTmpProcHash); } } my $iNumberOfPIDs = @$rlhrProcs; LogInt::Message( LogInt::LLTrace, 10039, "Proc", "GetProcessListHash", "Got [%s] processes", $iNumberOfPIDs ); return $iNumberOfPIDs; } =pod ---------------------------------------------------------------------------- Function: Integer GetLongProcessListHash( OUT ListOfHashRefs Procs, IN Boolean EnvFlag ) Description: Gets all the processes currently running on the system. Parameters: $rlhrProcs : An array of hashes containing all the processes currently running on the system. $bEnvFlag : Get environment of running processes (if OS is not HP-UX) Return Value: Returns the number of processes in list with long command output. ---------------------------------------------------------------------------- =cut sub GetLongProcessListHash { my ( $rlhrProcs, $bEnvFlag ) = @_; $bEnvFlag ||= 0; # Prevent undefs.. my $sMyName = ( caller 0 )[3]; LogInt::Message( LogInt::LLTrace, 10040, "Proc", "GetLongProcessListHash", "Subroutine <%s> called with: rlhrProcs [%s] EnvFlag [%s]" , $sMyName, $rlhrProcs, $bEnvFlag ); #---------------------------------- # Prevent env-flag usage on HP-UX.. #---------------------------------- if ( $^O eq 'hpux' && $bEnvFlag ) { LogInt::Message ( LogInt::LLError, 10041, "Proc", "GetLongProcessListHash", "EnvFlag [%s] not supported on OS [%s]", $bEnvFlag, uc $^O ); return 0; # Error.. } #------------------------------------- # empty the hash array (just incase). #------------------------------------- @$rlhrProcs = (); my $sEnv = ''; if ( $bEnvFlag ) { $sEnv = $^O eq 'aix' ? 'we' : 'e'; # Set environment request.. } my $sCommandPs = $::gsCommandPs; my $sCommandPsArgs = "axww${sEnv}l"; my $bOSType = Arch::GetOSType(); my @lsFieldNames = (); #-------------------------------------- # from 'man ps' exit values are: # 0 Successful completion. # >0 An error occurred. #-------------------------------------- if ( Arch::SUN_OS == $bOSType ) { my $sOSVer = ( uname ) [2]; # Get OS version.. if ($sOSVer =~ /\d+\.(\d+)/) { $sOSVer =$1; } $sCommandPs = "/usr/bin/ps"; if ( $sOSVer < 11 ) { $sCommandPs = "/usr/ucb/ps" if ( -f "/usr/ucb/ps" ); } } elsif ( Arch::HPUX_OS == $bOSType ) { $sCommandPsArgs = "-e -xxo uid,pid,ppid,args"; } elsif ( Arch::LINUX_OS == $bOSType ) { $sCommandPsArgs = "ww${sEnv} -eo uid,pid,ppid,args" } LogInt::Message( LogInt::LLTrace, 10042, "Proc", "GetLongProcessListHash", "Calling ps command [%s] with options [%s]", $sCommandPs, $sCommandPsArgs ); my $iIsSetUNIX95 = exists $ENV { UNIX95 }; $ENV { UNIX95 } = 1 unless ( $iIsSetUNIX95 ); #------------------ # Set LANG to "C".. #------------------ my $iIsSetLANG = $ENV { LANG }; $ENV { LANG } = 'C'; #--------------------------------------------------- # Get all defunct processes from process table. #--------------------------------------------------- my @lhrProcs = (); my @lsProcs = `$sCommandPs $sCommandPsArgs`; my $iReturnCode = $? >> 8; unless ( $iIsSetUNIX95 ) { delete $ENV { UNIX95 }; } $iIsSetLANG ? $ENV { LANG } = $iIsSetLANG : delete $ENV { LANG }; #---------------------------------------------------------------------- # Check the return code if not 0 then print an error message using # the returned string and return. #---------------------------------------------------------------------- if ($iReturnCode != 0) { my $sErrorString = ''; if( scalar @lsProcs > 1) { $sErrorString = join('\n', @lsProcs); } else { $sErrorString = $lsProcs[0]; } chomp $sErrorString; LogInt::Message( LogInt::LLError, 10043, "Proc", "GetLongProcessListHash", "Failed with message [%s]", $sErrorString ); return 0; #exit number of proc's zero - wouldnt happen generally - error } #------------------------------------------- # put all the proc's into a hash array. # format of hash. # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #------------------------------------------- shift @lsProcs; #remove the PS header my @lsDet = (); # Process details.. my %hsOSReg = ( 'solaris' => '[\da-z]+\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)', 'aix' => '[\da-e]+\s+[A-Z]\s+([\d]+)\s+([\d]+)\s+([\d]+)\s+.*?[\d]:[\d]{2}\s(.*)', 'hpux' => '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)', 'linux' => '([\d]+)\s+([\d]+)\s+([\d]+)\s+(.*)' ); #------------------------ # Set the correct regex.. #------------------------ my $sFmt = $hsOSReg { $^O }; foreach my $sEachProc (@lsProcs) { $sEachProc =~ s/\n//; # Chomp.. $sEachProc =~ s/^\s+//; # Strip leading spaces.. @lsDet = ( $1, $2, $3, $4 ) if ( $sEachProc =~ /^$sFmt$/o ); LogInt::Message( LogInt::LLTraceTrace, 10044, "Proc", "GetLongProcessListHash", "UID [%s] PID [%s] PPID [%s] COMMAND [%s]", $lsDet [0], $lsDet [1], $lsDet [2], $lsDet [3] ); #------------------- # Insert into hash.. #------------------- my %hTmpProcHash = (); if ( 4 == scalar @lsDet ) { @hTmpProcHash { qw ( UID PID PPID COMMAND ) } = @lsDet; push ( @$rlhrProcs, \%hTmpProcHash ); # Insert hash reference into list.. } else { #----------------------------------- # Produce error output for debug. #----------------------------------- LogInt::Message( LogInt::LLTrace, 10045, "Proc", "GetLongProcessListHash", "Error Parsing ps output:[%s]", $sEachProc ); } } my $iNumberOfPIDs = scalar @$rlhrProcs; LogInt::Message( LogInt::LLTrace, 10046, "Proc", "GetLongProcessListHash", "Got [%s] processes", $iNumberOfPIDs ); return $iNumberOfPIDs; } =pod ---------------------------------------------------------------------------- Function: Integer FilterProcs( IN String Filter, IN ListOfHashRefs Procs, OUT ListOfHashRefs MatchedProcs ) Description: Filters all the processes from the process list and collects all the matched processes into another hash. Parameters: Filter : The string used to filter the processes. Procs : The list of processes that needs to be filtered out. MatchedProcs : Processes remained after filtering with the filter. Return Value: Returns count of matched processes ---------------------------------------------------------------------------- =cut sub FilterProcs { my ( $sFilter, $rlhrProcs, $rlhrMatchedProcs ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10047, "Proc", "FilterProcs", "Subroutine <%s> called with: Filter [%s]", $sMyName, $sFilter ); #-------------------------------------------------------------------------- # previous incarnation of this function was concerned against accidental # matches of $sFilter with agent scripts - we are only going to use full # paths of commands when matching. #-------------------------------------------------------------------------- #--------------------------------------- # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #--------------------------------------- foreach my $hrEachProcHashRef (@$rlhrProcs) { my $sTmpCOMMAND = $$hrEachProcHashRef{"COMMAND"}; if(! defined($sTmpCOMMAND) or ($sTmpCOMMAND eq "") ) { # not valid resource. Skip. } elsif($sTmpCOMMAND =~ /$sFilter/) { LogInt::Message( LogInt::LLTrace, 10048, "Proc", "FilterProcs", "Matched command [%s]", $sTmpCOMMAND ); push(@$rlhrMatchedProcs, $hrEachProcHashRef); } } #end for each proc my $iNumberMatches = @$rlhrMatchedProcs; LogInt::Message( LogInt::LLTrace, 10049, "Proc", "FilterProcs", "Got [%s] matches", $iNumberMatches ); return $iNumberMatches; } =pod ---------------------------------------------------------------------------- Function: Integer FindUidPids( IN Integer UID, IN ListOfHashRefs Procs, OUT ListOfHashRefs MatchedProcs ) Description: Finds all the process IDs of all the processes belongs to a PID. Parameters: UID : User IDentifier. Procs : Array of process hashs from used to get the pids. MatchedProcs : List of pids matched with UID. Return Value: Returns the number of matched processes. ---------------------------------------------------------------------------- =cut sub FindUidPids { my ( $UID, $rlhrProcs, $rlhrMatchedProcs ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10050, "Proc", "FindUidPids", "Subroutine <%s> called with: UID [%s]", $sMyName, $UID ); #-------------------------------------- # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #-------------------------------------- foreach my $hrEachProcHashRef (@$rlhrProcs) { my $sTmpUID = $$hrEachProcHashRef{"UID"}; if ( ! defined($UID) || ! defined($sTmpUID) || ($UID eq "") || ($sTmpUID eq "") ) { # Uid is invalid. Don't test further. } else { if ( $UID =~ /\D/) { #-------------------------------------------------- # UID is not a valid number. It contains some non # digits too. Workaround detected. #-------------------------------------------------- if($sTmpUID =~ /$UID/) { LogInt::Message( LogInt::LLTrace, 10051, "Proc", "FindUidPids", "Matched UID [%s]", $sTmpUID ); push(@$rlhrMatchedProcs, $hrEachProcHashRef); } } else { #----------------------------- # UID is a valid number. #----------------------------- if($sTmpUID == $UID) { LogInt::Message( LogInt::LLTrace, 10052, "Proc", "FindUidPids", "Matched UID [%s]", $sTmpUID ); push(@$rlhrMatchedProcs, $hrEachProcHashRef); } } } } #end for each proc my $iNumberMatches = @$rlhrMatchedProcs; LogInt::Message( LogInt::LLTrace, 10053, "Proc", "FindUidPids", "Got [%s] matches", $iNumberMatches ); return $iNumberMatches; } =pod ---------------------------------------------------------------------------- Function: Constant GetPidsStateFromList( IN ListOfIntegers Pids, OUT ListOfIntegers OnlinePids, OUT ListOfIntgers OfflinePids, IN Boolean LongCommand ) Description: Separate the online, offline process from the list of given processes. Parameters: Pids : List of PIDs for which status needs to be checked. OnlinePids : List of Process IDs which are online. OfflinePids : List of process IDs which are offline. LongCommand : Flag to specify the process list type (i.e., long or short). Return Value: Returns one of the monitor exit codes: ONLINE OFFLINE PARTIAL_ONLINE ---------------------------------------------------------------------------- =cut sub GetPidsStateFromList { my ( $rliPids, $rliOnlinePids, $rliOfflinePids, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; my $liPidList = join(' ', @$rliPids); LogInt::Message( LogInt::LLTrace, 10054, "Proc", "GetPidsStateFromList", "Subroutine <%s> called with: Pids [%s]", $sMyName, $liPidList ); if (!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #----------------------- # clear incoming lists. #----------------------- @$rliOnlinePids = (); @$rliOfflinePids = (); my $iOfflineCount = 0; my $iOnlineCount = 0; my $iProcessCount = 0; #---------------------------------------------------------------- # get a list of all the PIDs which exist in the process table. #---------------------------------------------------------------- #----------------------------------------------------- # Call PS and store in hash. Added in $bLongCommand # flag to specify if we need long ps command output. #----------------------------------------------------- my @hProcListHash = (); if ($bLongCommand == 0) { $iProcessCount = Proc::GetProcessListHash(\@hProcListHash); } else { $iProcessCount = Proc::GetLongProcessListHash(\@hProcListHash); } #----------------------------------- # check how many procs were found. #----------------------------------- if($iProcessCount == 0) { #----------------------------------- # log error and return offline. #----------------------------------- LogInt::Message( LogInt::LLError, 10055, "Proc", "GetPidsStateFromList", "Call to get process list did not return any processes" ); return VCSDef_MonitorExit::OFFLINE; } else { LogInt::Message( LogInt::LLTrace, 10056, "Proc", "GetPidsStateFromList", "Call to get process list returned [%s] processes", $iProcessCount ); } my @liPidList = (); Proc::GetValuesForKeyFromProcDataHash("PID", \@hProcListHash, \@liPidList); #------------------------------------------------------------------------ # make a hash slice of all the PIDs which exist in the process table. #------------------------------------------------------------------------ my %hsAllPidsHashSlice = (); @hsAllPidsHashSlice { @liPidList } = (1) x @liPidList; #------------------------------------------------------------------------------ # spin the list of pids we got passed an see if they exist in the hash slice. #------------------------------------------------------------------------------ foreach my $iEachPid (@$rliPids) { if(defined $hsAllPidsHashSlice{$iEachPid}) { push(@$rliOnlinePids, $iEachPid); $iOnlineCount++; LogInt::Message( LogInt::LLTrace, 10057, "Proc", "GetPidsStateFromList", "Checking PID [%s] State:Active", $iEachPid ); } else { push(@$rliOfflinePids, $iEachPid); $iOfflineCount++; LogInt::Message( LogInt::LLTrace, 10058, "Proc", "GetPidsStateFromList", "Checking PID [%s] State:InActive", $iEachPid ); } } LogInt::Message( LogInt::LLTrace, 10059, "Proc", "GetPidsStateFromList", "Online pid count [%s], offline pid count [%s]", $iOnlineCount, $iOfflineCount ); #--------------------------------------------------------------------- # if the PID list is empty (both counts are zero) we return 'offline'. #--------------------------------------------------------------------- if($iOfflineCount > 0) { if($iOnlineCount > 0) { LogInt::Message( LogInt::LLTrace, 10060, "Proc", "GetPidsStateFromList", "Returning Status [PARTIAL_ONLINE]" ); return VCSDef_MonitorExit::PARTIAL_ONLINE; } else { LogInt::Message( LogInt::LLTrace, 10061, "Proc", "GetPidsStateFromList", "Returning Status [OFFLINE]" ); return VCSDef_MonitorExit::OFFLINE; } } else { if($iOnlineCount > 0) { LogInt::Message( LogInt::LLTrace, 10062, "Proc", "GetPidsStateFromList", "Returning Status [ONLINE]" ); return VCSDef_MonitorExit::ONLINE; } else { LogInt::Message( LogInt::LLTrace, 10063, "Proc", "GetPidsStateFromList", "Returning Status [OFFLINE]" ); return VCSDef_MonitorExit::OFFLINE; } } } =pod ---------------------------------------------------------------------------- Function: Boolean GetPidsStateFromFile( IN String PidFile, OUT ListOfIntegers OnlinePids, OUT ListOfIntegers OfflinePids, IN Boolean LongCommand ) Description: Gets the process ID states in the file. Parameters: PidFile : File containg the process IDs. OnlinePids : List of process IDs which are online. OfflinePids : List of process IDs which are offline. LongCommand : Flag to specify the process list type (i.e., short or long). Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub GetPidsStateFromFile { my ( $sPidFile, $rliOnlinePids, $rliOfflinePids, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10064, "Proc", "GetPidsStateFromFile", "Subroutine <%s> called with: PidFile [%s]", $sMyName, $sPidFile ); if (!defined $bLongCommand ) { $bLongCommand = 0; } else { $bLongCommand = 1; } my @liPids; if(ReadPidFile($sPidFile, \@liPids)) { LogInt::Message( LogInt::LLTrace, 10065, "Proc", "GetPidsStateFromFile", "Calling GetPidsStateFromList" ); return GetPidsStateFromList(\@liPids, $rliOnlinePids, $rliOfflinePids, $bLongCommand); } else { LogInt::Message( LogInt::LLError, 10066, "Proc", "GetPidsStateFromFile", "Error in call to ReadPidFile" ); return 0; } } =pod ---------------------------------------------------------------------------- Function: Boolean KillPidsFromList( IN ListOfIntegers Pids, IN Boolean LongCommand ) Description: Kills all the processes whose PID is in the list. Parameters: Pids : List of PIDs to be killed. LongCommand : A flag to indicate to get the long list of processes. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub KillPidsFromList { my ( $rliPids, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; my $liPidList = join(' ', @$rliPids); LogInt::Message( LogInt::LLTrace, 10067, "Proc", "KillPidsFromList", "Subroutine <%s> called with: Pids [%s]", $sMyName, $liPidList ); #-------------------------------------------------------------------------- # 2003-07-28: tmortens - Added in $bLongCommand flag to specify if we # need long ps command output. # To support older agents not specifying if it needs long Command output # from ps. also added $bLongCommand flag to the end each # call of GetPridsStateFromList. #--------------------------------------------------------------------------- if(! defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #-------------------------------------------------------------- # assign this to a local copy so we can change it if needs be. #-------------------------------------------------------------- my @liPidsToKill = @$rliPids; #----------------------------------------------------------------------------- # firstly see if 'our' pid is in the list - ie $$ # dprice - moved code up (logically) to remove pid from list 2002-03-02 # 2002-01-31: kbarth - # Check that you don't kill yourself!... Don't laugh; this is a fairly # common occurrence when agents are written that grep for a string in # the process table, and that string matches a portion of the resource name, # as it often would as designers like to keep related # software objects similarly named.... #----------------------------------------------------------------------------- #----------------------------------------------- # make a hash slice of the liPidsToKill list. #----------------------------------------------- my %hsTmpTestThisProcessPidHash = (); @hsTmpTestThisProcessPidHash { @liPidsToKill } = (1) x @liPidsToKill; my $iThisProcessPid = $$; if(defined $hsTmpTestThisProcessPidHash{$iThisProcessPid}) { #--------------------------------------------------------- # 'we' are in the list - need to take it out and reassign # the list w/o ThisProcessPid in it. #--------------------------------------------------------- delete $hsTmpTestThisProcessPidHash{$iThisProcessPid}; #remove key/value #-------------------------------------------------------------- # assign remaining pid's back into the list of pids to kill. #-------------------------------------------------------------- @liPidsToKill = keys %hsTmpTestThisProcessPidHash; LogInt::Message( LogInt::LLTrace, 10068, "Proc", "KillPidsFromList", "Avoided killing PID [%s] (it's our own PID)", $iThisProcessPid); } my @liOnlinePids = (); my @liOfflinePids = (); my $iPidsState = GetPidsStateFromList( \@liPidsToKill, \@liOnlinePids, \@liOfflinePids, $bLongCommand ); if(VCSDef_MonitorExit::OFFLINE == $iPidsState) { #---------------------------------------- # pids already offline - return good. #---------------------------------------- LogInt::Message( LogInt::LLTrace, 10069, "Proc", "KillPidsFromList", "Pids were offline in first check" ); return 1; } foreach my $iEachPidToKill (@liOnlinePids) { LogInt::Message( LogInt::LLTrace, 10070, "Proc", "KillPidsFromList", "Sending signal [%s] to PID [%s]", "TERM", $iEachPidToKill ); kill "TERM", $iEachPidToKill; } LogInt::Message( LogInt::LLTrace, 10071, "Proc", "KillPidsFromList", "Sleeping for [%s] seconds", $::gsKillWait ); sleep $::gsKillWait; my @liOnlinePidsAfterTerm = (); my @liOfflinePidsAfterTerm = (); my $iPidsStateAfterTerm = GetPidsStateFromList( \@liOnlinePids, \@liOnlinePidsAfterTerm, \@liOfflinePidsAfterTerm, $bLongCommand ); if(VCSDef_MonitorExit::OFFLINE == $iPidsStateAfterTerm) { #----------------------------------- # pids now offline - return good. #----------------------------------- LogInt::Message( LogInt::LLTrace, 10072, "Proc", "KillPidsFromList", "Pids were offline after kill (TERM)" ); return 1; } foreach my $iEachPidToKill (@liOnlinePidsAfterTerm) { LogInt::Message( LogInt::LLTrace, 10073, "Proc", "KillPidsFromList", "Sending signal [%s] to PID [%s]","KILL", $iEachPidToKill ); kill "KILL", $iEachPidToKill; } LogInt::Message( LogInt::LLTrace, 10074, "Proc", "KillPidsFromList", "Sleeping for [%s] seconds", $::gsKillWait ); sleep $::gsKillWait; my @liOnlinePidsAfterKill = (); my @liOfflinePidsAfterKill = (); my $iPidsStateAfterKill = GetPidsStateFromList( \@liOnlinePidsAfterTerm, \@liOnlinePidsAfterKill, \@liOfflinePidsAfterKill, $bLongCommand ); if(VCSDef_MonitorExit::OFFLINE == $iPidsStateAfterKill) { #----------------------------------- # pids now offline - return good. #----------------------------------- LogInt::Message( LogInt::LLTrace, 10075, "Proc", "KillPidsFromList", "Pids were offline after kill (KILL)" ); return 1; } else { #---------------------------------------------------- # failed to kill the pids - log warn - return error. #---------------------------------------------------- LogInt::Message( LogInt::LLWarn, 10076, "Proc", "KillPidsFromList", "Failed to kill Pids after kill (KILL)" ); return 0; } } =pod ---------------------------------------------------------------------------- Function: Boolean KillPidsFromFile( IN String PidFile, IN Boolean LongCommand ) Description: Kills all the process ID from the file. Parameters: PidFile : Name of the file containing the process IDs. LongCommand : Flag to indicate to get the long proces list. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub KillPidsFromFile { my ( $sPidFile, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10077, "Proc", "KillPidsFromFile", "Subroutine <%s> called with: PidFile [%s]", $sMyName, $sPidFile ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } my @liPids = (); if(ReadPidFile($sPidFile, \@liPids)) { LogInt::Message( LogInt::LLTrace, 10078, "Proc", "KillPidsFromFile", "Calling KillPidsFromList" ); return KillPidsFromList( \@liPids, $bLongCommand ); } else { LogInt::Message( LogInt::LLError, 10079, "Proc", "KillPidsFromFile", "Error in call to ReadPidFile" ); return 0; } } =pod ---------------------------------------------------------------------------- Function: Integer GetChildPidsForGivenPids( IN ListOfIntegers Pids, OUT ListOfIntegers ChildPids ) Description: Get all the process child PIDs for given Process IDs (PID). Parameters: Pids : PIDs of the processes for which children processes are required. ChildPids : List of children pids for the given pids. Return Value: Integer : Returns the number of children proceses found. ---------------------------------------------------------------------------- =cut sub GetChildPidsForGivenPids { my ( $rliPids, $rliChildPids ) = @_; my $sMyName = (caller 0)[3]; my $liPidList = join(' ', @$rliPids); LogInt::Message( LogInt::LLTrace, 10080, "Proc", "GetChildPidsForGivenPids", "Subroutine <%s> called with: PIDs [%s]", $sMyName, @$rliPids ); my @lhrProcListHash = (); if( Proc::GetLongProcessListHash(\@lhrProcListHash) ) { foreach my $iPid (@$rliPids ) { foreach my $sEachChild ( @lhrProcListHash) { if ( $sEachChild->{"PPID"} == $iPid ) { LogInt::Message( LogInt::LLTraceTrace, 10081, "Proc", "GetChildPIDsForGivenPID", "[%s] child is found for [%s]", $sEachChild->{"PID"}, $iPid ); push (@$rliChildPids , $sEachChild->{"PID"}); } } } } my $iNumOfChilds = scalar @$rliChildPids; if( $iNumOfChilds ) { LogInt::Message( LogInt::LLTrace, 10082, "Proc", "GetChildPIDsForGivenPID", "[%s] children found for the given PIDs [%s]", $iNumOfChilds, @$rliPids ); } else { LogInt::Message( LogInt::LLTrace, 10083, "Proc", "GetChildPIDsForGivenPID", "No children found for the given PIDs [%s]", @$rliPids ); } return $iNumOfChilds; } =pod ---------------------------------------------------------------------------- Function: Void SignalPidsFromList( OUT ListOfIntegers Pids, IN String Signal ) Description: Send a signal to all the processes in the list. Parameters: Pids : List of processes needs to be send the signal. Signal : Type of the signal to send to the processes. Return Value: Void - No value is returned to the caller. ---------------------------------------------------------------------------- =cut sub SignalPidsFromList { my ( $rliPids, $sSignal ) = @_; my $sMyName = (caller 0)[3]; my $liPidList = join(' ', @$rliPids); LogInt::Message( LogInt::LLTrace, 10084, "Proc", "SignalPidsFromList", "Subroutine <%s> called with: Pids [%s] Signal [%s]", $sMyName, $liPidList, $sSignal ); foreach my $iEachPidToSignal (@$rliPids) { #----------------------------------------------------------------------- # 2002-01-31: kbarth - # Check that you don't kill yourself!... Don't laugh; this is a fairly # common occurrence when agents # are written that grep for a string in the process table, and that # string matches a portion of the resource name, as it often would # as designers like to keep related # software objects similarly named.... #---------------------------------------------------------------------- if( $iEachPidToSignal != $$ ) { LogInt::Message( LogInt::LLTrace, 10085, "Proc", "SignalPidsFromList", "Sending signal [%s] to PID [%s]", $sSignal, $iEachPidToSignal ); kill $sSignal, $iEachPidToSignal; } else { LogInt::Message( LogInt::LLTrace, 10086, "Proc", "SignalPidsFromList", "Avoided sending signal [%s] to PID [%s] (it's our own PID)", $sSignal, $iEachPidToSignal ); } } return; } =pod ---------------------------------------------------------------------------- Function: Boolean CheckProcApplicationPidFile( IN String PidFile, IN Boolean LongCommand ) Description: Checks the status of the process IDs of the application which are given in the file. Parameters: PidFile : Name of the file containing process IDs of the application. LongCommand : Flag to specify to use long command or normal. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub CheckProcApplicationPidFile { my ( $sPidFile, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10087, "Proc", "CheckProcApplicationPidFile", "Subroutine <%s> called with: PidFile [%s]", $sMyName, $sPidFile ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } my @lsTmpOnlinePids = (); my @lsTmpOfflinePids = (); return GetPidsStateFromFile( $sPidFile, \@lsTmpOnlinePids, \@lsTmpOfflinePids, $bLongCommand ); } =pod ---------------------------------------------------------------------------- Function: Integer CheckProcMaintainedPidFile( IN ListOfStrings ProcNameFilters, IN Integer NumberOfEachProcRequired, IN String ProcType, IN String PidFile, IN Boolean LongCommand ) Description: Checks the Pid file for existence. If exists it check the processes status, otherwise it will gets all the processes with the specified filters and checks the status. Parameters: ProcNameFilters : List containing the filters. NumberOfEachProcRequired : Specifies the number of processes required for each type. ProcType : Type of the processes required. The following process types are allowed. PROC_TYPE_CHILDREN PROC_TYPE_PARENT PROC_TYPE_ALL PidFile : Name of the file containing process IDs. LongCommand : Flag to specify to use long or normal command to get the process IDs. Return Value: Returns one of the monitor exit status: ONLINE OFFLINE PARTIAL_ONLINE or 0 for error. ---------------------------------------------------------------------------- =cut sub CheckProcMaintainedPidFile { my ( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $sPidFile, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10088, "Proc", "CheckProcMaintainedPidFile", "Subroutine <%s> called with: PidFile [%s]", $sMyName, $sPidFile ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #----------------------------- # see if PidFile exists. #----------------------------- if(Sys::FileExists($sPidFile)) { #---------------------------------------------------------- # file exists - use it to see if all the pids are online. # get pid file data. #---------------------------------------------------------- my @lsTmpOnlinePids = (); my @lsTmpOfflinePids = (); my $iPidState = GetPidsStateFromFile( $sPidFile, \@lsTmpOnlinePids, \@lsTmpOfflinePids, $bLongCommand ); if(VCSDef_MonitorExit::ONLINE == $iPidState) { #------------------------------- # pids all ok - return good. #------------------------------- LogInt::Message( LogInt::LLTrace, 10089, "Proc", "CheckProcMaintainedPidFile", "All pids online in first check returning status [ONLINE]" ); return VCSDef_MonitorExit::ONLINE; } else { #----------------------------------------------------------------- # some (or all) pids are having a problem - or the PidFile didnt # exist perhaps delete the pidfile its no use to us at the moment. #----------------------------------------------------------------- if(Sys::DeleteFile($sPidFile)) { LogInt::Message( LogInt::LLTrace, 10090, "Proc", "CheckProcMaintainedPidFile", "Deleted PidFile [%s]", $sPidFile ); } else { #-------------------------------------------------------- # if we fail to delete the PidFile then exit with error. #-------------------------------------------------------- LogInt::Message( LogInt::LLError, 10091, "Proc", "CheckProcMaintainedPidFile", "Failed to delete PidFile [%s]", $sPidFile ); return 0; #exit with error } } } #------------------------------------------------------- # if we're here then we have no pid file # get the 'ps' data then filter it using our ProcFilters #------------------------------------------------------- my @lhrProcessDataList = (); if($bLongCommand == 0) { if(GetProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10092, "Proc", "CheckProcMaintainedPidFile", "GetProcessListHash returned no proc's" ); return 0; #exit with error } } else { if(GetLongProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10093, "Proc", "CheckProcMaintainedPidFile", "GetLongProcessListHash returned no proc's" ); return 0; #exit with error } } my @lhrMatchedProcessDataList = (); #----------------------------------------------- # spin the passed in list of rlsProcNameFilters. #----------------------------------------------- foreach my $sEachFilter (@$rlsProcNameFilters) { my @lhrTmpMatchedProcessDataList; if( FilterProcs( $sEachFilter, \@lhrProcessDataList, \@lhrTmpMatchedProcessDataList ) < $iNumberOfEachProcRequired ) { #-------------------------------------------------------------------- # we can jump here - regardless of anything else - we didnt even get # iNumberOfEachProcRequired matches. #-------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10094, "Proc", "CheckProcMaintainedPidFile", "Filter loop got less than [%s] matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } if((PROC_TYPE_CHILDREN == $ProcType) || (PROC_TYPE_PARENT == $ProcType)) { my @lhrParents = (); my @lhrChildren = (); SeparateOutChildrenAndParents( \@lhrTmpMatchedProcessDataList, \@lhrParents, \@lhrChildren ); if(PROC_TYPE_CHILDREN == $ProcType) { if(@lhrChildren < $iNumberOfEachProcRequired) { LogInt::Message( LogInt::LLTrace, 10095, "Proc", "CheckProcMaintainedPidFile", "Filter loop got less than [%s] child matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } else { #------------------------------------------------------- # add the children matches for this filter pass to the # total list of matches so far #------------------------------------------------------- push(@lhrMatchedProcessDataList, @lhrChildren); } } else { if(@lhrParents == 0) { #-------------------------------------------------------------------------- # because parents are defined in relation to children - if # we have no parents we have no children # # we already know that the FilterProcs found >= iNumberOfEachProcRequired # we are taking a view that if there are no child parent relations # (because no parents) then all entries will be taken as being parents # - ie the test has passed - use lhrTmpMatchedProcessDataList #--------------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10096, "Proc", "CheckProcMaintainedPidFile", "SeparateOutChildrenAndParents found no parent-child relationships (OK)"); #-------------------------------------------------------- # add the all the matches for this filter pass to the # total list of matches so far #-------------------------------------------------------- push(@lhrMatchedProcessDataList, @lhrTmpMatchedProcessDataList); } elsif (@lhrParents < $iNumberOfEachProcRequired) { #------------------------------------------------ # didnt meet the criteria - return 'offline'. #------------------------------------------------ LogInt::Message( LogInt::LLTrace, 10097, "Proc", "CheckProcMaintainedPidFile", "Filter loop got less than [%s] parent matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } else { #------------------------------------------------------ # add the parent matches for this filter pass to the # total list of matches so far #------------------------------------------------------ push(@lhrMatchedProcessDataList, @lhrParents); } } } else { #------------------------------------------------------------------------------- #PROC_TYPE_ALL - disregard any parent/child relationships #add all the matches for this filter pass to the total list of matches so far. #------------------------------------------------------------------------------- push(@lhrMatchedProcessDataList, @lhrTmpMatchedProcessDataList); } } #end of filter loop #--------------------------------------------------------------------- # change the lhrMatchedProcessDataList into Pids and write to file. #--------------------------------------------------------------------- my @liPidList; GetValuesForKeyFromProcDataHash("PID", \@lhrMatchedProcessDataList, \@liPidList); #--------------------------------------------------------------- # write the pids to the file - if this fails then log warning # - but we still return online. #--------------------------------------------------------------- if(WritePidFile($sPidFile, \@liPidList)) { #all ok continue } else { LogInt::Message( LogInt::LLWarn, 10098, "Proc", "CheckProcMaintainedPidFile", "Failed in call to WritePidFile with PidFile [%s]", $sPidFile ); } LogInt::Message( LogInt::LLTrace, 10099, "Proc", "CheckProcMaintainedPidFile", "Returning Status [ONLINE]" ); return VCSDef_MonitorExit::ONLINE; } =pod ---------------------------------------------------------------------------- Function: Integer CheckProcProcessList( IN ListOfString ProcNameFilters, IN Integer NumberOfEachProcRequired, IN String ProcType, IN Boolean LongCommand) Description: Checks the status of all the processes that are matched by the filters. Parameters: ProcNameFilters : List containing the filters. NumberOfEachProcRequired : Specifies the number of processes required for each process type. ProcType : Type of the processes required. The following process types are allowed. PROC_TYPE_CHILDREN PROC_TYPE_PARENT PROC_TYPE_ALL LongCommand : Flag to specify to use long or normal command to get the process IDs. Return Value: Returns one of the monitor exit status: ONLINE OFFLINE PARTIAL_ONLINE or 0 for error. ---------------------------------------------------------------------------- =cut sub CheckProcProcessList { my ( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10100, "Proc", "CheckProcProcessList", "Subroutine <%s> called", $sMyName ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #--------------------------------------------------------- # get the 'ps' data then filter it using our ProcFilters. #--------------------------------------------------------- my @lhrProcessDataList; if($bLongCommand == 0) { #----------------------------------- # use old short ps command listing. #----------------------------------- if(GetProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10101, "Proc", "CheckProcProcessList", "GetProcessListHash returned no proc's"); return 0; #exit with error } } else { if(GetLongProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10102, "Proc", "CheckProcProcessList", "GetLongProcessListHash returned no proc's" ); return 0; #exit with error } } my @lhrMatchedProcessDataList = (); #------------------------------------------------ # spin the passed in list of rlsProcNameFilters. #------------------------------------------------ foreach my $sEachFilter (@$rlsProcNameFilters) { my @lhrTmpMatchedProcessDataList; if( FilterProcs( $sEachFilter, \@lhrProcessDataList, \@lhrTmpMatchedProcessDataList ) < $iNumberOfEachProcRequired ) { #-------------------------------------------------------------- # we can jump here - regardless of anything else - we didnt # even get iNumberOfEachProcRequired matches #-------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10103, "Proc", "CheckProcProcessList", "Filter loop got less than [%s] matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } if((PROC_TYPE_CHILDREN == $ProcType) || (PROC_TYPE_PARENT == $ProcType)) { my @lhrParents = (); my @lhrChildren = (); SeparateOutChildrenAndParents(\@lhrTmpMatchedProcessDataList, \@lhrParents, \@lhrChildren); if(PROC_TYPE_CHILDREN == $ProcType) { if(@lhrChildren < $iNumberOfEachProcRequired) { LogInt::Message( LogInt::LLTrace, 10104, "Proc", "CheckProcProcessList", "Filter loop got less than [%s] child matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } } else { #------------------------------------------------------------------------- # because parents are defined in relation to children - if # we have no parents we have no children # we already know that the FilterProcs found >= iNumberOfEachProcRequired # we are taking a view that if there are no child-parent relations (because no parents) # then all entries will be taken as being parents - ie the test has passed #------------------------------------------------------------------------- if((@lhrParents != 0) || (@lhrParents < $iNumberOfEachProcRequired)) { LogInt::Message( LogInt::LLTrace, 10105, "Proc", "CheckProcProcessList", "Filter loop got less than [%s] parent matches returning status [OFFLINE]", $iNumberOfEachProcRequired ); return VCSDef_MonitorExit::OFFLINE; } } } #end if they are specifically matching on parent or child } #end of filter loop LogInt::Message( LogInt::LLTrace, 10106, "Proc", "CheckProcProcessList", "Returning Status [ONLINE]" ); return VCSDef_MonitorExit::ONLINE; } =pod ---------------------------------------------------------------------------- Function: Integer GetValuesForKeyFromProcDataHash( IN String Key, IN ListOfHash Procs, OUT ListOfStrings Values ) Description: Get the list of values for the specified key from the array of processes. Parameters: KeyForExtract : Key type that needs to be extract from the process list. ProcInfoHashRefList : Array of processes that are used to extract. ValueList : The list of entries that are extracted for the given key. Return Value: Returns number entries of ValueList. ---------------------------------------------------------------------------- =cut sub GetValuesForKeyFromProcDataHash { my ( $sKey, $rlhrProcs, $rlsValues ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10107, "Proc", "GetValuesForKeyFromProcDataHash", "Subroutine <%s> called with: Key [%s]", $sMyName, $sKey ); #---------------------------------------------------------- # spin the hash array - extract just the "sKey" values an # push into $rlsValues array # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #---------------------------------------------------------- foreach my $hrEachProcHashRef (@$rlhrProcs) { my $sTmpValue = $$hrEachProcHashRef{$sKey}; push(@$rlsValues, $sTmpValue); } my $iNumberEntries = @$rlsValues; LogInt::Message( LogInt::LLTrace, 10108, "Proc", "GetValuesForKeyFromProcDataHash", "Got [%s] entries", $iNumberEntries); return $iNumberEntries; } =pod ---------------------------------------------------------------------------- Function: Void SeparateOutChildrenAndParents( IN ListOfHash Procs, OUT ListOfHash Parents, OUT ListOfHash Children ) Description: Separates the parent and children processes from the process list hash. Parameters: Procs : A hash containing the processes. Parents : List of parent processes. Children : List of children process IDs. Return Value: Void : No value is returned to the caller. ---------------------------------------------------------------------------- =cut sub SeparateOutChildrenAndParents { my ( $rlhrProcs, $rlhrParents, $rlhrChildren ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10109, "Proc", "SeparateOutChildrenAndParents", "Subroutine <%s> called", $sMyName ); #-------------------------------------------------------------- # children can be parents and vice versa # ie one entry could appear in both lists for separate reasons # for every pid (A) look at its ppid (A1) # if that ppid also exists as a pid (B) then they are child (A) # and parent (B) theres no doubt a cleaner way.. #-------------------------------------------------------------- #-------------------------------------------------------------- # get 2 parallel arrays of the PID PPID # (didnt call GetValuesForKeyFromProcDataHash as we cant rely # on the order and dont want to sort it) #-------------------------------------------------------------- #-------------------------------------------------------------- # format of hash # # "UID" => # "PID" => # "PPID" => # "COMMAND" => #-------------------------------------------------------------- my @liPIDList = (); my @liPPIDList = (); foreach my $hrEachProcHashRef (@$rlhrProcs) { push(@liPIDList, $$hrEachProcHashRef{"PID"}); push(@liPPIDList, $$hrEachProcHashRef{"PPID"}); } #end for each proc #------------------------------------------------------------------- # for every pid (A) look at its ppid (AA) if that ppid (AA) also # exists as a pid (B) then they are child (A) and parent (B) #------------------------------------------------------------------- my %hCheckPIDHash = (); @hCheckPIDHash { @liPIDList } = (1) x @liPIDList; my @liRelativeChildPIDs = (); my @liRelativeParentPIDs = (); #----------------------- # spin the PID array. #----------------------- my $iPIDListLength = @liPIDList; my $i = 0; while($i < $iPIDListLength) { my $sTmpPID_A = $liPIDList[$i]; my $sTmpPPID_AA = $liPPIDList[$i]; if($hCheckPIDHash{$sTmpPPID_AA}) { push(@liRelativeChildPIDs, $sTmpPID_A); push(@liRelativeParentPIDs, $sTmpPPID_AA); LogInt::Message( LogInt::LLTrace, 10110, "Proc", "SeparateOutChildrenAndParents", "Found child PID_A [%s] parent PID_AA [%s]", $sTmpPID_A, $sTmpPPID_AA ); } $i++; } #------------------------------- # put the results into hashs. #------------------------------- my %hCheckRelativeChildPIDHash = (); @hCheckRelativeChildPIDHash { @liRelativeChildPIDs } = (1) x @liRelativeChildPIDs; my %hCheckRelativeParentPIDHash = (); @hCheckRelativeParentPIDHash { @liRelativeParentPIDs } = (1) x @liRelativeParentPIDs; #-------------------------------------------------------------- # spin the full hash array again - copying entires into their # respective outgoing hash arrays. #-------------------------------------------------------------- foreach my $hrEachProcHashRef (@$rlhrProcs) { my $iTmpPID = $$hrEachProcHashRef{"PID"}; if($hCheckRelativeParentPIDHash{$iTmpPID}) { push(@$rlhrParents, $hrEachProcHashRef); } if($hCheckRelativeChildPIDHash{$iTmpPID}) { push(@$rlhrChildren, $hrEachProcHashRef); } } #end for each proc my $iRelativeParentCount = @$rlhrParents; my $iRelativeChildren = @$rlhrChildren; LogInt::Message( LogInt::LLTrace, 10111, "Proc", "SeparateOutChildrenAndParents", "Got [%s] parents and [%s] children", $iRelativeParentCount, $iRelativeChildren ); return; } =pod ---------------------------------------------------------------------------- Function: Void KillPIDandAllChildren( IN Integer PID ) Description: Kills the process with the process ID and all its realated processes. Parameters: PID : Process ID to be killed. Return Value: Void : No value is returned to the caller. ---------------------------------------------------------------------------- =cut sub KillPIDandAllChildren { my ( $iPID ) = @_ ; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10112, "KillPIDandAllChildren", "Proc", "Subroutine <%s> called with: PID [%s]", $sMyName, $iPID ); my %hRelatedPIDs = (); my @lhProcListHash = (); my $iProcessCount = Proc::GetLongProcessListHash( \@lhProcListHash ); if( $iProcessCount == 0 ) { LogInt::Message( LogInt::LLError, 10113, "KillPIDandAllChildren", "Proc", "Call to get process list did not return any processes" ); return 0; } #--------------------------------------------------- # Initialize the hRelatedPIDs with the passed in PID #--------------------------------------------------- foreach my $rhProcList ( @lhProcListHash ) { if( $rhProcList->{"PID"} == $iPID ) { $hRelatedPIDs{$iPID} = $rhProcList->{"COMMAND"}; last; # PIDs are garanteed to be unique } } if( ! exists $hRelatedPIDs{$iPID} ) { LogInt::Message( LogInt::LLInfo, 10114, "KillPIDandAllChildren", "Proc", "Process [%s] must have already died, nothing to kill...", $iPID ); return 0; } #------------------------------------------------------------------ # Get a list of all related processes to the poassed in one ($iPID) #------------------------------------------------------------------ Proc::GetAllRelatedPIDs( $iPID, \@lhProcListHash, \%hRelatedPIDs ); # Code change.. Atre 07 Aug 2008 my ( $sKey, $sPidStr, @liGoners, @liUnDead ) = (); my %hiSignal = ( 'SIGTERM' => 15, 'SIGKILL' => 9 ); @liGoners = keys %hRelatedPIDs; # Get PIDs to kill; if ( scalar @liGoners ) { foreach $sKey ( 'SIGTERM', 'SIGKILL' ) { #-------------------------- # Send signal to each PID.. #-------------------------- if ( @liUnDead = grep { kill ( 0, $_ ) && # Valid PID.. kill ( $hiSignal { $sKey } , $_ ) # that could be delivered.. } @liGoners ) { # from what's found.. map { $sPidStr .= "[$_] [" . $hRelatedPIDs { $_ } . "]\n"; } @liUnDead; LogInt::Message ( LogInt::LLInfo, 10115, "KillPIDandAllChildren", "Proc", "[%s] delivered to: PID CMD ---------------- %s---------------- Total: [%s]", $sKey, $sPidStr, scalar @liUnDead ); } else { # All killed.. map { $sPidStr .= "[$_] [" . $hRelatedPIDs { $_ } . "]\n"; } @liUnDead; LogInt::Message ( LogInt::LLTrace, 10116, "KillPIDandAllChildren", "Proc", "[%s] NOT delivered to: PID CMD ---------------- %s---------------- Total: [%s]", $sKey, $sPidStr, scalar @liUnDead ); } $sPidStr = ""; # Truncte.. sleep 2 if $sKey eq 'SIGTERM'; # Breather.. } } return; } =pod ---------------------------------------------------------------------------- Function: Boolean LogKillCondition( IN Integer PIDtoKill, IN String CommandLine, IN Integer SignalNumber, IN String OSErrorString, IN String Message ) Description: Logs the message returned by signaling the process. Parameters: PIDtoKill : The process ID that needs to be killed. CommandLine : The process command. SignalNumber : Kill signal number sent to the process ID. OSErrorString : Error returned by the OS as a result of the kill signal. Message : The result message after sending the signal to the process. Return Value: Boolean value from the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub LogKillCondition { my ( $iPIDtoKill, $sCommandLine, $iSignalNumber, $sOSErrorString, $sMessage ) = @_; my $sMyName = (caller 0)[3]; LogInt:Message( LogInt::LLTrace, 10647, "LogKillCondition", "Proc", "Subroutine %s called with: PID [%s] Command [%s] Signal [%s] Error [%s] Message [%s]", $sMyName, $iPIDtoKill, $sCommandLine, $iSignalNumber, $sOSErrorString, $sMessage ); if( $sOSErrorString eq "No such process" || $sOSErrorString eq "Illegal seek" ) { LogInt:Message( LogInt::LLInfo, 10647, "LogKillCondition", "Proc", "[%s] Process [%s] [%s] has already exited (OS message was [%s])", $$sMessage, $iPIDtoKill, $sCommandLine, $sOSErrorString ); } else { LogInt( LogInt::LLInfo, 10648, "LogKillCondition", "Proc", "[%s] Problems sending signal [%s] to process [%s] [%s] (OS Error was [%s])", $$sMessage, $iSignalNumber, $iPIDtoKill, $sCommandLine, $! ); } return 1; } =pod ---------------------------------------------------------------------------- Function: Boolean GetAllRelatedPIDs ( IN Integer PID, IN ArrayOfHashRefs ProcListHash, OUT Hash RelatedPIDs ) Description: Gives all the related process IDs for the given PID. Parameters: PID : Process ID. ProcListHash : A hash containing the processes. RelatedPIDs : List of related process IDs to PID. Return Value: Boolean value from the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub GetAllRelatedPIDs { my ( $iPID, $rlhrProcListHash, $rhRelatedPIDs ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10117, "Proc", "GetAllRelatedPIDs", "Subroutine <%s> called with: PID [%s]", $sMyName, $iPID ); foreach my $rhProcHash ( @$rlhrProcListHash ) { if( $iPID == $rhProcHash->{"PPID"} ) { #--------------- # found a child! #--------------- my $iChildPid = $rhProcHash->{"PID"}; $rhRelatedPIDs->{$iChildPid} = $rhProcHash->{"COMMAND"}; #------------------------------------------------------ # recurse and get any children of the child we've found #------------------------------------------------------ my %hTmpChildPids = (); Proc::GetAllRelatedPIDs( $iChildPid, $rlhrProcListHash, \%hTmpChildPids ); #------------------------------- # add those children to the list #------------------------------- foreach my $iTmpPID ( keys %hTmpChildPids ) { $rhRelatedPIDs->{$iTmpPID} = $hTmpChildPids{$iTmpPID}; } } } return 1; } =pod ---------------------------------------------------------------------------- Function: String ExtractToken( OUT String TokenToReturn, IN String OrigString, IN String Separator ) Description: Gives a token from the given string. Parameters: TokenToReturn : Token extracted from the given string. OrigString : Actual string from which token needs to be extracted. Separator : Token separator. Return Value: Returns the remaining string after the token is taken out. ---------------------------------------------------------------------------- =cut sub ExtractToken { my ( $rsTokenToReturn, $sOrigString, $sSeparator ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10118, "Proc", "ExtractToken", "Subroutine <%s> called with: String [%s] Separator [%s]", $sMyName, $sOrigString, $sSeparator ); #------------------------------------------------------------ # used to parse the output from 'ps' GetProcessList # I wrote this - parsing routine from my perl irc client. #------------------------------------------------------------ my $sTmpStr = $sOrigString; #------------------------------- # skip any leading separators. #------------------------------- $sTmpStr =~ s/^$sSeparator+//; #----------------------------------------------- # get pos of first separator (if there is one). #----------------------------------------------- my $iPos = index($sTmpStr, $sSeparator); if($iPos < 0) { #------------------------------ # no more tokens to extract. #------------------------------ $$rsTokenToReturn = $sTmpStr; return ""; #return empty remaining string } else { #--------------------------- # split out the first token. #--------------------------- ($$rsTokenToReturn) = split(/$sSeparator/, $sTmpStr); LogInt::Message( LogInt::LLTrace, 10119, "Proc", "ExtractToken", "Token extracted [%s]", $$rsTokenToReturn); #---------------------------------------------- # remove found token from remaining string. #---------------------------------------------- my $sRemainingString = substr($sTmpStr, $iPos+1); #---------------------------- # skip leading separator(s). #---------------------------- $sRemainingString =~ s/^$sSeparator+//; LogInt::Message( LogInt::LLTrace, 10120, "Proc", "ExtractToken", "String Remained [%s]", $sRemainingString ); return $sRemainingString; } } =pod -------------------------------------------------------------------------- Function : Boolean RemoveIPCResourcesForUser ( IN String User, IN Integer IpcFlags, IN RefListInteger Ids ) Description : Removes IPC resources for specified UNIX user, using IPC IDs, if given. Else removes all IPCs for that 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 Return Value: 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]; LogInt::Message( LogInt::LLTrace, 10121, "Proc", "RemoveIPCResourcesForUser", "Subroutine <%s> called with: User [%s] IPC Flags [%s] rliIds [%s]", $sMyName, $sUser, $iIpcFlags, $rliIds ); #------------------------- # Define local variables.. #------------------------- my ( $iId, $iUid, $iIpcUid, $iRemoved, $iLocn, $iOwnerLocn, $sOwner, @lsTemp, @liShmIds, @liMqIds, @liSemIds, @liIdsRemoved, %hiIds, %hiStatFailed ) = (); my $sFormat = 'l l l l ul ul i'; # Needed for unpack. Check intro(2).. my $lsVar = 0; # Stores the binary structure semid_ds.. my $sCommand = $::gsCommandIpcs; # Get global.. my $sErrorString = ""; if ( $^O eq 'linux' ) { $iLocn = 1; # Index locn. of ipc_perm.uid.. $iOwnerLocn = 2; # "owner" index in ipcs output.. } else { $iLocn = 0; # Index locn. of ipc_perm.uid.. $iOwnerLocn = 4; # "owner" index in ipcs output.. } #------------------------------------- # Set return code to hopeful success.. #------------------------------------- my $iReturnCode = 1; #-------------------- # Validate the user.. #-------------------- unless ( defined ( $iUid = getpwnam $sUser ) ) { LogInt::Message ( LogInt::LLError, 10122, "Proc", "RemoveIPCResourcesForUser", "<%s> Invalid User [%s] specfied. Cannot proceed.", $sMyName, $sUser ); return 0; # Error.. } #---------------- # Check for IDs.. #---------------- if ( defined $rliIds && scalar @$rliIds ) { LogInt::Message ( LogInt::LLTrace, 10123, "Proc", "RemoveIPCResourcesForUser", "<%s> Request to remove only [%s] IDs for User [%s]", $sMyName, join ( ' ', @$rliIds ), $sUser ); %hiIds = map { $_ => 1 } @$rliIds; # Remove duplicates.. } #------------------------------- # Read in the contents of IPCs.. #------------------------------- foreach ( readpipe ( $sCommand ) ) { s/\n//; # Chomp.. #------------------------------------------------------- # Attempt to skip IPC ids that definitely don't belong.. #------------------------------------------------------- @lsTemp = $_ =~ /[^\s]+/g; # Split.. $lsTemp [ 1 ] ||= ""; $sOwner = $lsTemp [ $iOwnerLocn ] ||= ""; # Prevent undefs.. if ( $lsTemp [ 1 ] =~ /^\d+/ && $sUser !~ /^$sOwner/ ) { LogInt::Message ( LogInt::LLTrace, 10497, "Proc", "RemoveIPCResourcesForUser", "<%s> Skipping resource for owner [%s] Data [%s]", $sMyName, $sOwner, $_ ); next; } elsif ( $sOwner =~ /\S/ ) { LogInt::Message ( LogInt::LLTrace, 10498, "Proc", "RemoveIPCResourcesForUser", "<%s> Validating IPC resource for owner [%s] Data [%s]", $sMyName, $sOwner, $_ ); } #--------------- # 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_IPCMSQ && # Message Queue.. /semid/ ... /^$/ ) { /(\w+)\s+(\d+)/; push ( @liSemIds, $2 ) if defined $2; } if ( $iIpcFlags & O_IPCSEM && # Semaphore.. /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 'C' || $2 eq 'D') ) { # 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 ) { $lsVar = 0; # Clear.. next if ( defined $rliIds && scalar @$rliIds && ! $hiIds { $iId } ); unless ( shmctl ( $iId, IPC_STAT, $lsVar ) ) { LogInt::Message ( LogInt::LLError, 10124, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to use shmctl(2) on SHM Id [%s]. Error [%s]", $sMyName, $iId, $! ); push @{ $hiStatFailed { IPCSHM } }, $iId; next; } #----------------------------------------------------- # 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 { LogInt::Message( LogInt::LLError, 10125, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to remove SHM Id [%s]. Error [%s]", $sMyName, $iId, $! ); $iReturnCode = 0; # Failed.. } } } } if ( scalar @liIdsRemoved ) { LogInt::Message( LogInt::LLTrace, 10126, "Proc", "RemoveIPCResourcesForUser", "<%s> +--- Removed SHM Ids: [%s] for User [%s] Uid [%s]. Total [%s] ---+", $sMyName, join ( ' ', @liIdsRemoved ), $sUser, $iUid, scalar @liIdsRemoved ); @liIdsRemoved = (); # Clear.. } #---------------- # Message Queue.. #---------------- if ( $iIpcFlags & O_IPCMSQ ) { foreach $iId ( @liMqIds ) { $lsVar = 0; # Clear.. next if ( defined $rliIds && scalar @$rliIds && ! $hiIds { $iId } ); unless ( msgctl ( $iId, IPC_STAT, $lsVar ) ) { LogInt::Message ( LogInt::LLError, 10127, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to use msgctl(2) on Msg QId [%s]. Error [%s]", $sMyName, $iId, $! ); push @{ $hiStatFailed { IPCMSQ } }, $iId; next; } #----------------------------------------------------- # 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 { LogInt::Message( LogInt::LLError, 10128, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to remove Msg QId [%s]. Error [%s]", $sMyName, $iId, $! ); $iReturnCode = 0; # Failed.. } } } } if ( scalar @liIdsRemoved ) { LogInt::Message( LogInt::LLTrace, 10129, "Proc", "RemoveIPCResourcesForUser", "<%s> +--- Removed Msg QIds: [%s] for User [%s] Uid [%s]. Total [%s] ---+", $sMyName, join ( ' ', @liIdsRemoved ), $sUser, $iUid, scalar @liIdsRemoved ); @liIdsRemoved = (); # Clear.. } #------------ # Semaphore.. #------------ if ( $iIpcFlags & O_IPCSEM ) { foreach $iId ( @liSemIds ) { $lsVar = 0; # Clear.. next if ( defined $rliIds && scalar @$rliIds && ! $hiIds { $iId } ); unless ( semctl ( $iId, 0, IPC_STAT, $lsVar ) ) { LogInt::Message( LogInt::LLError, 10130, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to use semctl(2) on Sem Id [%s]. Error [%s]", $sMyName, $iId, $! ); push @{ $hiStatFailed { IPCSEM } }, $iId; next; } #----------------------------------------------------- # 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 { LogInt::Message( LogInt::LLError, 10131, "Proc", "RemoveIPCResourcesForUser", "<%s> Failed to remove Sem Id [%s]. Error [%s]", $sMyName, $iId, $! ); $iReturnCode = 0; # Failed.. } } } } if ( scalar @liIdsRemoved ) { LogInt::Message( LogInt::LLTrace, 10132, "Proc", "RemoveIPCResourcesForUser", "<%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 ) { LogInt::Message( LogInt::LLTrace, 10133, "Proc", "RemoveIPCResourcesForUser", "<%s> Successfully removed [%s] IPC resources for User [%s] in all.", $sMyName, $iRemoved, $sUser ); } #------------------------- # Report on failed stats.. #------------------------- if ( scalar ( @lsTemp = sort keys %hiStatFailed ) ) { foreach ( @lsTemp ) { $sErrorString .= "$_ => IDs [" . join ( " ", @{ $hiStatFailed { $_ } } ) . "]\n"; } LogInt::Message( LogInt::LLError, 10499, "Proc", "RemoveIPCResourcesForUser", "<%s> Following IDs could not be identified: %s Analyse and remove manually.", $sMyName, $sErrorString ); $iReturnCode = 0; # Possibly failed.. } return $iReturnCode; } 1; # Because, Perl needs it. ogInt:: kꜢE{ZD{ZD{Z ./opt/VRTS/.ACCLib/system/Sys.pm_v3#---------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/system/Sys.pm,v 1.49 2014/02/20 12:32:36 kkorde Exp $ # # Veritas Software Corporation # # $Author: kkorde $ # $Date: 2014/02/20 12:32:36 $ # $Revision: 1.49 $ # # Provides: package Sys # # Functionality: wrapper to 'system' calls # as well as OS calls ping, mail, reboot # # Authors: 011787 #---------------------------------------------------------------------------- #---------------------- # version calls. #---------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/system/Sys.pm,v 1.49 2014/02/20 12:32:36 kkorde Exp $::ETVHeader"); #------------------------- # end of version calls. #------------------------- #--------------------------------- # Declare the package name. #--------------------------------- package Sys; #------------------------------------- # Be strict on subs, vars and refs. #------------------------------------- use strict; #------------------------------------- # Include all the modules needed. #------------------------------------- use Net::Ping; use LogInt; use File::stat; use File::Path qw ( mkpath ); use POSIX qw ( setuid ); #-------------------------- # define system commands. #-------------------------- $::gsCommandSu = "/bin/su"; $::gsCommandArgsSu = "-c"; $::gsCommandReboot = "/usr/sbin/reboot"; $::gsCommandArgsReboot = "-q"; $::gsCommandPing = "/usr/sbin/ping"; $::giPingTimeoutSeconds = 5; $::gsCommandSendmail = "/usr/lib/sendmail -t"; #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- $::gsCommandHasys = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/hasys"; =pod ---------------------------------------------------------------------------- Function: Boolean RunCmdArgs( IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode ) Description: Executes the specified command with given arguments. The exit code by the command is returned to the caller. Parameters: Command : Command the needs to be executed. CommandArgs : The arguments to the command. CommandReturnCode : the exit code by the command executed. Return Value: Boolean value from the set of {0,1} where 0 - fialed 1 - success ---------------------------------------------------------------------------- =cut sub RunCmdArgs { my ( $sCommand, $sCommandArgs, $riCommandReturnCode ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10140, "Sys", "RunCmdArgs", "Subroutine <%s> called with: Command [%s] Arguments [%s]", $sMyName, $sCommand, $sCommandArgs ); if(-x $sCommand) { LogInt::Message( LogInt::LLTrace, 10141, "Sys", "RunCmdArgs", "Going to run executable file at [%s], with args [%s]", $sCommand, $sCommandArgs ); my $sCommandLine = "$sCommand $sCommandArgs"; #------------------ # run the command. #------------------ system("$sCommandLine"); $$riCommandReturnCode = $? >> 8; LogInt::Message( LogInt::LLTrace, 10142, "Sys", "RunCmdArgs", "Command [%s] args [%s] returned code [%s]", $sCommand, $sCommandArgs, $$riCommandReturnCode ); return 1; #return good } else { LogInt::Message( LogInt::LLError, 10143, "Sys", "RunCmdArgs", "Failed to find an executable file at [%s]", $sCommand ); return 0; #return error } } =pod ---------------------------------------------------------------------------- Function: Boolean RunCmdArgsWithTimeout( IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode, IN Integer TimeoutSeconds, OUT Boolean TimedOut ) Description: Executes the given command with given arguments with specified time. Parameters: Command : Command the needs to be executed. CommandArgs : The arguments to the command. CommandReturnCode : the exit code by the command executed. TimeoutSeconds : Number of seconds within which the command expected to executed. TimedOut : Return to the caller whether the command is timed out or executed successfully. Return Value: Boolean value from the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub RunCmdArgsWithTimeout { my ( $sCommand, $sCommandArgs, $riCommandReturnCode, $iTimeoutSeconds, $rbTimedOut ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message ( LogInt::LLTrace, 10144, "Sys", "RunCmdArgsWithTimeout", "Subroutine <%s> called with: Command [%s] Arguments [%s] Timeout [%s]", $sMyName, $sCommand, $sCommandArgs, $iTimeoutSeconds ); #----------------------------------------------------------- # call the normal runcmd but with timeout. # set up 'try' block for the SIGALARM so we can timeout # after iTimeoutSeconds #----------------------------------------------------------- $$rbTimedOut = 1; #set true to start with my $iRunCmdArgsReturnCode = 0; eval { local $SIG{ALRM} = sub {die "sigalarm jump eval\n"}; alarm $iTimeoutSeconds; $iRunCmdArgsReturnCode = RunCmdArgs($sCommand, $sCommandArgs, $riCommandReturnCode); alarm 0; #cancel the alarm $$rbTimedOut = 0; #command didnt timeout LogInt::Message( LogInt::LLTrace, 10145, "Sys", "RunCmdArgsWithTimeout", "Timed command [%s] completed within period", $sCommand ); }; return $iRunCmdArgsReturnCode; } =pod ---------------------------------------------------------------------------- Function: Boolean RunCmdArgsAsUser( IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode, IN String UserId) Description: Executes the command with the specified user. Parameters: Command : Command the needs to be executed. CommandArgs : The arguments to the command. CommandReturnCode : the exit code by the command executed. UserId : User ID with which the command needs to be executed. Return Value: Boolean value in the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub RunCmdArgsAsUser { my ( $sCommand, $sCommandArgs, $riCommandReturnCode, $sUserId ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10146, "Sys", "RunCmdArgsAsUser", "Subroutine <%s> called with: Command [%s] Arguments [%s] User [%s]", $sMyName, $sCommand, $sCommandArgs, $sUserId ); if(-x $sCommand) { LogInt::Message( LogInt::LLTrace, 10147, "Sys", "RunCmdArgsAsUser", "Going to run executable file at [%s] args [%s] user [%s]", $sCommand, $sCommandArgs, $sUserId ); my $sCommandLine = "$::gsCommandSu $sUserId $::gsCommandArgsSu '$sCommand $sCommandArgs'"; LogInt::Message( LogInt::LLTrace, 10148, "Sys", "RunCmdArgsAsUser", "Command line [%s]", $sCommandLine ); #------------------- # run the command. #------------------- system("$sCommandLine"); $$riCommandReturnCode = $? >> 8; LogInt::Message( LogInt::LLTrace, 10149, "Sys", "RunCmdArgsAsUser", "Command [%s] args [%s] returned code [%s]", $sCommand, $sCommandArgs, $$riCommandReturnCode ); return 1; #return good } else { LogInt::Message( LogInt::LLError, 10150, "Sys", "RunCmdArgsAsUser", "Failed to find an executable file at [%s]", $sCommand ); return 0; #return error } } =pod ---------------------------------------------------------------------------- Function: Boolean RunCmdArgsAsUserWithTimeout( IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode, IN String UserId, IN Integer TimeoutSeconds, OUT Integer TimedOut ) Description: Executes the command with the user and timeout. Parameters: Command : Command the needs to be executed. CommandArgs : The arguments to the command. CommandReturnCode : the exit code by the command executed. UserId : User ID with which the command needs to be executed. TimeoutSeconds : Number of seconds within which the command expected to executed. TimedOut : Return to the caller whether the command is timed out or executed successfully. Return Value: Boolean value in the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub RunCmdArgsAsUserWithTimeout { my ( $sCommand, $sCommandArgs, $riCommandReturnCode, $sUserId, $iTimeoutSeconds, $rbTimedOut ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10151, "Sys", "RunCmdArgsAsUserWithTimeout", "Subroutine <%s> called with: Command [%s] Arguments [%s] User [%s] Timeout [%s]", $sMyName, $sCommand, $sCommandArgs, $sUserId, $iTimeoutSeconds ); #-------------------------------------------------- # call the normal runcmd as user but with timeout. # set up 'try' block for the SIGALARM so we can # timeout after iTimeoutSeconds. #-------------------------------------------------- $$rbTimedOut = 1; #set true to start with my $iRunCmdArgsAsUserReturnCode = 0; eval { local $SIG{ALRM} = sub {die "sigalarm jump eval\n"}; alarm $iTimeoutSeconds; $iRunCmdArgsAsUserReturnCode = RunCmdArgsAsUser($sCommand, $sCommandArgs, $riCommandReturnCode, $sUserId); alarm 0; #cancel the alarm $$rbTimedOut = 0; #command didnt timeout LogInt::Message( LogInt::LLTrace, 10152, "Sys", "RunCmdArgsAsUserWithTimeout", "Timed command [%s] completed within period", $sCommand ); }; return $iRunCmdArgsAsUserReturnCode; } =pod ---------------------------------------------------------------------------- Function: void QuickSystemShutdown( IN String Message ) Description: Shutdowns the system. Parameters: Message : Message to print while shutting down. Return Value: void : No value is returned the caller. ---------------------------------------------------------------------------- =cut sub QuickSystemShutdown { my ( $sMessage ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10153, "Sys", "QuickSystemShutdown", "Subroutine <%s> called with: Message [%s]", $sMyName, $sMessage ); LogInt::Message( LogInt::LLWarn, 10154, "Sys", "QuickSystemShutdown", "Shutting Down calling [%s] [%s]", $::gsCommandReboot, $::gsCommandArgsReboot ); my $iRebootReturnCode; if(RunCmdArgs($::gsCommandReboot, $::gsCommandArgsReboot, \$iRebootReturnCode)) { LogInt::Message( LogInt::LLWarn, 10155, "Sys", "QuickSystemShutdown", "RunCmdArgs exited" ); } else { LogInt::Message( LogInt::LLError, 10156, "Sys", "QuickSystemShutdown", "RunCmdArgs failed" ); } } =pod ---------------------------------------------------------------------------- Function: Boolean Ping( IN String Host ) Description: Pings the host machine and checks it is reachable or not. Parameters: Host : Name of the host to ping. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------------------- =cut sub Ping { my ( $sHost ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10157, "Sys", "Ping", "Subroutine <%s> called with: Host [%s]", $sMyName, $sHost ); LogInt::Message( LogInt::LLTrace, 10158, "Sys", "Ping", "Pinging host [%s] with timeout [%s] seconds", $sHost, $::giPingTimeoutSeconds ); #----------------------------- # Initialize the ping object. #----------------------------- my $p = Net::Ping->new("icmp", $::giPingTimeoutSeconds ); #-------------------------------------------- # 'loose' any stdout or stderr from ping. #-------------------------------------------- # my $sPingArgs = sprintf "%s %d > /dev/null 2>&1", $sHost, $::giPingTimeoutSeconds; my $iPingReturnCode; if( $p->ping($sHost) ) { #----------------- # pinged OK. #----------------- $p->close(); LogInt::Message( LogInt::LLTrace, 10159, "Sys", "Ping", "Pinging host [%s] with timeout [%s] seconds (Ping OK)", $sHost, $::giPingTimeoutSeconds ); return 1; } else { #-------------------- # failed to ping. #-------------------- $p->close(); LogInt::Message( LogInt::LLTrace, 10160, "Sys", "Ping", "Pinging host [%s] with timeout [%s] seconds (Failed to Ping)", $sHost, $::giPingTimeoutSeconds ); return 0; } } =pod ---------------------------------------------------------------------------- Function: void SendMail( IN String Recipient, IN String Subject, IN String Message ) Description: Sends a mail to the specified recipient. Parameters: Recipient : Address of the recipient. Subject : Subject for the message/mail. Message : Actual message to send. Return Value: void - No value is returned to the caller. ---------------------------------------------------------------------------- =cut sub SendMail { my ( $sRecipient, $sSubject, $sMessage ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10161, "Sys", "SendMail", "Subroutine <%s> called with: Recipient [%s] Subject [%s]", $sMyName, $sRecipient, $sSubject ); LogInt::Message( LogInt::LLTraceTrace, 10162, "Sys", "SendMail", "Message body [%s]", $sMessage ); my $iChildPid = open( MFILE, "| $::gsCommandSendmail") or LogInt::Message( LogInt::LLError, 10163, "Sys", "SendMail", "Can't fork a process for sendmail: %s", $! ); if( defined $iChildPid && $iChildPid > 1 ) { print MFILE "To: $sRecipient\nFrom: SendMail\nSubject: $sSubject\n$sMessage\n\n"; } else { LogInt::Message( LogInt::LLError, 10164, "Sys", "SendMail", "The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]", $::gsCommandSendmail, $iChildPid ); } my $sLastOS_Error = $!; my $iExitCode = undef; if( close(CMD) ) { $iExitCode = $? >> 8; } else { $iExitCode = $? >> 8; #----------------------------------------------------------------------- # Commands that exit non-zero, which sometimes does not indicate that # it failed, causes the close to return zero instead of >= 1. #----------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10165, "Sys", "SendMail", "Command line [%s] provided a non-zero exit code[%s] -- this does not necessarily indicate a problem... (Perl's OS error variable prior to the command-pipe close was [%s], and after the close was [%s] )", $::gsCommandSendmail, $iExitCode, $sLastOS_Error, $! ); } LogInt::Message( LogInt::LLTrace, 10166, "Sys", "SendMail", "Mail sent" ); return; } =pod ---------------------------------------------------------------------------- Function: Boolean DeleteFile( IN String FileName ) Description: Deletes the file specified. Parameters: FileName : Name of the file to be deleted. Return Value: Boolean value in the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub DeleteFile { my ( $sFileName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10167, "Sys", "DeleteFile", "Subroutine <%s> called with: Filename [%s]", $sMyName, $sFileName ); if(-e $sFileName) { #------------------------- # file exists - continue. #------------------------- } else { #------------------------- # treat this as 'sucess'. #------------------------- LogInt::Message( LogInt::LLTrace, 10168, "Sys", "DeleteFile", "File [%s] did not exist", $sFileName ); return 1; #return ok } my $iUnlinkReturnCode = unlink($sFileName); if($iUnlinkReturnCode == 1) { LogInt::Message( LogInt::LLTrace, 10169, "Sys", "DeleteFile", "Delete file [%s] unlink status OK", $sFileName ); return 1; #rm cmd worked ok } else { LogInt::Message( LogInt::LLWarn, 10170, "Sys", "DeleteFile", "Delete file [%s] failed to unlink", $sFileName ); return 0; #error occured } } =pod ---------------------------------------------------------------------------- Function: Boolean FileExists( IN String File ) Description: Checks status of a given file. Parameters: File : File name which needs to check status. Return Value: Boolean value from the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub FileExists { my ( $sFileName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10171, "Sys", "FileExists", "Subroutine <%s> called with: Filename [%s]", $sMyName, $sFileName ); if(-e $sFileName) { LogInt::Message( LogInt::LLTrace, 10172, "Sys", "FileExists", "File [%s] exists", $sFileName ); return 1; #return true } else { LogInt::Message( LogInt::LLTrace, 10173, "Sys", "FileExists", "File [%s] does not exist", $sFileName ); return 0; #return false } } =pod ---------------------------------------------------------------------------- Function: Boolean GetSystemNameAsVcsKnowsIt( OUT String SystemName ) Description: Gets the system name using hasys command. Parameters: SystemName : The system name given by hasys command. Return Value: Boolean value from the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub GetSystemNameAsVcsKnowsIt { my ( $rsCurrentSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10174, "Sys", "GetSystemNameAsVcsKnowsIt", "Subroutine <%s> called", $sMyName ); #-------------------- # call the command. #-------------------- my $sHasysOut = `$::gsCommandHasys -nodeid 2>&1`; my $iReturnCode = $? >> 8; #----------------------------------------------------------- # check the return code if not 0 then print an error message # using the returned data. #----------------------------------------------------------- if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10175, "Sys", "GetSystemNameAsVcsKnowsIt", "Failed with message [%s]", $sHasysOut ); return 0; #error return } else { #-------------------------------------------------------------------- # command worked # format should be # TAG_D 2001/06/04 20:45:47 VCS:10753:Node name: hydrogen Node ID: 1 #-------------------------------------------------------------------- chomp $sHasysOut; $sHasysOut =~ s/.*Node name: //; $sHasysOut =~ s/ Node ID: .*//; $$rsCurrentSystemName = $sHasysOut; LogInt::Message( LogInt::LLTrace, 10176, "Sys", "GetSystemNameAsVcsKnowsIt", "Got current system name [%s]", $$rsCurrentSystemName ); return 1; #good status return } } =pod ---------------------------------------------------------------------------- Function: Boolean RunWithEnvCmdWithOutput( IN String EnvFile, IN Boolean SourceEnv, IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode , IN String User, OUT Array CommandOut ) Description: This function executes the specified command by sourcing environment file if needed and with specified user. Parameters: EnvFile : Environment file that needs to be sourced before executing the command. SourecEnv : A flag to indicate whether the environment file needs to be sourced or not. Command : Command the needs to be executed. CommandArgs : The arguments that needs to be passed to the command. CommandReturnCode : The return code of the command executed. User : The user name with which the command needs to be executed. CommandOut : The output of the command executed. Return Value: Boolean value from the set of {0,1} where 0 - failed 1 - success ---------------------------------------------------------------------------- =cut sub RunWithEnvCmdWithOutput { my ( $sEnvFile, $bSourceEnv, $sCommand, $sCommandArgs, $riCommandReturnCode, $sUser, $rlsCommandOut ) = @_ ; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10177, "Sys", "RunWithEnvCmdWithOutput", "Subroutine <%s> called with: EnvFile [%s] Command [%s] Arguments [%s] User [%s]", $sMyName, $sEnvFile, $sCommand, $sCommandArgs, $sUser ); #---------------------------- # Establish local variables. #---------------------------- my $sCmdToRun ; my $sCommandLine ; #-------------------------------- # Confirm existance of EnvFile. #-------------------------------- if ( $sEnvFile eq "" ) { LogInt::Message( LogInt::LLTrace, 10178, "Sys", "RunWithEnvCmdWithOutput", "Environment file not set" ); } elsif ( ! -e $sEnvFile ) { LogInt::Message( LogInt::LLError, 10179, "Sys", "RunWithEnvCmdWithOutput", "Environment file [%s] does not exist", $sEnvFile ); return 0 ; } else { my ( $sName , $sPassword , $iUid , $iGid , $iQuota , $sComment , $sGcos , $sHome , $sUserShell , $sExpire ) = getpwnam($sUser); if ( $sUserShell =~ /(.*)\/bin\/.*csh$/ ) { LogInt::Message( LogInt::LLTrace, 10180, "Sys", "RunWithEnvCmdWithOutput" , "User [%s] has csh derived native shell [%s]", $sUser, $sUserShell ); #--------------------------------------- # Shell is a csh varient. Use source. #--------------------------------------- $sCmdToRun = "setenv USER $sUser; setenv HOME $sHome; source $sEnvFile;"; } else { LogInt::Message( LogInt::LLTrace, 10181, "Sys", "RunWithEnvCmdWithOutput" , "User [%s] has sh derived native shell [%s]", $sUser, $sUserShell ); #-------------------------------------------------------------------------- # Shell is one of the non-C type shells. Use . to source in the env file. #-------------------------------------------------------------------------- $sCmdToRun = "USER=$sUser; HOME=$sHome; export USER HOME; . $sEnvFile ;"; } } #------------------------------------- # Confirm existance of Exectuable. #------------------------------------- if ( ! -e $sCommand ) { LogInt::Message( LogInt::LLError, 10182, "Sys", "RunWithEnvCmdWithOutput", "File [%s] does not exist", $sCommand ) ; return 0 ; } elsif ( ! -x $sCommand ) { LogInt::Message( LogInt::LLError, 10183, "Sys", "RunWithEnvCmdWithOutput", "File [%s] is not executable", $sCommand ) ; return 0 ; } else { if( defined $sCommandArgs ) { $sCmdToRun .= "$sCommand $sCommandArgs" ; } else { $sCmdToRun .= $sCommand; } } LogInt::Message( LogInt::LLTrace, 10184, "Sys", "RunWithEnvCmdWithOutput", "Going to run [%s], with ENV [%s], with args [%s] as user [%s]", $sCommand, $sEnvFile, $sCommandArgs, $sUser ); if ( $bSourceEnv ) { LogInt::Message( LogInt::LLTrace, 10185, "Sys", "RunWithEnvCmdWithOutput", "Sourcing Environment of [%s]", $sUser ); $sCommandLine = "$::gsCommandSu - $sUser $::gsCommandArgsSu '$sCmdToRun'"; } else { $sCommandLine = "$::gsCommandSu $sUser $::gsCommandArgsSu '$sCmdToRun'"; } LogInt::Message( LogInt::LLTraceTrace, 10186, "Sys", "RunWithEnvCmdWithOutput", "Going to run [%s]", $sCommandLine ); @$rlsCommandOut = `$sCommandLine 2>&1`; $$riCommandReturnCode = $? >> 8; foreach my $sCommandLineOut (@$rlsCommandOut) { chomp($sCommandLineOut); LogInt::Message( LogInt::LLTrace, 10187, "Sys", "RunWithEnvCmdWithOutput", "Command OUTPUT: [%s]", $sCommandLineOut ); } LogInt::Message( LogInt::LLTrace, 10188, "Sys", "RunWithEnvCmdWithOutput", "Command [%s] with args [%s] returned code [%s]", $sCommand, $sCommandArgs, $$riCommandReturnCode ); return 1; } =pod ---------------------------------------------------------------------------- Function: Boolean RunWithEnvCmdWithOutputWithTimeOut( IN String EnvFile, IN Boolean SourceEnv, IN String Command, IN String CommandArgs, OUT Integer CommandReturnCode , IN String User, OUT Array CommandOut , OUT Boolean TimedOut, IN Integer TimeoutSeconds , IN String OutFileName , IN String FromDir ); Description: This function executes the specified command by sourcing environment file if needed and with specified user. It executes the command with timeout value. Parameters: EnvFile : Environment file that needs to be sourced before executing the command. SourecEnv : A flag to indicate whether the environment file needs to be sourced or not. Command : Command the needs to be executed. CommandArgs : The arguments that needs to be passed to the command. CommandReturnCode : The return code of the command executed. User : The user name with which the command needs to be executed. CommandOut : The output of the command executed. TimeOut : Flag indicating whether the command failed to execute due to timeout. TimeoutSeconds : Maximum time the command can execute before getting signaled out due to timeout. OutFileName : Output of the command will be redirected to this file, only if specified. NULL value is permitted. FromDir : Command will be executed after doing a chdir to this dir. CryptString : String to hide in CommandArgs Return Value: Boolean value from the set of {0,1} where 0 - command timedout 1 - command not timedout. ---------------------------------------------------------------------------- =cut sub RunWithEnvCmdWithOutputWithTimeOut { my ( $sEnvFile, $bSourceEnv, $sCommand, $sCommandArgs, $riCommandReturnCode, $sUser, $rlsCommandOut, $rbTimedOut, $iTimeoutSeconds, $sOutFileName, $sFromDir, $sCryptString ) = @_ ; my $sMyName = ( caller 0 )[3]; my $sCrArgs = $sCommandArgs; # Backup.. my $sDispCmd = undef; #---------------------------------- # Hide from display, if requested.. #---------------------------------- if ( defined $sCryptString ) { $sCryptString =~ s/([^\w-])/./g; $sCrArgs =~ s/$sCryptString/XXXXXXXXXX/g; } LogInt::Message ( LogInt::LLTrace, 10189, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Subroutine <%s> called with: EnvFile [%s] Command [%s] Arguments [%s] User [%s] Timeout [%s] OutFile [%s] FromDir [%s]", $sMyName, $sEnvFile, $sCommand, $sCrArgs, $sUser, $iTimeoutSeconds, $sOutFileName, $sFromDir ); #----------------------------- # Establish local variables. #----------------------------- my $sCmdToRun = ""; my $sCommandLine = ""; if ( ! defined $sUser || $sUser eq "" ) { LogInt::Message( LogInt::LLTrace, 10190, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "No user is set. Setting User to root." ); $sUser = "root"; } my ( $sName , $sPassword , $iUid , $iGid , $iQuota , $sComment , $sGcos , $sHome , $sUserShell , $sExpire ) = getpwnam($sUser); my $bCshSet = 0; if ( $sUserShell =~ /(.*)\/bin\/.*csh$/ ) { $bCshSet = 1; } #-------------------------------- # Confirm existance of EnvFile. #-------------------------------- if ( $sEnvFile eq "" ) { LogInt::Message( LogInt::LLTrace, 10191, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Environment file not set" ); } elsif ( ! -e $sEnvFile ) { LogInt::Message( LogInt::LLError, 10192, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Environment file [%s] does not exist", $sEnvFile ); return 0 ; } else { if ( $sUserShell =~ /(.*)\/bin\/.*csh$/ ) { LogInt::Message( LogInt::LLTrace, 10193, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "User [%s] has csh derived native shell [%s]", $sUser, $sUserShell ); #--------------------------------------- # Shell is a csh varient. Use source. #--------------------------------------- if( $::giLogIntLogLevel == LogInt::LLTraceTrace ) { $sCmdToRun = "setenv USER $sUser; setenv HOME $sHome; source $sEnvFile; /bin/env;"; } else { $sCmdToRun = "setenv USER $sUser; setenv HOME $sHome; source $sEnvFile;"; } } else { LogInt::Message( LogInt::LLTrace, 10194, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "User [%s] has sh derived native shell [%s]", $sUser, $sUserShell ); #---------------------------------------------- # Shell is one of the non-C type shells. Use . # to source in the env file. #---------------------------------------------- if( $::giLogIntLogLevel == LogInt::LLTraceTrace ) { $sCmdToRun = "USER=$sUser; HOME=$sHome; export USER HOME ; . $sEnvFile ; /bin/env;"; } else { $sCmdToRun = "USER=$sUser; HOME=$sHome; export USER HOME ; . $sEnvFile ;"; } } } #--------------------------------------------- # Run from specified directory. #--------------------------------------------- $sFromDir ||= ''; # Prevent undefs.. if ( $sFromDir =~ /\S/ ) { # Now can be called with "".. if ( -d $sFromDir ) { $sCmdToRun .= "cd $sFromDir ;"; } else { LogInt::Message( LogInt::LLError, 10195, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Directory [%s] does not exist", $sFromDir ) ; return 0; } } #------------------------------------ # Confirm existance of Exectuable. #------------------------------------ if ( ! -e $sCommand ) { LogInt::Message( LogInt::LLError, 10196, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "File [%s] does not exist", $sCommand ) ; return 0 ; } elsif ( ! -x $sCommand ) { LogInt::Message( LogInt::LLError, 10197, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "File [%s] is not executable", $sCommand ) ; return 0 ; } else { if( defined $sCommandArgs || $sCommandArgs ne "" ) { $sCmdToRun .= "$sCommand $sCommandArgs" ; } else { $sCmdToRun .= $sCommand ; } } $sOutFileName ||= ""; # Prevent undefs.. if ( $sOutFileName =~ /\S/ ) { # Now allow calling with "".. #----------------------------- # Create basedir for outfile.. #----------------------------- ( my $sBaseDir = $sOutFileName ) =~ s#(.*)/.*$#$1#; unless ( -d $sBaseDir ) { if ( ! mkpath ( $sBaseDir, 0, 0755 ) ) { LogInt::Message( LogInt::LLError, 10198, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Failed to create directory: [%s] for OutFile [%s]: [%s]", $sBaseDir, $sOutFileName, $! ) ; return 0 ; } } if ( $bCshSet ) { $sCmdToRun .= " >& $sOutFileName"; } else { $sCmdToRun .= " > $sOutFileName 2>&1"; } } $sDispCmd = $sCmdToRun; # Backup.. $sDispCmd =~ s/$sCryptString/XXXXXXXXXX/g if ( defined $sCryptString ); LogInt::Message( LogInt::LLTrace, 10199, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Going to run command line [%s], as User [%s]", $sDispCmd, $sUser ); my $bBackgroundJob = 0; if ( $sCmdToRun =~ /&\s*$/ ) { ++ $bBackgroundJob; $sCmdToRun =~ s/&\s*$//g; LogInt::Message( LogInt::LLTrace, 10205, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Running command [$sDispCmd] in background"); } if ( $bSourceEnv ) { LogInt::Message( LogInt::LLTrace, 10200, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Sourcing the login environment of user [%s]", $sUser ); $sCommandLine = "$::gsCommandSu - $sUser $::gsCommandArgsSu '$sCmdToRun'"; } else { #--------------------------------------------------------------------- # If the request is to run the command within the same user context as # this process is already running within, then we do not have to # do the command from under "su": #--------------------------------------------------------------------- my $sEffectiveUser = $>; if( $sEffectiveUser eq $iUid ) { $sCommandLine = "$sCmdToRun"; } else { $sCommandLine = "$::gsCommandSu $sUser $::gsCommandArgsSu '$sCmdToRun'"; } } #--------------------------------------- # Set timeout flag to true for now. #--------------------------------------- $$rbTimedOut = 1; if ($iTimeoutSeconds < 1 ) { LogInt::Message( LogInt::LLTrace, 10201, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Passed in timeout is less than 1 second, defaulting it to 15 seconds." ) ; $iTimeoutSeconds = 15; } my ( $iChildPid, @sCmdOut ) = (); $sDispCmd = $sCommandLine; # Backup.. $sDispCmd =~ s/$sCryptString/XXXXXXXXXX/g if ( defined $sCryptString ); LogInt::Message( LogInt::LLTraceTrace, 10202, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Now going to run complete command line [%s]", $sDispCmd ); eval { local $SIG{ALRM} = sub { LogInt::Message( LogInt::LLTrace, 10203, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Command timed out, going to attempt to kill the blocking child processes" ); if ( defined $iChildPid && $iChildPid > 1 ) { Proc::KillPIDandAllChildren( $iChildPid ); } else { LogInt::Message( LogInt::LLTrace, 10204, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "The Child PID was either undefined or less than 1. Therefore we cannot kill the blocking child process" ); } die "SIGALARM JUMP EVAL"; }; alarm $iTimeoutSeconds; my $sFullCmd = "$sCommandLine 2>&1"; if ( $bBackgroundJob ) { $iChildPid = open(CMD, "| $sFullCmd &") or LogInt::Message( LogInt::LLError, 10206, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Can't fork a process: [%s]", $! ) ; } else { $iChildPid = open(CMD, "$sFullCmd | ") or LogInt::Message( LogInt::LLError, 10207, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Can't fork a process: [%s]", $! ) ; } if( defined $iChildPid && $iChildPid > 1 ) { @sCmdOut = ; } else { LogInt::Message( LogInt::LLError, 10208, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]", $sDispCmd, $iChildPid ); } my $sLastOS_Error = $!; if( close(CMD) ) { $$riCommandReturnCode = $? >> 8; } else { $$riCommandReturnCode = $? >> 8; #----------------------------------------------------------------------- # Commands that exit non-zero, which sometimes does not indicate that # it failed, causes the close to return zero instead of >= 1. #----------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10209, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "Command line [%s] provided a non-zero exit code -- this does not necessarily indicate a problem... (Perl's OS error variable prior to the command-pipe close was [%s], and after the close was [%s] )", $sDispCmd, $sLastOS_Error, $! ); } @$rlsCommandOut = @sCmdOut; #--------------------- # cancel the alarm #--------------------- alarm 0; #--------------------------- # command didn't timeout. #--------------------------- $$rbTimedOut = 0; }; if ( $$rbTimedOut ) { LogInt::Message( LogInt::LLError, 10210, "Sys", "RunWithEnvCmdWithOutputWithTimeOut", "The command [%s] did not complete within [%s] seconds", $sDispCmd, $iTimeoutSeconds ); return 0; # return invalid as the script timed out. } else { if(defined $sCryptString){ foreach (@$rlsCommandOut){ $_ =~ s/\b$sCryptString\b/XXXXXXXXX/; } } VCSagentFW::messageEngineLog( \@$rlsCommandOut, LogInt::LLTrace); return 1; } } =pod ------------------------------------------------------------------------- Function : bool UnlinkFilesAsUser ( IN List Files ); Description : Removes files as the owner of the directory containing them. Parameters : @lsFiles List of files to remove Returns : boolean value in the set of {0,1} where 0 false 1 true ------------------------------------------------------------------------- =cut sub UnlinkFilesAsUser { #---------------- # Get Arguments.. #---------------- my ( @lsFiles ) = @_; #----------------- # Announce Entry.. #----------------- my $sMyName = ( caller 0 )[3]; LogInt::Message ( LogInt::LLTrace, 10211, "Sys", "UnlinkFilesAsUser", "Subroutine <%s> called with: Files [%s]", $sMyName, join ( ' ', @lsFiles ) ); #------------------------------------------- # Set return code optimistically to online.. #------------------------------------------- my $iReturnCode = 1; # Success.. #------------------------ # Pick only valid files.. #------------------------ @lsFiles = grep { -f $_ } @_; #------------------- # Return, if empty.. #------------------- unless ( scalar @lsFiles ) { LogInt::Message ( LogInt::LLError, 10212, "Sys", "UnlinkFilesAsUser", "<%s> Called with empty list of files to remove", $sMyName ); return 0; } #------------------- # Define variables.. #------------------- my ( $sFile, $sDir, $sOwner, $iUid, $iPid, $iRetCode, $iWaitStatus, %hsFiles ) = (); #------------------------- # Stack files as per UID.. #------------------------- foreach $sFile ( @lsFiles ) { #---------------------------- # Get dirname for each file.. #---------------------------- ( $sDir = $sFile ) =~ s#(.*)/.*$#$1#; # Get dirname.. if ( defined ( $iUid = stat ( $sDir )->uid ) ) { $sOwner = getpwuid ( $iUid ); LogInt::Message ( LogInt::LLTrace, 10213, "Sys", "UnlinkFilesAsUser", "<%s> File [%s] Dirname [%s] UID [%s] Owner [%s]", $sMyName, $sFile, $sDir, $iUid, $sOwner ); push @{ $hsFiles { $iUid } }, $sFile; # Store.. } } $| = 1; # Auto-flush.. #--------------------------- # Delete files as per UIDs.. #--------------------------- foreach $iUid ( keys %hsFiles ) { #---------------------- # For non-root owners.. #---------------------- if ( $iUid > 0 ) { #------------------- # Fork off a child.. #------------------- if ( ( $iPid = fork () ) > 0 ) { # Parent.. LogInt::Message ( LogInt::LLTrace, 10214, "Sys", "UnlinkFilesAsUser", "<%s> Running as Parent, UID [%s]. Child PID [%s]", $sMyName, $<, $iPid ); #------------- # Reap child.. #------------- if ( -1 == ( $iWaitStatus = waitpid ( $iPid, 0 ) ) ) { LogInt::Message ( LogInt::LLWarn, 10215, "Sys", "UnlinkFilesAsUser", "<%s> Wait on child [%s] failed with [%s]", $sMyName, $iPid, $iWaitStatus ); $iReturnCode = 0; } else { #------------------------------ # Collect exit code of child.. #------------------------------ $iRetCode = $? >> 8; LogInt::Message ( LogInt::LLTrace, 10216, "Sys", "UnlinkFilesAsUser", "<%s> Reaped child with PID [%s] successfully", $sMyName, $iWaitStatus ); #----------------------------- # Collect exit code of child.. #----------------------------- if ( $iRetCode ) { LogInt::Message ( LogInt::LLWarn, 10217, "Sys", "UnlinkFilesAsUser", "<%s> Child with PID [%s] exited with code [%s]", $sMyName, $iWaitStatus, $iRetCode ); $iReturnCode = 0; } else { LogInt::Message ( LogInt::LLTrace, 10218, "Sys", "UnlinkFilesAsUser", "<%s> Child with PID [%s] exited with exit code [%s]", $sMyName, $iWaitStatus, $iRetCode ); } } } elsif ( 0 == $iPid ) { # Child.. LogInt::Message ( LogInt::LLTrace, 10219, "Sys", "UnlinkFilesAsUser", "<%s> Running as child UID [%s]. Will setuid to [%s]", $sMyName, $<, $iUid ); #---------------------------- # Unlink files as fileowner.. #---------------------------- if ( setuid ( $iUid ) ) { exit ( unlink ( @{ $hsFiles { $iUid } } ) ? 0 : 1 ); # Remove files.. } else { LogInt::Message ( LogInt::LLError, 10220, "Sys", "UnlinkFilesAsUser", "<%s> Failed to setuid to [%s]. [%s]", $sMyName, $iUid, $! ); exit 1; # Error.. } } else { # Fork error.. LogInt::Message ( LogInt::LLError, 10221, "Sys", "UnlinkFilesAsUser", "<%s> Could not fork [%s]", $sMyName, $! ); $iReturnCode = 0; # Failure.. } } else { # Owner is root.. LogInt::Message ( LogInt::LLTrace, 10222, "Sys", "UnlinkFilesAsUser", "<%s> Unlinking files [%s] as root", $sMyName, join ( ' ', @{ $hsFiles { $iUid } } ) ); $iReturnCode = unlink ( @{ $hsFiles { $iUid } } ); # Remove.. } } return $iReturnCode; } sub RunWithEnvCmdInBG { #-------------- # Get Arguments #-------------- my ( $sEnvFile, $bSourceEnv, $sCommand, $sCommandArgs, $riCommandExitCode, $sUser, $sCommandOutFile, $rbTimedOut, $iTimeoutSeconds, $sRunCmdFrom ) = @_ ; #----------------- # Announce Entry.. #----------------- my $sMyName = ( caller 0 )[3]; #------------------ # Announce Entry... #------------------ my $sMySubName = ( caller 0 )[3]; LogInt::Message ( LogInt::LLTrace, 10223, "Sys", "RunWithEnvCmdInBG", "Subroutine <%s> called with: EnvFile [%s] SourceEnv [%s] Command [%s] CommandArgs [%s] User [%s] TimeoutSeconds [%s] RunCmdFrom [%s]", $sMyName, $sEnvFile, $bSourceEnv, $sCommand, $sCommandArgs, $sUser, $iTimeoutSeconds, $sRunCmdFrom ); #-------------------------- # Establish local variables #-------------------------- my $sCmdToRun = ""; my $sCommandLine = ""; my $sRedirection = ""; if( ! defined $sUser || $sUser eq "" ) { $sUser = "root"; } my ( $sName, $sPassword, $iUid, $iGid, $iQuota, $sComment, $sGcos, $sHome, $sUserShell, $sExpire ) = getpwnam( $sUser ); #---------------------------------------------------------------- # Run command from the directory specified. Note that we do this # before sourcing the EnvFile, just in case the EnvFile contains # relative path name references. #---------------------------------------------------------------- if( defined $sRunCmdFrom && $sRunCmdFrom ne "" ) { if( -d $sRunCmdFrom ) { LogInt::Message( LogInt::LLTrace, 10224, "Sys","RunWithEnvCmdInBG", "Running command from directory [%s]", $sRunCmdFrom ); $sCmdToRun .= "cd $sRunCmdFrom ;"; } else { LogInt::Message( LogInt::LLError, 10225, "Sys","RunWithEnvCmdInBG", "Directory [%s] does not exist", $sRunCmdFrom ); return 0; } } #----------------------------- # Confirm existance of EnvFile #----------------------------- $sRedirection = "> $sCommandOutFile 2>&1 &"; if( $sEnvFile eq "" ) { LogInt::Message( LogInt::LLTrace, 10226, "Sys","RunWithEnvCmdInBG", "Environment file not set" ); } elsif( ! -r $sEnvFile ) { LogInt::Message( LogInt::LLError, 10227, "Sys","RunWithEnvCmdInBG", "Environment file [%s] does not exist", $sEnvFile ); return 0; } else { if( $sUserShell =~ /(.*)\/bin\/.*csh$/ ) { LogInt::Message( LogInt::LLTrace, 10228, "Sys","RunWithEnvCmdInBG", "User [%s] has csh derived native shell [%s]", $sUser, $sUserShell ); #--------------------------------------------------------------- # Shell is a csh varient, so we should use the 'source' command. #--------------------------------------------------------------- $sCmdToRun .= "setenv USER $sUser; setenv HOME $sHome; source $sEnvFile;"; $sRedirection = "& > $sCommandOutFile 2>&1"; } else { LogInt::Message( LogInt::LLTrace, 10229, "Sys","RunWithEnvCmdInBG", "User [%s] has sh derived native shell [%s]", $sUser, $sUserShell ); #--------------------------------------------------------- # Shell is one of the non-C type shells. Use '.' to source # in the env file. #--------------------------------------------------------- $sCmdToRun .= "USER=$sUser; HOME=$sHome; export USER HOME; . $sEnvFile ;"; $sRedirection = "> $sCommandOutFile 2>&1 &"; } } #-------------------------------- # Confirm existance of Exectuable #-------------------------------- if( ! -f $sCommand ) { LogInt::Message( LogInt::LLError, 10230, "Sys","RunWithEnvCmdInBG", "File [%s] does not exist or is not a file", $sCommand ) ; return 0; } elsif( ! -x $sCommand ) { LogInt::Message( LogInt::LLError, 10231, "Sys","RunWithEnvCmdInBG", "File [%s] is not executable", $sCommand ) ; return 0; } else { $sCmdToRun .= "$sCommand" . " " . "$sCommandArgs" ; } LogInt::Message( LogInt::LLTrace, 10232, "Sys","RunWithEnvCmdInBG", "Going to run command line [%s], as user [%s]", $sCmdToRun, $sUser ); if( $bSourceEnv ) { LogInt::Message( LogInt::LLTrace, 10233, "Sys","RunWithEnvCmdInBG", "Sourcing the login environment of user [%s]", $sUser ); $sCommandLine = "$::gsCommandSu - $sUser $::gsCommandArgsSu '$sCmdToRun $sRedirection'"; } else { #--------------------------------------------------------------------- # If the request is to run the command within the same user context as # this process is already running within, then we do not have to # do the command from under "su": #--------------------------------------------------------------------- my $sEffectiveUser = $> ; if( $sEffectiveUser eq $iUid ) { $sCommandLine = "$sCmdToRun $sRedirection"; } else { $sCommandLine = "$::gsCommandSu $sUser $::gsCommandArgsSu '$sCmdToRun' $sRedirection"; } } $$rbTimedOut = 1; # Set timeout flag to true for now. if( $iTimeoutSeconds < 1 ) { LogInt::Message( LogInt::LLTrace, 10234, "Sys","RunWithEnvCmdInBG", "Passed in timeout was less than 1 second, defaulting it to 15 seconds" ); $iTimeoutSeconds = 15; } my $iChildPid = ''; my @sCmdOut = (); LogInt::Message( LogInt::LLTrace, 10235, "Sys","RunWithEnvCmdInBG", "Now going to run complete command line: [%s]", $sCommandLine ); eval { local $SIG{ALRM} = sub { LogInt::Message( LogInt::LLTrace, 10236, "Sys","RunWithEnvCmdInBG", "Command timed out, going to attempt to kill the blocking child processes" ); if( defined $iChildPid && $iChildPid > 1 ) { KillPIDandAllChildren( $iChildPid ); } else { LogInt::Message( LogInt::LLError, 10237, "Sys","RunWithEnvCmdInBG", "The Child PID was either undefined or less than 1. Therefore we cannot kill the blocking child process" ); } die "SIGALARM JUMP EVAL"; }; alarm $iTimeoutSeconds; #my $sFullCmd = "$sCommandLine 2>&1"; my $sFullCmd = "$sCommandLine"; LogInt::Message( LogInt::LLTrace, 10238, "Sys","RunWithEnvCmdInBG", "FullCmd is [%s]",$sFullCmd); $iChildPid = open( CMD, "$sFullCmd |" ) || &logError( 10239, "Can't fork a process" ); if( defined $iChildPid && $iChildPid > 1 ) { while( ) { push( @sCmdOut, $_ ); } } else { LogInt::Message( LogInt::LLError, 10240, "Sys","RunWithEnvCmdInBG", "The attempt to open a pipe to command [%s] resulted in an invalid child PID of [%s]", $sFullCmd, $iChildPid ); } my $sLastOS_Error = $!; if( ! close( CMD ) ) { # Commands that exit non-zero, which sometimes does not indicate that # it failed, causes the close to return zero instead of >= 1. LogInt::Message( LogInt::LLTrace, 10241, "Sys","RunWithEnvCmdInBG", "Command line [%s] provided a non-zero exit code -- this does not necessarily indicate a problem... (Perl's OS error variable prior to the command-pipe close was [%s], and after the close was [%s] )", $sFullCmd, $sLastOS_Error, $! ); } $$riCommandExitCode = $? >> 8; alarm 0; # cancel the alarm $$rbTimedOut = 0; #command didn't timeout. }; if( $$rbTimedOut ) { LogInt::Message( LogInt::LLError, 10242, "Sys","RunWithEnvCmdInBG", "The command [%s] did not complete within [%s] seconds", $sCommandLine, $iTimeoutSeconds ); return 0; } else { LogInt::Message( LogInt::LLTrace, 10243, "Sys","RunWithEnvCmdInBG", "Command [%s] with args [%s] returned code [%s]", $sCommand, $sCommandArgs, $$riCommandExitCode ); return 1; } } 1; ," kꘂsE{ZD{ZD{Z s./opt/VRTS/.ACCLib/vcs/Group.pm#----------------------------------------------------------------------------- # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Group.pm,v 1.11 2008/10/06 05:09:34 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:34 $ # $Revision: 1.11 $ # # Provides: package Group # # Functionality: VCS Group Related Commands # # Authors: 011787 #----------------------------------------------------------------------------- #--------------- # version calls. #--------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Group.pm,v 1.11 2008/10/06 05:09:34 aatre Exp $::ETVHeader"); #----------------------- # end of version calls. #----------------------- #---------------------------- # Declare the package name. #---------------------------- package Group; #---------------------------------------- # turn on strict on subs, refs and vars. #---------------------------------------- use strict; #----------------------------------- # Include all the modules required. #----------------------------------- use LogInt; use Hagrp; use Hares; use Resource; #----------------------------------------------- # internal const defines (for OnlineTypeFlag). #----------------------------------------------- use constant VCSDEF_GROUP_ONLINE_WITH_PREONLINE => 1; use constant VCSDEF_GROUP_ONLINE_WITHOUT_PREONLINE => 2; =pod ----------------------------------------------------------------------------- Function: Boolean Online( IN String GroupName, IN String SystemName, IN Integer WaitPeriod ) Description: Online service group on specified system. Parameters: GroupName : Name of the service group to be online. SystemName : Name of the host on which the service group needs to bring online. WaitPeriod : Number of seconds to wait before the service group comes online. Return Value: Boolean value from the set of {0,1} where 0 - The group failed to come online 1 - The group came online. ----------------------------------------------------------------------------- =cut sub Online { my ( $sGroupName, $sSystemName, $iWaitPeriod ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10370, "Group", "Online", "Subroutine %s called with: Group Name [%s], System Name [%s], Wait Period [%s]", $sMyName, $sGroupName, $sSystemName, $iWaitPeriod ); LogInt::Message( LogInt::LLTrace, 10371, "Group", "Online", "Group[$sGroupName] System[$sSystemName] WaitPeriod[$iWaitPeriod] calling OnlineInternal" ); #---------------------------------------------------------- # call the internal call with the 'preonline' flag on. #---------------------------------------------------------- return OnlineInternal( $sGroupName, $sSystemName, VCSDEF_GROUP_ONLINE_WITH_PREONLINE, $iWaitPeriod ); } =pod ----------------------------------------------------------------------------- Function: OnlineNoPreonline( IN String GroupName, IN String SystemName, IN Integer WaitPeriod ) Description: Online service group without checking for per-online scripts. Parameters: GroupName : Name of the service group to be online. SystemName : Name of the host on which the service group needs to bring online. WaitPeriod : Number of seconds to wait before the service group comes online. Return Value: Boolean value from the set of {0,1} where 0 - The group failed to come online. 1 - The group came online. ----------------------------------------------------------------------------- =cut sub OnlineNoPreonline { my ( $sGroupName, $sSystemName, $iWaitPeriod ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10372, "Group", "OnlineNoPreonline", "Subroutine %s called with: Group Name [%s], System Name [%s], Wait Period [%s]", $sMyName, $sGroupName, $sSystemName, $iWaitPeriod ); LogInt::Message( LogInt::LLTrace, 10373, "Group", "OnlineNoPreonline", "Group[$sGroupName] System[$sSystemName] WaitPeriod[$iWaitPeriod] calling OnlineInternal"); #---------------------------------------------------------- # call the internal call with the 'preonline' flag off. #---------------------------------------------------------- return OnlineInternal( $sGroupName, $sSystemName, VCSDEF_GROUP_ONLINE_WITHOUT_PREONLINE, $iWaitPeriod ); } =pod ----------------------------------------------------------------------------- Function: Boolean GetIPsForServiceGroup( IN String ServiceGroup, OUT ListOfStrings IPList ) Description: Gets all the IP addresses used by the given service group. Parameters: ServiceGroup : Name of the service group for which IP addresses are required. IPList : The List of IP addresses used by the given service group. Return Value: Boolean value from the set of {0,1} where 0 - failure. 1 - success. ----------------------------------------------------------------------------- =cut sub GetIPsForServiceGroup { my ( $sServiceGroup, $rlsIPList ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10374, "Group", "GetIPsForServiceGroup", "Subroutine %s called with: Group Name [%s]", $sMyName, $sServiceGroup ); LogInt::Message( LogInt::LLTrace, 10375, "Group", "GetIPsForServiceGroup", "service group:[$sServiceGroup], calling Hares::Display"); #-------------------------------------------------------------- # construct the call to the generic Hares Display command. #-------------------------------------------------------------- my $sResources = undef; my $sAttributes = "Address"; my $sGroups = $sServiceGroup; my $sTypes = "IP"; my $sSystems = undef; my @lsResults = (); if(Hares::Display($sResources, $sAttributes, $sGroups, $sTypes, $sSystems, \@lsResults)) { # return ok - continue } else { #---------------------------------- # call to get display info failed. #---------------------------------- LogInt::Message( LogInt::LLError, 10376, "Group", "GetIPsForServiceGroup", "failed in call to Hares::Display"); return 0; #return error } for my $sEachResult (@lsResults) { my ( $sResourceTrash, $sAttributeTrash, $sSystemTrash, $sValue ) = split(/\s/, $sEachResult); LogInt::Message( LogInt::LLTraceTrace, 10377, "Group", "GetIPsForServiceGroup", "adding IP:[$sValue]" ); push(@$rlsIPList, $sValue); } return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean Offline( IN String GroupName, IN String SystemName, IN Integer WaitPeriod ) Description: Brings the given service group to offline. Parameters: GroupName : Name of the service group to be offline. SystemName : Name of the host on which the service group needs to bring offline. WaitPeriod : Number of seconds to wait before the service group becomes offline. Return Value: Boolean value from the set of {0,1} where 0 - The group failed to become offline 1 - The group becomes offline. ----------------------------------------------------------------------------- =cut sub Offline { my ( $sGroupName, $sSystemName, $iWaitPeriod ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10378, "Group", "Offline", "Subroutine %s called with: Group Name [%s], System Name [%s], Wait Period [%s]", $sMyName, $sGroupName, $sSystemName, $iWaitPeriod ); #----------------------------------------------------- # if iWaitPeriod is zero wait forever # if iWaitPeriod is < zero output error and exit 0 #----------------------------------------------------- if($iWaitPeriod < 0) { LogInt::Message( LogInt::LLError, 10379, "Group", "Offline", "Called with WaitPeriod[$iWaitPeriod]" ); return 0; #error return } LogInt::Message( LogInt::LLTrace, 10380, "Group", "Offline", "Group[$sGroupName] System[$sSystemName] WaitPeriod[$iWaitPeriod]"); #------------------------- # call offline function. #------------------------- if(Hagrp::Offline($sGroupName, $sSystemName)) { #command ran ok - continue } else { #command failed - return error LogInt::Message( LogInt::LLError, 10381, "Group", "Offline", "failed in call to Hagrp::Offline" ); return 0; } #------------------------------------------------------ # need to wait for the system to go offline # get state, waiting for the output to be 'OFFLINE' # or the output to contain 'FAULTED' # how long to wait depends on iWaitPeriod #------------------------------------------------------ my $iTimeLeftToCheck = $iWaitPeriod; my $iCheckPeriod = 10; #period to wait between checks my $iWaitForever = 0; if($iWaitPeriod == 0) { $iWaitForever = 1; } while($iWaitForever || ($iTimeLeftToCheck > 0)) { my $sState = undef; if(Hagrp::GetStateGivenGroupAndSystem($sGroupName, $sSystemName, \$sState)) { #command ran ok - continue } else { #------------------------------- # command failed - return error. #------------------------------- LogInt::Message( LogInt::LLError, 10382, "Group", "Offline", "failed in call to Hagrp::GetStateGivenGroupAndSystem"); return 0; } if($sState =~ /^OFFLINE$/) { #-------------------------------- # set state to good, jump loop. #-------------------------------- LogInt::Message( LogInt::LLTrace, 10383, "Group", "Offline", "Group[$sGroupName] System[$sSystemName] is OFFLINE"); return 1; #group is offline - return good } elsif($sState =~ /FAULTED/) { #------------------------------- # set state to fail, jump loop. #------------------------------- LogInt::Message( LogInt::LLTrace, 10384, "Group", "Offline", "Group[$sGroupName] System[$sSystemName] is FAULTED"); return 0; #group is faulted - return error } LogInt::Message( LogInt::LLTraceTrace, 10385, "Group", "Offline", "Group[$sGroupName] System[$sSystemName] waiting for offline"); sleep $iCheckPeriod; $iTimeLeftToCheck = $iTimeLeftToCheck - $iCheckPeriod; } #------------------------------------------- #group didnt change state - return error. #------------------------------------------- return 0; } =pod ----------------------------------------------------------------------------- Function: Boolean GetGroupsCurrentSystem( IN String GroupName, OUT String SystemName ) Description: Get the system name on which the service group is online. Parameters: GroupName : Name of the Service group. SystemName : Name of the system on which the group is online. Return Value: Boolean value from the set of {0,1} where 0 - failure. 1 - success. ----------------------------------------------------------------------------- =cut sub GetGroupsCurrentSystem { my ( $sGroupName, $rsSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10386, "Group", "GetGroupsCurrentSystem", "Subroutine %s called with: Group Name [%s]", $sMyName, $sGroupName ); LogInt::Message( LogInt::LLTrace, 10387, "Group", "GetGroupsCurrentSystem", "Group:[$sGroupName], calling Hagrp::GetStateInfoListGivenGroup"); #-------------------------------------------------------------------- # get list of systems where this group exists # return the one which isnt showing it as offline # if group is showing offline on all systems, leave $rsSystem unset #-------------------------------------------------------------------- my @lsStateInfo = (); if(Hagrp::GetStateInfoListGivenGroup($sGroupName, \@lsStateInfo)) { # all ok - continue } else { #call to get display info failed LogInt::Message( LogInt::LLError, 10388, "Group", "GetGroupsCurrentSystem", "failed in call to Hagrp::GetStateInfoListGivenGroup" ); return 0; #return error } #----------------------------------- # output format is # Group Attribute System Value #----------------------------------- for my $sEachStateInfo (@lsStateInfo) { my ( $sGroupTrash, $sAttributeTrash, $sSystem, $sState ) = split(/\s/, $sEachStateInfo); if($sState =~ /OFFLINE/) { LogInt::Message( LogInt::LLTraceTrace, 10389, "Group", "GetGroupsCurrentSystem", "Ignoring Group:[$sGroupTrash], System:[$sSystem], State:[$sState]"); } else { LogInt::Message( LogInt::LLTrace, 10390, "Group", "GetGroupsCurrentSystem", "Found Group:[$sGroupTrash], System:[$sSystem], State:[$sState], exiting..."); $$rsSystemName = $sSystem; last; #jump loop } } return 1; #return ok } =pod ----------------------------------------------------------------------------- Funcrion: Boolean OnlineInternal( IN String GroupName, IN String SystemName, IN Constant OnlineType, IN Integer WaitPeriod ) Description: It is called by Online subroutine and internally checks whether the group came online for specified wait period. Parameters: GroupName : Name of the service group to be online. SystemName : Name of the host on which the service group needs to bring online. OnlineType : A constant to specifies one of the following values. VCSDEF_GROUP_ONLINE_WITH_PREONLINE - Indicates that HAD should not online a service group in response to an hagrp -online command or a fault. It should instead call a user-defined script that checks for external conditions before bringing the group online. VCSDEF_GROUP_ONLINE_WITHOUT_PREONLINE - Indicates HAD that no need to call user-defined scripts. WaitPeriod : Number of seconds to wait before the service group comes online. Return Value: Boolean value from the set of {0,1} where 0 - The group failed to come online. 1 - The group came online. ----------------------------------------------------------------------------- =cut sub OnlineInternal { my ( $sGroupName, $sSystemName, $bOnlineType, $iWaitPeriod ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10391, "Group", "OnlineInternal", "Subroutine %s called with: Group Name [%s], System Name [%s], Online Type [%s], Wait Period [%s]", $sMyName, $sGroupName, $sSystemName, $bOnlineType, $iWaitPeriod ); #---------------------------------------------------- # if iWaitPeriod is zero wait forever # if iWaitPeriod is < zero output error and exit 0 #---------------------------------------------------- if($iWaitPeriod < 0) { LogInt::Message( LogInt::LLError, 10392, "Group", "OnlineInternal", "Called with WaitPeriod[$iWaitPeriod]"); return 0; #error return } LogInt::Message( LogInt::LLTrace, 10393, "Group", "OnlineInternal", "Group[$sGroupName] System[$sSystemName] WaitPeriod[$iWaitPeriod]"); #----------------------------- # decide which to call here. #----------------------------- if($bOnlineType == VCSDEF_GROUP_ONLINE_WITH_PREONLINE) { if(Hagrp::Online($sGroupName, $sSystemName)) { #continue } else { LogInt::Message( LogInt::LLError, 10394, "Group", "OnlineInternal", "Failed in call to Hagrp::Online" ); return 0; #error return } } elsif ($bOnlineType == VCSDEF_GROUP_ONLINE_WITHOUT_PREONLINE) { if(Hagrp::OnlineNoPre($sGroupName, $sSystemName)) { #continue } else { LogInt::Message( LogInt::LLError, 10395, "Group", "OnlineInternal", "Failed in call to Hagrp::OnlineNoPre"); return 0; #error return } } else { LogInt::Message( LogInt::LLError, 10396, "Group", "OnlineInternal", "Incorrect value for OnlineType value[$bOnlineType]" ); return 0; #error return } #---------------------------------------------------------------------- # command ran ok, need to wait for the system to # come online - how long depends on iWaitPeriod # get state waiting for the output to be 'ONLINE' # or the output to contain 'FAULTED' or for the WaitPeriod to expire #---------------------------------------------------------------------- my $iTimeLeftToCheck = $iWaitPeriod; my $iCheckPeriod = 10; #period to wait between checks my $iWaitForever = 0; if($iWaitPeriod == 0) { $iWaitForever = 1; } while($iWaitForever || ($iTimeLeftToCheck > 0)) { my $sState = undef; if(Hagrp::GetStateGivenGroupAndSystem($sGroupName, $sSystemName, \$sState)) { #command ran ok - continue } else { #---------------------------------- # command failed - return error. #---------------------------------- LogInt::Message( LogInt::LLError, 10397, "Group", "OnlineInternal", "failed in call to Hagrp::GetStateGivenGroupAndSystem" ); return 0; } if($sState =~ /^ONLINE$/) { #set state to good - return LogInt::Message( LogInt::LLTrace, 10398, "Group", "OnlineInternal", "Group[$sGroupName] System[$sSystemName] is ONLINE" ); return 1; #group is online - return good } elsif($sState =~ /FAULTED/) { #------------------------------ # set state to fail - return. #------------------------------ LogInt::Message( LogInt::LLTrace, 10399, "Group", "OnlineInternal", "Group[$sGroupName] System[$sSystemName] is FAULTED" ); return 0; #group is failed - return fail } LogInt::Message( LogInt::LLTrace, 10400, "Group", "OnlineInternal", "Group[$sGroupName] System[$sSystemName] waiting for online"); sleep $iCheckPeriod; $iTimeLeftToCheck = $iTimeLeftToCheck - $iCheckPeriod; } #------------------------------------------------- # group did not change state - return error #------------------------------------------------- return 0; } =pod ----------------------------------------------------------------------------- Function: Boolean GetSystemListHash( IN String GroupName, OUT Hash PrioritySystemNameHash ) Description: Gets all the hostname and their priorities in the cluster on which the service group exists. Parameters: GroupName : Name of the service group. PrioritySystemNameHash : Hash with system name and it's priority. Return Value: Boolean value in the set of {0,1} where 1 - Returns on success. 0 - Returns on failure. ----------------------------------------------------------------------------- =cut sub GetSystemListHash { my ( $sGroupName, $rhPrioritySystemNameHash ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10401, "Group", "GetSystemListHash", "Subroutine %s called with Group Name [%s]", $sMyName, $sGroupName ); LogInt::Message( LogInt::LLTrace, 10402, "Group", "GetSystemListHash", "service GroupName:[$sGroupName], calling Hagrp::Display" ); #---------------------------------------------------------------- # construct the call to the generic Hagrp Display command. #---------------------------------------------------------------- my $sGroups = $sGroupName; my $sAttributes = "SystemList"; my $sSystems = undef; my @lsResults = (); if(Hagrp::Display($sGroups, $sAttributes, $sSystems, \@lsResults)) { # return ok - continue } else { #------------------------------------ # call to get display info failed. #------------------------------------ LogInt::Message( LogInt::LLError, 10403, "Group", "GetSystemListHash", "failed in call to Hagrp::Display" ); return 0; #return error } #----------------------------------------------------------------- # format # #Group Attribute System Value # VCS_ENGINE_HB SystemList global helium 1 hydrogen 2 # # convert the results entry into one string # (only the first entry has data in it) #----------------------------------------------------------------- my $sResultEntryString = $lsResults[0]; #------------------------------------------------- # make the string into a list (split on spaces). #------------------------------------------------- my @lsSystemListData = split(/\s/, $sResultEntryString); #---------------------------------------------------------------- # loose the first 3 params (they don't contain anything useful) #---------------------------------------------------------------- shift @lsSystemListData; shift @lsSystemListData; shift @lsSystemListData; my $loop = 1; my %hTmpPrioritySystemNameHash = (); while ($loop) { my $sTmpSystemName = shift @lsSystemListData; if(defined $sTmpSystemName) { my $sTmpPriority = shift @lsSystemListData; if(defined $sTmpPriority) { $hTmpPrioritySystemNameHash{$sTmpPriority} = $sTmpSystemName; LogInt::Message( LogInt::LLTraceTrace, 10404, "Group", "GetSystemListHash", "Adding SystemName [$sTmpSystemName] at Priority [$sTmpPriority]" ); } else { LogInt::Message( LogInt::LLError, 10405, "Group", "GetSystemListHash", "System list data invalid format [$sResultEntryString]" ); return 0; #return error } } else { $loop = 0; } } #----------------------------------------------------------- # assign the tmp hash contents to the passed in referance. #----------------------------------------------------------- %$rhPrioritySystemNameHash = %hTmpPrioritySystemNameHash; return 1; } =pod ----------------------------------------------------------------------------- Function: String getGroupName( IN String ResourceName ) Description: Gives the group name for the given resource. Parameters: ResourceName : Name of the resource. Return Value: String : String containing the name of the group that the given resource belongs. ----------------------------------------------------------------------------- =cut sub getGroupName { my ( $sResourceName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10406, "Group", "getGroupName", "Subroutine %s called with: Group Name [%s]", $sMyName, $sResourceName ); my $sGroupName = undef; if(Resource::GetGroupNameGivenResource($sResourceName, \$sGroupName)) { return $sGroupName; } else { LogInt::Message( LogInt::LLTrace, 10407, "Group", "getGroupName", "Call to getGroupName with ResourceName [%s] failed", $sResourceName ); return ""; } } =pod ----------------------------------------------------------------------------- Function: Boolean hagrp( IN String HaCmd, IN String GroupName, IN String SystemName, IN Integer WaitPeriod ) Description: A rapper to the hagrp command internally calling corresponding subroutines. Parameters: HaCmd : Command which describes the one of the following actions: Online Offline OnlineNoPre GroupName : Name of the service group in the cluster. SystemName : Name of the node/system in the cluster on which the group needs to bring Onbline, offline or onlineNoPre. WaitPeriod : Number of seconds to wait before the specified action completes. Return Value: Boolean value in the set of {0, 1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub hagrp { my ( $sHaCmd, $sGroupName, $sSystemName, $iWaitPeriod ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10408, "Group", "hagrp", "Subroutine %s called with: HA Command [%s], Group Name [%s], System Name [%s], Wait Period [%s]", $sMyName, $sHaCmd, $sGroupName, $sSystemName, $iWaitPeriod ); if ($sHaCmd eq "online") { return Group::Online($sGroupName, $sSystemName, $iWaitPeriod); } elsif ($sHaCmd eq "onlineNoPre") { return Group::OnlineNoPreonline($sGroupName, $sSystemName, $iWaitPeriod); } elsif ($sHaCmd eq "offline") { return Group::Offline($sGroupName, $sSystemName, $iWaitPeriod); } else { #------------------------------------ # Unrecognised command argument. #------------------------------------ LogInt::Message( LogInt::LLTrace, 10409, "Group", "hagrp", "Received invalid HaCmd string [%s]", $sHaCmd ); return 0; } } 1; #so perl knows its included ok , kv_IE{ZD{ZD{Z I./opt/VRTS/.ACCLib/vcs/Hagrp.pm#------------------------------------------------------------------------------ # VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Hagrp.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:34 $ # $Revision: 1.15 $ # # Provides: package Hagrp # # Functionality: a wrapper to hagrp Functionality # # Authors: 011787 #------------------------------------------------------------------------------ #---------------------- # version calls #---------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Hagrp.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $::ETVHeader"); #------------------------ # end of version calls #------------------------ #---------------------------- # Declare the package name. #---------------------------- package Hagrp; #--------------------------------------------- # Turn on strict for refs, subs and vars. #--------------------------------------------- use strict; #------------------------------------ # Include all the packages required. #------------------------------------ use LogInt; use Resource; #--------------------------------- # ha commands used. #--------------------------------- #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- my $sHagrpCmd = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/hagrp"; #------------------------------------------------------------------ # options marked with '*' are available # # hagrp -add # hagrp -delete # hagrp -link # hagrp -unlink # hagrp -clear [-sys ] # *hagrp -online [-nopre] -sys # *hagrp -offline -sys # *hagrp -state [ -sys ] # hagrp -switch -to # hagrp -freeze [-persistent] # hagrp -unfreeze [-persistent] # hagrp -enable [-sys ] # hagrp -disable [-sys ] # *hagrp -display [] [-attribute ] # [-sys ] # hagrp -dep [] # hagrp -resources # hagrp -list [] # hagrp -value [] # hagrp -enableresources # hagrp -disableresources # hagrp -flush -sys # hagrp -autoenable -sys # hagrp [-help [-modify|-link|-list]] #------------------------------------------------------------------ =pod ------------------------------------------------------------------------------ Function: Boolean Online( IN String GroupName, IN String SystemName ) Description: Brings the service group online on specified host with pre-online trigger. Parameters: GroupName : Name of the service group. SystemName : Name of the host on which the service groups needs to bring online. Return Value: Boolean value from the set of {0,1} where 0 - Returns on failure. 1 - Returns on Success. ------------------------------------------------------------------------------ =cut sub Online { my ( $sGroup, $sSystem ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10352, "Hagrp", "Online", "Subroutine %s called with: Service Group [%s], System Name [%s]", $sMyName, $sGroup, $sSystem ); #--------------------------------------------------------- # either works or doesn't, return code reflects status # # run command - collect stderr as well as stdout #--------------------------------------------------------- my $sHagrpOut = `$sHagrpCmd -online $sGroup -sys $sSystem 2>&1`; my $iReturnCode = $? >> 8; #--------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #--------------------------------------------------------- if ($iReturnCode != 0) { chomp $sHagrpOut; chomp $sHagrpOut; #seems to be 2 newlines to chomp LogInt::Message( LogInt::LLError, 10353, "Hagrp", "Online", "Failed with message:[$sHagrpOut]" ); return 0; #error return } return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean OnlineNoPre( IN String GroupName, IN String SystemName ) Description: Brings the service group online on specified host without pre-online trigger. Parameters: GroupName : Name of the service group. SystemName : Name of the host on which the service group needs to bring online. Return Value: Boolean value from the set of {0,1} where 0 - Returns on failure. 1 - Returns on success. ------------------------------------------------------------------------------ =cut sub OnlineNoPre { my ( $sGroup, $sSystem ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10354, "Hagrp", "OnlineNoPre", "Subroutine %s called with: Service Group [%s], System Name [%s]", $sMyName, $sGroup, $sSystem ); #-------------------------------------------------------- # either works or doesn't, return code reflects status # # run command - collect stderr as well as stdout #-------------------------------------------------------- my $sHagrpOut = `$sHagrpCmd -online -nopre $sGroup -sys $sSystem 2>&1`; my $iReturnCode = $? >> 8; #-------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #-------------------------------------------------------- if ($iReturnCode != 0) { chomp $sHagrpOut; chomp $sHagrpOut; #seems to be 2 newlines to chomp LogInt::Message( LogInt::LLError, 10355, "Hagrp", "OnlineNoPre", "Failed with message:[$sHagrpOut]" ); return 0; #error return } return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean Offline( IN String GroupName, IN String SystemName ) Description: Offline the service group on specified node. Parameters: GroupName : Name of the service group. SystemName : Name of the system name. Return Value: Boolean value from the set of {0,1} where 0 - The service group fails to come offline. 1 - The service group comes offline. ------------------------------------------------------------------------------ =cut sub Offline { my ( $sGroup, $sSystem ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10356, "Hagrp", "Offline", "Subroutine %s called with: Service Group [%s], System Name [%s]", $sMyName, $sGroup, $sSystem ); #------------------------------------------------- # run command - collect stderr as well as stdout #------------------------------------------------- my $sHagrpOut = `$sHagrpCmd -offline $sGroup -sys $sSystem 2>&1`; chomp $sHagrpOut; my $iReturnCode = $? >> 8; #-------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #-------------------------------------------------------- if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10357, "Hagrp", "Offline", "Failed with message:[$sHagrpOut]" ); return 0; #error return } return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean GetStateInfoListGivenGroup( IN String GroupName, OUT ArrayOfStrings StateInfo ) Description: Gets the state of the service group on all nodes in the cluster. Parameters: GroupName - Name of the Service group. StateInfo - List containing the status of the service group on each node in the cluster. #Group Attribute System Value Apache1326 State gps-lin3 |OFFLINE| Etc will be converted into Apache1326 State gps-lin3 |OFFLINE| Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub GetStateInfoListGivenGroup { my ( $sGroup, $rlsStateInfo ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10358, "Hagrp", "GetStateInfoListGivenGroup", "Subroutine %s called with: Service Group [%s]", $sMyName, $sGroup ); #--------------------------------------------------- # run command - collect stderr as well as stdout #--------------------------------------------------- my @lsHagrpOut = `$sHagrpCmd -state $sGroup 2>&1`; my $iReturnCode = $? >> 8; #----------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #----------------------------------------------------- if ($iReturnCode != 0) { my $sHagrpOut = undef; if(@lsHagrpOut > 1) { $sHagrpOut = join('\n', @lsHagrpOut); } else { $sHagrpOut = $lsHagrpOut[0]; } chomp $sHagrpOut; LogInt::Message( LogInt::LLError, 10359, "Hagrp", "GetStateInfoListGivenGroup", "Failed with message:[$sHagrpOut]" ); return 0; #error return } #----------------------------------------------------------- # assign the output to the passed in referance # format is #Resource Attribute System Value #----------------------------------------------------------- for my $sEachHagrpOut (@lsHagrpOut) { if($sEachHagrpOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHagrpOut; $sEachHagrpOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10360, "Hagrp", "GetStateInfoListGivenGroup", "Adding [$sEachHagrpOut] to rlsStateInfo" ); push(@$rlsStateInfo, $sEachHagrpOut); } } my $iEntryCount = @$rlsStateInfo; LogInt::Message( LogInt::LLTrace, 10361, "Hagrp", "GetStateInfoListGivenGroup", "Found [$iEntryCount] entries"); return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean GetStateGivenGroupAndSystem( IN String GroupName, IN String SystemName, OUT String State ) Description: Gets the status of the given service group on specified system. Parameters: GroupName : Name of the service group. SystemName : Name of the system on which the service group status needs to be checked. State : State of the service group on the system. Return Value: Boolean value from the set of {0,1} where 0 - The command fails to execute. 1 - The command executes successfully. ------------------------------------------------------------------------------ =cut sub GetStateGivenGroupAndSystem { my ( $sGroup, $sSystem, $rsState ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10362, "Hagrp", "GetStateGivenGroupAndSystem", "Subroutine %s called with: Service Group [%s], System Name [%s]", $sMyName, $sGroup, $sSystem ); #------------------------------------------------- #run command - collect stderr as well as stdout #------------------------------------------------- my $sHagrpOut = `$sHagrpCmd -state $sGroup -sys $sSystem 2>&1`; chomp $sHagrpOut; my $iReturnCode = $? >> 8; #----------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #----------------------------------------------------- if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10363, "Hagrp", "GetStateGivenGroupAndSystem", "Failed with message:[$sHagrpOut]" ); return 0; #error return } LogInt::Message( LogInt::LLTrace, 10364, "Hagrp", "GetStateGivenGroupAndSystem", "Called with Service Group:[$sGroup], system name:[$sSystem] returning [$sHagrpOut]" ); #----------------------------------------------- # assign the output to the passed in referance #----------------------------------------------- $$rsState = $sHagrpOut; return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean Display( IN String Groups, IN String Attributes, IN String Systems, OUT ArrayOfStrings Results ) Description: Gets all the attributes on specifies nodes for the given service groups. Parameters: Groups : List of the service groups. Attributes : List of attributes to be displayed. Systems : List of systems/node in the cluster. Results : An array containing all the groups, attributes, systems and values. The format of each entry will be as follows: #Group Attribute System Value Apache1326 Version gps-lin3 1.3 Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub Display { my ( $sGroups, $sAttributes, $sSystems, $rlsResults ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10365, "Hagrp", "Display", "Subroutine %s called with: Groups [%s], Attributes [%s], Systems [%s]", $sMyName, $sGroups, $sAttributes, $sSystems ); #-------------------------------------------------------------------- # some, all, or none of the above may be populated. # results of the command are passed back in the $rlsResults param # hagrp -display [] [-attribute ] [-sys ] #-------------------------------------------------------------------- #---------------------------------------------------------- # go through the passed in params building up the arg list # for hagrp call #---------------------------------------------------------- #------------------------------------- # start with the generic display call #------------------------------------- my $sHagrpDisplayCmd = "$sHagrpCmd -display"; if($sGroups) { $sHagrpDisplayCmd .= " $sGroups"; } if($sAttributes) { $sHagrpDisplayCmd .= " -attribute $sAttributes"; } if($sSystems) { $sHagrpDisplayCmd .= " -sys $sSystems"; } LogInt::Message( LogInt::LLTrace, 10366, "Hagrp", "Display", "going to call $sHagrpDisplayCmd"); #--------------------- # call the command. #--------------------- my @lsHagrpOut = `$sHagrpDisplayCmd 2>&1`; my $iReturnCode = $? >> 8; #------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned data #------------------------------------------------------- if ($iReturnCode != 0) { my $sHagrpOut = undef; if(@lsHagrpOut > 1) { $sHagrpOut = join('\n', @lsHagrpOut); } else { $sHagrpOut = $lsHagrpOut[0]; } chomp $sHagrpOut; LogInt::Message( LogInt::LLError, 10367, "Hagrp", "Display", "Failed with message:[$sHagrpOut]" ); return 0; #error return } #------------------------------------------------- # assign the output to the passed in referance # # #Group Attribute System Value # fsapvol1 AutoFailOver global 1 # etc.. #------------------------------------------------- for my $sEachHagrpOut (@lsHagrpOut) { if($sEachHagrpOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHagrpOut; $sEachHagrpOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10368, "Hagrp", "Display", "Adding [$sEachHagrpOut] to rlsResults" ); push(@$rlsResults, $sEachHagrpOut); } } my $iEntryCount = @$rlsResults; LogInt::Message( LogInt::LLTrace, 10369, "Hagrp", "Display", "Found [$iEntryCount] entries" ); return 1; } 1; #so perl knows its included ok l kꚉOE{ZD{ZD{Z O./opt/VRTS/.ACCLib/vcs/Hares.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Hares.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:34 $ # $Revision: 1.15 $ # # Provides: package Hares # # Functionality: wrapper to hares Functionality. # # Authors: 011787 #------------------------------------------------------------------------------ #----------------- # version calls. #----------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Hares.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $::ETVHeader"); #---------------------- # end of version calls #---------------------- #----------------------------------- # Declare the package/module name. #----------------------------------- package Hares; #------------------------------------------ # Turn on strict for subs, vars and refs. #------------------------------------------ use strict; #------------------------------------- # Include all the packages required. #------------------------------------- use LogInt; #------------------------------------------ # ha command to get resource information. #------------------------------------------ #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- my $sHaresCmd = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/hares"; #-------------------------------------------------------------------------- # options marked with '*' are available # # hares -add # hares -local # hares -global ... | ... | { } ... # hares -delete # hares -link # hares -unlink # hares -clear [-sys ] # *hares -online -sys # *hares -offline -sys # hares -offprop -sys # *hares -state [ -sys ] # *hares -display [] [-attribute ] # [-group ] [-type ] [-sys ] # *hares -dep [] # hares -list [ [] # hares -probe -sys # hares [-help [-modify|-list]] #---------------------------------------------------------------------------- =pod ------------------------------------------------------------------------------ Function: Boolean Online( IN String Resource, IN String System ) Description: Online the specified resource on the node. Parameters: Resource : Name of the resource. System : Name of the system. Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub Online { my ( $sRes, $sSystem ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10440, "Hares", "Online", "Subroutine %s called with: Resource Name [%s], System Name [%s]", $sMyName, $sRes, $sSystem ); #-------------------------------------------------------- # either works or doesn't, return code reflects status # run command - collect stderr as well as stdout #-------------------------------------------------------- my $sHaresOut = `$sHaresCmd -online $sRes -sys $sSystem 2>&1`; chomp $sHaresOut; my $iReturnCode = $? >> 8; #-------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #-------------------------------------------------------- if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10441, "Hares", "Online", "Failed with message:[$sHaresOut]" ); return 0; #error return } return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean Offline( IN String Resource, IN String System ) Description: Offline the specified resource on the node. Parameters: Resource : Name of the resource. System : Name of the system. Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub Offline { my ( $sRes, $sSystem ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10442, "Hares", "Offline", "Subroutine %s called with: Resource Name [%s], System Name [%s]", $sMyName, $sRes, $sSystem ); #--------------------------------------------------- #run command - collect stderr as well as stdout #--------------------------------------------------- my $sHaresOut = `$sHaresCmd -offline $sRes -sys $sSystem 2>&1`; chomp $sHaresOut; my $iReturnCode = $? >> 8; #--------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned string and return #--------------------------------------------------------- if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10443, "Hares", "Offline", "Failed with message:[$sHaresOut]" ); return 0; #error return } return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean GetStateInfoListGivenResource( IN String Resource, OUT ArrayOfStrings StateInfo ) Description: Get the status of the resource on all the nodes in the cluster. Parameters: Resource : Name of the Resource. StateInfo : Status/state of the resource on each node of the cluster. #Resource Attribute System Value Apache1326_ip State gps-lin3 OFFLINE Etc. will be converted into Apache1326_ip State gps-lin3 OFFLINE Return Value: Boolean value from the ser of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub GetStateInfoListGivenResource { my ( $sRes, $rlsStateInfo ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10444, "Hares", "GetStateInfoListGivenResource", "Subroutine %s called with: Resource Name [%s]", $sMyName, $sRes ); #------------------------------------------------- # run command - collect stderr as well as stdout #------------------------------------------------- my @lsHaresOut = `$sHaresCmd -state $sRes 2>&1`; my $iReturnCode = $? >> 8; #------------------------------------------------------ # check the return code if not 0 then print an error # message using the returned list of strings and return #------------------------------------------------------ if ($iReturnCode != 0) { my $sHaresOut = join('\n', @lsHaresOut); chomp $sHaresOut; LogInt::Message( LogInt::LLError, 10445, "Hares", "GetStateInfoListGivenResource", "Failed with message:[$sHaresOut]" ); return 0; #error return } #---------------------------------------------------------- # assign the output to the passed in referance # format is #Resource Attribute System Value #---------------------------------------------------------- for my $sEachHaresOut (@lsHaresOut) { if($sEachHaresOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHaresOut; $sEachHaresOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10446, "Hares", "GetStateInfoListGivenResource", "Adding [$sEachHaresOut] to rlsStateInfo" ); push(@$rlsStateInfo, $sEachHaresOut); } } my $iEntryCount = @$rlsStateInfo; LogInt::Message( LogInt::LLTrace, 10447, "Hares", "GetStateInfoListGivenResource", "Found [$iEntryCount] entries" ); return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean GetStateInfoGivenResourceAndSystem( IN String Resource, IN String System, OUT String State ) Description: Get the Resource state on the specified node in the cluster. Parameters: Resource : Name of the resource. System : Name of the system/node. State : State of the resource on the node/system which can be one of OFFLINE, ONLINE etc. Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub GetStateInfoGivenResourceAndSystem { my ( $sRes, $sSystem, $rsState ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10448, "Hares", "GetStateInfoGivenResourceAndSystem", "Subroutine %s called with: Resource Name [%s], System Name [%s]", $sMyName, $sRes, $sSystem ); #------------------------------------------------- # run command - collect stderr as well as stdout #------------------------------------------------- my $sHaresOut = `$sHaresCmd -state $sRes -sys $sSystem 2>&1`; chomp $sHaresOut; my $iReturnCode = $? >> 8; #------------------------------------------------------ # check the return code if not 0 then print an error # message using the returned string and return #------------------------------------------------------ if ($iReturnCode != 0) { LogInt::Message( LogInt::LLError, 10449, "Hares", "GetStateInfoGivenResourceAndSystem", "Failed with message:[$sHaresOut]" ); return 0; #error return } LogInt::Message( LogInt::LLTrace, 10450, "Hares", "GetStateInfoGivenResourceAndSystem", "Called with resource name:[$sRes] on system name:[$sSystem] returning state:[$sHaresOut]"); #----------------------------------------------- # assign the output to the passed in referance #----------------------------------------------- $$rsState = $sHaresOut; return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean GetDependInfoListGivenResource( IN String Resource, OUT ListOfStrings DependInfo ) Description: Get all the dependent resources of the resource in the cluster. Parameters: Resource : Name of the resource. DependInfo : List containing the resource dependent information. The output will be in the following format: Apache1326 Apache1326_mnt Apache1326_dg Apache1326 Apache1326_svr_1 Apache1326_mnt Apache1326 Apache1326_svr_2 Apache1326_mnt Return Value: Boolean value from the set of {0,1} where 0 - The command fails. 1 - The command succeeds. ------------------------------------------------------------------------------ =cut sub GetDependInfoListGivenResource { my ( $sRes, $rlsDependInfo ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10451, "Hares", "GetDependInfoListGivenResource", "Subroutine %s called with: Resource Name [%s]", $sMyName, $sRes ); #----------------------------------------------------- # there is a 'special case' with -dep on resources # if the return code is !0 and there is no message # then its because there was only one resource in the # service group (ie its not an error). #----------------------------------------------------- #------------------------------------------------ # run command - collect stderr as well as stdout #------------------------------------------------ my @lsHaresOut = `$sHaresCmd -dep $sRes 2>&1`; my $iReturnCode = $? >> 8; #------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned list of strings and return #------------------------------------------------------- if ($iReturnCode != 0) { my $sHaresOut = undef; if(@lsHaresOut) { if(@lsHaresOut > 1) { $sHaresOut = join('\n', @lsHaresOut); } else { $sHaresOut = $lsHaresOut[0]; } chomp $sHaresOut; } else { #-------------------------------------------------------- # this is the 'special case' of an empty return string #-------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10452, "Hares", "GetDependInfoListGivenResource", "Assuming no dependants, return code was [$iReturnCode]" ); #------------------------------------------- # return an empty list, set code to 'good' #------------------------------------------- @$rlsDependInfo = (); return 1; } LogInt::Message( LogInt::LLError, 10453, "Hares", "GetDependInfoListGivenResource", "Failed with message:[$sHaresOut]" ); return 0; #error return } #-------------------------------------------------------------- # Assign the output to the passed in referance # remove the first entry as it just contains the header info # eg #Group Parent Child #-------------------------------------------------------------- shift @lsHaresOut; chomp @lsHaresOut; @$rlsDependInfo = @lsHaresOut; return 1; } =pod ------------------------------------------------------------------------------ Function: Boolean Display( IN String Resources, IN String Attributes, IN String Groups, IN String Types, IN String Systems, OUT ArrayOfStrings Results ) Description: Displays the resources attributes on all the systems/nodes specified. Parameters: Resources : String containing all the resource names. Attributes : String containing all the attributes to be displayed. Groups : String containing all the service group names. Types : String containing all type names. Systems : String containing all the system names. Results : Contains the result of display. Return Value: Boolean value from the set of {0,1} where 0 - The command execution fails. 1 - The command execution succeeds. ------------------------------------------------------------------------------ =cut sub Display { my ( $sResources, $sAttributes, $sGroups, $sTypes, $sSystems, $rlsResults ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10454, "Hares", "Display", "Subroutine %s called with: Resources [%s], Attributes [%s], Groups [%s], Types [%s], Systems [%s]", $sMyName,$sResources, $sAttributes, $sGroups, $sTypes, $sSystems ); #------------------------------------------------------------------ # some, all, or none of the above may be populated # results of the command are passed back in the $rlsResults param # hares -display [] [-attribute ] # [-group ] [-type ] [-sys ] #------------------------------------------------------------------ #------------------------------------------------------------------------- # go through the passed in params building up the arg list for hares call #------------------------------------------------------------------------- #--------------------------------------- # start with the generic display call #--------------------------------------- my $sHaresDisplayCmd = "$sHaresCmd -display"; if($sResources) { $sHaresDisplayCmd .= " $sResources"; } if($sAttributes) { $sHaresDisplayCmd .= " -attribute $sAttributes"; } if($sGroups) { $sHaresDisplayCmd .= " -group $sGroups"; } if($sTypes) { $sHaresDisplayCmd .= " -type $sTypes"; } if($sSystems) { $sHaresDisplayCmd .= " -sys $sSystems"; } LogInt::Message( LogInt::LLTrace, 10455, "Hares", "Display", "Going to call [$sHaresDisplayCmd]" ); #--------------------- # call the command #--------------------- my @lsHaresOut = `$sHaresDisplayCmd 2>&1`; my $iReturnCode = $? >> 8; #----------------------------------------------------- # check the return code if not 0 then print an error # message using the returned data #----------------------------------------------------- if ($iReturnCode != 0) { my $sHaresOut = undef; if(@lsHaresOut) { if(@lsHaresOut > 1) { $sHaresOut = join('\n', @lsHaresOut); } else { $sHaresOut = $lsHaresOut[0]; } chomp $sHaresOut; } else { $sHaresOut = "no message returned"; } LogInt::Message( LogInt::LLError, 10456, "Hares", "Display", "Failed with message:[$sHaresOut]" ); return 0; #error return } #-------------------------------------------------------- # Assign the output to the passed in referance # #Resource Attribute System Value # smbserv1_nbname Group global fsapvol1 # etc.. #-------------------------------------------------------- my $sFirstLine = shift @lsHaresOut; while( $sFirstLine =~ /.*V-[0-9]+-[0-9]+-[0-9]+\s+No.*/) { LogInt::Message( LogInt::LLTrace, 10457, "Hares", "Display", "Invalid Group or Resource name" ); $sFirstLine = shift @lsHaresOut; } for my $sEachHaresOut (@lsHaresOut) { if($sEachHaresOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHaresOut; $sEachHaresOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10458, "Hares", "Display", "Adding [$sEachHaresOut] to rlsResults" ); push(@$rlsResults, $sEachHaresOut); } } my $iEntryCount = @$rlsResults; LogInt::Message( LogInt::LLTrace, 10459, "Hares", "Display", "Found [$iEntryCount] entries" ); return 1; } 1; k0x3E{ZD{ZD{Z 3./opt/VRTS/.ACCLib/vcs/Hasys.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Hasys.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:34 $ # $Revision: 1.15 $ # # Provides: package Hasys. # # Functionality: wrapper to hasys Functionality # # Authors: 011787 #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # Simple calling an formatting of the hasys commands # # Display(, , &) # # GetStateGivenSystem(, &) # # GetSystemStateList(&) # # All commnds return 1 on sucess and undef on failure in line with perl booleans # # Not all hares functionality is currently available through this wrapper (see below) # #----------------------------------------------------------------------------- #------------------ # version calls #------------------ use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Hasys.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $::ETVHeader"); #----------------------- # end of version calls #----------------------- #------------------------------- # Declare the package name. #------------------------------- package Hasys; #------------------------------------------ # Turn on strict for subs, vars and refs. #------------------------------------------ use strict; #--------------------------------------- # Include the required packages here. #--------------------------------------- use LogInt; #----------------------------------- # ha command for system information. #----------------------------------- #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- my $sHasysCmd = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/hasys"; #-------------------------------------------------------------- # options marked with '*' are available # # hasys -add # hasys -delete # hasys -freeze [-persistent] [-evacuate] # hasys -unfreeze [-persistent] # *hasys -display [] [-attribute ] # hasys -force # hasys -load # *hasys -state [] # hasys -list [] # hasys -value # hasys -nodeid [] # hasys [-help [-modify|-list]] #--------------------------------------------------------------- =pod ----------------------------------------------------------------------------- Function: Boolean Display( IN String Systems, IN String Attributes, OUT ArrayOfStrings Results ) Description: Displays the state of the system in the cluster. Parameters: Systems : String containing the name of the systems in the cluster. Attributes : String containing the list attributes to be displayed. Results : Array containing the output from the display. Return Value: Boolean value from the set of {0,1} where 0 - The command execution fails. 1 - The command execution succeeds. ----------------------------------------------------------------------------- =cut sub Display { my ( $sSystems, $sAttributes, $rlsResults ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10311, "Hasys", "Display", "Subroutine %s called with: System [%s], Attributes [%s]", $sMyName, $sSystems, $sAttributes ); #------------------------------------------------------------------- # some, all, or none of the above may be populated # results of the command are passed back in the $rlsResults param # hasys -display [] [-attribute ] #------------------------------------------------------------------- #-------------------------------------------------------------------------- # go through the passed in params building up the arg list for hasys call # # start with the generic display call #-------------------------------------------------------------------------- my $sHasysDisplayCmd = "$sHasysCmd -display"; if($sSystems) { $sHasysDisplayCmd .= " $sSystems"; } if($sAttributes) { $sHasysDisplayCmd .= " -attribute $sAttributes"; } LogInt::Message( LogInt::LLTrace, 10312, "Hasys", "Display", "Going to call [%s]", $sHasysDisplayCmd); #------------------ # call the command #------------------ my @lsHasysOut = `$sHasysDisplayCmd 2>&1`; my $iReturnCode = $? >> 8; #-------------------------------------------------------- # check the return code if not 0 then print an error # message using the returned data #-------------------------------------------------------- if ($iReturnCode != 0) { my $sHasysOut; if(@lsHasysOut > 1) { $sHasysOut = join('\n', @lsHasysOut); } else { $sHasysOut = $lsHasysOut[0]; } chomp $sHasysOut; LogInt::Message( LogInt::LLError, 10313, "Hasys", "Display", "Failed with message [%s]", $sHasysOut); return 0; #error return } #------------------------------------------------- # assign the output to the passed in referance # #Group Attribute System Value # fsapvol1 AutoFailOver global 1 # etc.. #------------------------------------------------- for my $sEachHasysOut (@lsHasysOut) { if($sEachHasysOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHasysOut; $sEachHasysOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10314, "Hasys", "Display", "Adding [%s] to rlsResults", $sEachHasysOut); push(@$rlsResults, $sEachHasysOut); } } my $iEntryCount = @$rlsResults; LogInt::Message( LogInt::LLTrace, 10315, "Hasys", "Display", "Found [%s] entries", $iEntryCount); return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean GetStateGivenSystem( IN String System, OUT String State ) Description: Get the state of the given system/node in the cluster. Variables: System : Name of the system. State : State of the system. Return Value: Boolean value from the set of {0,1} where 0 - The command execution fails. 1 - The command execution succeeds. ----------------------------------------------------------------------------- =cut sub GetStateGivenSystem { my ( $sSystem, $rsState ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10316, "Hasys", "GetStateGivenSystem", "Subroutine %s called with: System [%s]", $sMyName, $sSystem ); #-------------------------- # hasys -state [] #-------------------------- #------------------------------- # make the hasys command string #------------------------------- my $sHasysStateCmd = "$sHasysCmd -state " . $sSystem; LogInt::Message( LogInt::LLTrace, 10317, "Hasys", "GetStateGivenSystem", "Going to call [%s]", $sHasysStateCmd ); #------------------- # call the command #------------------- my @lsHasysOut = `$sHasysStateCmd 2>&1`; my $iReturnCode = $? >> 8; #---------------------------------------------------- # check the return code if not 0 then print an error # message using the returned data #---------------------------------------------------- if ($iReturnCode != 0) { my $sHasysOut; if(@lsHasysOut > 1) { $sHasysOut = join('\n', @lsHasysOut); } else { $sHasysOut = $lsHasysOut[0]; } chomp $sHasysOut; LogInt::Message( LogInt::LLError, 10318, "Hasys", "GetStateGivenSystem", "Failed with message [%s]", $sHasysOut); return 0; #error return } my $sSystemState = $lsHasysOut[0]; chomp $sSystemState; #remove any newline LogInt::Message( LogInt::LLTrace, 10319, "Hasys", "GetStateGivenSystem", "Got state [%s] for system [%s]", $sSystemState, $sSystem ); #-------------------------------------- # set up the results to be passed back #-------------------------------------- $$rsState = $sSystemState; return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean GetSystemStateList( OUT ArrayOfStrings Results ) Description: Gets the state of the each system/node in the cluster. Variables: Results : Array containing each system state. The format of the output will be like #System Attribute State gps-lin5 SysState RUNNING Return Value: Boolean value from the set of {0,1} where 0 - The command execution fails. 1 - The command execution succeeds. ----------------------------------------------------------------------------- =cut sub GetSystemStateList { my ( $rlsResults ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10320, "Hasys", "GetSystemStateList", "Subroutine %s called", $sMyName ); #------------------------- # hasys -state [] #------------------------- #-------------------------------- # make the hasys command string #-------------------------------- my $sHasysStateCmd = $sHasysCmd . " -state"; LogInt::Message( LogInt::LLTrace, 10321, "Hasys", "GetSystemStateList", "Going to call [%s]", $sHasysStateCmd ); #----------------------- # call the command #----------------------- my @lsHasysOut = `$sHasysStateCmd 2>&1`; my $iReturnCode = $? >> 8; #--------------------------------------------------- # check the return code if not 0 then print an error # message using the returned data #--------------------------------------------------- if ($iReturnCode != 0) { my $sHasysOut = undef; if(@lsHasysOut > 1) { $sHasysOut = join('\n', @lsHasysOut); } else { $sHasysOut = $lsHasysOut[0]; } chomp $sHasysOut; LogInt::Message( LogInt::LLError, 10322, "Hasys", "GetSystemStateList", "Failed with message [%s]", $sHasysOut ); return 0; #error return } #----------------------------------------------- # assign the output to the passed in referance # # #System Attribute Value # helium SysState RUNNING # hydrogen SysState RUNNING #----------------------------------------------- for my $sEachHasysOut (@lsHasysOut) { if($sEachHasysOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHasysOut; #remove any newline $sEachHasysOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10323, "Hasys", "GetSystemStateList", "Adding [%s] to rlsResults", $sEachHasysOut ); push(@$rlsResults, $sEachHasysOut); } } my $iEntryCount = @$rlsResults; LogInt::Message( LogInt::LLTrace, 10324, "Hasys", "GetSystemStateList", "Found [%s] entries", $iEntryCount ); return 1; } 1; ------- kE{ZD{ZD{Z ./opt/VRTS/.ACCLib/vcs/Hatype.pm_v3# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Hatype.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:34 $ # $Revision: 1.15 $ # $Tag: $ # # Provides: package Hatype. # # Functionality: wrapper to hatype Functionality # # Authors: 011787 #----------------------------------------------------------------------------- #----------------- # version calls #----------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Hatype.pm,v 1.15 2008/10/06 05:09:34 aatre Exp $::ETVHeader"); #----------------------- # end of version calls #----------------------- #----------------------------------- # Declare the package/module name. #----------------------------------- package Hatype; #------------------------------------------ # Turn on strict for subs, vars and refs. #------------------------------------------ use strict; #------------------------------------- # Include all the modules required. #------------------------------------- use LogInt; #----------------------------------------- # ha command for get types information. #----------------------------------------- #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- my $sHatypeCmd = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/hatype"; #---------------------------------------------------------------- # options marked with '*' are available # # hatype -add # hatype -delete # *hatype -display [] [-attribute ] # hatype -resources # hatype -list [] # hatype -value # hatype [-help [-modify|-list]] #---------------------------------------------------------------- =pod ----------------------------------------------------------------------------- Function: Boolean Display( IN String Types, IN String Attributes, OUT ArrayOfStrings Results ) Description: Gets the attribute values for the given type. Variables: Types : String containing all the names of the types. Attributes : String containing all the attributes that are needs to be displayed. Results : Array containg the output of the hatype -display command. Entries will be in the following form: #Type Attribute Value Apache LogLevel error Etc. Return Value: Boolean value from the set of {0,1} where 0 - The command execution fails. 1 - The command execution succeeds. ----------------------------------------------------------------------------- =cut sub Display { my ( $sTypes, $sAttributes, $rlsResults ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10410, "Hatype", "Display", "Subroutine %s called with: Types [%s], Attributes [%s]", $sMyName, $sTypes, $sAttributes ); #------------------------------------------------------------------- # some, all, or none of the above may be populated # results of the command are passed back in the $rlsResults param # # hatype -display [] [-attribute ] #------------------------------------------------------------------- #------------------------------------------------------------------------- # go through the passed in params building up the arg list for hatype call # # start with the generic display call #------------------------------------------------------------------------- my $sHatypeDisplayCmd = "$sHatypeCmd -display"; if($sTypes) { $sHatypeDisplayCmd .= " $sTypes"; } if($sAttributes) { $sHatypeDisplayCmd .= " -attribute $sAttributes"; } LogInt::Message( LogInt::LLTrace, 10411, "Hatype", "Display", "Going to call [$sHatypeDisplayCmd]" ); #------------------- # call the command #------------------- my @lsHatypeOut = `$sHatypeDisplayCmd 2>&1`; my $iReturnCode = $? >> 8; #------------------------------------------------------ # check the return code if not 0 then print an error # message using the returned data #------------------------------------------------------ if ($iReturnCode != 0) { my $sHatypeOut = undef; if(@lsHatypeOut > 1) { $sHatypeOut = join('\n', @lsHatypeOut); } else { $sHatypeOut = $lsHatypeOut[0]; } chomp $sHatypeOut; LogInt::Message( LogInt::LLError, 10412, "Hatype", "Display", "Failed with message:[$sHatypeOut]" ); return 0; #error return } #------------------------------------------------- # assign the output to the passed in referance # # Type Attribute Value # Share AgentClass TS # Share AgentFailedOn # Share AgentPriority # etc.. #------------------------------------------------- for my $sEachHatypeOut (@lsHatypeOut) { if($sEachHatypeOut =~ /^#/) { #ignore lines starting with '#' } else { chomp $sEachHatypeOut; $sEachHatypeOut =~ s/\s+/ /g; #remove multiple spaces LogInt::Message( LogInt::LLTraceTrace, 10413, "Hatype", "Display", "Adding [$sEachHatypeOut] to rlsResults" ); push(@$rlsResults, $sEachHatypeOut); } } my $iEntryCount = @$rlsResults; LogInt::Message( LogInt::LLTrace, 10414, "Hatype", "Display", "Found [$iEntryCount] entries" ); return 1; } 1; #so perl knows its included ok ------ k{`E{ZD{ZD{Z `./opt/VRTS/.ACCLib/vcs/LogInt.pm_v3# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2017 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/LogInt.pm,v 1.29 2014/07/18 16:55:19 lpatil Exp $ # # Veritas Software Corporation # # Package Name: LogInt # # $Author: lpatil $ # $Date: 2014/07/18 16:55:19 $ # $Revision: 1.29 $ # # Description: Internationalised logging (uses halog) # # Authors: 011787 #--------------------------------------------------------------------------- #----------------------------------- # Register version of the module. #----------------------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/LogInt.pm,v 1.29 2014/07/18 16:55:19 lpatil Exp $::ETVHeader"); #----------------------------------- # Declare package name. #----------------------------------- package LogInt; #------------------------------------------ # Turn on strict for vars, subs and refs. #------------------------------------------ use strict; #----------------------------------- # Include all the packages nedded. #----------------------------------- use ag_i18n_inc; use IO::File; use POSIX qw ( uname ); use POSIX qw ( strftime ); use Fcntl qw ( :DEFAULT :flock ); #-------------------------------------------------------------------- # Constant defines for logging levels (these should start at 1, # i.e. don't use zero) #-------------------------------------------------------------------- use constant LLCritical => 1; # TAG_A = SEV_CRIT C use constant LLError => 2; # TAG_B = SEV_ERR E use constant LLWarn => 3; # TAG_C = SEV_WARN W use constant LLInfo => 4; # TAG_E = SEV_INFO I use constant LLTrace => 5; # TAG_D = SEV_NOTE N use constant LLTraceTrace => 6; # TAG_D = SEV_NOTE N #--------------------------------------------------------- # Set the default log threshold to level to "Info". #--------------------------------------------------------- use constant VCS_ENGINE_DEFAULT_LOG_LEVEL => LogInt::LLInfo; #----------------------------------------------------- # Set the global logging level to default log level. #----------------------------------------------------- $::giLogIntLogLevel = VCS_ENGINE_DEFAULT_LOG_LEVEL; my @lsOsDetails = uname (); my $sOSType = $lsOsDetails [0]; my $iACCLib_CatId = 55000; #---------------------------------- # Decide logging in Solaris zones.. #---------------------------------- my ( $bZone, $sOSVer, $sEP ) = ( 0, ( "" ) x 2 ); my %hsZoneVers = map { $_ => 1 } qw ( 5.10 5.11 ); # Keep extending Solaris zone OS.. ( $sEP = $0 ) =~ s#.*/##; # Basename.. #-------------------------------- # Handle Solaris 10 local zones.. #-------------------------------- if ( $^O eq 'solaris' ) { $sOSVer = ( uname ) [2]; # Get OS version.. if ( $sEP =~ /^(clean|monitor)$/ && $hsZoneVers { $sOSVer } && ! kill ( 0, 1 ) ) { # Set flag.. ++ $bZone; } } =pod ----------------------------------------------------------------------- Function: void Message( IN Integer MessageLogLevel, IN Integer MessageId, IN String AgentType, IN String EntryPoint, IN String MessageText, IN ListOfStrings Params ) Description: Adds the message to the engine using halog if environment variable VCS_AGENTFW_USE_HALOG is set else it logs the message to standard output. Optimizations: 1. 27 Apr 2007.. Atre If message is of type TRACE/TRACETRACE, doesn't use halog. Logs the messages locally to /var/VRTSvcs/log/_A.log 2. 03 May 2007.. Atre Rotate logs A .. z based on size. 3. 10 Jun 2010.. Atre Log locally for clean and monitor inside Solaris zones. Parameters: MessageLogLevel : Logging level of the message. MessageId : Unique message ID of the message. AgentType : Type of the agent. EntryPoint : Name of the entrypoint. MessageText : Actual message text to be logged. Params : Parameters if any passed. Return Value: void: No value is returned to the caller. ----------------------------------------------------------------------- =cut sub Message { my ( $iMessageLogLevel, $iMessageId, $sAgentType, $sEntryPoint, $sMessageText, @lsParams ) = @_; #------------------------- # Define local variables.. #------------------------- my ( $bOpened, $iCurr, $iSize, $iReturnCode, $iCatId, $sClus, $sRes, $sEnt, $sAgent, $sLogFile, $sLockFile, $sHost, $sLogDir, $sOldLog, $sOSVer, $sLLHalogTag, $sHeader, $sTime, $sFile, $sFullMessageText, $sTemp, $sZoneFile, @lsDetails, %hsFiles ) = (); #---------------------------- # Create local logging hash.. #---------------------------- my %hsSev = ( 'C' => 'CRITICAL', 'E' => 'ERROR', 'W' => 'WARNING', 'N' => 'NOTICE', 'I' => 'INFO' ); LogInt::GetLLHalogTag ( $iMessageLogLevel, \$sLLHalogTag ); #--------------------------------------------------------- # Add text to the start of the message text to get it # into the right format. #--------------------------------------------------------- my $sStandardMessageText = ""; if( $sAgentType =~ /\S/ && $sEntryPoint =~ /\S/ ) { $sStandardMessageText = "$sAgentType:$sEntryPoint"; } elsif ( $sAgentType =~ /\S/ ) { $sStandardMessageText = $sAgentType; } elsif ( $sEntryPoint =~ /\S/ ) { $sStandardMessageText = $sEntryPoint; } if ( $sStandardMessageText =~ /\S/ ) { $sFullMessageText = "$sStandardMessageText:$sMessageText"; } else { $sFullMessageText = $sMessageText; } #--------------------------------------------------------------- # It's possible we have been passed undef params in the list # spin the array and swap undef's for "" #--------------------------------------------------------------- grep { ! defined $_ && ( $_ = "" ) } @lsParams; my $sLogMessage = sprintf $sFullMessageText, @lsParams; if (!defined($ENV{"VCSAG_EP_LOG_PIPE_FD"})) { # VCSAG_EP_LOG_PIPE_FD ENV variable is set from VCS 6.2 onwards if ( $iMessageLogLevel <= $::giLogIntLogLevel ) { if ( defined $ENV { VCS_AGENTFW_USE_HALOG } && 0 == $ENV { VCS_AGENTFW_USE_HALOG } ) { print "LogInt(stdout):TAG:$sLLHalogTag:$iMessageId $sLogMessage\n"; } else { #----------------------------- # Get environment attributes.. #----------------------------- $iCatId = $iMessageId > 20000 ? $ENV { VCS_LOG_CATEGORY } : $iACCLib_CatId; $sAgent = $ENV { VCS_LOG_AGENT_NAME }; $sRes = $ENV { VCS_LOG_RESOURCE_NAME }; $sEnt = $ENV { VCS_LOG_SCRIPT_NAME }; #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- $sClus = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) || "/opt/VRTSvcs"; $sLogDir = "$VCSLOG/log"; $sClus =~ s/.*(vad|vcs(|one))$/\U$1/; # VCS or VCSOne.. $sHost = $lsOsDetails [1]; #-------------- # Log locally.. #-------------- $sLogFile = "$sLogDir/${sAgent}_A.log"; $sLockFile = "$sLogDir/.$sAgent.lock"; $sOldLog = "$sLogDir/engine_B.log"; #--------------------------- # Re-cycle logs, if needed.. #--------------------------- #------------------ # Get upper limit.. #------------------ $iSize = ( @lsDetails = stat $sOldLog ) ? $lsDetails [7] : 33554432; # 32 Mb.. Atre 28 Jul 2010 #----------------------- # Get current log size.. #----------------------- if ( ( $iCurr ) = ( stat ( $sLogFile ) ) [7] ) { $iCurr += length ( $sMessageText ); } #------------------- # Create lock file.. #------------------- if ( defined $iCurr && $iCurr >= $iSize ) { if ( sysopen ( FILDES, $sLockFile, O_WRONLY|O_SYNC|O_TRUNC|O_CREAT|O_LARGEFILE, 0644 ) ) { #------------------------- # Acquire exclusive lock.. #------------------------- if ( flock ( FILDES, LOCK_EX ) ) { #---------------------- # Get latest log size.. #---------------------- if ( ( $iCurr ) = ( stat ( $sLogFile ) ) [7] ) { $iCurr += length ( $sMessageText ); } #----------------- # Start renaming.. #----------------- if ( defined $iCurr && $iCurr >= $iSize ) { %hsFiles = map { $sLogDir . "/${sAgent}_" . chr ( $_ ) . ".log", $sLogDir . "/${sAgent}_" . chr ( $_ + 1 ) . ".log", } ( 65, 66 ); # A, B, and C only.. Atre 28 Jul 2010 foreach $sFile ( sort { $b cmp $a } keys %hsFiles ) { rename $sFile, $hsFiles { $sFile } if -e $sFile; } %hsFiles = (); # Release memory.. } #------------------------------ # Close file, to release lock.. #------------------------------ unless ( close ( FILDES ) ) { warn "LogInt(stderr): Failed to close [$sLockFile] after write: $!\n"; return; } unlink ( $sLockFile ) if ( -e $sLockFile ); # Ignore error, for race.. } else { warn "LogInt(stderr): Failed to acquire exclusive lock on [$sLockFile]: $!\n"; return; } } else { warn "LogInt(stderr): Failed to open [$sLockFile] for write: $!\n"; return; } } if ( sysopen ( FILDES, $sLogFile, O_WRONLY|O_SYNC|O_EXCL|O_CREAT|O_LARGEFILE, 0644 ) ) { ++ $bOpened; $sTime = strftime '%Y/%m/%d %H:%M:%S', localtime; $sHeader = "# # Log Name: $sAgent # System: $lsOsDetails[1] # SysInfo: $lsOsDetails[0]:$lsOsDetails[1],$lsOsDetails[3],$lsOsDetails[2],$lsOsDetails[-1] # Created: $sTime #"; $sHeader =~ s/SunOS/Solaris/g; #--------------- # Print header.. #--------------- print FILDES $sHeader, "\n\n"; } elsif ( sysopen ( FILDES, $sLogFile, O_WRONLY|O_SYNC|O_APPEND|O_LARGEFILE, 0644 ) ) { ++ $bOpened; $sTime = strftime '%Y/%m/%d %H:%M:%S', localtime; } else { warn "LogInt(stderr): Failed to open [$sLogFile] for write [$!]\n"; } #----------------- # Close log file.. #----------------- if ( $bOpened ) { $bOpened = 0; # Reset.. print FILDES "$sTime $sClus ", $hsSev { $sLLHalogTag }, " V-16-$iCatId-$iMessageId Resource($sRes) ", "- ($sHost:$sEnt) $sLogMessage\n"; unless ( close ( FILDES ) ) { warn "LogInt(stderr): Failed to close [$sLogFile] after write [$!]\n"; } } #-------------------------- # Enable fall back option.. #-------------------------- $sZoneFile = "$sLogDir/.${sAgent}.zone"; $bZone = 0 if ( -e $sZoneFile ); # Reset global.. #------------------------------------------ # Log with engine only for Info and above.. #------------------------------------------ if ( ( $iMessageLogLevel < LLTrace || -e "$sLogDir/.${sAgent}.eng" ) && ! $bZone ) { #-------------------------------------------------------------------- # Now we need to spin the params list again - to surround each param # with quotes, paramA becomes "paramA" this is to get round a problem # in the halog call - it thinks we are trying to pass it options if # one of out params happens to start with a '-' #-------------------------------------------------------------------- my $sEncoding = "-encoding"; if( $sOSType eq "Linux" || $sOSType eq "HP-UX" ) { $sEncoding .= " utf-8"; } else { $sEncoding .= " utf8"; } #----------------------------------------------------------- # Call the unified logging message call to log the message. #----------------------------------------------------------- VCSAG_LOG_MSG ( $sLLHalogTag, $sLogMessage, $iMessageId, $sEncoding, @lsParams); if ( $iReturnCode = $? >> 8 ) { #------------------------------------------------------------------- # halog seems to have failed, just print the log message to stdout. #------------------------------------------------------------------- print "LogInt(halog call failed):TAG:$sLLHalogTag:$iMessageId $sLogMessage\n"; } } } } $sTemp = "ffdc:$iMessageId:$sLogMessage\n"; push ( @::gsFFDC, $sTemp ); } else { # Use the FFDC feature from VCS 6.2 onwards my $sEncoding = "-encoding"; if( $sOSType eq "Linux" || $sOSType eq "HP-UX" ) { $sEncoding .= " utf-8"; } else { $sEncoding .= " utf8"; } if ( $iMessageLogLevel >= LLTrace) { VCSAG_LOGDBG_MSG(5, $sLogMessage); # DBG_5 log level is used for Trace messages } else { VCSAG_LOG_MSG ( $sLLHalogTag, $sLogMessage, $iMessageId, $sEncoding, @lsParams ); } } return; } #---------------------------------------------------------- # These subroutines just call the main sub routine. #---------------------------------------------------------- sub SetDebugLevelCritical { setDebugLevel(LLCritical); } sub SetDebugLevelError { SetDebugLevel(LLError); } sub SetDebugLevelWarn { SetDebugLevel(LLWarn); } sub SetDebugLevelInfo { SetDebugLevel(LLInfo); } sub SetDebugLevelTrace { SetDebugLevel(LLTrace); } sub SetDebugLevelTraceTrace { SetDebugLevel(LLTraceTrace); } =pod ----------------------------------------------------------------------- Function: void SetDebugLevel( IN Constant LogLevel ) Description: Sets the debug level to the specified level. Parameters: LogLevel : Logging level of the message. Return Value: void - No value is returned to the caller. ----------------------------------------------------------------------- =cut sub SetDebugLevel { my ( $iLogLevel ) = @_; #---------------------------------------------------------------------- # if they are actually changing the level (i.e. not requesting the # level we are currently on) # log a message letting them know they changed the log level #---------------------------------------------------------------------- if($::giLogIntLogLevel == $iLogLevel) { #they are requesting a change to the value we have already - ignore } else { #they are requesting an actual change my $sLLString; LogInt::GetLLString($iLogLevel, \$sLLString); #-------------------------------------------------------------------------- # log a notice (at the default level) that they are changing the log level. #-------------------------------------------------------------------------- $::giLogIntLogLevel = $iLogLevel; # First make the change.. Atre 16 Apr 2007 if ( $sLLString =~ /^(INFO|(TRACE){1,2})$/ ) { LogInt::Message ( $::giLogIntLogLevel, 10346, "LogInt", "SetDebugLevel", "Information, Set Logging Level To [%s]", $sLLString ); } } return; } =pod ----------------------------------------------------------------------- Function: void SetDebugLevelWithString( IN String LogLevelString ) Description: Sets the Debug level with the specified log level string. Parameters: LogLevelString : String indicating the logging level of the messages. Return Value: void - No value is returned to the caller. ----------------------------------------------------------------------- =cut sub SetDebugLevelWithString { my ( $sLogLevelString ) = @_; #-------------------------------------------------------- # validate the string, then call set log if it's valid. #-------------------------------------------------------- my $iTmpLogLevel = undef; if(GetLLGivenString($sLogLevelString, \$iTmpLogLevel)) { SetDebugLevel($iTmpLogLevel); } else { LogInt::Message( LLError, 10347, "LogInt", "SetDebugLevelWithString", "Could not set the log level using string [%s]", $sLogLevelString ); } return; } =pod ----------------------------------------------------------------------- Function: void GetLLString( IN Constant MessageLogLevel, OUT String LLString ) Description: Gives the logging level string for given log level ID. Parameters: MessageLogLevel : Message logging level. Ex., LLWarn, LLError etc. LLString : Corresponding message logging string. Ex., "WARN", "ERROR" etc. Return Value: void - No value is returned to the caller. ----------------------------------------------------------------------- =cut sub GetLLString { my ( $iMessageLogLevel, $rsLLString ) = @_; #------------------------------------------------------------------ # Build this dynamically since Perl 5.6.1 didn't like the old way. #------------------------------------------------------------------ my %shLLtoStringLookup = (); $shLLtoStringLookup{LogInt::LLCritical} = "CRITICAL"; $shLLtoStringLookup{LogInt::LLError} = "ERROR"; $shLLtoStringLookup{LogInt::LLWarn} = "WARN"; $shLLtoStringLookup{LogInt::LLInfo} = "INFO"; $shLLtoStringLookup{LogInt::LLTrace} = "TRACE"; $shLLtoStringLookup{LogInt::LLTraceTrace} = "TRACETRACE"; if(exists $shLLtoStringLookup{$iMessageLogLevel}) { $$rsLLString = $shLLtoStringLookup{ $iMessageLogLevel }; } else { LogInt::Message( LLError, 10348, "LogInt", "GetLLString", "Invalid log level used [%s]", $iMessageLogLevel ); $$rsLLString = "UNKNOWN"; } } =pod ----------------------------------------------------------------------- Function: void SetResourceName( IN String ResourceName ) Description: Sets global variable with the resource name given. Parameters: ResourceName : Name of the resource which needs to be set. Return Value: void : No value is returned to the caller. ----------------------------------------------------------------------- =cut sub SetResourceName { my ( $sResourceName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LLError, 10349, "LogInt", "SetResourceName", "Subroutine <%s> called with: Resource Name [%s]", $sMyName, $sResourceName ); #------------------------------- # Set the Resource Name up. #------------------------------- if(defined $sResourceName) { $ENV{'VCS_LOG_RESOURCE_NAME'} = $sResourceName; } else { #------------------ # Set to unknown. #------------------ $ENV{'VCS_LOG_RESOURCE_NAME'} = "UNKNOWN"; LogInt::Message( LLError, 10350, "LogInt", "SetResourceName", "SetResourceName called with empty ResourceName" ); } return; } #----------------------------------------------------------------- # Return a logging level (const) for a string # Can be one of "CRITICAL", "ERROR", "WARN", "INFO" or "TRACE" . #----------------------------------------------------------------- =pod ----------------------------------------------------------------------- Function: Void GetLLGivenString( IN String LLString, OUT Constant MessageLogLevel ) Description: Gives message log level for a given log level string. Parameters: LLString : Log level string. Ex., WARN, ERROR, INFO etc MessageLogLevel : Message logging level for the message. Ex., LLWarn, LLError etc. Return Value: void - No value is returned to the caller. ----------------------------------------------------------------------- =cut sub GetLLGivenString { my ( $sLLString, $riMessageLogLevel ) = @_; my %shStringToLLLookup = ("CRITICAL" => LogInt::LLCritical, "ERROR" => LogInt::LLError, "WARN" => LogInt::LLWarn, "INFO" => LogInt::LLInfo, "TRACE" => LogInt::LLTrace, "TRACETRACE" => LogInt::LLTraceTrace, ); if(defined $sLLString) { if(exists $shStringToLLLookup{$sLLString}) { $$riMessageLogLevel = $shStringToLLLookup{$sLLString}; return 1; #success } } return 0; #failed to lookup } =pod ----------------------------------------------------------------------- Function: void IsValidLLString( IN String LLString ) Description: Checks the given log level string is valid or not. Parameters: LLString : Log level String. Ex., WARN, ERROR, TRACE etc. Return Value: void : No value is returned to the caller. ----------------------------------------------------------------------- =cut sub IsValidLLString { my ( $sLLString ) = @_; my $iMessageLogLevelTmp = undef; return GetLLGivenString($sLLString, \$iMessageLogLevelTmp); } =pod ----------------------------------------------------------------------- Function: void GetLLHalogTag( IN Constant MessageLogLevel, OUT String LLHalogTag ) Description: Gives the tag for the logging message. Parameters: MessageLogLevel : Message logging level. Ex., LLWarn, LLError etc. LLHalogTag : Tag for the log level. Ex., A, B, C etc Return Value: void - No value is returned to the caller. ----------------------------------------------------------------------- =cut sub GetLLHalogTag { my ( $iMessageLogLevel, $rsLLHalogTag ) = @_; #----------------------------------------------------------------- # Build this dynamically since Perl 5.6.1 didn't like the old way. #----------------------------------------------------------------- my %shLLtoHalogTagLookup = (); $shLLtoHalogTagLookup{LogInt::LLCritical} = "C"; $shLLtoHalogTagLookup{LogInt::LLError} = "E"; $shLLtoHalogTagLookup{LogInt::LLWarn} = "W"; $shLLtoHalogTagLookup{LogInt::LLInfo} = "N"; $shLLtoHalogTagLookup{LogInt::LLTrace} = "I"; $shLLtoHalogTagLookup{LogInt::LLTraceTrace} = "I"; if(exists $shLLtoHalogTagLookup{ $iMessageLogLevel }) { $$rsLLHalogTag = $shLLtoHalogTagLookup{ $iMessageLogLevel }; } else { LogInt::Message( LLError, 10351, "LogInt", "GetLLHalogTag", "Invalid log level used [%s]", $iMessageLogLevel ); $$rsLLHalogTag = $shLLtoHalogTagLookup{LogInt::LLWarn}; #use warn when loglevel unknown } return; } 1; G_R kXeE{ZD{ZD{Z e./opt/VRTS/.ACCLib/vcs/Resource.pm_v3# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Resource.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:35 $ # $Revision: 1.15 $ # # Provides: package Resource # # Functionality: VCS Resource Related Commands # # Authors: 011787 #----------------------------------------------------------------------------- #------------------- # version calls. #------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Resource.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $::ETVHeader"); #----------------------- # end of version calls. #----------------------- #------------------------ # Declare package name. #------------------------ package Resource; #---------------------------------------- # Turn on strict for subs, vars and refs. #---------------------------------------- use strict; #-------------------------------------- # Include the package name required. #-------------------------------------- use LogInt; use Hares; use VCSType; #so we can get the timeouts for online/offline =pod ----------------------------------------------------------------------------- Function: Boolean Online( IN String ResourceName, IN String SystemName ) Description: Onlines the given resource on specified node/system. Parameters: ResourceName : Name of the resource. SystemName : Name of the system/node on which the resource needs to bring online. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub Online { my ( $sResourceName, $sSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10460, "Resource", "Online", "Subroutine %s called with: Resource [%s], System [%s]", $sMyName, $sResourceName, $sSystemName ); if(Hares::Online($sResourceName, $sSystemName)) { #all ok - contine } else { LogInt::Message( LogInt::LLError, 10461, "Resource", "Online", "failed in call to Hares::Online"); return 0; #error return } my $iOnlineCheckPeriod = 10; #period to wait between checks my $iOnlineMaxWaitPeriod = undef; my $sResourceType = undef; #-------------------------------------- # first get the type of this resource. #-------------------------------------- if(Resource::GetTypeNameGivenResource($sResourceName, \$sResourceType)) { #------------------------------------------- # all ok continue # get the online timeout for this type #------------------------------------------- if(VCSType::GetOnlineTimeoutGivenType($sResourceType, \$iOnlineMaxWaitPeriod)) { #all ok continue LogInt::Message( LogInt::LLTrace, 10462, "Resource", "Online", "call to VCSType::GetOnlineTimeoutGivenType got [$iOnlineMaxWaitPeriod]"); } else { LogInt::Message( LogInt::LLError, 10463, "Resource", "Online", "failed in call to VCSType::GetOnlineTimeoutGivenType"); return 0; #error return } } else { LogInt::Message( LogInt::LLError, 10464, "Resource", "Online", "failed in call to Resource::GetTypeNameGivenResource"); return 0; #error return } #------------------------------------------------------------------------- # commands ran ok, need to wait for the resource to come online # get state waiting for the output to be 'ONLINE' # or the output to contain 'FAULTED' or for the maxwaitperiod to expire. #------------------------------------------------------------------------- my $iNumberOfCheckPeriodsWaited = 0; my $iReturnState = 0; while(($iOnlineCheckPeriod * $iNumberOfCheckPeriodsWaited) < $iOnlineMaxWaitPeriod) { my $sResourceState = 0; if(Hares::GetStateInfoGivenResourceAndSystem($sResourceName, $sSystemName, \$sResourceState)) { if($sResourceState eq "ONLINE") { LogInt::Message( LogInt::LLTraceTrace, 10465, "Resource", "Online", "Resource [$sResourceName] is online, exiting with success" ); $iReturnState = 1; #set good state last; #jump loop } elsif($sResourceState eq "FAULTED") { LogInt::Message( LogInt::LLError, 10466, "Resource", "Online", "Resource [$sResourceName] is faulted; failed to online"); $iReturnState=0; #set error state last; #jump loop } else { my $sMessage = "Resource:[$sResourceName], System:[$sSystemName], waiting for online - currently state:[$sResourceState]"; LogInt::Message( LogInt::LLTraceTrace, 10467, "Resource", "Online", $sMessage ); sleep $iOnlineCheckPeriod; $iNumberOfCheckPeriodsWaited++; } } else { #-------------------------------------------- # failed to get the state of the resource. #-------------------------------------------- LogInt::Message( LogInt::LLError, 10468, "Resource", "Online", "failed in call to Hares::GetStateInfoGivenResourceAndSystem"); $iReturnState = 0; #set error state last; #jump loop } } #end while waiting for online return $iReturnState; } =pod ----------------------------------------------------------------------------- Function: Boolean GetParentResourceListGivenChild( IN String ChildResource, OUT ArrayOfStrings ParentResourceList ) Description: Gives the parent resources for a given child. Parameters: ChildResource : Name of the child resource for which parents are needed. ParentResourceList : List of parent resources for the give child resource. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetParentResourceListGivenChild { my ( $sChildResource, $rlsParentResourceList ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10469, "Resource", "GetParentResourceListGivenChild", "Subroutine %s called with: Child Resource Name [%s]", $sMyName, $sChildResource ); my @lsHaresDepOutput = (); if(Hares::GetDependInfoListGivenResource($sChildResource, \@lsHaresDepOutput)) { #call worked ok } else { LogInt::Message( LogInt::LLError, 10470, "Resource", "GetParentResourceListGivenChild", "failed in call to Hares::GetDependInfoListGivenResource"); return 0; #exit function with error } #----------------- # spin the list. #----------------- for my $sEachDependEntry (@lsHaresDepOutput) { #-------------------------------------------------------------------- # split the line (somthin like SG2 samba_share2 samba_server2). #-------------------------------------------------------------------- my ( $sTmpGroup, $sTmpParent, $sTmpChild ) = split(/\s+/, $sEachDependEntry); LogInt::Message( LogInt::LLTraceTrace, 10471, "Resource", "GetParentResourceListGivenChild", "Group [$sTmpGroup], parent [$sTmpParent], child [$sTmpChild]"); #----------------------------------------------------------- # add to new list where the child is the passed in child. #----------------------------------------------------------- if($sChildResource eq $sTmpChild) { push(@$rlsParentResourceList, $sTmpParent); LogInt::Message( LogInt::LLTraceTrace, 10472, "Resource", "GetParentResourceListGivenChild", "added parent [$sTmpParent]" ); } } return 1; #exit function - good status } =pod ----------------------------------------------------------------------------- Function: Boolean Offline( IN String ResourceName, IN String SystemName ) Description: Brings the resource offline on the specified node/system. Parameters: ResourceName : Name of the resource to bring offline. SystemName : Name of the node/system on which the resource needs brought offline. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub Offline { my ( $sResourceName, $sSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10473, "Resource", "Offline", "Subroutine %s called with: Resource [%s], System [%s]", $sMyName, $sResourceName, $sSystemName ); my $sResourceState = undef; if(Hares::GetStateInfoGivenResourceAndSystem( $sResourceName, $sSystemName, \$sResourceState )) { if($sResourceState eq "ONLINE") { LogInt::Message( LogInt::LLTrace, 10474, "Resource", "Offline", "Resource [$sResourceName] is online" ); #-------------------------------------------------------------- # continue this might have parents that need to be put offline #-------------------------------------------------------------- } else { #----------------------------------------------------------------- # if we're offline then we know all our parents cant be online. #----------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10475, "Resource", "Offline", "Resource [$sResourceName] is NOT online, exit good"); return 1; #exit good status } } else { #------------------------------------ # call to get resource state failed. #------------------------------------ LogInt::Message( LogInt::LLError, 10476, "Resource", "Offline", "Failed in call to GetStateInfoGivenResourceAndSystem" ); return 0; #exit function with error } #-------------------------------------------------------------------------- # for this online resource determine if it has parents, # call ourselves for each parent # after calling ourselves for each parent we can put this resource offline # if error we need to abort asap and return the error #-------------------------------------------------------------------------- my @lsParentResourceList = (); my $iReturnCode = undef; $iReturnCode = GetParentResourceListGivenChild($sResourceName, \@lsParentResourceList); if($iReturnCode) { #----------------------------- # see if we have any parents #----------------------------- for my $sEachParentResource (@lsParentResourceList) { #-------------------------------------------- # for each parent call ourselves (recurse) #-------------------------------------------- $iReturnCode = Offline($sEachParentResource, $sSystemName); #------------------------------------------------- # if we get a error then we should get out now #------------------------------------------------- if($iReturnCode) { #all ok continue } else { last; #error of some sort - jump loop } } #end for each parent loop #------------------------------------------------- # if things are ok then put this resource offline #------------------------------------------------- if($iReturnCode) { #offline this resource now LogInt::Message( LogInt::LLTrace, 10477, "Resource", "Offline", "Going to OFFLINE resource [$sResourceName] on system [$sSystemName]"); $iReturnCode = OfflineThisResourceItemWaitInternal($sResourceName, $sSystemName); } } return $iReturnCode; } =pod ----------------------------------------------------------------------------- Function: Boolean OfflineThisResourceItemWaitInternal( IN String ResourceName, IN String SystemName ) Description: Offlines the given resource and waits internally until the resource is not ONLINE. Parameters: ResourceName : Name of the resource. SystemName : Name of the node/system on which the resource needs to bring offline. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub OfflineThisResourceItemWaitInternal { my ( $sResourceName, $sSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10478, "Resource", "OfflineThisResourceItemWaitInterval", "Subroutine %s called with: Resource Name [%s], System Name [%s]", $sMyName, $sResourceName, $sSystemName ); #------------------------ # offline this resource #------------------------ LogInt::Message( LogInt::LLTrace, 10479, "Resource", "OfflineThisResourceItemWaitInterval", "going to OFFLINE resource [$sResourceName] on system [$sSystemName]"); if(Hares::Offline($sResourceName, $sSystemName)) { #call to offline ok } else { #--------------------------------------------------------------- # offline request failed - print error and return error code #--------------------------------------------------------------- LogInt::Message( LogInt::LLError, 10480, "Resource", "OfflineThisResourceItemWaitInterval", "failed in call to Hares::Offline"); return 0; #return error } my $iOfflineCheckPeriod = 10; #period to wait between checks my $iOfflineMaxWaitPeriod = undef; my $sResourceType = undef; #-------------------------------------- # first get the type of this resource #-------------------------------------- if(Resource::GetTypeNameGivenResource($sResourceName, \$sResourceType)) { #------------------------------------------ # all ok continue # get the offline timeout for this type #------------------------------------------ if(VCSType::GetOfflineTimeoutGivenType($sResourceType, \$iOfflineMaxWaitPeriod)) { # all ok continue LogInt::Message( LogInt::LLTrace, 10481, "Resource", "OfflineThisResourceItemWaitInterval", "call to VCSType::GetOfflineTimeoutGivenType got [$iOfflineMaxWaitPeriod]"); } else { LogInt::Message( LogInt::LLError, 10482, "Resource", "OfflineThisResourceItemWaitInterval", "failed in call to VCSType::GetOfflineTimeoutGivenType"); return 0; #error return } } else { LogInt::Message( LogInt::LLError, 10483, "Resource", "OfflineThisResourceItemWaitInterval", "failed in call to Resource::GetTypeNameGivenResource"); return 0; #error return } my $iNumberOfCheckPeriodsWaited = 0; my $iReturnState = 0; while(($iOfflineCheckPeriod * $iNumberOfCheckPeriodsWaited) < $iOfflineMaxWaitPeriod) { my $sResourceState = undef; if(Hares::GetStateInfoGivenResourceAndSystem( $sResourceName, $sSystemName, \$sResourceState )) { if($sResourceState eq "ONLINE") { LogInt::Message( LogInt::LLTraceTrace, 10484, "Resource", "OfflineThisResourceItemWaitInterval", "Resource [$sResourceName] is online, waiting for not online" ); #continue waiting } else { LogInt::Message( LogInt::LLTraceTrace, 10485, "Resource", "OfflineThisResourceItemWaitInterval", "Resource [$sResourceName] is NOT online, exit good"); return 1; } } else { #---------------------------- # call to get state failed #---------------------------- LogInt::Message( LogInt::LLError, 10486, "Resource", "OfflineThisResourceItemWaitInterval", "Failed in call to Hares::GetStateInfoGivenResourceAndSystem"); return 0; #return error } sleep $iOfflineCheckPeriod; $iNumberOfCheckPeriodsWaited++; } #end while resource is online LogInt::Message( LogInt::LLTraceTrace, 10487, "Resource", "OfflineThisResourceItemWaitInterval", "Resource [$sResourceName] didn't good offline waited [$iOfflineMaxWaitPeriod]"); return 0; #resource never went offline } =pod ----------------------------------------------------------------------------- Function: Boolean GetGroupNameGivenResource( IN String ResourceName, OUT String ServiceGroupName ) Description: Gives the resource group for a given resource. Parameters: ResourceName : Name of the resource. ServiceGroupName : Name of the service group for which the resource belongs. Return Value: Boolean value in the set of {0,1) where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetGroupNameGivenResource { my ( $sResourceName, $rsServiceGroupName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10488, "Resource", "GetGroupNameGivenResource", "Subroutine %s callled with: Resource Name [%s], Group Name [%s]", $sMyName, $sResourceName, $rsServiceGroupName ); LogInt::Message( LogInt::LLTrace, 10489, "Resource", "GetGroupNameGivenResource", "Calling with resource [$sResourceName], calling Hares::GetGroupNameGivenResource"); #------------------------------------------------------------- # construct the call to the generic Hares Display command. #------------------------------------------------------------- my $sResources = $sResourceName; my $sAttributes = "Group"; my $sGroups = undef; my $sTypes = undef; my $sSystems = undef; my @lsResults = (); if(Hares::Display($sResources, $sAttributes, $sGroups, $sTypes, $sSystems, \@lsResults)) { # return ok - continue } else { #----------------------------------- # call to get display info failed #----------------------------------- LogInt::Message( LogInt::LLError, 10490, "Resource", "GetGroupNameGivenResource", "Failed in call to Hares::Display" ); return 0; #return error } my ( $sResourceTrash, $sAttributeTrash, $sSystemTrash, $sValue ) = split(/\s/, $lsResults[0]); LogInt::Message( LogInt::LLTrace, 10491, "Resource", "GetGroupNameGivenResource", "Called with resource [$sResourceName], returning GroupName:[$sValue]"); $$rsServiceGroupName = $sValue; return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean GetTypeNameGivenResource( IN String ResourceName, OUT String ResourceType ) Description: Gives the type name of the given resource. Parameters: ResourceName : Name of the resource name. ResourceType : Type of the resource given. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetTypeNameGivenResource { my ( $sResourceName, $rsTypeName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10492, "Resource", "GetTypeNameGivenResource", "Subroutine %s called with: Resource Name [%s]", $sMyName, $sResourceName ); #--------------------------------------------------------------- # construct the call to the generic Hares Display command #--------------------------------------------------------------- my $sResources = $sResourceName; my $sAttributes = "Type"; my $sGroups = undef; my $sTypes = undef; my $sSystems = undef; my @lsResults = (); if(Hares::Display($sResources, $sAttributes, $sGroups, $sTypes, $sSystems, \@lsResults)) { # return ok - continue } else { #----------------------------------- # call to get display info failed #----------------------------------- LogInt::Message( LogInt::LLError, 10493, "Resource", "GetTypeNameGivenResource", "Failed in call to Hares::Display" ); return 0; #return error } my ( $sResourceTrash, $sAttributeTrash, $sSystemTrash, $sValue ) = split(/\s/, $lsResults[0]); LogInt::Message( LogInt::LLTrace, 10494, "Resource", "GetTypeNameGivenResource", "Called with resource [$sResourceName], returning TypeName:[$sValue]"); #spagare VCSOne change $sValue =~ s/\(.*//g; $$rsTypeName = $sValue; return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean hares( IN String HaCmd, IN String ResourceName, IN String SystemName ) Description: A rapper to the hares command. Parameters: HaCmd : Command which describes the one of the following actions: Online Offline SystemName : Name of the node/system in the cluster on which the group needs to bring Onbline or offline. WaitPeriod : Number of seconds to wait before the specified action completes. Return Value: Boolean value in the set of {0, 1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub hares { my ( $sHaCmd, $sResourceName, $sSystemName ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10495, "Resource", "hares", "Subroutine %s called with: HA command [%s], Resource Name [%s], System Name [%s]", $sMyName, $sHaCmd, $sResourceName, $sSystemName ); if ($sHaCmd eq "online") { return Resource::Online($sResourceName, $sSystemName); } elsif ($sHaCmd eq "offline") { return Resource::Offline($sResourceName, $sSystemName); } else { #--------------------------------- # Unrecognised command argument. #--------------------------------- LogInt::Message( LogInt::LLTrace, 10496, "Resource", "hares", "Received invalid HaCmd string [%s]", $sHaCmd ); return 0; } } 1; "Ca k(tE{ZD{ZD{Z t./opt/VRTS/.ACCLib/vcs/VCSagentFW.pmv3# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/VCSagentFW.pm,v 1.56 2009/07/27 11:59:51 aatre Exp $ # # Veritas Software Corporation # # Package name: VCSagentFW # # $Author: aatre $ # $Date: 2009/07/27 11:59:51 $ # $Revision: 1.56 $ # # Description: Simple interface to the Agent Framework # # Authors: 011787 #---------------------------------------------------------------------------- #---------------- # Version calls. #---------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/VCSagentFW.pm,v 1.56 2009/07/27 11:59:51 aatre Exp $::ETVHeader"); #--------------------------------------- # Initialize global variables for FFDC #--------------------------------------- $::giState = undef; $::giIState = undef; @::gsFFDC = (); $::gsLogLevel = "INFO"; $::gsUser = "root"; $::gsEnvFile = ""; $::giEPTimeout = undef; # EP Timeout.. #------------------------ # Declare the package. #------------------------ package VCSagentFW; #--------------------------------------------------------------------------- # Export the well used functions. # More on exporting at http://www.perldoc.com/perl5.6.1/lib/Exporter.html. #--------------------------------------------------------------------------- require Exporter; @ISA = qw ( Exporter ); @EXPORT = qw ( SetupEntry SetupLogging logCritical logError logWarn logInfo logTrace logTraceTrace entryPointExit $HAATTR $HACLUS $HADECRYPT $HAGRP $HAIFCONFIG $HALOG $HALOGIN $HARES $HASTATUS $HASYS $HATYPE $HAUSER $NOTIFIER ); #---------------------------------------------------------------------------- # end of export the well used functions. #---------------------------------------------------------------------------- use strict; #------------------------------------- # Include all the packages required. #------------------------------------- use LogInt; #for logging calls use ag_i18n_inc; use Sys; use VCSDefines; use File::Temp qw(tmpnam); use Fcntl; use File::Path qw ( mkpath ); use constant MAXBUFFERSIZE => 4096; #---------------------------------------- # Define our variable types to overload.. #---------------------------------------- my ( $CLUS_HOME, $sPrefix ) = (); our ( $HAATTR, $HACLUS, $HADECRYPT, $HAGRP, $HAIFCONFIG, $HALOG, $HALOGIN, $HARES, $HASTATUS, $HASYS, $HATYPE, $HAUSER, $NOTIFIER ); if ( $ENV { CLUSTER_HOME } ) { # VCS 5.0/VCSOne.. $CLUS_HOME ||= $ENV { CLUSTER_HOME } ||= "/opt/VRTSvcsone"; } else { $CLUS_HOME ||= $ENV { VCS_HOME } ||= "/opt/VRTSvcs"; } ( $sPrefix ) = $CLUS_HOME =~ /(...)$/; #------------------------------ # Set if not exported earlier.. #------------------------------ $HAATTR ||= "$CLUS_HOME/bin/haattr"; $HACLUS ||= "$CLUS_HOME/bin/haclus"; $HADECRYPT ||= "$CLUS_HOME/sbin/${sPrefix}decrypt"; $HAGRP ||= "$CLUS_HOME/bin/hagrp"; $HAIFCONFIG ||= "$CLUS_HOME/bin/haifconfig"; $HALOG ||= "$CLUS_HOME/bin/halog"; $HALOGIN ||= "$CLUS_HOME/bin/halogin"; $HARES ||= "$CLUS_HOME/bin/hares"; $HASTATUS ||= "$CLUS_HOME/bin/hastatus"; $HASYS ||= "$CLUS_HOME/bin/hasys"; $HATYPE ||= "$CLUS_HOME/bin/hatype"; $HAUSER ||= "$CLUS_HOME/bin/hauser"; $NOTIFIER ||= "$CLUS_HOME/bin/notifier"; =pod ------------------------------------------------------------------------- Function: Boolean SetupEntry ( IN String EntryPointName, IN Intger CategoryID, OUT Integer CleanReason, IN ArrayOfStrings ARGV ) Description: Sets up all the entry point logging related information. Parameters: EntryPointName : Name of the entry point of the agent. CategoryID : Unique message category ID for the agent. CleanReason : Reason with which the clean entry point is called if it is clean entry point. ARGV : List of arguments to setup. if clean entry point is called ARGV should contains first three values ResourceName CleanReason LogLevel otherwise ARGV should contain first two values as ResourceName LogLevel Return Value: Boolean value in the set of {0, 1} where 0 - false 1 - true ------------------------------------------------------------------------- =cut sub SetupEntry { my ( $sEntryPointName, $iCategoryID, $riCleanReason, $rlsARGV ) = @_; my $sMyName = (caller 0)[3]; #-------------------------------- # Set the correct system locale.. #-------------------------------- VCSAG_RESET_LANG () if defined &VCSAG_RESET_LANG; LogInt::Message( LogInt::LLTrace, 10262, "VCSagentFW", "SetupEntry", "Subroutine <%s> called with: Entry Point Name [%s] Category ID [%s]", $sMyName, $sEntryPointName, $iCategoryID ); #------------------------------------------------------------- # Call VCSAG_SET_ENVS to set the environment variable for # resource and Category ID. #------------------------------------------------------------- my $sResourceName = shift @$rlsARGV; VCSAG_SET_ENVS( $sResourceName, $iCategoryID ); $ENV{'VCS_LOG_AGENT_NAME'} ||= $ENV{'VCSONE_LOG_AGENT_NAME'} ||= ""; $ENV{'VCS_LOG_RESOURCE_NAME'} ||= $ENV{'VCSONE_LOG_RESOURCE_NAME'} ||= ""; $ENV{'VCS_LOG_SCRIPT_NAME'} ||= $ENV{'VCSONE_LOG_SCRIPT_NAME'} ||= ""; #------------------------------------------------------------------------ # if the entry point is 'clean' then the next thing is the clean reason. #------------------------------------------------------------------------ if( $sEntryPointName eq "clean" ) { $$riCleanReason = shift @$rlsARGV; } my $sLogLevel = shift @$rlsARGV; $::gsLogLevel = $sLogLevel; #---------------------------------------------------------------------- # Get State and IState into the global variables giState and giIState #---------------------------------------------------------------------- if ((( @$rlsARGV[0] ne "") && (@$rlsARGV[1] ne "")) && ( !(@$rlsARGV[0] =~ /\D/) && !(@$rlsARGV[1] =~ /\D/ ))) { $::giState = @$rlsARGV[0]; $::giIState = @$rlsARGV[1]; } #-------------------------------------------------------- # Call setup logging with the args we have been passed. #-------------------------------------------------------- &SetupLogging( $$riCleanReason, $sLogLevel ); return 1; #all checks passed ok } =pod --------------------------------------------------------------------------- Function: void SetupLogging ( IN Integer CleanReason, IN String LogLevel ) Description: Set the logging level with the string provided and also logs a message with clean reason if the entry point is clean. Parameters: CleanReason : The clean reason with which clean entry point is called. If undef, sets it to FFDC. LogLevel : Logging level for the entry point. Return Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub SetupLogging { my ( $iCleanReason, $sLogLevel ) = @_; my $sMyName = (caller 0)[3]; $iCleanReason ||= 'FFDC'; # Prevent undefs for FFDC.. LogInt::Message( LogInt::LLTrace, 10263, "VCSagentFW", "SetupLogging", "Subroutine <%s> called with: Clean Reason [%s] Log Level [%s]", $sMyName, $iCleanReason, $sLogLevel ); #----------------------------------------------------------------------- # check and set sLogIntLevelString in order to change the log level. #------------------------------------------------------------------------ if(LogInt::IsValidLLString( $sLogLevel )) { LogInt::SetDebugLevelWithString( $sLogLevel ); } else { #--------------------------------------------------------------------- # don't increment error count for this - it is dealt with elsewhere. #--------------------------------------------------------------------- LogInt::Message( LogInt::LLError, 10264, "VCSagentFW", "setupLogging", "Invalid LogLevel String [%s]", $sLogLevel ); LogInt::Message( LogInt::LLInfo, 10265, "VCSagentFW", "setupLogging", "Setting LogLevel to Default LogLevel [INFO]" ); LogInt::SetDebugLevelWithString("INFO"); } #------------------------------------------------------------------ # if we are called from a clean entry point then print an info # message, else just trace #------------------------------------------------------------------ if( $ENV{'VCS_LOG_SCRIPT_NAME'} eq "clean" ) { my $sReason = undef; VCSDef_CleanReason::GetString($iCleanReason, \$sReason); LogInt::Message( LogInt::LLInfo, 10266, "VCSagentFW", "SetupLogging", "[%s] Entered by resource instance [%s] with clean reason [%s][%s]", $ENV{'VCS_LOG_SCRIPT_NAME'}, $ENV{'VCS_LOG_RESOURCE_NAME'}, $iCleanReason, $sReason ); } else { LogInt::Message( LogInt::LLTrace, 10267, "VCSagentFW", "SetupLogging", "[%s] Entered by resource instance [%s]", $ENV{'VCS_LOG_SCRIPT_NAME'}, $ENV{'VCS_LOG_RESOURCE_NAME'}); } return; } =pod --------------------------------------------------------------------------- Function: Boolean verifyLoggingGlobals( IN String CallingSub, IN Integer MessageId ) Description: Verifies the global variables are set or not before logging a message. Parameters: CallingSub : Subroutine name which called the logging subroutine. MessageId : Message ID of the message with which logging is called. Return Value: Returns a value from the set of {0, 1} 0 - false 1 - true --------------------------------------------------------------------------- =cut sub verifyLoggingGlobals { my ( $sCallingSub, $iMessageId ) = @_; if((!defined $ENV{'VCS_LOG_AGENT_NAME'}) || (!defined $ENV{'VCS_LOG_RESOURCE_NAME'}) || (!defined $ENV{'VCS_LOG_SCRIPT_NAME'}) ){ #------------------------------------------------ # Required agent logging globals were not set up. # set to #------------------------------------------------ $ENV{'VCS_LOG_AGENT_NAME'} ||= $ENV{'VCSONE_LOG_AGENT_NAME'} ||= ""; $ENV{'VCS_LOG_RESOURCE_NAME'} ||= $ENV{'VCSONE_LOG_RESOURCE_NAME'} ||= ""; $ENV{'VCS_LOG_SCRIPT_NAME'} ||= $ENV{'VCSONE_LOG_SCRIPT_NAME'} ||= ""; LogInt::Message( LogInt::LLError, 10268, "VCSagentFW", $sCallingSub, "Called with message id [%s] without first calling SetupEntry", $iMessageId ); return 0; } else { #------------------------------------------------------ # all OK required agent logging globals were set up. #------------------------------------------------------ return 1; } } =pod --------------------------------------------------------------------------- Function: void logCritical( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type Critical. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logCritical { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logCritical",$iMessageId) ) { LogInt::Message( LogInt::LLCritical, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: void logError ( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type Error. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logError { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logError",$iMessageId) ) { LogInt::Message( LogInt::LLError, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: void logWarn ( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type Warnings. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logWarn { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logWarn",$iMessageId) ) { LogInt::Message( LogInt::LLWarn, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: void logInfo ( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type Info. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logInfo { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logInfo",$iMessageId) ) { LogInt::Message( LogInt::LLInfo, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: void logTrace ( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type Trace. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logTrace { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logTrace",$iMessageId) ) { LogInt::Message( LogInt::LLTrace, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: void logTraceTrace ( IN Integer MessageId, IN String Message, IN ListOfStrings MessageParams ) Description: logging call to log the messages of type TraceTrace. Parameters: MessageId : Unique message ID with which logging is called. Message : Actual message to be logged. MessageParams : Any parameters passed to logging message. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub logTraceTrace { my ( $iMessageId, $sMessage, @lsMessageParams ) = @_; if ( &verifyLoggingGlobals("logTraceTrace",$iMessageId) ) { LogInt::Message( LogInt::LLTrace, $iMessageId, "", "", $sMessage, @lsMessageParams ); } return; } =pod --------------------------------------------------------------------------- Function: bool AmIFaulting ( IN Integer ExitCode ) Description: Tells if we are about to fault. Parameters: ExitCode : Exit value of the entry point. Reuturn Value: bool : boolean value in the set of {0,1} where 0 => false We are not about to fault (steady state) 1 => true We are about to fault --------------------------------------------------------------------------- =cut sub AmIFaulting { my ( $iExitCode ) = @_; my $sMyName = ( caller 0 ) [3]; LogInt::Message ( LogInt::LLTrace, 10269, "VCSagentFW", "AmIFaulting", "Called with exit code [%s]", $iExitCode ); #------------------ # Set return code.. #------------------ my $iReturnCode = 0; # Steady state.. my %hiFaultState = ( 0 => 'FALSE', 1 => 'TRUE' ); #---------------------------------- # Decide if we are about to fault.. #---------------------------------- if ( defined $::giState && defined $::giIState ) { if ( ( VCSDef_ResourceState::ONLINE == $::giState && VCSDef_MonitorExit::OFFLINE == $iExitCode && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PROPAGATE != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PATH != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_REVERSE != $::giIState ) || ( VCSDef_ResourceState::OFFLINE == $::giState && VCSDef_MonitorExit::OFFLINE == $iExitCode && VCSDef_ResourceIState::WAITING_TO_GO_ONLINE == $::giIState ) ) { ++ $iReturnCode; # We are faulting.. } } LogInt::Message ( LogInt::LLTrace, 10270, "VCSagentFW", "AmIFaulting", "Previous steady state changed: [%s]", $hiFaultState { $iReturnCode } ); return $iReturnCode; } =pod --------------------------------------------------------------------------- Function: void entryPointExit ( IN Integer ExitCode ) Description: Exits from the entry point. Parameters: ExitCode : Exit value of the entry point. Reuturn Value: void : No value is returned to the caller. --------------------------------------------------------------------------- =cut sub entryPointExit { my ( $iExitCode ) = @_; my $sResourceType = $ENV{VCS_LOG_AGENT_NAME}; my $sResourceName = $ENV{VCS_LOG_RESOURCE_NAME}; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTraceTrace, 10271, "VCSagentFW", "entryPointExit", "Subroutine %s called with: Exit code [%s]", $sMyName, $iExitCode ); LogInt::Message( LogInt::LLTrace, 10272, "VCSagentFW", "entryPointExit", "Exiting entry point [%s] with exit code [%s]", $ENV{'VCS_LOG_SCRIPT_NAME'}, $iExitCode ); if ( defined $::giState && defined $::giIState ) { if ( $ENV{'VCS_LOG_SCRIPT_NAME'} eq "monitor" ) { #---------------------------------------------------------------------------- # If the resource was online earlier and not going offline, surely it is # about to fault. Generate trace dump + log long listing of processes running #---------------------------------------------------------------------------- if ((VCSDef_ResourceState::ONLINE == $::giState && VCSDef_MonitorExit::OFFLINE == $iExitCode && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PROPAGATE != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PATH != $::giIState && VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_REVERSE != $::giIState ) || (VCSDef_ResourceState::OFFLINE == $::giState && VCSDef_MonitorExit::OFFLINE == $iExitCode && VCSDef_ResourceIState::WAITING_TO_GO_ONLINE == $::giIState )) { my $sCleanHasJustRunFile = "/tmp/$sResourceType.$sResourceName.CleanHasJustrun"; if ( -f $sCleanHasJustRunFile ) { #------------------------------------------------------------- # If this is first monitor after a clean has run. No need to # generate the trace dump. #------------------------------------------------------------- if ( ! unlink($sCleanHasJustRunFile) ) { LogInt::Message( LogInt::LLError, 10273, "VCSagentFW", "entryPointExit", "Problems deleting [%s], OS error was [%s]", $sCleanHasJustRunFile, $! ); } } else { #---------------------- # Generate trace dump. #---------------------- LogInt::Message( LogInt::LLInfo, 10274, "VCSagentFW", "entryPointExit", "Generating FFDC messages for resource [%s]", $ENV{'VCS_LOG_RESOURCE_NAME'}); messageEngineLog(\@::gsFFDC,LogInt::LLInfo) if ( $::gsLogLevel ne "TRACETRACE" ); #------------------------------------------------------------ # Dump user environment after sourcing EnvFile if specified #------------------------------------------------------------ my $bSourceEnvFlag = 0; my $sCmd = -x "/bin/env" ? "/bin/env" : "/usr/bin/env"; my $sCmdArgs = ""; my $iTmpReturnCode = 0; my @lsCmdOutput = (); my $bTimedOut = 0; my $iTimeOut = 15; my $sOutFileName = ""; my $sFromDir = ""; Sys::RunWithEnvCmdWithOutputWithTimeOut( $::gsEnvFile, $bSourceEnvFlag, $sCmd, $sCmdArgs, \$iTmpReturnCode, $::gsUser, \@lsCmdOutput, \$bTimedOut, $iTimeOut, $sOutFileName, $sFromDir ); logOutputFromCommand($sCmd,$iTmpReturnCode,\@lsCmdOutput,LogInt::LLInfo); } } } elsif ( $ENV{'VCS_LOG_SCRIPT_NAME'} eq "clean" ) { my $sCleanHasJustRunIndicatorFile = "/tmp/$sResourceType.$sResourceName.CleanHasJustrun"; if ( open (TMP, ">> $sCleanHasJustRunIndicatorFile ")) { close TMP; } else { LogInt::Message( LogInt::LLError, 10275, "VCSagentFW", "entryPointExit", "<%s>:Couldn't create file [%s], OS error was [%s]", $sMyName, $sCleanHasJustRunIndicatorFile, $! ); } } } sleep $iExitCode if ( $iExitCode == VCSDef_MonitorExit::TIMEOUT ); #-------------------------- # Call exit with the code.. #-------------------------- exit $iExitCode; } =pod --------------------------------------------------------------------------- Function: Boolean logOutputFromCommand ( IN String CommandLine, IN Integer CommandExitCode, IN ListOfStrings CommandOutput, IN Integer LogLevel ) Description: Logs the output from a failed command. Parameters: CommandLine : The command executed. CommandExitCode : Exit code from the command execution. CommandOutput : Result of the command execution. LogLevel : Logging level for the command output. Return Value: Boolean value from the set of {0,1} where 0 - false 1 - true Caveats: 1. Logs output from any system commands to a unique tmp file if the output is more than 4096 bytes. 2. If the command output is less than 4096 bytes it won't log the output to unique tmp file, it log only to the engine log. --------------------------------------------------------------------------- =cut sub logOutputFromCommand { my ( $sCommandLine, $iCommandExitCode, $rlsCommandOutput, $iLogLevel ) = @_ ; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10276, "VCSagentFW", "logOutputFromCommand", "Subroutine %s called with: Command [%s], Exit Code [%s]", $sMyName, $sCommandLine, $iCommandExitCode ); my $iMaxHaLogLength = MAXBUFFERSIZE; chomp @$rlsCommandOutput; my $sTotalCommandOutput = join( "\n", @$rlsCommandOutput ); $sTotalCommandOutput =~ s/"/\\"/g; if( !defined $iLogLevel ) { LogInt::Message( LogInt::LLTrace, 10277, "VCSagentFW", "logOutputFromCommand", "LogLevel is not defined. Defaulting to TRACE" ); $iLogLevel = LogInt::LLTrace; } if( length $sTotalCommandOutput >= $iMaxHaLogLength ) { my $sTmpFile = tmpnam(); my $sUString = (split("/", $sTmpFile))[-1]; #---------------------------------------------------------- # Frame the temp file with Resource Name, Entry point name # Unique ID returned from tmpnam and PID. # /tmp/.... #---------------------------------------------------------- my $sTmpLogFile = "/tmp/$ENV{'VCS_LOG_RESOURCE_NAME'}.$ENV{'VCS_LOG_SCRIPT_NAME'}.$sUString.$$"; open( LOGFH, ">$sTmpLogFile" ) or LogInt::Message( LogInt::LLTrace, 10278, "VCSagentFW", "logOutputFromCommand", "Can't open a file to write failed command output: [%s], [%s]", $sTmpLogFile, $! ); print LOGFH "$sTotalCommandOutput"; close( LOGFH ) or LogInt::Message( LogInt::LLTrace, 10279, "VCSagentFW", "logOutputFromCommand", "Can't close the file opened to write failed command output: [%s], [%s]", $sTmpLogFile, $! ); LogInt::Message( $iLogLevel, 10280, "VCSagentFW", "logOutputFromCommand", "Command line [%s] exited with code [%s] , truncating output to approximately [%s] characters [%s].", $sCommandLine, $iCommandExitCode, $iMaxHaLogLength, substr( $sTotalCommandOutput, 0, $iMaxHaLogLength ) ); LogInt::Message( $iLogLevel, 10281, "VCSagentFW", "logOutputFromCommand", "The full output is logged to the file [%s]", $sTmpLogFile ); return 1; } else { LogInt::Message( $iLogLevel, 10282, "VCSagentFW", "logOutputFromCommand", "Command line [%s] produced exit code [%s] and generated output [%s]", $sCommandLine, $iCommandExitCode, $sTotalCommandOutput ); return 1; } return 0; } =pod -------------------------------------------------------------------------------- Function: boolean GetVCSObjectHash( IN String ObjectName, IN String ObjectInstanceName, OUT StringRef ObjectAttributeValues ) Version: 1.04 Description: Populates a hash of all Attribute/Value pairs of the specified VCS Object Instance. Supported VCS Objects are: Description Object Name Command Option =========== =========== ============================== Agent haagent -display Cluster haclus -display ServiceGroup hagrp -display Resource hares -display System hasys -display Type hatype -display Parameters: ObjectName: VCS Object Name ObjectInstanceName: VCS Object Instance Name ObjectAttributeValues: Reference to a hash to populate Returns: A boolean value in the set of {0,1} where 0 false 1 true Caveats: 1. Handles localized attributes by using "System:Attribute" as the key in the passed back hash. Therefore, callers to this subroutine should first see if the hash key exists for the Attribute that they want: IE: my $sAttribute = "LogLevel"; if( ! exists $hResourceValues{$sAttribute} ) { #---------------------------- # Handle localized attributes #---------------------------- my $sMyVCS_SysName = "UNKNOWN"; if( ! Sys::GetSystemNameAsVcsKnowsIt( \$sMyVCS_SysName ) ) { &logError( 1234567, "Could not get VCS SysName" ); return FAILED; } $sAttribute = "$sMyVCS_SysName:$sAttribute"; } $myLogLevel = $hResValues{$sAttribute}; Therefore, if the desired Attribute key exists in the passed back hash, this would indicate that the Attribute was global. However, if that key does not exist, the Attribute must be "localized", and the caller needs to obtain his system name (ref: Sys::GetSystemNameAsVcsKnowsIt) and use "SystemName:AttributeName" as the key to get the value of the desired Attribute for the local system. 2. Only supports the VCS ojects and associated 'ha' commands listed above. 3. The ha command is run under a 10 second alarm. It might be useful to make this configurable. 4. The current implementation (Version 1.04) requires that the "Value" column be the last column of the output (it does not check to make sure). While this is known to be the case with the supported commands, it should probably be more flexible to protect against possible future extensions to VCS. 5. The current implementation (Version 1.04) requires that the first line of the output is the "VCS Header line". It uses this line to determine the column offset of various fields. 6. The current implementation (Version 1.04) does not handle embedded comment lines very well (lines beginning with '#'). Some VCS commands are known to produce output with interspersed lines beginning with '#'. -------------------------------------------------------------------------------- =cut sub GetVCSObjectHash { #---------------------------------------- # Set up local vars from passed in ones.. #---------------------------------------- my ( $sObjectName, $sObjectInstanceName, $rhObjectAttributeValues ) = @_ ; #--------------- # Announce Entry #--------------- my $sMySubName = ( caller 0 )[3]; LogInt::Message( LogInt::LLTrace, 10283, "VCSagentFW", "GetVCSObjectHash", "Subroutine [%s] called with ObjectName=[%s], ObjectInstanceName=[%s]", $sMySubName, $sObjectName, $sObjectInstanceName ); my $sEnvFile = ""; # no EnvFile required my $bSourceUserEnv = 0; # Do NOT source the user's login profile file #---------------------------------------------- # Support VAD/VCSOne/VCS 5.0.. Atre 30 Jan 2008 #---------------------------------------------- my $sCommand = ( $ENV { CLUSTER_HOME } ? $ENV { CLUSTER_HOME } : $ENV { VCS_HOME } ) . "/bin/$sObjectName"; my $sCommandArgs = undef; my $iCommandExitCode; # set by called sub my $sUser = "root"; my @lsCommandOutput=(); # set by called sub my $bTimedOut; # set by called sub my $iTimeout = 10; # SWAG at a reasonable maximum time to run the VCS command if( defined $sObjectInstanceName ) { $sCommandArgs = "-display $sObjectInstanceName"; } else { $sCommandArgs = "-display"; } if( Sys::RunWithEnvCmdWithOutputWithTimeOut( $sEnvFile, $bSourceUserEnv, $sCommand, $sCommandArgs, \$iCommandExitCode, $sUser, \@lsCommandOutput, \$bTimedOut, $iTimeout, ) ) { if( 0 == $iCommandExitCode ) { #--------------------------------------------------------- # Parse the ouput to populate the passed in hash reference #--------------------------------------------------------- my $iAttributeOffset = 0; my $iValueOffset = 0; my $iSystemOffset = 0; my ( $sAttributeName, $sAttributeValue, $sSystem ) = (); my $sHeaderLine = $lsCommandOutput[0]; if( $sHeaderLine =~ /^#/ ) { shift @lsCommandOutput; } $iAttributeOffset = index( $sHeaderLine, "Attribute" ); $iValueOffset = index( $sHeaderLine, "Value" ); $iSystemOffset = index( $sHeaderLine, "System" ); #-------------------------------------------------------- # deal with the '#' in the first column # by using offset of 0 if the returned offset is 1 #-------------------------------------------------------- if($iAttributeOffset == 1) { $iAttributeOffset = 0; } if($iSystemOffset == 1) { $iSystemOffset = 0; } foreach my $sOutputLine ( @lsCommandOutput ) { if( $sOutputLine =~ /^#/ ) { next; } else { chomp $sOutputLine; ( $sAttributeName ) = split(/\s/, substr( $sOutputLine, $iAttributeOffset ), 2 ); if ( length($sOutputLine) < $iValueOffset) { $sAttributeValue = undef; } else { $sAttributeValue = substr( $sOutputLine, $iValueOffset ); } if( $iSystemOffset >= 0 ) { ( $sSystem ) = split(/\s/, substr( $sOutputLine, $iSystemOffset ), 2 ); if( $sSystem ne "global" ) { $sAttributeName = $sSystem . ":" . $sAttributeName; } } LogInt::Message( LogInt::LLTrace, 10284, "VCSagentFW", "GetVCSObjectHash", "Attribute/Value pair: [%s] [%s]", $sAttributeName, $sAttributeValue ); $$rhObjectAttributeValues{$sAttributeName} = $sAttributeValue; } } return 1; } else { VCSagentFW::logOutputFromCommand( "$sCommand $sCommandArgs", $iCommandExitCode, \@lsCommandOutput, LogInt::LLError ); return 0; } } else { #----------------------------------------------- # first check to see if the command timed out... #----------------------------------------------- if( $bTimedOut ) { LogInt::Message( LogInt::LLError, 10285, "VCSagentFW", "GetVCSObjectHash", "The command line [%s] did not complete within the allotted amount of time ([%s] seconds)", "$sCommand $sCommandArgs", $iTimeout ); return 0; } else { #---------------------------------------------------------------------- # log error and return 0 to indicate internal failure in attempted call # to RunWithEnvCmdWithOutputWithTimeOut... #---------------------------------------------------------------------- LogInt::Message( LogInt::LLError, 10286, "VCSagentFW", "GetVCSObjectHash", "Errors encountered during call to RunWithEnvCmdWithOutputWithTimeOut" ); return 0; } } } #------------------------------------------------------------------- # Log message to the engine log. Chomping length if applicable and # logging it in multiple logs #------------------------------------------------------------------- sub messageEngineLog { my ($lsMessage, $iLogLevel) = @_; my $sTotalCommandOutput = join('',@$lsMessage); $sTotalCommandOutput =~ s/"/\\"/g; my $iMaxHaLogLength = 3000; my $len = length $sTotalCommandOutput; if ( $len > $iMaxHaLogLength ) { #------------------------------- # Let us log it in chunks of 3K #------------------------------- my $sTmpString1 = $sTotalCommandOutput; my $sTmpString2 = ""; my $sTmpString3; my $iSkipper; my $sTillEOL; while ( $len > $iMaxHaLogLength ) { $sTmpString2 = substr ($sTmpString1,0,$iMaxHaLogLength); $sTmpString1 = substr ($sTmpString1, (length $sTmpString2) - (length $sTmpString1)); ($sTillEOL) = split ('\n',$sTmpString1); $sTmpString2 =~ s/^\n//; my $sLogLine = "$sTmpString2"."$sTillEOL"; LogInt::Message( $iLogLevel, 10287, "VCSagentFW", "messageEngineLog", "[%s]", $sLogLine); $iSkipper = (length $sTillEOL) - (length $sTmpString1); $sTmpString3 = substr ($sTmpString1,$iSkipper); $len = length $sTmpString3; $sTmpString1 = $sTmpString3; if ( $len <= $iMaxHaLogLength ) { LogInt::Message( $iLogLevel, 10288, "VCSagentFW", "messageEngineLog", "[%s]", $sTmpString3); last; } last if ( $iSkipper == 0 ); } } else { LogInt::Message( $iLogLevel, 10289, "VCSagentFW", "messageEngineLog", "[%s]", $sTotalCommandOutput); } } =pod ------------------------------------------------------------------------- Function : bool RunSecondLevelMonitor ( IN Integer SecondLevelMonitor ); Description : Tells if its the correct cycle to perform second level monitoring. Parameters : $iSecondLevelMonitor Cycle count to run in-depth monitoring Returns : boolean value in the set of {0,1} where 0 false 1 true ------------------------------------------------------------------------- =cut sub RunSecondLevelMonitor { #---------------- # Get Arguments.. #---------------- my ( $iSecondLevelMonitor ) = @_; #----------------- # Announce Entry.. #----------------- my $sMyName = ( caller 0 )[3]; LogInt::Message( LogInt::LLTrace, 10290, "VCSagentFW", "RunSecondLevelMonitor", "Subroutine %s called with: SecondLevelMonitor [%s]", $sMyName, $iSecondLevelMonitor ); #--------------------------- # Set Return Code to false.. #--------------------------- my $iReturnCode = 0; # Do not run SLM.. #------------------------------------ # Derive current resource type/name.. #------------------------------------ my $sResourceType = ( $0 =~ m@([^/]+)@g ) [-2]; my $sResourceName = $ENV { VCS_LOG_RESOURCE_NAME }; #------------------------ # Setup local variables.. #------------------------ my $sSLMDir = "/tmp/.VRTS$sResourceType/$sResourceName/SLM"; my $sSLMFile = "$sSLMDir/$sResourceName.slm"; my $iSLMCntr = undef; #-------------------------------------------- # Validate SecondLevelMonitor trivial cases.. #-------------------------------------------- if ( 0 == $iSecondLevelMonitor || 1 == $iSecondLevelMonitor ) { $iReturnCode = $iSecondLevelMonitor; # Assign.. LogInt::Message( LogInt::LLTrace, 10291, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Got request to remove SLM file [%s]. Returning with [%s]", $sMyName, $sSLMFile, $iSecondLevelMonitor ); unlink $sSLMFile if ( -e $sSLMFile ); # Remove SLM file.. return $iReturnCode; } #---------------------------------- # Create history folder if needed.. #---------------------------------- if ( -d $sSLMDir ) { LogInt::Message( LogInt::LLTrace, 10292, "VCSagentFW", "RunSecondLevelMonitor", "<%s> SLM folder [%s] exists", $sMyName, $sSLMDir ); } elsif ( ! mkpath ( $sSLMDir, 0, 0700 ) ) { LogInt::Message( LogInt::LLWarn, 10293, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Failed to create SLM folder [%s]", $sMyName, $sSLMDir ); return 1; # Run SLM.. } #-------------------------- # Create SLM history file.. #-------------------------- if ( sysopen ( SLMFILE, $sSLMFile, O_RDWR|O_SYNC|O_CREAT, 0600 ) ) { LogInt::Message( LogInt::LLTrace, 10294, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Opened SLM file [%s] successfully for read/write", $sMyName, $sSLMFile ); } else { LogInt::Message( LogInt::LLWarn, 10295, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Failed to open SLM file [%s] for read/write", $sMyName, $sSLMFile ); return 1; # Run SLM.. } #--------------- # Read in file.. #--------------- ( $iSLMCntr ) = grep { s/\n// } ; #----------------- # Corrupted file.. #----------------- if ( ! defined $iSLMCntr || $iSLMCntr < 0 ) { $iSLMCntr ||= ''; # Avoid undefs.. LogInt::Message( LogInt::LLTrace, 10296, "VCSagentFW", "RunSecondLevelMonitor", "<%s> SLM file [%s] contains [%s]. Re-setting to [%s]", $sMyName, $sSLMFile, $iSLMCntr, $iSecondLevelMonitor ); $iSLMCntr = $iSecondLevelMonitor; # Set to default.. } #----------------------------------------- # Update counter, if less than requested.. #----------------------------------------- if ( $iSecondLevelMonitor > $iSLMCntr ) { ++ $iSLMCntr; } else { $iSLMCntr = 1; # Now's the time.. $iReturnCode = 1; # Run SLM.. } #------------------ # Update the file.. #------------------ seek ( SLMFILE, 0, 0 ); # Rewind before update.. LogInt::Message( LogInt::LLTrace, 10297, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Updating SLM file [%s] with [%s]. Return code is [%s]", $sMyName, $sSLMFile, $iSLMCntr, $iReturnCode ); print SLMFILE "$iSLMCntr\n"; # Update.. close ( SLMFILE ) || LogInt::Message( LogInt::LLWarn, 10298, "VCSagentFW", "RunSecondLevelMonitor", "<%s> Close failed on SLM file [%s] after update. OS Error was [%s]", $sMyName, $sSLMFile, $! ); return $iReturnCode; } =pod ------------------------------------------------------------------ Function: bool RunGetProcState ( IN String HostName ) Description: Tells if we need to execute GetProcState. When either of the following conditions is true: 1. We were earlier online || OR || 2. The IP is plumbed locally, we should do the process check. Parameters: $sHostName HostName/IPv4 Address to be used Return Value: bool : boolean value in the set of {0,1} where 0 => false. We do not need to run GetProcState (OFFLINE node) 1 => true. We need to execute GetProcState (ONLINE node) ----------------------------------------------------------------- =cut sub RunGetProcState { my ( $sHostName ) = @_; my $sMyName = ( caller 0 ) [3]; LogInt::Message ( LogInt::LLTrace, 10299, "VCSagentFW", "RunGetProcState", "Subroutine <%s> called with HostName/IPv4 address [%s]", $sMyName, $sHostName ); #------------------ # Set return code.. #------------------ my $iReturnCode = 1; # Execute GetProcState.. #-------------------------------------------------------------------- # Check if we are not in steady OFFLINE state or # the IP address is not plumbed locally or we in steady #-------------------------------------------------------------------- unless ( VCSagentFW::AmIFaulting ( VCSDef_MonitorExit::OFFLINE ) || Comms::IsIPLocal ( $sHostName ) ) { $iReturnCode = 0; # Do not execute GetProcState.. LogInt::Message ( LogInt::LLTrace, 10300, "VCSagentFW", "RunGetProcState", "Skip running GetProcState. Returning [%s]", $iReturnCode ) } 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]; LogInt::Message ( LogInt::LLTrace, 10301, "VCSagentFW", "GetEngineTimeout", "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; LogInt::Message ( LogInt::LLTrace, 10302, "VCSagentFW", "GetEngineTimeout", "<%s> Using AEPTimeout [%s] as EP timeout value", $sMyName, $iEngineTimeout ); } else { #----------------------------------------- # Form query string based on entry point.. #----------------------------------------- $sCommand = $HARES; # 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 ) { LogInt::Message ( LogInt::LLTrace, 10303, "VCSagentFW", "GetEngineTimeout", "<%s> Command [%s] with Args [%s] failed with exitcode [%s].", $sMyName, $sCommand, $sCommandArgs, $iExitCode ); } elsif ( ! $iEngineTimeout ) { # Undefined value.. LogInt::Message ( LogInt::LLTrace, 10304, "VCSagentFW", "GetEngineTimeout", "<%s> Could not get [%s] from engine", $sMyName, $sAttribute ); } else { # Success.. LogInt::Message ( LogInt::LLTrace, 10305, "VCSagentFW", "GetEngineTimeout", "<%s> Got [%s] as [%s] sec from engine", $sMyName, $sAttribute, $iEngineTimeout ); } #----------------------------------------- # Form query string based on entry point.. #----------------------------------------- unless ( $iEngineTimeout ) { $sCommand = $HATYPE; # 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 ) { LogInt::Message ( LogInt::LLTrace, 10306, "VCSagentFW", "GetEngineTimeout", "<%s> Command [%s] with Args [%s] failed with exitcode [%s]", $sMyName, $sCommand, $sCommandArgs, $iExitCode ); $iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0; } elsif ( ! $iEngineTimeout ) { # Empty value.. LogInt::Message ( LogInt::LLTrace, 10307, "VCSagentFW", "GetEngineTimeout", "<%s> Could not get [%s] from engine", $sMyName, $sAttribute ); $iEngineTimeout = $bUseMargin ? $hiGraceMargin { $sAttribute } : 0; } else { # Success.. LogInt::Message ( LogInt::LLTrace, 10308, "VCSagentFW", "GetEngineTimeout", "<%s> Got [%s] as [%s] sec from engine", $sMyName, $sAttribute, $iEngineTimeout ); } } else { LogInt::Message ( LogInt::LLTrace, 10309, "VCSagentFW", "GetEngineTimeout", "<%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.. LogInt::Message ( LogInt::LLTrace, 10310, "VCSagentFW", "GetEngineTimeout", "<%s> Setting up [%s] sec margin. Returning [%s]", $sMyName, $hiGraceMargin { $sAttribute }, $iEngineTimeout ); } return ( $iEngineTimeout ); # Secs.. } 1; # So Perl knows its included.. --- kCE{ZD{ZD{Z C./opt/VRTS/.ACCLib/vcs/VCSDefines.pmv3# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/VCSDefines.pm,v 1.17 2008/10/06 05:09:35 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:35 $ # $Revision: 1.17 $ # # Provides: Number of small packages (see below) # # Functionality: defines the numbers which the VCS engine and scripts can use # # Authors: 011787 #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # The following constant definitions for use in scripts # # VCSDef_CleanReason # VCSDef_MonitorExit # VCSDef_CleanExit # VCSDef_ResourceState # VCSDef_ResourceIState # #----------------------------------------------------------------------------- #----------------- # version calls #----------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/VCSDefines.pm,v 1.17 2008/10/06 05:09:35 aatre Exp $::ETVHeader"); #---------------------- # end of version calls #---------------------- #---------------------------------- # for internationalized logging #---------------------------------- use LogInt; #------------------------------------------- # Turn on strict for subs, refs and vars. #------------------------------------------- use strict; #------------------------------------------------------------------ # Declare the max size of the message allowed to log to the engine. #------------------------------------------------------------------ #--------------------- # Clean reason codes #--------------------- package VCSDef_CleanReason; use constant OFFLINE_HUNG => 0; use constant OFFLINE_INEFFECTIVE => 1; use constant ONLINE_HUNG => 2; use constant ONLINE_INEFFECTIVE => 3; use constant UNEXPECTED_OFFLINE => 4; use constant MONITOR_HUNG => 5; =pod ----------------------------------------------------------------------------- Function: Boolean IsValid( IN Integer Value ) Description: Checks given value is with in the boundary values. Parameters: Value : Value needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub IsValid { my ( $iValueToCheck ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10325, "VCSDefines", "VCSDef_CleanReason", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValueToCheck ); #---------------------------------------------------- # we check it's actually a number we've been handed. #---------------------------------------------------- if($iValueToCheck =~ /^[0-9]+$/) { if(($iValueToCheck >= VCSDef_CleanReason::OFFLINE_HUNG) && ($iValueToCheck <= VCSDef_CleanReason::MONITOR_HUNG)) { LogInt::Message( LogInt::LLTrace, 10326, "VCSDefines", "VCSDef_CleanReason", "Checking IsValid, got passed [%s] returning OK", $iValueToCheck ); return 1; } } #------------------------------------------------------------- # if we get here then it's invalid (only use level 'trace' - # since we are being called to check it only). #------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10327, "VCSDefines", "VCSDef_CleanReason", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10328, "VCSDefines", "VCSDef_CleanReason", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_CleanReason::OFFLINE_HUNG => "Offline Hung", VCSDef_CleanReason::OFFLINE_INEFFECTIVE => "Offline Ineffective", VCSDef_CleanReason::ONLINE_HUNG => "Online Hung", VCSDef_CleanReason::ONLINE_INEFFECTIVE => "Online Ineffective", VCSDef_CleanReason::UNEXPECTED_OFFLINE => "Unexpected Offline", VCSDef_CleanReason::MONITOR_HUNG => "Monitor Hung", ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; } else { LogInt::Message( LogInt::LLError, 10329, "VCSDefines", "VCSDef_CleanReason", "Couldn't find corresponding string for [%s]", $iValue ); #----------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #----------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_CleanReason #-------------------------- # Monitor exit codes. #-------------------------- package VCSDef_MonitorExit; use constant UNKNOWN => 99; use constant ONLINE => 110; use constant PARTIAL_ONLINE => 105; use constant OFFLINE => 100; use constant TIMEOUT => 999999; 1; #end VCSDef_MonitorExit #---------------------- # Clean exit Codes #---------------------- package VCSDef_CleanExit; use constant PASSED => 0; use constant FAILED => 1; 1; #end VCSDef_CleanExit #------------------------ # Resource State codes #------------------------ package VCSDef_ResourceState; use constant OFFLINE => 0; use constant FAULTED => 1; use constant ONLINE => 2; use constant ONLINE_STATE_UNKNOWN => 3; #not sure this is correct value! use constant ONLINE_MONITOR_TIMEDOUT => 4; #not sure this is correct value! use constant ONLINE_UNABLE_TO_OFFLINE => 5; #not sure this is correct value! use constant OFFLINE_STATE_UNKNOWN => 6; #not sure this is correct value! use constant FAULTED_RESTARTING => 7; #not sure this is correct value! =pod ----------------------------------------------------------------------------- Function: Boolean IsValid( IN Integer Value ) Description: Checks given value is with in the boundary values. Parameters: Value : Value needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub IsValid { my ( $iValueToCheck ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10330, "VCSDefines", "VCSDef_ResourceState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValueToCheck ); #----------------------------------------------------- # we check it's actually a number we've been handed #----------------------------------------------------- if($iValueToCheck =~ /^[0-9]+$/) { if(($iValueToCheck >= VCSDef_ResourceState::OFFLINE) && ($iValueToCheck <= VCSDef_ResourceState::FAULTED_RESTARTING)) { LogInt::Message( LogInt::LLTrace, 10331, "VCSDefines", "VCSDef_ResourceState", "Checking IsValid, got passed [%s] returning OK", $iValueToCheck ); return 1; } } #------------------------------------------------------------------- # if we get here then it's invalid (only use level 'trace' - since # we are being called to check it only) #------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10332, "VCSDefines", "VCSDef_ResourceState", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10333, "VCSDefines", "VCSDef_ResourceState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_ResourceState::OFFLINE => "Offline", VCSDef_ResourceState::FAULTED => "Faulted", VCSDef_ResourceState::ONLINE => "Online", VCSDef_ResourceState::ONLINE_STATE_UNKNOWN => "Online | State Unknown", VCSDef_ResourceState::ONLINE_MONITOR_TIMEDOUT => "Online | Monitor Timedout", VCSDef_ResourceState::ONLINE_UNABLE_TO_OFFLINE => "Online | Unable To Offline", VCSDef_ResourceState::OFFLINE_STATE_UNKNOWN => "Offline | State Unknown", VCSDef_ResourceState::FAULTED_RESTARTING => "Failed | Restarting" ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; } else { LogInt::Message( LogInt::LLError, 10334, "VCSDefines", "VCSDef_ResourceState", "Couldn't find corresponding string for [%s]", $iValue ); #-------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #-------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_ResourceState #-------------------------- # Resource IState codes. #-------------------------- package VCSDef_ResourceIState; use constant NOT_WAITING => 0; use constant WAITING_TO_GO_ONLINE => 1; use constant WAITING_FOR_CHILDREN_ONLINE => 2; use constant WAITING_TO_GO_OFFLINE => 3; use constant WAITING_TO_GO_OFFLINE_PROPAGATE => 4; use constant WAITING_TO_GO_OFFLINE_PATH => 5; use constant WAITING_TO_GO_OFFLINE_REVERSE => 6; use constant WAITING_TO_GO_ONLINE_REVERSE => 7; use constant WAITING_TO_GO_ONLINE_REVERSE_PROPAGATE => 8; use constant WAITING_TO_GO_ONLINE_REVERSE_PATH => 9; =pod ----------------------------------------------------------------------------- Function: Boolean IsValid( IN Integer Value ) Description: Checks given value is with in the boundary values. Parameters: Value : Value needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub IsValid { my ( $iValueToCheck ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10335, "VCSDefines", "VCSDef_ResourceIState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValueToCheck ); #------------------------------------------------------ # we check it's actually a number we've been handed #------------------------------------------------------ if($iValueToCheck =~ /^[0-9]+$/) { if(($iValueToCheck >= VCSDef_ResourceIState::NOT_WAITING) && ($iValueToCheck <= VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PATH)) { LogInt::Message( LogInt::LLTrace, 10336, "VCSDefines", "VCSDef_ResourceIState", "Checking IsValid, got passed [%s] returning OK", $iValueToCheck ); return 1; } } #------------------------------------------------------------------ # if we get here then it's invalid (only use level 'trace' - since # we are being called to check it only) #------------------------------------------------------------------ LogInt::Message( LogInt::LLTrace, 10337, "VCSDefines", "VCSDef_ResourceIState", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10338, "VCSDefines", "VCSDef_ResourceIState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_ResourceIState::NOT_WAITING => "Not Waiting", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE => "Waiting To Go Online", VCSDef_ResourceIState::WAITING_FOR_CHILDREN_ONLINE => "Waiting For Children Online", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE => "Waiting To Go Offline", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PROPAGATE => "Waiting To Go Offline (propagate)", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PATH => "Waiting To Go Offline (path)", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_REVERSE => "Waiting To Go Offline (reverse)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE => "Waiting To Go Online (reverse)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PROPAGATE => "Waiting To Go Online (reverse/propagate)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PATH => "Waiting To Go Online (reverse/path)" ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; # found valid string value for presented iValue... } else { LogInt::Message( LogInt::LLError, 10339, "VCSDefines", "VCSDef_ResourceIState", "Couldn't find corresponding string for [%s]", $iValue ); #---------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #---------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_ResourceIState b krz`E{ZD{ZD{Z z`./opt/VRTS/.ACCLib/vcs/VCSHighLevel.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/VCSHighLevel.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:35 $ # $Revision: 1.15 $ # # Provides: package VCSHighLevel # # Functionality: wrapper to high level VCS related calls # # Authors: 011787 #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # ProcType (one of Proc::PROC_TYPE_PARENT - match only parent process's # Proc::PROC_TYPE_CHILDREN - match only children process's # Proc::PROC_TYPE_ALL - match any (ie parent or child) process's # # PidFile full path of file to contain matched process Ids (or application process Ids) # # CheckProcType - dictate what type of CheckProc to run # types: # VCSHighLevel::CHECK_TYPE_APPLICATION - use application maintained pid file # ProcFilterList should be undefined (or empty) # NumberOfEachProcRequired should be undefined or < 2 # ProcType - should be set to Proc::PROC_TYPE_ALL # PidFile - full path name of application pid file # # VCSHighLevel::CHECK_TYPE_MAINTAINED_PIDFILE - script will generate/maintain pid file # ProcFilterList needs to contain at least one entry to match on # NumberOfEachProcRequired required number of matchs to be found # ProcType - any of the three, will determine what will be matched on # PidFile - full path name of pid file to use # # VCSHighLevel::CHECK_TYPE_USE_PROCESSLIST - script will rely on 'ps' command # ProcFilterList needs to contain at least one entry to match on # NumberOfEachProcRequired required number of matchs to be found # ProcType - any of the three, will determine what will be matched on # PidFile - should be undefined #----------------------------------------------------------------------------- #------------------- # version calls. #------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/VCSHighLevel.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $::ETVHeader"); #---------------------- # end of version calls #---------------------- #--------------------------- # Declare the package name. #--------------------------- package VCSHighLevel; #-------------------------------------------- # Turn on strict for subs, refs and vars. #-------------------------------------------- use strict; #---------------------------------- # Include the required packages. #---------------------------------- use LogInt; #logging use Proc; #proc related calls use VCSDefines; #for VCSDef_MonitorExit #----------- # globals. #----------- use constant CHECK_TYPE_APPLICATION => 1; use constant CHECK_TYPE_MAINTAINED_PIDFILE => 2; use constant CHECK_TYPE_USE_PROCESSLIST => 3; =pod ----------------------------------------------------------------------------- Function: Boolean KillProcs( IN ArrayOfStrings ProcNameFilters, IN Boolean LongCommand ) Description: Kills all the processes matched by process filters from the long list of the process. Parameters: ProcNameFilters : Filters to match the processes from the process list. LongCommand : Boolean Variable to specify to get the long list of processes or not. Return Value: Boolean value in the set of {0,1) where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub KillProcs { my ( $rlsProcNameFilters, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLError, 10415, "VCSHighLevel", "KillProcs", "Subroutine %s called", $sMyName ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #--------------------------------------------------------- # get the 'ps' data then filter it using our ProcFilters #--------------------------------------------------------- my @lhrProcessDataList = (); if($bLongCommand == 0) { if(Proc::GetProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10416, "VCSHighLevel", "KillProcs", "GetProcessListHash returned no proc's" ); return 0; } } else { if(Proc::GetLongProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10417, "VCSHighLevel", "KillProcs", "GetLongProcessListHash returned no proc's" ); return 0; } } my @lhrMatchedProcessDataList = (); #------------------------------------------------ # spin the passed in list of rlsProcNameFilters. #------------------------------------------------ foreach my $sEachFilter (@$rlsProcNameFilters) { my @lhrTmpMatchedProcessDataList = (); Proc::FilterProcs($sEachFilter, \@lhrProcessDataList, \@lhrTmpMatchedProcessDataList); #---------------------------------------- # add any matched onto the main list. #---------------------------------------- push(@lhrMatchedProcessDataList, @lhrTmpMatchedProcessDataList); } my @liMatchedProcIds = (); my $iMatchedProcCount = Proc::GetValuesForKeyFromProcDataHash("PID", \@lhrMatchedProcessDataList, \@liMatchedProcIds); LogInt::Message( LogInt::LLTrace, 10418, "VCSHighLevel", "KillProcs", "iMatchedProcCount is [$iMatchedProcCount]" ); if($iMatchedProcCount > 0) { return Proc::KillPidsFromList(\@liMatchedProcIds, $bLongCommand); } else { #----------------- # no procs found. #----------------- return 1; } } =pod ----------------------------------------------------------------------------- Function: Constant CheckProcs( IN ListOfStrings ProcNameFilters, IN Integer NumberOfEachProcRequired, IN String ProcType, IN String PidFile, IN String CheckProcType, IN Boolean LongCommand ) Description: Checks the state of the processes. Parameters: ProcNameFilters : A list of processes strings to match on. NumberOfEachProcRequired : The count required for each match. ProcType : Process Type is one of Proc::PROC_TYPE_PARENT - match only parent processes Proc::PROC_TYPE_CHILDREN - match only children processes Proc::PROC_TYPE_ALL - match any (i.e., parent or child) processes PidFile : Full path of the file to contain matched process IDs (or application process Ids) CheckProcType : Check Process type is one of the following types: VCSHighLevel::CHECK_TYPE_APPLICATION - use application maintained pid file ProcFilterList should be undefined (or empty) NumberOfEachProcRequired should be undefined or < 2 ProcType - should be set to PROC_TYPE_ALL PidFile - full path name of application pid file VCSHighLevel::CHECK_TYPE_MAINTAINED_PIDFILE - script will generate/maintain pid file ProcFilterList needs to contain at least one entry to match on NumberOfEachProcRequired required number of matchs to be found ProcType - any of the three, will determine what will be matched on PidFile - full path name of pid file to use VCSHighLevel::CHECK_TYPE_USE_PROCESSLIST - script will rely on 'ps' command ProcFilterList needs to contain at least one entry to match on NumberOfEachProcRequired required number of matchs to be found ProcType - any of the three, will determine what will be matched on PidFile - should be undefined. LongCommand : Boolean to indicate long list of process list. Return Value: Returns one of the monitor exit codes: ONLINE OFFLINE ----------------------------------------------------------------------------- =cut sub CheckProcs { my ( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $sPidFile, $CheckProcType, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10419, "VCSHighLevel", "CheckProcs", "Subroutine %s called with: CheckProcType [%s]", $sMyName, $CheckProcType ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #------------------------------------------------------------------------ # do (some) sanity checking on function inputs # # calls into Proc can return VCSDef_MonitorExit::PARTIAL_ONLINE # VCSDef_MonitorExit::ONLINE and VCSDef_MonitorExit::OFFLINE as well # as '0' for error - we convert everything which isnt equal to # VCSDef_MonitorExit::ONLINE to be returned as VCSDef_MonitorExit::OFFLINE #------------------------------------------------------------------------ #------------------------------------------------------------------------------- # simplest way to sanity check is with a matrix (hash) # if a param is required then we'll exit OFFLINE if we dont get it # if a param isnt required but we get passed it then we'll log an warning and continue # set none required to start (implictly CheckProcType which we check ourselves) # if ProcTypeRequired is false then it must be set to Proc::PROC_TYPE_ALL # to avoid a warning #------------------------------------------------------------------------------- my %hParseCheckProcsParams = ( "ProcNameFilterRequired" => 0, "NumberOfEachProcRequiredRequired" => 0, "ProcTypeRequired" => 0, "PidFileRequired" => 0, ); if(CHECK_TYPE_APPLICATION == $CheckProcType) { $hParseCheckProcsParams{"PidFileRequired"} = 1; } elsif(CHECK_TYPE_MAINTAINED_PIDFILE == $CheckProcType) { $hParseCheckProcsParams{"ProcNameFilterRequired"} = 1; $hParseCheckProcsParams{"NumberOfEachProcRequiredRequired"} = 1; $hParseCheckProcsParams{"ProcTypeRequired"} = 1; $hParseCheckProcsParams{"PidFileRequired"} = 1; } elsif(CHECK_TYPE_USE_PROCESSLIST == $CheckProcType) { $hParseCheckProcsParams{"ProcNameFilterRequired"} = 1; $hParseCheckProcsParams{"NumberOfEachProcRequiredRequired"} = 1; $hParseCheckProcsParams{"ProcTypeRequired"} = 1; } else { #unrecognised $CheckProcType - exit now with offline LogInt::Message( LogInt::LLError, 10420, "VCSHighLevel", "CheckProcs", "CheckProcType:[$CheckProcType] is not recognised"); return VCSDef_MonitorExit::OFFLINE; } #-------------------------------------- # Do ProcNameFilterRequired checking. #-------------------------------------- if($hParseCheckProcsParams{"ProcNameFilterRequired"}) { #------------------------------------- # check we were passed some filters. #------------------------------------- if(defined @$rlsProcNameFilters) { my $iTestProcNameFiltersCount = @$rlsProcNameFilters; if($iTestProcNameFiltersCount < 1) { #------------------------------------------- # nothing to filter on - return offline #------------------------------------------- LogInt::Message( LogInt::LLError, 10421, "VCSHighLevel", "CheckProcs", "No ProcNameFilters given" ); return VCSDef_MonitorExit::OFFLINE; } else { #----------------------------- # print trace and continue #----------------------------- my $sProcNameFiltersString = join(", ", @$rlsProcNameFilters); LogInt::Message( LogInt::LLTrace, 10422, "VCSHighLevel", "CheckProcs", "ProcNameFilters:[$sProcNameFiltersString]" ); } } else { #---------------------------------------- # nothing to filter on - return offline #---------------------------------------- LogInt::Message( LogInt::LLError, 10423, "VCSHighLevel", "CheckProcs", "No ProcNameFilters given" ); return VCSDef_MonitorExit::OFFLINE; } } else { #---------------------------------------- # check we wernt passed some filters. #---------------------------------------- if(defined @$rlsProcNameFilters) { my $iTestProcNameFiltersCount = @$rlsProcNameFilters; if($iTestProcNameFiltersCount < 1) { #--------------------------- # list is empty continue. #--------------------------- } else { #-------------------------- # print warn and continue #-------------------------- my $sProcNameFiltersString = join(", ", @$rlsProcNameFilters); LogInt::Message( LogInt::LLWarn, 10424, "VCSHighLevel", "CheckProcs", "ProcNameFilters should be empty; got [$sProcNameFiltersString]"); } } else { #list is undefined continue } } #---------------------------------------------- # Do NumberOfEachProcRequiredRequired checking #---------------------------------------------- if($hParseCheckProcsParams{"NumberOfEachProcRequiredRequired"}) { #---------------------------------------------------------- # they require at least some of each proc to be found #---------------------------------------------------------- if(defined $iNumberOfEachProcRequired) { if($iNumberOfEachProcRequired < 1) { #------------------------------------------- # they required less that 1 - return error #------------------------------------------- LogInt::Message( LogInt::LLError, 10425, "VCSHighLevel", "CheckProcs", "NumberOfEachProcRequired:[$iNumberOfEachProcRequired] is less than 1"); return VCSDef_MonitorExit::OFFLINE; } else { #------------------------------- # print trace and continue #------------------------------- LogInt::Message( LogInt::LLTrace, 10426, "VCSHighLevel", "CheckProcs", "iNumberOfEachProcRequired:[$iNumberOfEachProcRequired]" ); } } else { #---------------------------------------------- # iNumberOfEachProcRequired was undefined #---------------------------------------------- LogInt::Message( LogInt::LLError, 10427, "VCSHighLevel", "CheckProcs", "NumberOfEachProcRequired was undefined"); return VCSDef_MonitorExit::OFFLINE; } } else { #----------------------------------------------- # they dont require a count of procs returned #----------------------------------------------- if(defined $iNumberOfEachProcRequired) { if($iNumberOfEachProcRequired < 1) { #continue } else { #---------------------------------------------- # they asked for more that 1 - give warning. #---------------------------------------------- LogInt::Message( LogInt::LLWarn, 10428, "VCSHighLevel", "CheckProcs", "iNumberOfEachProcRequired:[$iNumberOfEachProcRequired] is more than 1"); } } else { #iNumberOfEachProcRequired was undefined continue } } #-------------------------------------------------------------------------------------- # Do ProcTypeRequired checking # if not required it must be set to Proc::PROC_TYPE_ALL to avoid a warning #-------------------------------------------------------------------------------------- if($hParseCheckProcsParams{"ProcTypeRequired"}) { #---------------------------------------------------------- # check they specified what type of Process they required #---------------------------------------------------------- if(defined $ProcType) { if(Proc::PROC_TYPE_PARENT == $ProcType) { #----------------------------- # print trace and continue. #----------------------------- LogInt::Message( LogInt::LLTrace, 10429, "VCSHighLevel", "CheckProcs", "ProcType:[PROC_TYPE_PARENT]" ); } elsif(Proc::PROC_TYPE_CHILDREN == $ProcType) { #----------------------------- # print trace and continue #----------------------------- LogInt::Message( LogInt::LLTrace, 10430, "VCSHighLevel", "CheckProcs", "ProcType:[PROC_TYPE_CHILDREN]"); } elsif(Proc::PROC_TYPE_ALL == $ProcType) { #------------------------------- # print trace and continue #------------------------------- LogInt::Message( LogInt::LLTrace, 10431, "VCSHighLevel", "CheckProcs", "ProcType:[PROC_TYPE_ALL]" ); } else { #--------------------------------------------- # proc type not recognised - return offline #--------------------------------------------- LogInt::Message( LogInt::LLError, 10432, "VCSHighLevel", "CheckProcs", "ProcType:[$ProcType] is unrecognised (not implemented)"); return VCSDef_MonitorExit::OFFLINE; } } else { #------------------------------------------ # proc type not defined - return offline #------------------------------------------ LogInt::Message( LogInt::LLError, 10433, "VCSHighLevel", "CheckProcs", "ProcType not defined" ); return VCSDef_MonitorExit::OFFLINE; } } else { if(defined $ProcType) { if(Proc::PROC_TYPE_ALL == $ProcType) { #continue } else { #----------------------------------------------------------- #they didnt set ProcType = Proc::PROC_TYPE_ALL #----------------------------------------------------------- LogInt::Message( LogInt::LLWarn, 10434, "VCSHighLevel", "CheckProcs", "ProcType:[$ProcType] not set to Proc::PROC_TYPE_ALL"); } } else { LogInt::Message( LogInt::LLWarn, 10435, "VCSHighLevel", "CheckProcs", "ProcType is undefined!"); } } #-------------------------- # Do sPidFile checking #-------------------------- if($hParseCheckProcsParams{"PidFileRequired"}) { if(defined $sPidFile) { #------------------------------ # print trace and continue #------------------------------ LogInt::Message( LogInt::LLTrace, 10436, "VCSHighLevel", "CheckProcs", "PidFile:[$sPidFile]"); } else { #-------------------------------------- # no pid file given - return offline #-------------------------------------- LogInt::Message( LogInt::LLError, 10437, "VCSHighLevel", "CheckProcs", "no pid file specified" ); return VCSDef_MonitorExit::OFFLINE; } } else { if(defined $sPidFile) { #---------------------------------- # they shouldnt specify a pidfile #---------------------------------- LogInt::Message( LogInt::LLWarn, 10438, "VCSHighLevel", "CheckProcs", "PidFile should not be defined"); } else { #no pid file given - continue } } #------------------------------------------------------------------------- # if we get here then call the relevant calls into # Proc - based on $CheckProcType # # calls into Proc can return VCSDef_MonitorExit::PARTIAL_ONLINE # VCSDef_MonitorExit::ONLINE and VCSDef_MonitorExit::OFFLINE as well # as '0' for error - we convert everything which isnt equal to # VCSDef_MonitorExit::ONLINE to be returned as VCSDef_MonitorExit::OFFLINE #------------------------------------------------------------------------- my $iCheckProcReturnCode; if(CHECK_TYPE_APPLICATION == $CheckProcType) { $iCheckProcReturnCode = Proc::CheckProcApplicationPidFile($sPidFile, $bLongCommand); } elsif(CHECK_TYPE_MAINTAINED_PIDFILE == $CheckProcType) { $iCheckProcReturnCode = Proc::CheckProcMaintainedPidFile( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $sPidFile, $bLongCommand ); } elsif(CHECK_TYPE_USE_PROCESSLIST == $CheckProcType) { $iCheckProcReturnCode = Proc::CheckProcProcessList( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $bLongCommand ); } else { #----------------------------------------------------------- # we checked this at the top - but check it here anyway # unrecognised $CheckProcType - exit now with offline #----------------------------------------------------------- LogInt::Message( LogInt::LLError, 10439, "VCSHighLevel", "CheckProcs", "CheckProcType:[$CheckProcType] not recognised"); return VCSDef_MonitorExit::OFFLINE; } if(VCSDef_MonitorExit::ONLINE == $iCheckProcReturnCode) { return VCSDef_MonitorExit::ONLINE; } else { return VCSDef_MonitorExit::OFFLINE; } } 1; Type = kZE{ZD{ZD{Z Z./opt/VRTS/.ACCLib/vcs/VCSType.pm.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/VCSType.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:35 $ # $Revision: 1.15 $ # # Provides: package VCSType # # Functionality: VCS Type Related Commands # # Authors: 011787 #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # Methods: # # GetOnlineTimeoutGivenType(, &) # GetOfflineTimeoutGivenType(, &) # #----------------------------------------------------------------------------- #------------------ # version calls #------------------ use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/VCSType.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $::ETVHeader"); #------------------------ # end of version calls #------------------------ #--------------------------- # Declare the package name. #--------------------------- package VCSType; #------------------------------------------ # Turn on strict on vars, refs and subs. #------------------------------------------ use strict; #------------------------------------------ # Include all the modules required. #------------------------------------------ use LogInt; use Hatype; =pod ----------------------------------------------------------------------------- Function: Boolean GetOnlineTimeoutGivenType( IN String ResourceType, OUT Integer OnlineMaxWaitPeriod ) Description: Gives the online timeout for the given resource type. Parameters: ResourceType : Type of the resource. OnlineMaxWaitPeriod : Number of seconds to wait before the resource to come online. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetOnlineTimeoutGivenType { my ( $sTypeName, $riOnlineTimeout ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10340, "VCSType", "GetOnlineTimeoutGivenType", "Subroutine %s called with: Type [%s]", $sMyName, $sTypeName ); #------------------------------------------------------------- #construct the call to the generic Hatype Display command #------------------------------------------------------------- my $sTypes = $sTypeName; my $sAttributes = "OnlineTimeout"; my @lsResults = (); if(Hatype::Display($sTypes, $sAttributes, \@lsResults)) { # return ok - continue } else { #----------------------------------- # call to get display info failed #----------------------------------- LogInt::Message( LogInt::LLError, 10341, "VCSType", "GetOnlineTimeoutGivenType", "Failed in call to Hatype::Display"); return 0; #return error } #--------------------------------- # format is # Application OnlineTimeout 300 #--------------------------------- my ( $sTypeTrash, $sAttributeTrash, $iValue ) = split(/\s/, $lsResults[0]); LogInt::Message( LogInt::LLTrace, 10342, "VCSType", "GetOnlineTimeoutGivenType", "Called with type [$sTypeName], returning OnlineTimeout [$iValue]"); $$riOnlineTimeout = $iValue; return 1; } =pod ----------------------------------------------------------------------------- Function: Boolean GetOfflineTimeoutGivenType( IN String ResourceType, OUT Integer OfflineMaxWaitPeriod ) Description: Gives the offline timeout for the given resource type. Parameters: ResourceType : Type of the resource. OfflineMaxWaitPeriod : Number of seconds to wait before the resource comes offline. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetOfflineTimeoutGivenType { my ( $sTypeName, $riOfflineTimeout ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10343, "VCSType", "GetOfflineTimeoutGivenType", "Subroutine %s called with: Type [%s]", $sMyName, $sTypeName ); #---------------------------------------------------------------- # construct the call to the generic Hatype Display command. #---------------------------------------------------------------- my $sTypes = $sTypeName; my $sAttributes = "OfflineTimeout"; my @lsResults = (); if(Hatype::Display($sTypes, $sAttributes, \@lsResults)) { # return ok - continue } else { #------------------------------------ # call to get display info failed. #------------------------------------ LogInt::Message( LogInt::LLError, 10344, "VCSType", "GetOfflineTimeoutGivenType", "Failed in call to Hatype::Display"); return 0; #return error } #------------------------------------ # format is # Application OfflineTimeout 300 #------------------------------------ my ( $sTypeTrash, $sAttributeTrash, $iValue ) = split(/\s/, $lsResults[0]); LogInt::Message( LogInt::LLTrace, 10345, "VCSType", "GetOfflineTimeoutGivenType", "Called with type [$sTypeName], returning OfflineTimeout [$iValue]"); $$riOfflineTimeout = $iValue; return 1; } 1; r k"hE{ZD{ZD{Z h./opt/VRTS/.ACCLib/vcs/Version.pm.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/Version.pm,v 1.5 2008/02/04 06:17:23 aatre Exp $ # # Veritas Software Corporation # # Package Name: Version # # $Author: aatre $ # $Date: 2008/02/04 06:17:23 $ # $Revision: 1.5 $ # # Description: Module to keep track of versions of Perl modules. # # Authors: 011787 #--------------------------------------------------------------------------- #---------------------------------------------------------------------------- # To include 'TellVersion' in a file - place the two following lines # at the top of the file. # # use Version; # Version::TellVersion("\$Header: # /project/isv-agent/ACCLib/vcs/Version.pm,v 1.5 2005/03/02 01:48:00 # vchappav Exp $::ETVHeader"); # # CVS will *automatically* update the above with the correct header # information (each time the file is commit'd) #---------------------------------------------------------------------------- #-------------------------------------------------------------------------- # Define this global so anyone who adds the 'TellVersion' call use it to # end the trailing '$' needed for CVS string matching # (i.e. to keep Perl + CVS happy) #-------------------------------------------------------------------------- $::ETVHeader = "\$"; #----------------------------------- # Declare/Announce the pakage name. #----------------------------------- package Version; use strict; #-------------------------------------- # Add ourselves to the version tag. :) #-------------------------------------- Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/Version.pm,v 1.5 2008/02/04 06:17:23 aatre Exp $::ETVHeader"); #----------------------------------------------------------- # Define a hash to hold all versions of the files/packages. #----------------------------------------------------------- my %lsFileVersionHash; =pod ----------------------------------------------------------------- Function: void TellVersion( IN String VersionInfo ) Description: Add's the string to a filename header string hash. Should be called at the top of all Perl modules and scripts which use the framework. Parameters: VersionInfo: Version string. Return Value: void - returns no value to the caller. ------------------------------------------------------------------ =cut sub TellVersion { my ( $sVersionInfo ) = @_; my $sMyName = (caller 0)[3]; #----------------------------------- # Get the caller filename to index. #----------------------------------- my @lsCallerInfo = caller; my $sFileName = $lsCallerInfo[1]; #----------------------------- # Add versin string to hash. #----------------------------- $lsFileVersionHash{$sFileName} = $sVersionInfo; return; } =pod ---------------------------------------------------------------- Function: boolean CheckForVersionRequest( IN String FirstArg ) Description: Prints all versions of the module if it is requested. Parameters: FirstArg: A string containing "--versions". Return value: Boolean value in the set of {0,1} where 0 - false 1 - true ---------------------------------------------------------------- =cut sub CheckForVersionRequest { my ( $sFirstArg ) = @_; my $sMyName = (caller 0)[3]; #---------------------------------------------- # Check whether the string is defined or not. #---------------------------------------------- if ( defined $sFirstArg ) { if ( $sFirstArg eq "--versions" ) { Version::PrintAllVersions(); #----------------------------------------------------------- # To indicate to the caller that the version request # was accepted. The caller should probably normally exit... #----------------------------------------------------------- return 1; } else { #---------------------------------------------------------- # To indicate to the caller that no version listing was # requested... #---------------------------------------------------------- return 0; } } } =pod ---------------------------------------------------------------- Function: void PrintAllVersions( void ) Description: This prints out all the information about modules which have called 'TellVersion' Parameters: void: no parameters are needed. Return value: void: no value is returned to the caller. ---------------------------------------------------------------- =cut sub PrintAllVersions { #------------------------------------ # Spin the hash and print stuff out. #------------------------------------ my $sMyName = (caller 0)[3]; print "Version::PrintAllVersions (begin)\n"; foreach my $sTmpFileName (sort keys %lsFileVersionHash) { print "Version file:[$sTmpFileName] is [$lsFileVersionHash{$sTmpFileName}]\n"; } print "Version::PrintAllVersions (end)\n"; return; } 1; k ----------------------------------------------------- # if we get here then it's invalid (only use level 'trace' - # since we are being called to check it only). #------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10327, "VCSDefines", "VCSDef_CleanReason", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10328, "VCSDefines", "VCSDef_CleanReason", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_CleanReason::OFFLINE_HUNG => "Offline Hung", VCSDef_CleanReason::OFFLINE_INEFFECTIVE => "Offline Ineffective", VCSDef_CleanReason::ONLINE_HUNG => "Online Hung", VCSDef_CleanReason::ONLINE_INEFFECTIVE => "Online Ineffective", VCSDef_CleanReason::UNEXPECTED_OFFLINE => "Unexpected Offline", VCSDef_CleanReason::MONITOR_HUNG => "Monitor Hung", ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; } else { LogInt::Message( LogInt::LLError, 10329, "VCSDefines", "VCSDef_CleanReason", "Couldn't find corresponding string for [%s]", $iValue ); #----------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #----------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_CleanReason #-------------------------- # Monitor exit codes. #-------------------------- package VCSDef_MonitorExit; use constant UNKNOWN => 99; use constant ONLINE => 110; use constant PARTIAL_ONLINE => 105; use constant OFFLINE => 100; use constant TIMEOUT => 999999; 1; #end VCSDef_MonitorExit #---------------------- # Clean exit Codes #---------------------- package VCSDef_CleanExit; use constant PASSED => 0; use constant FAILED => 1; 1; #end VCSDef_CleanExit #------------------------ # Resource State codes #------------------------ package VCSDef_ResourceState; use constant OFFLINE => 0; use constant FAULTED => 1; use constant ONLINE => 2; use constant ONLINE_STATE_UNKNOWN => 3; #not sure this is correct value! use constant ONLINE_MONITOR_TIMEDOUT => 4; #not sure this is correct value! use constant ONLINE_UNABLE_TO_OFFLINE => 5; #not sure this is correct value! use constant OFFLINE_STATE_UNKNOWN => 6; #not sure this is correct value! use constant FAULTED_RESTARTING => 7; #not sure this is correct value! =pod ----------------------------------------------------------------------------- Function: Boolean IsValid( IN Integer Value ) Description: Checks given value is with in the boundary values. Parameters: Value : Value needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub IsValid { my ( $iValueToCheck ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10330, "VCSDefines", "VCSDef_ResourceState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValueToCheck ); #----------------------------------------------------- # we check it's actually a number we've been handed #----------------------------------------------------- if($iValueToCheck =~ /^[0-9]+$/) { if(($iValueToCheck >= VCSDef_ResourceState::OFFLINE) && ($iValueToCheck <= VCSDef_ResourceState::FAULTED_RESTARTING)) { LogInt::Message( LogInt::LLTrace, 10331, "VCSDefines", "VCSDef_ResourceState", "Checking IsValid, got passed [%s] returning OK", $iValueToCheck ); return 1; } } #------------------------------------------------------------------- # if we get here then it's invalid (only use level 'trace' - since # we are being called to check it only) #------------------------------------------------------------------- LogInt::Message( LogInt::LLTrace, 10332, "VCSDefines", "VCSDef_ResourceState", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10333, "VCSDefines", "VCSDef_ResourceState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_ResourceState::OFFLINE => "Offline", VCSDef_ResourceState::FAULTED => "Faulted", VCSDef_ResourceState::ONLINE => "Online", VCSDef_ResourceState::ONLINE_STATE_UNKNOWN => "Online | State Unknown", VCSDef_ResourceState::ONLINE_MONITOR_TIMEDOUT => "Online | Monitor Timedout", VCSDef_ResourceState::ONLINE_UNABLE_TO_OFFLINE => "Online | Unable To Offline", VCSDef_ResourceState::OFFLINE_STATE_UNKNOWN => "Offline | State Unknown", VCSDef_ResourceState::FAULTED_RESTARTING => "Failed | Restarting" ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; } else { LogInt::Message( LogInt::LLError, 10334, "VCSDefines", "VCSDef_ResourceState", "Couldn't find corresponding string for [%s]", $iValue ); #-------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #-------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_ResourceState #-------------------------- # Resource IState codes. #-------------------------- package VCSDef_ResourceIState; use constant NOT_WAITING => 0; use constant WAITING_TO_GO_ONLINE => 1; use constant WAITING_FOR_CHILDREN_ONLINE => 2; use constant WAITING_TO_GO_OFFLINE => 3; use constant WAITING_TO_GO_OFFLINE_PROPAGATE => 4; use constant WAITING_TO_GO_OFFLINE_PATH => 5; use constant WAITING_TO_GO_OFFLINE_REVERSE => 6; use constant WAITING_TO_GO_ONLINE_REVERSE => 7; use constant WAITING_TO_GO_ONLINE_REVERSE_PROPAGATE => 8; use constant WAITING_TO_GO_ONLINE_REVERSE_PATH => 9; =pod ----------------------------------------------------------------------------- Function: Boolean IsValid( IN Integer Value ) Description: Checks given value is with in the boundary values. Parameters: Value : Value needs to be checked. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub IsValid { my ( $iValueToCheck ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10335, "VCSDefines", "VCSDef_ResourceIState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValueToCheck ); #------------------------------------------------------ # we check it's actually a number we've been handed #------------------------------------------------------ if($iValueToCheck =~ /^[0-9]+$/) { if(($iValueToCheck >= VCSDef_ResourceIState::NOT_WAITING) && ($iValueToCheck <= VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PATH)) { LogInt::Message( LogInt::LLTrace, 10336, "VCSDefines", "VCSDef_ResourceIState", "Checking IsValid, got passed [%s] returning OK", $iValueToCheck ); return 1; } } #------------------------------------------------------------------ # if we get here then it's invalid (only use level 'trace' - since # we are being called to check it only) #------------------------------------------------------------------ LogInt::Message( LogInt::LLTrace, 10337, "VCSDefines", "VCSDef_ResourceIState", "Checking IsValid, got passed [%s] which is out of the defined range", $iValueToCheck ); return 0; #invalid value } =pod ----------------------------------------------------------------------------- Function: Boolean GetString( IN Integer Value, OUT String String ) Description: Gives the corresponding string to the given value. Parameters: Value : An integer value. String : String corresponding to the given value. Return Value: Boolean value in the set of {0,1} where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub GetString { my ( $iValue, $rsString ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10338, "VCSDefines", "VCSDef_ResourceIState", "Subroutine <%s> called with: Value [%s]", $sMyName, $iValue ); my %shValueToString = ( VCSDef_ResourceIState::NOT_WAITING => "Not Waiting", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE => "Waiting To Go Online", VCSDef_ResourceIState::WAITING_FOR_CHILDREN_ONLINE => "Waiting For Children Online", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE => "Waiting To Go Offline", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PROPAGATE => "Waiting To Go Offline (propagate)", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_PATH => "Waiting To Go Offline (path)", VCSDef_ResourceIState::WAITING_TO_GO_OFFLINE_REVERSE => "Waiting To Go Offline (reverse)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE => "Waiting To Go Online (reverse)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PROPAGATE => "Waiting To Go Online (reverse/propagate)", VCSDef_ResourceIState::WAITING_TO_GO_ONLINE_REVERSE_PATH => "Waiting To Go Online (reverse/path)" ); if(exists $shValueToString{$iValue}) { $$rsString = $shValueToString{$iValue}; return 1; # found valid string value for presented iValue... } else { LogInt::Message( LogInt::LLError, 10339, "VCSDefines", "VCSDef_ResourceIState", "Couldn't find corresponding string for [%s]", $iValue ); #---------------------------------------------------------------------- # give the string a value to avoid "uninitialized value" errors.... #---------------------------------------------------------------------- $$rsString = "UNKNOWN"; return 0; # could not find valid string value for presented iValue... } } 1; #end VCSDef_ResourceIState b krz`E{ZD{ZD{Z z`./opt/VRTS/.ACCLib/vcs/VCSHighLevel.pm# VT50-2000-2016-84-28-4 # $Copyright: Copyright (c) 2016 Veritas Technologies LLC. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # VERITAS TECHNOLOGIES LLC. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF VERITAS TECHNOLOGIES LLC. # # 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, whether delivered by Veritas as on premises # or hosted services. 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/ACCLib/lib/vcs/VCSHighLevel.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $ # # Veritas Software Corporation # # $Author: aatre $ # $Date: 2008/10/06 05:09:35 $ # $Revision: 1.15 $ # # Provides: package VCSHighLevel # # Functionality: wrapper to high level VCS related calls # # Authors: 011787 #----------------------------------------------------------------------------- #----------------------------------------------------------------------------- # ProcType (one of Proc::PROC_TYPE_PARENT - match only parent process's # Proc::PROC_TYPE_CHILDREN - match only children process's # Proc::PROC_TYPE_ALL - match any (ie parent or child) process's # # PidFile full path of file to contain matched process Ids (or application process Ids) # # CheckProcType - dictate what type of CheckProc to run # types: # VCSHighLevel::CHECK_TYPE_APPLICATION - use application maintained pid file # ProcFilterList should be undefined (or empty) # NumberOfEachProcRequired should be undefined or < 2 # ProcType - should be set to Proc::PROC_TYPE_ALL # PidFile - full path name of application pid file # # VCSHighLevel::CHECK_TYPE_MAINTAINED_PIDFILE - script will generate/maintain pid file # ProcFilterList needs to contain at least one entry to match on # NumberOfEachProcRequired required number of matchs to be found # ProcType - any of the three, will determine what will be matched on # PidFile - full path name of pid file to use # # VCSHighLevel::CHECK_TYPE_USE_PROCESSLIST - script will rely on 'ps' command # ProcFilterList needs to contain at least one entry to match on # NumberOfEachProcRequired required number of matchs to be found # ProcType - any of the three, will determine what will be matched on # PidFile - should be undefined #----------------------------------------------------------------------------- #------------------- # version calls. #------------------- use Version; Version::TellVersion("\$Header: /project/isv-agent/ACCLib/lib/vcs/VCSHighLevel.pm,v 1.15 2008/10/06 05:09:35 aatre Exp $::ETVHeader"); #---------------------- # end of version calls #---------------------- #--------------------------- # Declare the package name. #--------------------------- package VCSHighLevel; #-------------------------------------------- # Turn on strict for subs, refs and vars. #-------------------------------------------- use strict; #---------------------------------- # Include the required packages. #---------------------------------- use LogInt; #logging use Proc; #proc related calls use VCSDefines; #for VCSDef_MonitorExit #----------- # globals. #----------- use constant CHECK_TYPE_APPLICATION => 1; use constant CHECK_TYPE_MAINTAINED_PIDFILE => 2; use constant CHECK_TYPE_USE_PROCESSLIST => 3; =pod ----------------------------------------------------------------------------- Function: Boolean KillProcs( IN ArrayOfStrings ProcNameFilters, IN Boolean LongCommand ) Description: Kills all the processes matched by process filters from the long list of the process. Parameters: ProcNameFilters : Filters to match the processes from the process list. LongCommand : Boolean Variable to specify to get the long list of processes or not. Return Value: Boolean value in the set of {0,1) where 0 - false 1 - true ----------------------------------------------------------------------------- =cut sub KillProcs { my ( $rlsProcNameFilters, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLError, 10415, "VCSHighLevel", "KillProcs", "Subroutine %s called", $sMyName ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #--------------------------------------------------------- # get the 'ps' data then filter it using our ProcFilters #--------------------------------------------------------- my @lhrProcessDataList = (); if($bLongCommand == 0) { if(Proc::GetProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10416, "VCSHighLevel", "KillProcs", "GetProcessListHash returned no proc's" ); return 0; } } else { if(Proc::GetLongProcessListHash(\@lhrProcessDataList) > 0) { #got more than zero proc's - continue } else { LogInt::Message( LogInt::LLError, 10417, "VCSHighLevel", "KillProcs", "GetLongProcessListHash returned no proc's" ); return 0; } } my @lhrMatchedProcessDataList = (); #------------------------------------------------ # spin the passed in list of rlsProcNameFilters. #------------------------------------------------ foreach my $sEachFilter (@$rlsProcNameFilters) { my @lhrTmpMatchedProcessDataList = (); Proc::FilterProcs($sEachFilter, \@lhrProcessDataList, \@lhrTmpMatchedProcessDataList); #---------------------------------------- # add any matched onto the main list. #---------------------------------------- push(@lhrMatchedProcessDataList, @lhrTmpMatchedProcessDataList); } my @liMatchedProcIds = (); my $iMatchedProcCount = Proc::GetValuesForKeyFromProcDataHash("PID", \@lhrMatchedProcessDataList, \@liMatchedProcIds); LogInt::Message( LogInt::LLTrace, 10418, "VCSHighLevel", "KillProcs", "iMatchedProcCount is [$iMatchedProcCount]" ); if($iMatchedProcCount > 0) { return Proc::KillPidsFromList(\@liMatchedProcIds, $bLongCommand); } else { #----------------- # no procs found. #----------------- return 1; } } =pod ----------------------------------------------------------------------------- Function: Constant CheckProcs( IN ListOfStrings ProcNameFilters, IN Integer NumberOfEachProcRequired, IN String ProcType, IN String PidFile, IN String CheckProcType, IN Boolean LongCommand ) Description: Checks the state of the processes. Parameters: ProcNameFilters : A list of processes strings to match on. NumberOfEachProcRequired : The count required for each match. ProcType : Process Type is one of Proc::PROC_TYPE_PARENT - match only parent processes Proc::PROC_TYPE_CHILDREN - match only children processes Proc::PROC_TYPE_ALL - match any (i.e., parent or child) processes PidFile : Full path of the file to contain matched process IDs (or application process Ids) CheckProcType : Check Process type is one of the following types: VCSHighLevel::CHECK_TYPE_APPLICATION - use application maintained pid file ProcFilterList should be undefined (or empty) NumberOfEachProcRequired should be undefined or < 2 ProcType - should be set to PROC_TYPE_ALL PidFile - full path name of application pid file VCSHighLevel::CHECK_TYPE_MAINTAINED_PIDFILE - script will generate/maintain pid file ProcFilterList needs to contain at least one entry to match on NumberOfEachProcRequired required number of matchs to be found ProcType - any of the three, will determine what will be matched on PidFile - full path name of pid file to use VCSHighLevel::CHECK_TYPE_USE_PROCESSLIST - script will rely on 'ps' command ProcFilterList needs to contain at least one entry to match on NumberOfEachProcRequired required number of matchs to be found ProcType - any of the three, will determine what will be matched on PidFile - should be undefined. LongCommand : Boolean to indicate long list of process list. Return Value: Returns one of the monitor exit codes: ONLINE OFFLINE ----------------------------------------------------------------------------- =cut sub CheckProcs { my ( $rlsProcNameFilters, $iNumberOfEachProcRequired, $ProcType, $sPidFile, $CheckProcType, $bLongCommand ) = @_; my $sMyName = (caller 0)[3]; LogInt::Message( LogInt::LLTrace, 10419, "VCSHighLevel", "CheckProcs", "Subroutine %s called with: CheckProcType [%s]", $sMyName, $CheckProcType ); if(!defined $bLongCommand) { $bLongCommand = 0; } else { $bLongCommand = 1; } #------------------------------------------------------------------------ # do (some) sanity checking on function inputs # # calls into Proc can return VCSDef_MonitorExit::PARTIAL_ONLINE # VCSDef_MonitorExit::ONLINE and VCSDef_MonitorExit::OFFLINE as well # as '0' for error - we convert everything which isnt equal to # VCSDef_MonitorExit::ONLINE to be returned as VCSDef_MonitorExit::OFFLINE #------------------------------------------------------------------------ #------------------------------------------------------------------------------- # simplest way to sanity check is with a matrix (hash) # if a param is required then we'll exit OFFLINE if we dont get it # if a param isnt required but we get passed it then we'll log an warning and continue # set none required to start (implictly CheckProcType which we check ourselves) # if ProcTypeRequired is false then it must be set to Proc::PROC_TYPE_ALL # to avoid a warning #------------------------------------------------------------------------------- my %hParseCheckProcsParams = ( "ProcNameFilterRequired" => 0, "NumberOfEachProcRequiredRequired" => 0, "ProcTypeRequired" => 0, "PidFileRequired" => 0, ); if(CHECK_TYPE_APPLICATION == $CheckProcType) { $hParseCheckProcsParams{"PidFileRequired"} = 1; } elsif(CHECK_TYPE_MAINTAINED_PIDFILE == $CheckProcType) { $hParseCheckProcsParams{"ProcNameFilterRequired"} = 1; $hParseCheckProcsParams{"NumberOfEachProcRequiredRequired"} = 1; $hParseCheckProcsParams{"ProcTypeRequired"} = 1; $hParseCheckProcsParams{"PidFileRequired"} = 1; } elsif(CHECK_TYPE_USE_PROCESSLIST == $CheckProcType) { $hParseCheckProcsParams{"ProcNameFilterRequired"} = 1; $hParseCheckProcsParams{"NumberOfEachProcRequiredRequired"} = 1; $hParseCheckProcsParams{"ProcTypeRequired"} = 1; } else { #unrecognised $CheckProcType - exit now with offline LogInt::Message( LogInt::LLError, 10420, "VCSHighLevel", "CheckProcs", "CheckProcType:[$CheckProcType] is not recognised"); return VCSDef_MonitorExit::OFFLINE; } #-------------------------------------- # Do ProcNameFilterRequired checking. #-------------------------------------- if($hParseCheckProcsParams{"ProcNameFilterRequired"}) { #------------------------------------- # check we were passed some filters. #------------------------------------- if(defined @$rlsProcNameFilters) { my $iTestProcNameFiltersCount = @$rlsProcNameFilters; if($iTestProcNameFiltersCount < 1) { #------------------------------------------- # nothing to filter on - return offline #------------------------------------------- LogInt::Message( LogInt::LLError, 10421, "VCSHighLevel", "CheckProcs", "No ProcNameFilters given" ); return VCSDef_MonitorExit::OFFLINE; } else { #----------------------------- # print trace and continue #----------------------------- my $sProcNameFiltersString = join(", ", @$rlsProcNameFilters); LogInt::Message( LogInt::LLTrace, 10422, "VCSHighLevel", "CheckProcs", "ProcNameFilters:[$sProcNameFiltersString]" ); } } else { #---------------------------------------- # nothing to filter on - return offline #---------------------------------------- LogInt::Message( LogInt::LLError, ./docs/0000755000000000000000000000000013320062076010640 5ustar rootroot./docs/acclib_install.pdf0000755000000000000000000071606013320062076014313 0ustar rootroot%PDF-1.4 % 14 0 obj <> stream xmRMO0 W&@(sV>@ MCm @㲿iNU{ f/@69HC߅@INي5 / +[+ q hQj@>KgFe  4oVuނZ+e)s/RJc#0er0O ʟ`*t!: 5*Wwckqv'MD vk0)FIDV1dKxM. ߁%=GA)gphUe 8V:Vۍ:5ӝPUOԨcp?΅+mTVnc[8\eU~O. \βj8J.dL*.oCdy[ĺCESpendstream endobj 15 0 obj 434 endobj 23 0 obj <> stream xڭR\]_[‡_?drTUI**yGsL9˜]@ŠOϘ17}sznl9{`?{AnGc~\gǏXkICAH38~|NaщчmpgPz~x~{|$8S5]YUZ#qXR$36V/Ff@ n<Ow6F‡Sݴh|$JR ӣq=u=l +6q5%~MRNbm2o2C`Ke܈lP:Dhd|,||*U2f']@L Oqsy~Xɹsr>cɰYw(;,h&{}f.4G̾W(Y6"F hYQQ ʼZ l|JjM3 Y}wb.AY#O%%k\-CQwyYt4Sb|CE_Y`]_`|y0N./S@^iTzd *[Z~l} LlmAB~hدo,8lPz^SED 1΅!I`B s@|ҙ My(5雱ET\ym*{4g ?.j_w'? q|b ["/76,7A+"!*Xx)5swPk1Ǒ_138l݈Ph;Gjڒ.AySbMpݶ"f9kO`SF~]}%#)w3 a_J'DLK]~GKBɻYknirۋMJ5Y}԰$p:M7Y]Ek`6jJ ,vf 6ZUBT1b{tNbU2*h@vG]ܨ{"5D}%COҙHe(q-cｵ)`;Y^[D,604t/̵JxiK9ں#Nc6xw4ǐbbw&z$,Bsa=} shbIWȿ}''(K TW4Μ>P/Z8pN#OԒ^#_}r:&j͵ah.%?hDb-匝d[W !ؤVɉ+A9Y+v) J|Oc/$>'KN2)1{e JPM;-)9HfA^뚊y۱9u3!fV5Z\kwצq_l>t%H y:RISEӁ$UYѥ3#oًa#!VlnϛrB SsCDmu~!"E9s 1xB f+ _:Ug9E_)H=7[7'np$/o _7iIf;k"oTˆnsV|oDD Khnw8w#DESϪ 5JAVJ0[( VJ`%䒲;R}:0b.!TsS_rgd[ݒRPOY)F6^ ]"{ vF?晞Rcn\Wj a ?Q0Pn y3HAOk=D\?~^QkCRv+?M1}3`Q5fd>39GX -yr; |9Xb0 L=>[Q+^kSsh=e0$9>AtU\@tK6'1fO&Y%o{m8F ͡+%JV6Ӡ!5Г ܴ܋i++F6s̾t< v/Eo®ƛg|L,s$# \'#FbmNit~`\6U<SL}R=d`ޜHK-ƿJ,9M⸁۞t"RQּ_Ze:y).^(1;^"|Lϣ9 $Pstdwx*˗ٖ]#E"c|6"i)EyY:ұKLuW. %8ʂhdD[΁dXΘ2UH(]O|ioNzcaЂy`j:IfK;Q\jxp~pó= mRȭĤCqY*!N9=*6 8ouWpnMd`&ݚ2*ЈV@>EUMb8X Dd{qu+ 6QNꀷH% ~l\r'!$Ir0BY%$;D VWkgOMH<EY/zxUB^N'pQhXZbcšdU k1ȅe1MB-ئiYT}Q.wRBiq;* Qp!aX!Fo"} iωi0 [1W3K Xx^ndWV/3بܭi_P bPxOZq@EQԣ/f U0KnWLop_؂.aCسK/ v-G4/b9B\a5#EU [Ƈ\Dۭe:PVZ& F_Y+RQ uى ip Sݔ2|]-(gD{{/i|ӤQ09m'^l ,}F`H@uCS#wGYhvi) JĵO=;f;Jmm7| :wVRo)J\)jJ Ö\Smo,+of8߻lF |E =y!*)R0^c~Uo[:P ^,vsFϱ.R[MBIDX|] 2 e誮k^56!T%녝l6iaLXWQ&-B38ؑr doʙm{}q;}eێ 8691 >:ߠۚ3O3f_<p> stream x[[o\~ׯТiᝇE Y’uٵ)@uC"w.<{V"ȱd\GWߎ|=996.џǻtUΌ|N|>ϺI\!6Ӥclb|.)E扉 Dv2'B|jRbۄ&V 咲 MJ牱8m钜5XUpE^Ch<>2r(N>jk0]P>s3G.k"8 SIiEyhhSy(A^ߪ s%?#'+ġ)&FyҔpպj GǮjإ,y|l}GLV)rq?) ܳ;^p8'=N;o[,CZu|96n{~Fv qƏӺvv A;0;_a e # @='c{*6Z'Ŗ7r#7 4!^!Ig"aSc늻Dau#7tA/Wh)"w4is6&e: ?M`ljd,r _K"jÈ;#Q.f6ZU`"y)W gHfdp`#|q4K>9W$9 l*m?QΓyc"Dfy5!a˛ .Q:X'%l"~{k65@VNuz$EX Obx!i j;7#ekԣfRzI!](yABvHs#A(5kW}¹Wl%6UB`6o5iR9 sqB>Ss'% (+qxϬD eݦ\+V}; wD tjvسJ^[ZBOӪ3y}pef{~VsTxqf6o˱ 2RPg|yX|vR>D :fD̶JRc.ਚҙ3#V(T7 Iz &KPstm,\3kM']%%nNsE T2;9if Jg'Fj;:t XݱT[ Cɯpxc1b-T`Jy;SۊT ٞ,iSPjK~Qea9`|5kʲ WS'ة~8l7K3δ}lbD˚)emB#߬W)946b?zyKn bd>~bJ;h&NABeK7#Ý&'^:' Hg %31C, ;p9{A~0~Rzv36?MQfG=^@ cD7ֹelϼ+B/1 !:IPFhIuUщ~w l-yگ{pDbHGtA\~AT#b0 )S\ݒ;q˅*-(PY.ze,A`p=^)IG>R~E޼!}K[OEYM8BЄY˕,H5Q&[F"fu|c=3_jĎ59"88U,G4}.!}n3B/nX*3Mnbc߳a'fe-݆흞(5~OZX`OšPAj^:jvcg#&1ef'eC`wq9A׫Vc 'իH1F evUr=_Ζpي6PU`%fav,*\Zԥ|Em׳#G^ 3<eed*7Nt6(@<_Ŧ@;ait]9彄h(iȃdܗQFT.XFjDXʀ)j(ˍBy3ՋtfuZIu5B4gDUcDr/QoI8^eоEimbw+`\ùrƱ1Rf``8GM7_bwBI \t0Ջ@cyr񋰲a9)wCB )m%?P#h`'`=s9u8_ ف֩7Ҟ^wjΙ5Wc/릡<Ӊ696rPj䫶)YVe5V'ĉz/@.+[\m/:pؔ(%gp*FŤbtkA5vn!s^^7@G# 7+t ˋaI"D+yRQ}.d/&!gPr^~S)2r:|1 -EtbnAň%1gUO0R^]SrTVsͱ*PSh)]+] (=79DjyfOSR-5+7'Hȷ 4*Ԭq`)*𱼤KZ^-OJ*&c^\<[>,c(5!{Y+9bJt]+g,HX_jt&eAZ(27H8jZPU6>~{ѿ}oy0ϣ߿Q<)~=]endstream endobj 30 0 obj 2986 endobj 41 0 obj <> stream xڥZKo7WH[~\ YĈ-[ԷIP-C;Õ;$0! 7šm?>n ~3~NWBmgQJyp^뾧IsU#z@ШZW4KH;)I)S* WT 5Gx`9h @?c۲ۦ9t9#d&`ɛu*8騘TQB1Ă*x]5ge9Wozk@cۣ+D%3 ZDõZX=,^VG!c*賦 lؙ8/0 o*?/,*B3GhY4Xh2^ʶ4\>q e6Akz0kshhsՆw1F]"iYF#Nր}hDf(R{K8Gj}  HkE1f[u\KU] ¦RZ FF>UZ$.թ~0F >ΆA4'8oG<`]1 =y?ɇK%}xwJɓ _Bq24r4rV!!|e#9zFw3RY}/WOKǼw{_)CR%ƯH6$&dFfiEP?2t5G ~Є޻(TvgY7mQw|4=7EF N9ރ v ҷaDci6@Y!i mcNpe1? 0Q3{5X1*O@hz̒g @z-$"a鈹`&?-SSP\Svk:@\U&ap(gB7|^h5y*k 9;eMeb;p c> stream xZKo7W!hОEc!CԷIP$K~TpЋ3ÏJvg~angg թm?T'vja@w_. i)unӰK* ? 2Q]>/0/s] Zfp^׽-dr+i*,\Nm,2܀~QYĵ&>YF!=m1?#8p:F)1Wi)D /4ۯ`8^vm&ly@Ji㭘Ay!MЩ|#BLɗo޺L1gψVDQ(^̼0D>._m==cE [2ΒU' $.&00O,A12l 2hi |"C(V{U+/KJ  Eٕͺ{zqoajErY}fJG#7$3ڻ)Cϰ:WN\|$4jVКo&7RH%fft]x^œZC|Ƒ5hfZzsD6xR x\KKMs= 3%1fkn\467g#=rK1Eq}ö[i0Zw`FDz+s[fݤ &jd{R@q,/pO*@1Сs~ǎ:.b]uA0ml鮄k|j!;=g̷Q m= `S|ӑdNCCC& Bg&/_@dR2rsI*@`BU!4EWj0ڙ/MT//ˏmlΫ^VVz3JZVGFDg|r Yw*rY Lr.2E;fQI/t-+/FcSXBB)6,Z`y\2˳ņ"huB <(ᦝwnr0(mX8姺;h5S%`yOtw:eNsKĪQ+#mϱ4f5 řtd Lhڕ8C < Fa8ȽB:NW0>ܳ'+1b^$Q2A}@A,muAKi{şO&)մHqEJu{%met1OIKS3c&^scZ|Cj4y>ߦ;S~(wLT:/vÓ~1}Ś^3 J0 (c>#NJ<*i7tmkBY.rTW٣5>czqDPl[nCN0<07mA>}|AqF. VO.ԟ*3{lHZx!:6ucAA 8vIeـTXU Z&CR7 UN<7:K]u~GSaMjw)ĥ=7ٵxK<|?woendstream endobj 52 0 obj 1873 endobj 58 0 obj <> stream xڭ[ێ$ }h: $@c>^ϛ~HUH{]#J)Nx\|xl |l4o.lByzWϏc2 W|\!V:f|}=>>|*h/Mv TI^CmCި_n/OW HFyo=>6agxvD0[]_57MM$;ebmZW?o/B.xʮ] >~lz&m,>L>QJ؉2Y4|/ĬJٷ^N9gӑ~[(`nF)?o{,)f}Q]C>EaQNXMp6+岻mV|zE%0={_{L\үlΨxn,`HJ=z fX0O$t㢟ҳZGJ}(Iʢ;VdLBJ3mm(Za龜\hý$ΆjFy&+7Rl$eҌ^w7]қ 2B_Y4|h|Wi%o9@J޶ piO%8%ج΅H2v{د3A`"ރ[ 8WIi!5or !:8NgB/Y gԿݽou-r)1lr2Ζ ꌾc衧Qmrȃ@zJ=)=S1Hketd yCy߲ 8+\Ğ+uy3Lfe&3!Θ3c.viRJo4dfrjy%-䈗jUٯk9-\TT aL)^nwuJEB%gPKo1lWYYkloɱKwRXHY/qxdfMH\dㆦ*,25j 0"؞0Т0{$bϯSJQ3&= 8.gehjۂo~{}Xbwq >D]J[ŏo1ִrc=x*R^{;ZATi<8si\觹vS5cM-5g< 9 CH-؀WrEoM Ƙgm+C7X}y_2w@GĮ'/Ąendstream endobj 59 0 obj 2908 endobj 65 0 obj <> stream x[n$ }WL<Ҍv-X9Qp O=Ru jifU,y֫.zZ_=rfV)}/xes\U|UV9gAŏx$pU^o q@xyz~&*JRN;W5^~?A`U,B(mb_ӡsNU8IB"Nv`muuqJ0(*|qepƁǹb2UBW=(:b+^8*zⲲ64q&J[9:'^e/7pܭD$F]2Ww8QQ* -tTK#tC9-;cv0G13 7B&-Im%6͍T)Y(H0as:]2|mNl)e h-*G1{KPJ|y2Z %>h*/i|XF@օz ŢutG@>-5dO=lH 5x!T a%![S?H-rwAxHVmO#XJ]h+d `\Ԏ &cB|tsl@PGFqU#xT Ff5@_UW=v,̔Ts]x1kzO2*Suׯ#ce8X귔@Mt*`" H6kz?jCAWNJh:8F rNvICE|#Q a-MU~P̶F5@j-w:U?BŜrK`<.EbmUJᘵjKfn?SjW:.ڞtp1r NbLld} Y<\)_CZ'r 粢 SSJFuOi.$B;5Bٴr`RD2Z¾Lr1ZGha78p ("t8UdN/Rh%9rQRҼ񮔇 {4|4*_ʼP4.JvYͨ%Rk~PlN#q3b*}@8-f/v9#ȬL'9; ^ n#n"6 =p[F@ pG/ܶӥod&$%s86ih i! ]xhY$!խ+{'؍v.vY7y-jiY P qLy̓,8CI)׎=_v  T;.tF5G3cs}E1 1zm~_ cQO (4\%"_Bw w81ew ?8P)#xXն̳ ;H 9uF24z)ʯꍸiG,LN𶕼j#wRk*Gvtn8ʦqHc`:6 mh5ZJWsI/=F2?Td951{6GM?K<;n6Jc{7c4:r=#V57Mcniл(-1L?ynV1 Yxs B'ʍl٤J}iƳ \U. Ph$g9ŇYgwb˝I,%BHZPvEu"W.Ӫ fӝbgmBGQO5%}mO娃KdcV t-󿾛 T9%Mf=]k?pnq794!3G8p[UK+-LTAg0MOtW17>6OGD;ה9?d Vv#N8])h\PPb;"<J 㣐W38TFx2\y¼ҿ6rirs|$$&r!HSDۓ[rM[Zc#>Sw~ C!Ag7NǶ?}(Lg5i ;!?U.bV9Xb d9 YRKҦӺް Bm3ϩ-P;Ƕ M i"]K@ɑ~UۡE>|$<H>}o6k}(C{ޅ)ȑL& L%rj3i_C[8m`:H[blӒ:MKp,0w赼Ѐx >|>z* y_D=|[")O1OU׳_^_r%>*~ԃ/d;1*Wwn鞤;x4< 䬉 Nd-,^|'cGZ(syÎ=Od҃Gī̯g?@׿˒endstream endobj 66 0 obj 2561 endobj 69 0 obj <> stream xڭXn7}WCQ2o|kIJ-n>H.о;JZ A+3Cr! elg{]ˮ#RK~aϽ|^^P]I Wun+TOSjR dE)C7pU*DQh}j.i# 0ێ0춸*12xS(xJ.UiP` Γ"#dI o)<:?*B=pW>D&EHͣP1{&Fwy(e52qt'XPּWg-砶ZyBmάv TOn{YA>6\RJt^OjذS\:;7ٷQp, ZFE DU QARc<#kITy]J}pV.$ =WT5-)(6 +~@jnѾp!Xq?jcwUOhW !^h{*x+hcLVxnz`!f0Cnj QP#QuQ1PΈua}~}OHqZ%IR~pXBUWVXI1$}p%Ԅ:4 9A ]|2 :R]':ʴynu^Xkjʶ7Cz9<[X_uMۢ =G~̷S7rendstream endobj 70 0 obj 1251 endobj 3 0 obj <> endobj 20 0 obj <> stream x흭7Ң¢²¢°ВЂHA%HQHH$\AH,^]r|ٞѪ&o?c{gnnB/??E[*++cw~~QՃomQeeeC׭HyӣJYY*[k*++S?C('E2=U_L^޻K\.~zA19!5%<;Bc/|>qgla:_$W񗠁S0Z{U`t.}s ?{~g3{_7F N?&>q><;_6M}op+l%l:*:Qhnsqt-71[i|ѹTLpǛǜOQ礊Xk b1?UFf9纊x{V*鋊*|#<'Uī!}Ü%!+U;!=I%]UTIDREy:66\v-_QT1>ٞTQ c •?ST!jN&"fJ4 If>2iӢ]v٫HW)!='>{*LڴiV혒*&gmCzfnV~DSx]KQe)9Q}7ÐwOjʮև13bDUN̼UZ`M}f|T!Ce `>SFtx#/N"*i2lL*M*x =*-3?'`D|T1/)AT5[JPJp L[*T!pG7p57;z4C`3L7w 9&dT1?~!\ + ìPb[Q,3Q\8VWvl3X榊R0b$j2Q\8#CfNL})=ӮLT1?GЂRoc5ڦ"} a*NO}:q[x(f)JAb4Zk8otb"ti16}o䣊 A.1{Sb16JI2ʟ0dnMJyiV hsP>gIUNT I{BLrP%`#\NF.8 <$ 2Cȓ2eQH1'oS[*aK ®߰[Z{iG/+U8p:U¶}]7]-cNJN cDJݙ}EP~-󘟟Re~{ochw$T͊Ud gl'<\vJMEP?Bvc~)=*`.%ݩ|8mS4kV16A]l m[Zrٚ*So'=<ڦԌ ڄ?W?W&Wٝ*gSD#y̵M_gLW➼5U"˅ eh k|rՖ*Ǹt 8ܗ*#Eq*$gz̻Mc S Rx^~~ /UHwER8apXO ZHZ gaoPQ%RũɔwWm 8Pug4H1(1 2%6kpI,ҟ,NgZIډ R吙JtS85A Jp:e] $W1/\Reшuׄ߶bͶ׎T91&QƦt#A %m`Y*˹|槤t#AD)z n̤N{jsU.YJIG,#ezC`Cx[*c ,"d"hk5#kG.NN3"G&aoM'ogsc-9]}2:6E :r:7o'O.)ywwG=t˶6gDaGܯ&endstream endobj 74 0 obj 2589 endobj 21 0 obj <> stream x3PI2P)*2T0B]eig˥l^ AP(Jj216Bfi0HYF`bC95cG)endstream endobj 75 0 obj 115 endobj 76 0 obj <> >> endobj 45 0 obj <> stream x3PI2P)*2T0B]efg˥l^ AP(Jj216Bfi0HYF`bc90u*endstream endobj 79 0 obj 117 endobj 80 0 obj <> >> endobj 44 0 obj <> endobj 82 0 obj <> stream x]]0Ea{1ќdaR:mu4S8yd (<$}sK{CvLp\cO_N}7e\fv3 O7wقuSe:Ow+~JҟSןïcpu?YeIY*%ˏT nv# >\څ!9d*$}-5]Oz6M{o,N:]ޟ8kTendstream endobj 83 0 obj 437 endobj 81 0 obj <> /FontDescriptor 84 0 R /W [ 0[750.0]16[333.0078125]19[556.15234375 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 556.152 333.008]36[722.16796875]38[722.16796875]44[277.83203125]49[722.16796875 777.832 666.992]53[722.16796875 666.992 610.84]60[666.9921875]68[556.15234375 610.84 556.152 610.84 556.152 333.008 610.84 610.84 277.832]78[556.15234375 277.832 889.16 610.84 610.84 610.84]85[389.16015625 556.152 333.008 610.84 556.152 777.832]92[556.15234375 500] ] /BaseFont/GFEDCB+Arial-BoldMT >> endobj 84 0 obj <> endobj 85 0 obj <> stream xy\T?~=ܙ;02(WY\PqA SA5I-5KrwVYffYTZKeZi;~?o`vϽ|FO̬ SdtsyJ9d :Թ+釐~R'OGO*Zf1N{F/v ̞2wG/ mQyEIygHqe#hcJG~c+5GLlM%IkuUoйg^n]g_,sǐ ZHBF/.*M%rc.97egu@E{2>x|'"|rnj<<0?6^%OX `I2 U߇Vs @7@}DR$% )HC:# LpDʮ(?f\40U ۹_.n7h tZ.%=ثs?;#@(@H͉}N<--T6ċe A%#KA ŠXW: zGZ+%+XGE{@"@6܊d8OI<q| h_|lT7 @/+sAsCW~@W6Q'p>~ x d<?7x;~ {p~Os_7o|7s)qOΈ4ĥqC(<"g(šDՠh-zmDo]h/jD:>G9 #p4{~x x' <ĵuud|8 O|M|qNi9=g欄.{+FQr#բV5Q:>BKt}.!v^/ p!.%<Ư-M㽸|KR{|ſ/dP؄9nuq#;) rdG(C( Uh!Zhz BЫhڌ-Tv}zFѧ tGߢB =8g᮸;?axexgx~/x1^5y"^We ހ776l?۸ OI_se| o;~夜p:Y8dɅr\$bX.Ku2B+!TZ.ryYU>G8c<ކD@;[^@7oĆ"}p',.8gn "/ ~ k:JNԏ$%>\EpQ\4׎ssD \KK$KRI!n6e+GFM h z>#!b\`*')\r9708I3 ,! AHCw+xfW%^axbkVּGGg?j-hmRǁ`uxNF($Q5T@(e4!xa~C]I;Fۨ;)JKuSDMH$RH"貇^N zY/2 *尗Ao0:hnZsZo͝^i 5IvhPRP(Ў <v"ΰ)ejɽ b>܈EXC&,ޚ˅4W A8\3{⻁-WYn"E-pd;E lFkǘFIS.ORvgsY|r 9(1//Zna, -MBl*ԱjF-z3gsYڂ gVǩtwz譹; ~5~ܰxIp`$'h5&SB|RrVğ^b3޿HMUi0oѾU; _ݷz^yO7y3&B0B YR1l!n`|B3 J ֑*;Z n0*agzڝ)qnPph9IbRHr ^]ȸ/Y-!R&* `0lecM02Ҳ/lv%ۺ kMb ؐ).[>`hqS8 |1FPPaaDbȡz#lgB EQP)61ddɶ Y4;"zi]/vNLR6UT~#hiڭMkح+AIa,ՒZ?8&#/_~V?OY=B䷰JFNw_%O-ڷo_'y:tD6=aN",I! & IXpM/RK H׬P{]{%xv5A}/J4`hY>;FԋR$8'WYKhb 3|c 9sf!S&GR5AF(A3zJ^f? j\#ĉ'pe@aҜT!hgС tIr67\i,F=R;D$P[Z3|P*H=I;1 D j}M藔T1={Qrog|6{9W8 .p0|3Q#l2ܢ&=>ⲙ2]+ i r e#ݔC[*yHSJLBlo 6#bDJlR$0BZ{%'Ƞ2Bl Meƪ:{nV_[؋6Utb ( u)" u)ո9VD7FQKqBUO S Ӽy};a]áz1H"qx3 !R+uYֵWUuUN9N1GP)#Ti L`R) *R'3!u\A _.?,(d2FFQ@On0yA0 C|S0hAX IjN{jqZa}[dV0brdn3g^!*YǽϜv:,/wXQsU΄;Vm<)whK36ff^Ј{MzG?P^/sV<ʹCr|5;QLJdn[YSNvJ _@ )iv[@C vn"H!E7" BG89FHEl,V$tX0)Ah5C$yVChgY; sR` $ݔ-# eX³'a0˒Oa6-A VB⡛X2osNoIY{gd^!f%= ¿Xk]i-U>RB+&-{xϩϩ ;_-eeZRwqlՇzD~C>}y L񇰗x7_X*O{!ذش_/ >PD(# )x K%z٬7#(%x-^Cq:%ȠKa*X>`la*Ar!54!B!M@p2JZ$qL,!z}Ek(@sNUa7>gF"?l: =k"8zrxS_;Qߐ[a  'eW_VQ-#"5L`WgX `A[4b$?Α\RO'Iظ h ӨKXA@i&XCtIO8\5z<U )ZAA"")H2 O:@9sR*ȋ\^)gjMr.wo(/_{xH7D?fi,nJ[Kż,nkOc)|Q%{*^IAWTFuq qV>yR(nGڟP<HWHkw}&=/Ev+\ h֡CR$$z!A42elBbH$#Bh'=RH $ t`$A3P?I/&KN8s\gLdddQV>bW($l&kɇzWͻƠSefRY@*_5j+T-[tiƅbbBb"""BB#`3lhc5FL;e42 Ɉ vwPPPPn0Z HQ#$ (V@tq" =I$NhUH G^ #L;;]ٵo|yiMnW*qJ뼯xˈZmiiyxJ-t&rhA]1`F UTOJ4O d{ jUSPu8@̈$9x%*&D+FmDHFL E9 V&ѽ9W Po{=ަS3vKLovV7j_Ew3F)#7&&McpOJQwWUЌZs,/㤜,5ɒT٪lDAm$]ST34dtԀE"7xZ_5E5_5Vٕ RP+J)T1"C1AEgRu@Q2/k:;ɱ\uڝn'tZp܈&M"9@rk7fXH ojEfcNo:W1e?<^WT vشn!{Woh$Gz;$K!$&A݉'چ}F3Z\%$b27]99SQ \(=-`a*B$>0Ckj |/=';1xs^=~ь~vxQ8"18;j;K|4TMjQmݬ ^\K8P1 dR c'!̥ZDZÔ3 e\雿!\IHAV&" r >wA'[e'hI$,b1E׶3@h:b$Ԩ CP2)HhAq# cOE^0i`#0VeWܽKQK`NYJ-bXj战p-: 2p,RԷm&?ג;woƶc;/NHlR`=梖Of[[Ef[QG~ SME Әfn/!89aB"G) y„diJi.~ @FdMw~RXlG3y/+Q(eCcbM5MfA&#A &H[P!L-=Ei afx sefd&vn×D'(H]xQ6"Nz.ZkOv7Zg~!L H " QB'd$QA5#ѪIɭA?b*aInA~ޟ z |z)ɃC~ I왕3߷[Rކe z'[ٻ ~.?7 ]%<Bj" /ht-8yJ_W?F7(hh)S%~Yl2Gd-/S6„Xbj 3;@dP i",4r=~iWzQdOxX/GqdL,`@̛/7zjaq.A>Kͷ^^Rz#|Û6Bt V7_]+0QJM-3Պ5ZҜ\KqlKT!I%-h Ջ[u[L}&^%J{u*AIGVk=2B3V2dHXA,9d7K  #WU6?`w;I?ם.^v?RĶܥ/9Q[:{}Fuut/!eai  Lm&q{t5x*hmf,^4C `8*h}<,s߸A̛]cÉ?|hdS딫4[A&`7+- ܪ}8#;'SWb!JQ?3"( b2yN TGUbT2~v_"!8Wb|_51D Y0,!r pXObndT{[뉌 eE0[@5) P[-"f" ] k5մ6Y'r@BLz^Ivvh[pZB*PIEoW X XLEt RCe >cf;?/(S7kPUqh n!3{i78n܌InX\!h$Fv][VZ=da&-cЙ*hTz4pE)#dԪMM!׽E_ d|B: H4Be *}cjMM&DeWxLVFEL*}a!ABԄNx5!}*3iYvIa:&~z6ChR|p?.꾷/[$"X[>-:)q qad!CAȁUOiu  r"2o)ͲgJyB21J{E ]^Q>p8OxajpRb(FEEljtxfq52YݏϝVi欚f+?'|7a(6l)RJCGGrr˙9`sN fҀC9MgfPҩ`>[4z1%f7:LqΡ/[sʡ+v}ش*ml|W^ Hu-0PFj.o}K 01Z !7huzd`5Ix`¤`a y)8ijRka-,M C(-2ojNDQ4f&DOCf^IZQ({Dw&|s;sW};fOHx 4?mxa/rHq˔iK,]L%_7'<|-SYD`"sVHea}tQ=@bG>z>=8O8phYܦoZ1)̶x$H\8?);$?.;/GEQJ,|67H: !{KzKGqez['Y':źp%*s,#RcKZrT"C2m` 6+M @IJ}Ƙ>b}[5w'ZF- FHN}~w& iάЗE9bh`JgwT3C7;ȭf13-DR^>u 7}蹸 `/#6+/\kSG9pkU A$9܋x!3)<#XhC'LH$bՐ)'KO bw37 ['cYԮ#u٩D;nU?QftVl@@Se5[#]hO3iU|lg>ޗ~SRPn$2CVW@{K5f/>X|/зBs4 z~yh_5aʕ&bAn߼o֭n]Ǯ&ՐdЮyP2EDݕ~x-w%DgMrFjg*:L?GnFj.KL+&iLXBpdң4T{K!Fx6^pE}Fz6{zeh|~˦ D @޷ 1U?`WQXV)EIW*E3MH軾 'w<6a:VagJX hզ7B?绅^>J(A;%G ?.]>J)T3,*Եc~l3hy7G7g csXhⴜSn֚ktk WFCT6:~tS "%ʕպ- Ig6:xdXڰ0>9,˖P檳]%!aɊDͮ&H82\씄 ѓ 3S#D-2ΏZg\'xSY k,kEEsfIp8=&?d O:ք2%j,Lnh莆0:@M [-,?kz%CbmUd]q)DB`Xp#ۑ #a.A3L^`"lXfGؠ-[/!1[8я&Shb?/VHi%L ^|)H#XdYh zsL:l ~pG/Jx "5bNgMd&B/a-[0 Ҧ@kEBbL3f!4jsdljck1>K/HW>b[_>!B!-^KWG}AB4.yBxmxXxHx;BO離4Q6݄C C?v0^Aa߀XѠ4p풷/% 4ꑳ/\cǯpB"թjd2NofcKd[ ̵:3*"UIɬFdAX@a⋒aAafcaa* + ' 4j$kڦ׶db':zZh/˯#F7wEƄp LF{h Zff'KV }S\*;2l"!٧dr'q-#G )-Hqb0czֱCrT!oQ-`U *|<2Tגf 9 O>RXr̩ͧ`ȕAJRPJ٦rŇnA2)r6e{qV)Ъ8BdJeuxB>H~t),ATm}&$̓9c57hʓx= eecdjMbeZBB.)OA)\7ԍ[pbXݕPβ2Vl x̨P8AcY"$N|6t$i`:; O˦)"/ɪ94>͟V~b/Oˊ>{ߓ*bpC)KaZ΋=)ڎĔvRRX b_,p޷1\=9GHONcjQ=9簜^'uO!a\K9D1RPȈY*]ŨPH;njr=vhUi6VY{5,6k'pG\MޤLWIhÉ' {)dٗ :r}8WN{ڜE(.򥧿Ё,AP84znL>8ϼkLj4K|s;s7g-)jmN=ȏim1~HaDhw3KǗO._^:aI%~ee!1%1eqC м3S<n.n~rgp,!jw!Wxy ~O\h+Mա?L;Dcw#m͟ėNǞĀ'xi^=!qGclN:9'e'@d]Tf}A7GYɗzאk_}}- n~2/лf;7ٿug߄eS&؋'L\>)56vڴi'ۍ([Q^Lꎋ wғ>޽ W\MeLM3޽sيo ]R~^i ܨnns֣Y;>C[woseHˉ}޿pk]wҵq˞C󫩺]wsK [.՜9:pq/ﹻ型-a?Ysގ`ޘW٩ӓNYG8Est-C>J&żn04o{oU֝{f⩴߾%}-]-8Vo_pUIិJ?ds[]rfiūξs {-o9U#ÕM^mICN~(~ëj^q~kЋ{k~4ï>a𶤼Rocl?Ms7hr-MOfliۭCc-٨[ڟyo1!#^\eqʾwwq?VFz`3ήo>kIAgnIk43/oZprl{_$-Y5q }^ޚ~48^e:} lE- 6Պ 6ok<++̂bڷ9ĸ8`}]qr?NҎT/Td9,K7qN8g[[Ξ5Wuvk,{^eι׺w2rϩ{SJnä{-dYQ;=^|wQd'Q_[/gt^QG x-ArYՎ ?S6(pX2uBs5o0.u={_ e z Fz;w ǷF(fEbM!F}'~=j?'m}ta2L!jna lauCݦM{kٹ+q1klJ1^}r%Gw3?Gd[̅ҎwO}4~yFy13,U2zEm\5_jf??{ӲG3MsK n}iǡz!N~~Ɓ_5y>W{c~Usg-vcfANJ:uҟ%;ϬN 'f h }Ț=e~ѮW9_gjL.F}Օv}]~+-揽+sig۾{uW;^y܊z|jy}$h5[L*7*& %]}d_q1)~tǩ)2sǵKNH/R|/xH/yR}uo+^ss;ܴꄌgDZp區e~:x:h?z8$ޅOϼkym̉ǿQ1FULTͻn:DiY?5-vo܈Oλl ÿOZ=bBs~xigw!/=岞o /yS1 L]P[kݿ-~Y:]y.rO_G"&_2@-[y!o?sVAj :@-jiBk5xW!_ԡ^|Psɗ!sv7FL!ޛGUd õܺYHHXHXIzIwY {* C&13 o!+ۨ8;ܺ 2~~?Pέ:{Z.I )>WAm7@?'SyyzBy7B=&AțI6Y='u*SQd tWu-L Y'3z:OyHótw<93zI=0?@u*P yg2(ғٮ-Yl䃍\{@C[ÇƇA*~&e=kWu BmbTѤ nL!7i3 f`f\9hw-PG@w"2rk' B(ޞ[Zӷm0z( m<Ǣ+ =YX9|8FbF:)2:U_q(c/p9^ {c/pk)`yX^e`yX^e`yX^V0 f#MPN"yw.wWnnnnnF8V [c+plEq(㿟a%鰹S7ϱH MXDNDúc 򰎑tړ˩K@=P"Pr7G!w$XEUVvmi޼ּ|w{M²q\p/&p bSz`oTXXXzXzXZto $.*&_ɰ2]x{;CV5ϡlrӡR%B%!(@qHd8^eӛ?M䥟=F߃=ʡ3{F5Wg(y =@VuGOPғQP3lA oY_dɗ:XREE;.!@]FZF UaO~N'SGY`З;V"ρ3,[T/ɛ3 WTgJz[Ttn@-/ߑ碊;UO/Ϗ ??3???"h_4,K3cv7Wʯt<$K\d>;hOشҶVvtڈ´iMMn, \"Ef৔!˒^FMgd&gY j]MdV#vcu5,2_2kGZb~dVwڼl¥AIÒ4!"s%g]0d'tY,]J7>jV*rZ^*:Y t6liK"aKgu&-t'au;YoY-]`9ueQ>@2@FF kCzR#`,b`Y]f6)Fl3vÁ4E4oV\T#tKF8а1((?H# s ʧ,IRH*4I4Iom 4%˯`M o|BuA(+[ך}jñmc\ nƦVY#jۜO Q`uUWȖ-m'龛1&I$jRb]H: oHIҒ(uX2F1{@(ΒW,GTdz^"&b.!$9B9(?һ*9wz~]7V9*L ku?! a[ U@P[xBF2f!cV & 'bU7ϊ=R#H9R#H9R#H9R#H9R#H9R#HQG_99K?" CLd(!r @ɚ:*꫇Aޠl?G:: b'w_e?i Ӿd$@r>Cb]S2\LOOOOɏ`;%>2 H&$79̧H.!GɉAkr:țHIud,9"̸tJLNGv?{qq8ՉQ~I %"Y`"243cY/5۔D)::h1Dl6WI)x{cq n?2rbp2##Ljqx\|eN4L/cy9zvtȤ!א!1x""X| 0Q`w%Fg9t1]Ntz1, l/al ;]سMX>%ge8b|#?"[~?/`Íq{f1[QK"~?l5-4oڼs^K&crIb`g&4 K`L`\z~(6'9*[+}TЧ&S%15`t%d9V@nh {=Hk=l"[Į~Ho!B'54Jn_ ꣛kl_@$3f+ӌfr_!6NiF.DEsX8FXe·|?Uxg`>|CMB|dDG>@FJq~—3 f]+9ḟ%ó|Z3=ydi&Dw yxOt+̈1 /"o`CG_.G b"nG }&d!3&  "KH[&S`sv45ʓ(H9wan|ry2:R +k-3{$%5V MJ>ed܁ ? aI@VؽIt-X~B|U>"o.f,F9AX)}`9$!}a{Ȳ<`pO+J=b2 ":bQ_Fap7@B%'N2LHUL%c`fdģ|:̇ݥb~\!OqX 9H` , 0H;wk1؁l$r2dFNt΄9s69\Aσ<\Y֎q = Ȓ50`MMf'{;+m7{}lNiYB~&O!?#/?ɗ=[8|#~3H#ِ͢9}`;Qtd}a ;p\y9yX ;h:񴔖.8gxaÎ2r~"D')V:@4΄g69si=N7Ѕ0K%t)nt<+` i6BW:Fit-=7Ftz"= +FJO] z&= 9\Gϧ Et D.}NWw5ҭpj@Ho7ћ-Vz;]n8Ql=t;Kt'}>'#Q>FO'a/}>CD E}N  &}{.Wޣ`~L?©392_ү-~O?}?_eqf0Lz+f9,a}Y?֟Ee@'lʆ,9XF VĊ(6acL0g3's17 e>glw&Il2ªPæMcǰlfl gyX6 l!쩋-cDZxv[Vɣ5i1Z*Bl5[X; ÉSUXc]l=Nd')pNe 8Ά9\·̅"]LgTx=]ŮfװkVvgv+8ngw;]n8nc=l;eGYa"{=dO3Opvz=^`/*{g7T w=p2|!}>as8}}ɾbb_oط;=~3` XGsniCP_<;xMG𑼈Q|4‰oKy/W OG|̧*^kT^4~ 'ř||o "/K$O+J<̛yUjv8Ex9;yΝqw|?OIt?Og,~6 ?7~!o~)_ίW»Uj~ oSG~#ov~6÷û̽>~?w!0?w $?͟"_95:+6!Oӟ O%Ϳ#~' oX4$ad,8_6rMg72)=d 6Capb7FQh0FEpe6cc1PʌrxKqnoR^gJcq1јdL6UF5aM5j:cq1ݘa4f9\xg BcXb,w c0&-*፭h7F0FԈ:XolS&T4txg<88qq88߸иbָظĸԸ̸ܸ\)?~θ[?77-ƭmƝ]F1;ͽ}cxxxxxxxgx|xxxW M-oncx3s ƗWƿoo}Oq . !)D٢+(1@ yb,b.CB1BEX1Vqb(e\8-q!vă!0ȷ xJ<-ϊxI o xKM{+ć#D|*!>/?ŗ+/F|+ߋďbI7_0I͚)LAfi2lc}̾f?y9h晃=|3,0 H,6G1Xg7Kmt.mz kLYiN06'ʬ6k̩fYgN313̙,s9ǜk֛c\h.2K̥28syy\iFl6fl5Cjsfa3bvkN3j̸2כ͓̓S̍&T4t L,l79f<|BQ#@PxUg0 wݨwFҚMpFd]3 H̬n Ҫ#"UM26)"zV5;6m5aeFT;[\*UF}sŝ1sUu'ӪXQ͡@zL!fEJ,0 ִ̪NX&->8& Xk @[Gk@4b`G4U yGk(;nVMmv`g(iv .#j wdb׹X͑5Fb9h03kch c;$o\ MAG0mU@[8˔ī:m6Ls5q*\#nqوF6Ri#^HB<^a%m9.eӸl9m҈eֈU8R[6գm˖+Z;"Mk` e-X5Ӛ` Yia0iP`Uê;ssتZ̦PgS[0#^G0&1mA@fKRȐ@D;@oh}EQT)8d=1V :"XgU@a&`B^19F6;pbvgF:ajkqK Xuқx{K[p}$nL @ZZYgA:IIR$#)VH?^nV)鍁N9#jk!f([Bʖ-!kEېU"}uOe۱F!Yk`3PSlFHX!.ëAePeP6_)7HcᅖqJ~\_hɏ[/TǕËSwKS I\:*Y-w\a-Ѵ:UGxF@&m[00buYbko貨7h(ecRpVk GzKqsFgYNzrǙ`adAfZa,<ګ%Ƴ )lw4E`? 45ñ\iRD,Dm)ZnXfY>Ŭ֌eXV*O PQ[}Q1MR998[JS:ټ p+mӔ~>5ECY3RN93t2dv2d;?~0+6Ur7NFǘ (֠m8[Yvֈ3MIM`1""CgER#OxDGv*si,XƼi̯JkL:-ϩ8R\ZK[<ϥ%d֒Z[Kv:Z[pkãux:qhãuxq^^>mOӶ->-٧%dӒZ_:Z_k~ïuQuTjZGQuTjZGeҏ[sjLn[cUh̫1:ZG护oq]Ⴓ[p] ֧@K4*fZ{!N0h u֊XiL; 6E`U.k-Fg%4y|݊bh|P N D3Zi*|5%X0sJ̥1ͫvNUh̫1-ti̭1*4՘OcI)rmiS{mV{&my+<n퇲^%,l:n^ͫ(t^\cOʧy}Xi}IϕMWmԘOcIyv[gR5=&yG.+1MKrThLUh^% rk,Vic^[ҟYxMeЦGRZd-Jb^[%ɟ kdor7U!WZ5UuZ.ݪFuL;P´jUרz~0mڴv{4V18VqLeDZңs]:ILK$ZEO2z~jI:I,I%Whuy-1%cb9<;`6<9OJW5y]Zt6Z믝ЦWbGUj̧1+8qzuqjyޤ}~ݖMHڧiϽI^ڻtOӶJi}:zt|I >qqiyƥ}'mX7)/i^}$o>[=ԱJdRa[ǯR[P-;ǭW$3{[oz}+O길zIFzW5"&'Wl9FгL1JdNjN=ɵ[g_ߩãm׹w+ߕжxxKW=+m;yӼɑcOjr<>٭rknͣuhj /^5K"SpxИ>Sp_LWWதƴFwdŅgܛSܥ5©/E7w'-|1_J)rDmSWWR"N;%RHS"N;%RZ 65z])rDʝ)wJ)rDʝ)wJ)Җt|HyR"IaXm̟)OJ<)Dʓ)OJ<)zz$Zߟ)OJ<)Dʓ)OJ<)Dʓ)m 6V0??6ԘKcny4V1|kLpjNéu8:ZSpjNåu:\Z^S5SSpotEBq m)zp]T]ٷ)! 4F.gݪvZ5+pѣ[ A!jQ1ݖYsRYgԒ[wh6Q;\ԃzݡQD=IB͘X">IZWCEX.ŢXDEab9L,p~4I؊FYVmDA*xV[[v$)cڞI$0iZ<.LZOZ`+[0ieUWFSUmVՊNՖrU;Uk}_ՕVj?~KB):֧>)ŭO)n}JqS՘Oc~iníu֡+n_o[Uv_©Ti" [<>Z7Z_`zO~Uʪi\նVGնvRktTlm.Uʶ ۦUZ_GүoKzy)Og+|6lkљݙB@ͤ.cz_J3)d-,W(_LE[iΩ ľ4h YC}7ҬCt̡Ѽ'm +3i|Nf&S PXӡAKi!zZ8,jj@'0;B'!b}S-Ҵʡ_4{,X:fX=nر`-$cǎU6 i%9VX/]_%[G_/""F6+$=q=xRȝLZ^t,&g}ڃvr@fP=50҇1egmEfGjY_= RLJ8,eQqmk䗜#)N֧M>0L%?t?W7PW<5FP)zrtorCl){=sG|3?__4zc¸ĸ¸ڸn}2+s??qkoύL?'~N$ lM_?AtɉΙ 5z'[ˍ+덻ƛ'[,R)0̕WOՑY q9*UtVCtnvPtWEGDgPpǿ<-E[ny&DgNx'C2TퟺW L*xD{%?r 2bEΟs+90=H֑6JfɄOX޳\q{ܻ[vP@ټ~wwoyw.w#䝛$Y x*;#LSg==={)3dO=t?wGw?~j]fw w>x!JiW!ʴ߫Y9Y\ o>xNrk'O?W!v!t_%Nw@*K\#ت?9N:wG%[&0O7o;5r)@.'Ʌ3Qإϋ+|xU!vw)>/7_$Li䟙af9k3Kr^aL2j5f-OoC2<Ύ7 cc.YE{-rwɛ f ⭅Oc7x+|˾ko я.c#y|ݍb:\D:u^AOw}LM^ƙF22giqi=LܼdtJ& N6 oRٷ[[ۄۇ;yx[ԭBmg6!ysAHQlۃ Mţؑ:NՐk6u}C}ް#okix{G޷־m&Ք%oM^& !̴^Yٽsr 2t|GAሑEţF[2n|iYTx} GO4yJUuںiL1s9s;AE,]vOX2@-ZC״#k;N+NZKwЏ$zǐ0}2SrPN)C2u#`#vp"Pu0J.q"> t}> Q"ė \p9JR Pj-p#J\+A=@Eso0$-H9[f' p> .ADDDp"a"l8Hy"Z8-28{`KK_ pEd!Z\-Rhi2rl_{>"l| Ћpvb6cN ٴ$#!d~ !3%x` +K< p@#af9cxP2꒐L|]aB'B,@t47X Ӎ2Eǁ20#`fb&$4 h %F#%!! ŲJJWB %C8:rYp ?=?=܄skڇ~C_Я}>k?rGHKzFz&^XЉ-!B/"!G@Xp Ts@z^Rp2_OHK,m80C-@} > p !ba%XkߟX'L+ 0bK!Ёp‘! p4c^dE\CJi2ya)@6t"F~ e6Kf#@iFhdʜ8:^ڜQ` ,d72Nn A ,~_9W~_9W~_9W~_9WzG9QzGAށW.Mp@N I%>pu }11KC@C:%-D8(>| #P12Nn Ax>BB#шA|,%|Q~>G(9%|+3m,߹/G!t"tK%Ёaquc/|Ql`K M ,O9\ K[!Jm=ҺY &d6:2tf xĕ6[M4\2: lCG u4ʣY5l -\ cR@3d^ p2U@3%OD~ galszďE؀rb{J \ 000000Mi@$> 7 Ė!\' $ֈ-A>`*liŖҎ0p7̪!2n# W`K" ж**6h@bo@fX!QFy1jj5Ƴ#Y fE-]_ ZjQW-X+̜:hqi> [X|ȦC_8*u2]-Ag+a/-rg'Di31fL2 3_A88<JҊpBgP,|j: g,? %ςxʖlYPdβYl%k#Q v6; :s<-6zdrlY992V(2y6x*r5Ҏxa{!\phlβ9`lPβ98-'9`l6A`|X́HۏG(ex!J GsУ9 a3 Ҵ`*liŖjNQn sqs8k⬙Y4\yA (Wzz΃| Py8`42{"["df"\-R4ħc,g'E`)Ř?qeX.F9ѣŸz/ƱX -2WwKВ%(a JXKpX` KP ׊e/8`L% bK k#`Ö.r.gr W" "lA؊p HX;r,0rXeypv2z]+} ,ZїfҌ4͸ 5clEu2A?VU-Hق e R e JnAQhy+ҷbT[1J Q-G_В Gg5fjF9Qjj%F Q| Ҭlor mnn8mhmoGv\qn'^R;܎lGihy;lGqaې2-Ļ^0ZFaC0F#cAw$#7A䊠[fiF -QԵtYBۺpPKZ؅v. G m[w=Gȵc Y-<lq,Ʊ8sw>@s/`B'B{D8ޕΗa1’3d"0KBh!'cqMgBJL:YጤwoD/n/ $O|py O#O O'i*R@޵ Ȼ2>y+w;Q rxzJS⟞Wz_Y)Y)Y)eK@: jJiE|WcAS'=hiRj=T-sӆ`DmԖ>'r2^a.l6$ryQ(df! }AҮ- (M}"O0ZdO55)Yh8QoG!iI݊dcJC=lBQM!|@Ң&*doڲ?!ժʗ.ݪmeY6Si'+2@fڒݤZi9V,tbDې_Z*]qR>+(f&Rэ(OBHǧF1cк=s׎2:Aem@ſ sڡގY3^~5 ʑUзNEے++;&G i:pYFN˓r@z52hMkܢj&i;iCJfDIhD qtA$kݎ&a s`=6yXG]nw9UYHYkƩ9 ʉoY-6ao2,%n߅D!;0q m+պ:QZ)M*rv CFg5ƤH́N߅ީ~;=uUj5 5.VYRž AQ׎(FUI+%sviPGV? ll<8v: $dbi̍&ݲ5X^bЉҊԶ?oT#n٤Q+vqMA5C*\"Z?V^el*mr%YFY:c!2vu0fwPϟN\bjhQx3^F,"%bZ_/ˍ [V7 +ɇQV_gů5\1x 6ZRpʚWcT'ԙc#+ηz*)먭Wft(eL9uԝ)y<'HIQWuL]M8IZkcĥVeWjvۊ5:T~tO%c둳yr ӠulQ 2;)YOZW9렓=Nu NG+ZqS0 /N㚰 _` B)4aN"jG"m& Y۴j MJ9USĉ~KЪkYD|JI?Rq$=xt fJVӺ5Vh9%x^뫖[z;\t[Ri-Vz{~hm` 5ˊ$9C2Y/ jqtd;c^>|(?'x!&9җ"ǹQBm7V+5W5?Jx JpA/@yA%IӠ1|D?Sev̳,'SU؛7Hg{)Dz]oaݣo{H~r=@ uJLAAAAAAAAAAAAAAAAAAAAAAA?ϰ]Lӿ$ް$c cھ(?JbOG2+#q_i^2m]> endobj 89 0 obj <> stream x]j0E颐.\?b CH)͢mqj%! }eI wFw*8H`}^O/'ՍvJ5u N+Wkr5#'jV^8vw|b᧕h;uױr\M`j%HlGGM $cAhZݐ;% )5.> /FontDescriptor 91 0 R /W [ 0[750.0]20[556.15234375]66[556.15234375]68[556.15234375]70[500.0 556.152 556.152]75[556.15234375 222.168]81[556.15234375 556.152]85[333.0078125 500 277.832]89[500.0] ] /BaseFont/GFEDCB+Arial-ItalicMT >> endobj 91 0 obj <> endobj 92 0 obj <> stream x\?<3ϳKo>TQ@v(* M) VX`X`kDILFcI MnbzOM57}Ϝ-7?;gf9s̙YPB?!&PDMҬ6[ mXҺ/@Nftkw[gӝYPٛE5nB5w<f(KH]n6<(B 6ry Ҹ__ef!CA5% 40!‘v[ :}\sywB~k  L4-oV e40r$$$ӾxAٵVդu [O'` t20䥂^C*KqLt TDI#j¸e S2CD8@Z)2^ψ@ f=5b^缊yd" }__<%" G.y"G`h*{_vxQeJ(URu-W^^ V|>WP'd^[Vyy P&*JUSXAՒt MBhR44u.dbRgV$]}ޠsHϜ,;+.;+;3_:x6fULJ !,#kOAb`O-obta2&~HhRsZqƠ2t⃃+ kK1K@FLLY)4^<*s3ۢŌ^bjb!QIB:-<1))YVBhHu.\N ^!`<@ˏJ Y)kccY#*?DiQBԓl1& \$U: ]E3'8*1I`矛_  Xs1 YYȟ 1rȬ@  M,(08=-+KӼMiݔ1xO^Շf|Œ{VNflvZ#nbfg߯JA?hUIss˛W!6q08W -r1tq*N뗑^fGXWhoWT+8/'d#L,u^0E%  #4W|"sʸSsw+W<F w ё]H~?<_ #c`Qؠɾ3|!4F[ղ4MTF'C5o/@7Щ_uy[V3OclՈXV%H h<|`O ޒJ{%,pFHwYG@:0|9` _&h|p+~Eo>0O?eY׶,ܱ҂OqӿY-U7]>_Y0a$9D*0NVV'Ƭ ]&Mg r00!AHZ*\$Di"I6RFNB5bDxF_tފ )?"PR&FJ)hnIԄ NHr<}yGT>>pczQ Ϥ̃-LSQ2}I<-ڳ

'ii'CǚWb@O؟a7HCyW9^2' n9*iyj"SbY2+ޭlrnu_W+0Q.4_MjWK]^, |?ƨ<;LJ U}ZH3?}!tC Q$$=7%`IHt(&DwچW>^jR!|N67J bBlII ǚ4_KyFd.8NH^Jd(i@/m ]DGC ^$F_}.-4S^^@v!(,8v/#JЪ?<[U⍦E )9N$! )D1~,|8d7ȚuZԘb]/ $[tP:/_56BXc H )dTYǜk[ n/5KI}, $9i64Ph`W6ю},^+ǞDp;M'%BQ :N|fJۭ Ьal*<:ځ|y4E#I qOXpC$_j&lzɸe۲KrO("bւ'0Lw- %"P_XuthqdKI]D=5(,&ڙk֨/+fMqTqi)VƮ9g66gtqxmDD; ȤttuCZBյeA]! "-2O)IĪC,Z 0<@ )e40g? iGA+nF__ro>T Z E _\a27Ir*ҕٌ[SJF|ç4b&vx'G/]ڟ|d=}O/打+oW|J /m>)dᏬMIc25rNT(K.E^K+Y*jcHxWhwTh46$X[Lfij_SnI,}>W!>13s3sgo2"XO+n`+Vޱ͵%U)㞽w>xy?!<8j߆M/д3Llx,M/͕s`oodl-tG>8% ,Zb?~|׬}1%%;ØNuٴ'pkYi}~XHCS.IYa RӼKAuKq7r2u+rB2yaB#?y)gmixWy;Oi1W 'ȅߛ9rH-=bYmmpEtH{榶f*EYYM֏vVt&՘{ZRj7dӜIURyi8X,%6͖.~k0.,52;b}aE,&0iv6ڻ$zj=FjZ"U[$sǔqs c @?B@afy宽jJ8{ۗmۿzytڋ_zο zOV;u4b7߆>ڦR6ZѴGGSeqd{?]yVWn7nEm~}o-Tw5ZƳٽWYӾ__j_Śd٨[|z]Ih,AL2E{XuQ_'M>iovs~(m~xMl-A7>!x{}lߤn[}g+VW\FƋz\ W&SJ}/=AKR}>hv665_ eR/x/Јplu~wtMۣՋKVc3,T>0V9+?'dY,vERafҥk CzL7uXZLvKZfҫx{y1xFaC8[ ZjsKA$0hBڋݺM~]o~xJ~{BNmg viz{ߓmyS [Q}1޶ʹl#N>GtwIʜ}7?цiv>fOzpXծo]3mNC W* 2Ԙ~"mկ稸b˵n=v~yk܏^+5/x=zEsD b>PC`)0;EG 8‰YxԼJ1u[G-"RԚm++l[Z-&YI7۸[ͽfsdj,vg6dZKԶfd&Kv4dOo|mn4w٥DdԴqI&KkrioCL7q\kcJ't|HH5mv[|^5/d)-37fyB3TX&jż(ﵹu5׽n CnneIRAGT9ll_[HڂJRcTTZSX^PZa, *dK+J3F͹+K+'jKR]Q*+-.-,5J.--oj&M1JUztr0ҪJijuAamiAZP(yRA]mIU5v+YTZ1ԥ~jF2T+Յ%uZ*.͋.uԺU5d2\UO2ʍؠ8/-(O&]mVƚ1RѨW>U^.B)^mDsenj18BVFS, y1G^h3KvA.5f+T`'&djnuVko'BgTAi2wwX۬c,PC d^G\J@dFo e/,{/Zs) %f2GIYt@o7򿆃raG]gz >x:Ÿ?9#x_5Bv?3ZrǨs߻p4|sMW'/zdZ~ts}٩wZtixo}3YOY4i?udyU蔾[y'>#Dq[#V/zHt'#cX)M//r .[W @On[*'+JOqw ^`}M}uo=yۑw/4*fW~۶U@d*2ܰ,>+' ÑKA:]~VH[<52e33[?=e?ѝo\>+)hP⒨~?sRGLzfї[#I{濺o}٩'=uJΣ>'S~/~WVggfzη̭/8f3~J&#hLu@'^qͨ忮.ta;14_.oNx􋕕{gu|ߔ^d[B6g_;{Tuu>1Z^[?}oCcޑe/myXq7uי~]nIre$Bګ N(O="V;^䳝6@2Җ" %TLUc>o\;uG l 0މ^ wt6SfGifہc;ێ*nWCJ/Ȧ@o"^8q"b*U54⣈O-<5:ߟ$Sddz4@3tM&`]6Do"]6%/e)#Jol)Ïʇ}u*:,xW7WͳH})t>%ݧ;`4?@7_tSt~Hwا u{(_[N:t]VuDCkF3GK\JR&렛tF,=@c| lƛ>3zuct(.)nSD< bPQWQeo<ظKqbU3I񊍑@RUz+JRLID;@'rqdο`T IH3)ki3eh)ڟT6pTg'+ΪK PVPR[?@xuH]>74C'O-.ht^\J*r~n5ȳy64ֲݑ ipD6of{ƢC4c5/`j~SO&r>2Q>|vN`"_lt _} "QrjñƢ#ag_yȢKY`EGXxXƠ$<>LJKJ>IIIF {dRClg힀67+_;+v814IGSr(R˹E^qX$tr{C* W*_ЫEG\UZ(CB"JtMYi3*Ƣ(ӻ˼#1P )S\`Ǫif I6P ݖD<K}[/{ _쐝z(߇^on>K |5zzzzzzzzzzzzz_~3} S>Ӄrm #*]Z";LIJ x:>eN\$y#Nx-I YB !b#Kcd&YNBH7y8J&WR"'NnrlċBK / 8Ŵ t E<&|G>"/ )DcyAo?DI)$A@1(+t$$Ԁ%FJ703c;eu; zRRL,e#0署g?P9vG R@FENНB {Ne[Jwҷeei ~ B$It+yV:-5txſ;MvyH[Hj#H^c;`zȳmy@X ɤ|nX~t"".mt%&EvI\KVRx$Kmg\$笎TkvM.&JY;O B+ `O? d6 DJ-~E+6\Dz ~D"yާIQq1Ƌs/a,Kxu8uf?lǫB`K uy^yc'QF m*X\#kJY4T($y !|!r Hr+$ |ՋFDQGE ݛ_!Zc$` 0&Q$XW1$ k|MH21$N:ĨLq%BlGx2L8X6+hj1M&%12[D*2L8[Cj6 X CfAqd1i"ͤv6"V!>.|i)Yv\p9Ă`k' ZFMd3Bn]6wPF{lUt07<"U!{0셵 Ķ] X5 #՟y^$/ayfu7[(yb=>|>&' B)|A5o%?@ V/W#AMW NM7HGa A4"`(DpAGHEuT4Bd #$B +*zjN3h&xd6͡t,tHiD i5>:vR:k9 l52M3h=m;Φs\:6RmʹaGhͧ `oufݴR>X`XBe z%^Mt]MokZMtLo@,Bo8bz/} l;`]A>D({>> =L%axY}Ke }F_o7a_;Jߦw{}~{1z zOg4'~Wk av+N?yz^{e eL+o|a2?1{Y0 a,6E($ ;[,#[Xbq1;NS)3 %};a߲3;=; 'Og ~g<.ApO&7JP ^# A !@!HBP!L"B%IsK'e$G $!YH^0iB!d0[r8!O/L& B0I(P,LO)ʄrB4Zj:a0C7 HsMIWl--fEKKR.gD.u[32C̭6sWҬ,wWwJ7"cW`jSTr*dDYnp0l\ls9:W}9\pk3h0^2D =}Vk|5zM-|Asr3 *+D5mos6VB7mV؏L.wa2jqk9u߰6:+(vgꢼ𪷳޻nd%d(A[Eq&4AEL&8't6XEcK&jۭJkM} |"LYKո*yih4iq2ҦX(6qV/.J"o([w8Uc-JPo*ߠp,4@ʬhLu[8 4in*.rJKe%fUx'*@'—]AP9fjiwY[-]^ȕ_V"An<벤 \$WZJЙfYŮ..͇W:ɕRw=W\\\(jvɬu}VC33,rdiպd]9 z xSCfcԤ5+[VNv-*"+6.&C V] \W 8m@}x4T'-mH<:U*ijG?CHúǗƥqii\ZW(-*kƵJ㊧q]Ҹ.\ LnJ]౤!C_P;a8X8qO s5/,XcSy>>uC uC uCZ iYw}jY7eߐuhw jGˆ X!zCa+5bgZwWJ]i+tY4ە\WZJ'RkH+MwY4ە\i+mv-jor7]i3mһR+u7r\i+ukr38It՛]\u\. (Gd@$erL9oY/rHyFB-ϐ˃wnCZ&֩aY.eΡ*yQ*Ea2J厯r&QNA\? [~vn GlQp)2! "IwK]$|LhƩ[Fl4Wh 4'7Lb? >`>ɁO.i@Wdr=Ǹ wS_ol7hPďIH:b HA FCQ:4Hʨ?6PEC :֔ƺ{>z 4$6o4%j4#\n 7!Ut f \:F'#?9OL=IIᏊo</>rkhĀK=MMńJRJߠ^ |( (l+N[;=_l򨭒 HX`4X MuY`>X`;X`%c?@XL1-hX`XU` g,0|X |bngQ@:N9FB5`_ y у qh ^<5 _8~>Cȧǝ>x:xod֩kOdשE{ލ9u'}'\r'GNxr[Ozk 9=r1rc{ؤc>~D!;w+RܩCq6yy[yl$?NxW27!W7p⒚_+*?}rb߾cȭsr=%w%k<אxm=BVgq=&?>0yH[I yKw6KN!+ 'tE+!xcd1YJeJryl#W[r1#D ;c&TIs߸ndwQS{ez u6 &"7ܷ^/}Og}Hsv3v)xu/|캅vumZZ򿻉FS.ÂX0]i!,[i x3G^H([C3sxyask4sk[e.kwO޷p%K]qUW/_k~֬] oڴ[nrwyܻu}wܿ]~Hx=ݷ8t'Gy_x_yx{G8v':u)S_N9<81q ބLj@4sH(/ajD ` t8"@mF:ױp,Ao陈>1@~q[* sǠ<cC: m"El1Ibbg"-F,A,ͳI5u9zg") 1p:)@\ז cy5uH#򑎅jC:"D[-ǘ~HGB<ΑKσrlUt b-b=7w:y פ5ot&z峱 9CO Ccc6DG!=iLΔZDW %<2y1?LE4 s9 J1 RQX> Ga(,O$,O$,+A1d7`DH 8ldcX X4x%@硬<8] CYy T!4aZuH|,ẙ=ѶѶ!j$9O>0ш lK p\W9!9-,"@#F6 u(f3DE@URJPԪtXX4:ܽæ b$OY$5z3_X9axXxI HE؎ } -Y6/C˰2OK7ANeh2F9x hȑRY>*G(cI Vb mX>!6! [- v"Zm} #. Q U+*pV+Г+P ГAnDڄ؄؂h9݆؎#.+݈6ň|N+A`v*ACNcy9e%zu%JJV3Rp ESl*x_1p=za s _3qvf__#,pgUgf(=|FߞlNClD4!r vتkF1J@_q ь؊؎+zmay +c9&VnEV@Kݡ݆ xE8E(km@b,_цaW#E?a|S:d"6( BB,lZG ! !6B9> x?G1D#3.3 brs (#bzeGEm c>X;0<1>"O|Iq*<6(ϞĿB+bԧgw.Gf .g##x_`&x?f!xk`_&65ɯM~ lk`_&65/XMbu#$Vo.GgN4fpxHQ?70N?7K\̏bVa_$g~ʙ0ș$Fzrz}(3?Nr^e|' +3H_F9Gx,\r~O'syLR]ѦsӔ]WU-7YbJUwx($`/t꿔TI-bz4!=c}b~Ίv8h7O =ƴpSK+J&CoC$0DO̓)lR1.IDZ`Km:[ <7q; 6&hEV GNIҐ&x*G;$5$NɎ8"|2OLMQȶS1WY"?Z2W"=j8fE(`]=>OYVCX;&h:e2г*E5-IwC'"C"&ql.+ʕI1M晩F8'ʒ0~35X&o!d'åO\ep먑"]M-n>,ֶzؠږTw(!]DhYG|ǹ4ΦLz<&Z4U^hitS/ߡqEX!ňm!zhb[^&տ"O}bN*i43 Ѓ߀}F%vӺO &wO=1mF!R\'~)N oU{e2bie: ]*x`*ܟ#`Yl*T@xcv!?11ZDI h qJ]LY]I)p֍]=śB7G!0WZ{nQD9|:0hI*1]F=-W m*+*R 0;1bB p;W>i]*`ݐuCW|6TʆAlŮ0VKʊm2j)OXW iva!=^jIEٞbOˎ]֯#7Žu8%U^h0 V . ~2gOVPqaut>v$ bYV A&5z0S,jVSlu`dr]]F O_tF.-^ZCw p_:$.>D+ڗ+NSv[Z^ TcSI7Mf>ymJn+s$7e"Ҋ\Fru o)eD V??U8D#izFvi!#'}^-| 8h׃ؕ{f?`oKAui_x#HqLqxxYDflnu)ȺKzEn*Cx7>lMYC O 2|bsx \kp 5\kp ?ц ( QlxIzYh όLJK6eYz|~軇o.Ŀendstream endobj 93 0 obj 21959 endobj 94 0 obj 48506 endobj 19 0 obj <> endobj 96 0 obj <> stream x]]@@+5wK>]j>̑-4pĜsa U\Ϲy:q^z.f2 !^Lt?cx˝w}?|/ܷCݚ||n!S95qy?|xng?4(OѬoCv ꡉ籬TǘmڙeoǪ]N] @5Pȡ*Y\"Cow$RP GCAh2L0 f3b&Y3`f1,fL0 f31ka֎Y vZc¬EJH)r)E"Q9"GR(REJH)3"x\q\<.Ep.]gUZgʬ=V/Ч@S}J_oɒ{i?B"R_3e}+,kcYj﫨NӼK{h@]ߗ8S71Aendstream endobj 97 0 obj 550 endobj 95 0 obj <> /FontDescriptor 98 0 R /W [ 0[750.0]5[354.98046875]11[333.0078125 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]35[1015.13671875 666.992 666.992 722.168 722.168 666.992 610.84 777.832 722.168 277.832 500]47[556.15234375 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]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]139[736.81640625]179[333.0078125 333.008]374[604.00390625] ] /BaseFont/GFEDCB+ArialMT >> endobj 98 0 obj <> endobj 99 0 obj <> stream x tTE?Z˭w}Muf Y DsM(k}S AY5/*0"at\Gaf1( ΫA9]ު~Rߺ@ځ&'8}~Q@:\_1p+>:t^8sʢt7fλyƻC&}X0s7= 9h`e? e N_pub7<8jNA{-t?e)p>~GKG,]x'^1}ڇyest_{ w) 6Ι;}uS*,2yhuSOoqzoe7U=c}#Fv/я1$: : 0eZX;ALM|Lۂ!2W@+Z  NɄA Sp nZ(fHy ;ekikEZN vFUBK#}Ξ2/iOztM .O.=8g$@G [7@E%9ًO ͘}0fϜ,pMꉬ;R%}p0n*%=)Bz/!Gv:,3b:-p!KON|/~?7g x~A|?G?'RHPRKFqd"LYdY@24yH~Kv&L|I@%a|F #_oH+7P$"ZPэĠ8Wkkţ(㮸.=~?;n*~G3 C/R@d8!5Z2!בd YJ6gf2Nۺ%7;}r&Q5'DCΓvv)zE?28Q,Ng"\i߇ƏMY7f|?q|GNa*2ԑ8Bd>'7r yD]d7y^;yG?ۏ%;9A%ߓr$D$*Z{p牕e$q8# 8 p |^u|7nĿGi<~xދo_ҿ)#>se!}I2 "C2%$2$sdBVv%ɝ.rO Gc _ȇSWq9NN)r%D ,!:Db8)b'担bL*v{bX%k>b_1.NQS5J|;^RE)|'o/x%[_TˉI r JmdYC֑;r7i$ߐQ8yOll1WbE&%zR\4+IIr@mII"j9oC8gQ(J@OjiA-0Eo[1FryZ-Ҳ}u[>z\PAg;wp3-;P{C]k+:j :jwVuVj*6q 9jETIVV#acBIG|%-ƒhy忩U&?j\@f0af-eٳy`ԅn`pDfO]wUHnxHsY3;ZXDA}2HrjS4nLbAb/~_lq:V=hū۪AMAڪi펪*Q c1'./uS%~@1N%I[ M&.3|C 2ݚvi [lb/fi5δTa*+*K)oKۀ6~ʛ/ˉX},~;|Df"rz*08u#t6k M6oXx;Ӧh͚iE֗6t{Y~zVұʾ,}L\{;|ۑ?&'P[Ilfj 0bO0 \VM-9?}h54ZVFť:.QʯsvlIU>p0 }`3S~b #s . }XkbPO;Y a݌7ki13}5:m@Dox+tZ{;(}0*_tU/͈! aW#Y$@')ݶЇ ;W[$ ֒nrc?E,憥niLι܌nZpg@\aK$=~F|tvxt:;S֣w:M$;\+ߛ~M- vJv$FFN~~ xAc浂޵E|s{ops{\i69=?9x3Q\-4Ak]Y9e A1Ӿ0ңY"~$S~ZS̈́z=o]pTx<bNv~ixJK*F4'[G=iW9ԇ7e˶lu8: x˓v%ڏ$o}DNYp0^9J xNf5WXATHV|OWYd8~K7|k9ACVNP:ʦ+MNNL$=FfGįp5HF}K,; =AM RAͺԱԹޱUੀa wD_[R+V Y \P@(Zȁfvhoݬ "]]=LG:| :ۀ=MݾMBףH@{Q.ȄH2;ŕ31/\ڪkZFYZvY)$%'ºa*%APy־$3渦ynZcõ>E%F-VAŤx @!&]w YG|JBiq,>">ɑiQcSEŧ_ag]}ͰNa.Ufxߎ4`q*2:'q8cN'=䤢J H9+= 8ʎj+ANvtLSsWl{zyPC[Լf o{{sgL1q7GnmS'M˧޶jUd;3wNxw$}6:@16J'jV8G-:Z~#`qX"%Sa .lH~ M&5Uz xOьWQ͌25jR1\CͰҴHfvNԐU.5c'*@1 ~v[>Q@xKq8h>Smn1fwW|GM gwBFF5E%tV7VfJm*u<.Rw!zmznJI=?x ms)1ݟE;&)9RûU ! & [¥aGS`Qkwd<|{c8}֢VIa8U|jsY.BEtMдL7L53fFX쓌=`P!q!A3|ȗ_cı|2Uϝd^*,%,J*#q;RX8V#q 92 STmZ&Uyvp2M\FQ=%Ydc[.P !7#-* 4̈f?/ RRP?txqQwE\y9/z~d 9ӻ9|Y1RaĔl=MBrkD^X4KjcM d7{XL.x]JS^-s9 9˸9/-Y6e X==,/A?[- 4^7tŧ tߘP(4M#cĮ߾۳ r)ϼJݟ5BG{R;QRX-j( *v @c~JNŖ~RoӁ.pG`  c'++Rjo5 wcFYZ=y0eD U}2&d)3ntKK3 lȸ3kmo5jdAk$kJ A5Lf)؂@>zmO+smͨ:6rT[@=Tӳ(^Da I]2EmǩJ8tLj)ySz9~y x[Ytpܜl]4[Y*BNvnn>J0R~RA9}ng~\8ɪ]Œ1 Wz>qK&^ח}GM[ ߄Yx)h%mTeWb12a֧+7šM⏵M` _V -ybN7R3 GE ?q_S=2 ;TJ%WoNfk[޺W_|i;&W=3 &I9w7`Q_%0Sќ "IsE@e*Xg4UQ~*nc9ga:2H,"-c\cc܌[w:ŏX mϢN6{e; ZPeΰaA1 Z:Fd(5?מ3rWfH&+'nm@MV`&)}g=I fYl¿dT=~z٬AIe" }5ʁJՅqz,'Gg:Xqơ^C6D3/$k\֓ZxX}Ga5zm-SJV'S~"I:xt$,˒RU%LGԈo{BR6 l|_ibkwV{I^EnMԼleRDca52cP hEM-9įة.j îZ5b S*Y(\>eQ3t 8C*R BL%8"I"rGǛhD\,ЂHjNTM S q<)X`RklY`zbɨ$%X*MԳ0,I9|-tDy4mmTVQLv 2>),Z&9ymF8hE,B6BykM`;Ԃ =0IF(R]ztOHZz|t>}'@͹x]xzHXHbiDX5­-1uuvQ֤1qkS6E՘sZZx%x #NY0 KM)LؓIOYT[c5HZ+iGx.{`9oսyۛ&e}݊o~oΗ WsF:D #̸E/6 JR|'INv_>aDm#2&ujsd&= XMwĦc@$+ R5SHNTOΦ{r{4ii1ja3@Wb =)qyy)RfҞj } W}Rـe+(@+U2ղnotƘo X.v;UA\'{?YcAs@6مD_>HdÅBu ,d]k5D*KuI cGXS^Q} bl%AKXȒš'А3lQFCtCi-=쒼9 bN* PZen`*\+އ^jJy`b?ŒO>OO{p>|s=شpIe0 j'JzmBn f.4`Lp tI SeeiB w_w-*:Ze 7x8g\{9nPgLn"ҍjW+G,"]hoRJzEdtθlQ,x >|~ H D|F? yh*:7(?ΐy}{|h|Ƙ̱ٳ -ѻCwG?5|Mmg i*^D@SC #97,)(Ls3m8 3Z8Ӝ*fs0 DPQVƭhs/%;iᡇwR]x*2L_Ghɣ`q1h)œJiyx0]ېs}\K{ZSY)sUyW2͋tdvai^LUzn%X T'9jlfohz QpBw`{~׍5oD1;7?qF^Ǫ =5\ZyYZ%rq~^,_^#crFXZgn֖Zږ7.[[eν=>˃u5+FJS0JzDt*\7Q0cσyC$]p؃Q'l`[Ak^բPF8(Kr1]&c{i<4-+F`- F(RqM[in^Τ /_L_Y;wbUgoy kۺeSU=g9;5ENU>37`λWNQZ:%7\(^>޴AiFvE0I}wT$天qxScU{$.A!t=tZpRxsZbbvșHes?>E->!rL5j'ߕc˄a<9it&QqEQ&G692RcfF<4ٳ ե]5JK¡U!F&PC5f&E8Y/hHZ‰8,,?iA0i)qn[.x{a -vڷx>[NFxy*oA E"쥥tkTjN`(yjwX+z~J"z(@:55|>ZUL\LeD\>ꛈJ2db*a(}M 2 &!xڈbGRKP1@I 9EB&oNz,}}Fr BKCHMYN`Nن:,J&0^VNҳ,M+ &}R/pypmoQO䓆7$s3ZBGW*U 0>17sRi0HޏӇGQ42M^L뷸m͢tTrd!H૔f]N|ԔE/¶ζx7u9A.rs>(aVvfva.f7\&3l6EeDs8v ހGWi_x՞;A<m;aCH-JOPtC%iؿӵ%x¡$уE9 #t=L0N™dn0)`L@OzˈPO\Z|JKel $&[7DB(*ȌY_fUF`Ɍ*9;XV XrRӯV;e2@k tZJ3. #ZSY cN/=j.cSZ,KEL*Pӣ/?ֆbdfp'ĺjjm.L"t8gBoڹw96"iY0yS7pPVVa%ҾD,)l=)VTFGTͥE3SÎTqAQDHM!5#*+?g*r6rnӢizG{86dj+"V7sbQ(fPwmbXzAPK^8ds*_yY~rLD(YQ2^:g۾,{d&,n}ZZCf yĒg=͸}V_9er^VW﫿s9epN_}YOEA(F\v#5L[`>n%?!53Qffv4tEhAfcY e-&0Gges]%3q,=!m]ŤfZ2p U(ΪUҠdA97Q͗;\Jϓ&jl1-R $VjԷSPȄ5pĐvi!Kb`9@ZAcYMhI<5 +/qW,du/LkxX-Q:ԅ ;Vo&~|}\T6%/?wÒ޶3%~H||wx&m?[)^Uf]a6 M&BnIfx%q-쏗/s*: utNvN>ÏZ5 ůAr`y^߭QwG_ak$6lb̛|dڬF QiibCVSv/WeRMY%#ɩs%IdPȝ{PR$+PEWGlʗTI |ᐑ9C- -ݺtua:^݈<"BVɥ/tQWGY_1~݋Ϯs7\} ̀Tp-cPMfY*,y2K? )wƢQծhLuMd~H>r~?_qdfL\JP* A-\Bc1į=iت6*dT$+e<8dݴO7ةh2H $ΕU8΃lV6̴ ;rߐJGvI`$!a)YN"'WK>?\V9~Xk[g/3>C{QjV%T`=_ s>}wE^aso5On8F︪G>h6hʙl!7$֦ze&opܼ2B|-3ru& pq ]:41?0%tx :3,^oEw'dk460`H^"4PinPxIkRܨc}G؈٤>d3Pi;cΜYԝk5Z[IsF'\]T$Q8.ڂFE+WJ֥Pܸ}Љ%W;x?~nـ'pa+WoDUFכ5hyZd3hQW*5X#fir_sy.HY5]hU8[5pr.GOf}ChGSA)qMbD@1# lE !]KJ<^;!GpXrXv[0ɏ~5v[@5/3 5m0dga;h;jk lGmmlXY ި~N@g:BǓz,UB 锯ΫflJ.^gK~?ߵo?oy~[޴y\઼i+ x 7\sM/?=yY Nyx(㻩n^ ?k^^Wv&BDrie lQS xb$PcaܶS:).F)k3{xzpfUmMvAdApa&B9|>gz N , @\,79v oY,ӝעT'A)s鴊V)*Ah\X P'0/9E}mӭ-K~;醹wUS>6 =w/o{:Jj)5JQ٤lWZ)EJ@iP6S5S6$ VD" ( l6 ۅ p BVFq *{MH#_l /Go!/etT555 枉:'ᲭY;K5b%=`zP3'!8RIpqiZCNf[e 5I`U*u&\ [ )1+"Cooy:>aMMcJyeyh8F`'rFJzYN2M@MWt4F9ĈGNr䳨֩&u~vOQ V*))Į8F|zCa*RcaqR\<-EX<.~#GYv;T`, QE;,IKD,yDua6#6i@T+2ˊpH>5RH(րTrXFn. @988pwpu߲LkNj>ZϷ.fP[f~;.#Q՘e3U)> KmG}tɨR䌌jV3DyY^zˊ-;x N|Ө-]e>Kc?nG*5=\~bWɰD%Mb|S+ Ēi(sibiQ{( ^3^VHnok1󨺱L%Z"8, Wf'݉Z6ln&g/}F'O:i)c,=%ޞ$Na.\] X(F''u6S|NgN Ssf) Ǖyșʑ(Cs~C=6} k?)S*ZOr!co0pH_(^)lY.3z9zy}!!drw=W4ccgFVDbGQ}Nt$; Wn>AR $IӡW^I '_+әWV,A RDR#A,@\[k!N_BHI-ޒ=,zfrF},~&)Ѯ#{H2R\L7KU5 NQgswMs횝V݉0%m0 -{Ak,JAkͻuq1j"#(3RdK2XiȽu}wbp:>ixrs `cό٭bsj=BC5j*D8 #f*DrN}]NJd]eÓ~Cg)*u?GӁrSܸ$P~旁r>E!3V%tadbnU(3 "ߎ;QoМ2n H&qU~&qΡgIᕉB¼[C1T덆u]o o 2gY&/89289589PqBFgl=B 4@f}|?lP!M@ 絖_Af&lB"œz6u"l<aWؕ]=ʜPS-lc_fr#*"/[2>b1Mk6#dC#O_?YZ 5HI.H$/J:͹Hb|6鏥*]8w0~IfIRڋ1N*!x[q!|+dfo/-5M.d&̀Ag"#0y]Vڵ{3V~jq PkCúOO*9'깣2KN(̝p_˽;Mו Ч^pzba-^NЂ@{@yJ`︎(cҡ8RhǠy";sD`e gT_E( V2c٫?#"A``Qd]jV3?Àދ qͲyf5i뮺M7]9D"t_ۮz j=P#:ŧQᷩ|/*PHB:g_W *^P7LfHnajP*vW<{G[ -lz!(PjwGQ} 23[Rv $lHȶd`S鄒@B&Y$RBtQ)*M)6 RTP@APP;3;;({}sv=sΝEʞrBy1x Ih"H&')&*d/'_x-W| Sv˶*?A*ϡ3ʟe G)ۢ8I,Jk lfdAUwis|@J  6'T\²> Aƃl ?MJ\P+JD uݵ* s2"&brֱ̢ n6 kpÑa7_&]W 0?2'x?H=-Ai,{Jldh{+J9qfrD@Y%Okby~Bo W% XR)=RvB2F 5xV̲2X?`??9lw`h/D,|NW|OךQѢd+C9וZ0#&fqpڸ 7FZmPk_d#Co~:O<Χ>y;4ĴHJ4xqr+$dD 47*ɛ.mi\ OPkurL %.JRRBKەFGO 4[<ߺgOxsoP{\xO㾽3{V'vݵqǾJQRpd̃sdο?K?+X5FC!*1D4R%D䪄xA)wVbU·-T˘e+UكA1BeifA0u"S'ee>y/>I>G?UgW_Uz PJx@$ܿqPc*Zz@TDT>RuG~/AN-<āVbE a 'Lkt:d+`aW gB}U)~#t vȄ{SD,܎ۺBϷE3g!f:ʬD텋wDMycm j\Nb~so4ÃF߇'pƑ0ƁБ0|_ԑ`-Td Ti|,QWZ$ć}z<&]pUX<6xjZ,0!Z?|Bm"m`۠C {dn)SBf-X0h~r&}{T^ ঈVnjΨ2TTTBbu!Pz<ʤRVB"8((6P '*_0>J+[}8 "HDS7O@K x 6]*e+"AZ7ۗm0I۞ِ;50%ߙJ Lno  7n{ɫH?XP6out{ۚ LfekVss>/#a@}ڸr1 3! 3ѭgwҳy@X#/h,KNbl,٬n>NՒipEm d܃棜`{N^-b [+,iG*flVY$KKsH|b "XT\#xϖW#-q<^a.ղ[b$`^a#M:+DTb`V?+IVgrpWZV~k1g{c"&&0Pkx_~#W;)꫰E*\)jƏD3@;89Q%=9/K8`7/E^}مm*^";ܬ7 gۚmC k1,DEbY!*-y:1?|1y,i1s'>5U)mΞ_:cE$pIUaZm|6ў<|Vg g+1 cŖV(D>}D--AdluY$[D˦L^Lɇ_o0 ˚|UO$~WXE2*A)~)Zk,YB0JtEz&t ?$`;:\?&; lyƏNj0%! &, k`2Rč1?}NʀvY͇` ~"H꼥 q0$DNNA)suuAdlq)D*eA&T>D7e| J_ j׼/.ZBh AciA<Y"Z $An;e߹3xCߏ!)~F?@@]l`{1ivuPT@b{%=7'ҽ[ה.ɦDA&t!}mbc[Gi"[kڼYHpP`ZjT// 2 4θ'ݳgG< V4ִ@1iqմH5ZR:vdFk35 x<͈8o x?^ h2YJdd@w[}6ehPͣ+ݰ晝$a<Ni-v߱E:QtS/TA' d4v~4,lP‚xb<'4n+S<0=owi8]j 8 .%Y BbFf9l G5>[t&S0VTDE.[SMf[L͂(g|kF``-,tUVy#6L4dk⏊' *g<׹oC|')KKBr:wԼ 4y!NyR7 ,b\|H@mG\R9h81NRPRe$?'(uqLZ)`MS]uWFE7AdŷȦs]9=fHa ()Us%xIw\Xap2ÝY:_ϕ%>R1\Ύ-XZPTWQG/C> ,,p+NCgY AV3, ҶFyZ>: -k dr g'0mD.cAN(e Ἠ#!Oè<y+"-K2~5`Fkg sȚa}!'X²H[)9&5r"ֵ@)'j5!ԍh5Ǩ_<yY}돜 ޯIKԽ[|pf~#GfO3NHmK2ʠfClU MNUmufj6Aӫ ^n W+J4mUE6 Fg]gkJMշWN&5==s@NfFMۢvfQV&mN5:IoH4'@jocgAI}=:IstZ#r6znW?1vb'χsڽy[_987c'{yر0 >%gZ%4w;KoY1=9{xi IgVt<üPPݦY8=@\OOo~=ϤW_~w>uy[omAVFՕC=~FWL˪;9]761Z-mno/xJr?PTL:n C-R>Qbӿ }ɏ*qk)ş828.Z>VU^qV4MiMMeu焄'vq"GyBUgTӵiPzڙ?x&V!WSsڶLJY/ikxV'-|f?{={->Ohq_w:7.y Ex^ 8ts>b垽7wTu1 _4~7^ZtHּU:QzљS?賿~iy+?'/'mYWykOן뎄?l3Fu|O;޹5 Kod1|SֺՁ!Vm5&,ҷ|QNKͪ¢=tRZ_ߠߩpr,+jZ<'GQu壓$TXkj A6G5LW-?>sz9dbZ^1"2Z k}Lÿ?c@ǻEBKf}sQga޻;mF-}f>/6t LF8ZYA_ eKW}oIܻ~f5[:pMis1(zG*.+^/P3))>v狖J]k!NwTNZљaEU9cj4鎪NVWGKUBt-PO9o45*{d5tZI\zNoЉ8-+rx/MqgcGѸݍt6pݪu >O+[>9w秗D,Z=kM)>2 /cV,[qs;Ϻ얼M?z:,վeַfN[[qb+vwY9 B' ^ ?t]^\V4 {%Sr3ϯ;%yqJyM-.SBC/ i1J/ ˨fs{niêF[v;7횉A/tum:^1SR[Rz[WN﹦ckS~^9ݗBo6&Q_ϱn };aOt9)SO߸NVlʱC>~9`&©[hq){ bUEDِުHlՒ2uБw)\.ߙ_.C:2(g6勦7ᛦW\45Rjıc'~w:)x!__n庅t:|`/֮ @lU >.p+M?,hYHv;DXש~G0 Dr내訵|,H6V\(vsOar #̻>8 HO5㭉\&f Go\9 SM~-?$Ș#W~tRf%:}ێ{4@۹Ư}-םn,v\ ik{V+z8]oP%;.tsˎPwѯs#/ڿltv>mgoo:z֘rU Ouej#7SƵ/V󄊇ݖK=e_aLmA1Qs qkBҟi'|q/^գj[H JZتTgiUB qj)̼W='N|g?p莰wwMf5+ []ܓg??p)l]k}y!.>yI7V~ںh„ﾎmYfHΒsF,3y^;G]b5m^HÚCJ{wo!WY׾rkrú3ٰv)o<ӆ7t!g4U6]%f>]վe€kg*0f]Li /1kZmb1~0~Ok_D_è7Vk>}Oi㱝/s͗/OQ'2WNnkOz[;>u yџs }wkqӼO˔긷m.!O\oDyʽ7&.紻4r;qݹݐ[Fq̱c:CC.ʐ]pcUVc M=THߍҡEUCw&ƙo]II 5!d?Js7Z=3FH0U-U:wm$k =6e ޑpjͮwf0wP;mf<_ ڝ50zF2Tm5]tctEUe;qv>7Q\[TS/~JXIL~on<寍OṲ7޻0uC^!L8u!")nj1S駍Wߠu;R_aªsצ{Qc=Tcۓ/G{.dY.^+]VtWZW7wJ^?zW -ݣ?d']߭Z[jxv[#[׭1ޣ>&be&3vczfyƀ;E9ִ9 EpL i4EVCJq@B6߶`i- V鈑.o frU쪦3;`.O0mNB"F"H '$B91BW ”-QdASB(BnJթh (>ߑ r acwH![8r >s\@*-JhH!t | G5O8xwH|G59:G99rX;d"L@gry&>rMFNHO#  UB; YTyHk 9!q,9 mBYd4dg"SjB=N>## %mkR}A5@5(gc#RO$ u i4E8rVCGjnC7#HK\:蘆?u VkVKܲp[ 070W60W<07l4`!.;084WwǴ4eÚTRRR2?UڷķkYup:\guq]=Kup]*T"`WS="E6Wj8" eDFZ]#FEj%mvEjxm!n%tkje9i> ANS|l?N2gڃ0l8~6?6={`sVc.Ge}9hHS>;vf+nN >vӀ @c~[! _i\VB{PX^B!c0_okuLf֘Ns T7x9 ubc:Qfu|g7JDTi!Ta(BÄ*CI(tzxX4_S[]B3jZ^c|LŚQ]Pg}*An?$ggwOfCAWf'gR*UR?^w1Q5"t&nqH1'<D*!t!Z _cR4tB/!_Ro `S3HwF(b&B- B4PQbP\ Bm#6B!#B >t G,#%?-! 0ztiA(k B=}ﶠ-5"S?Fh a0[ ! B*1>Jq*OߙqSO{'i'Iz'Iz'Iz'Iz'IzVЧp}U)—G./B{ז%j$SL?b؍dAF{{-xH~ bBhz߆V[7d4E9 hځZs-:uh/jCnh6=f#?ȁ}jtyP_T*q]S^sM^C=㦇"oZ,E+EXYJ|Ut$JDAq|C6t i4zYl: "HTV8 Q숦~MQ31 z]]i@sؗZmu@`<; |6>o āCGI'֗ճvJit(-t̠1YMi/m!vA^UHu)Fvrǻ/gdp-/5ÌġU>jp5$&t BfQBY&q2R< /8>TCƑ[2iT3Osgy?oߤo>Kѫ0=35|.1}?|48 𙎟&*'GIpSM4"2 >'Oڜ4|᳓~DŽ11M g=]nbd?`osr$?Ј5.kָ;sRD)>camA/. p_h<Ǔ@J;x?HK| x#ϝH"I#EldMdZ3qL<Ӄ22טk{SrU$& ()[$%;-/C7[tl%]~ͼn~u n_t~G}CԈ cVŠUX`-z‘o 0t6mq;;b|6N&Ffw)+X؂SqN8g'{Fƒqx!x(xx$ֻ[q!.؆svXp.؁+Wx~2j~ \? 6rgBdEyx ^r+*2~W5x-x5FolNoĻn܀xxw{>C0'(>?t>s>O3_9|E| ^25|<'3m+x7}C܈aB% a?ˈ(@GI $A$դiNBI <$H$1ĠH,#mH[lړxҁt@DG@C$3Lҕt#݉4b2H&"=HOҋ&}H_ҏ; $N\2 %y$ #2hR@b^cH )%v22RN* ƪ]EI % D&)d*Fc4RGL4Ef9d.Ge~,$,FȋEe% +!zB^%zyl &A$o;d qdN& dK]9@9L>?}|L>!G1)9>'_S491Ǘ+y \ %\&WUFGU7/M~%w]b'< 4a, SUB\K?D7j@i 8Dj 4h$(ޢi q mKA<O;ЎMZzjF&S3L@וvݩ4N3 ɂ8'E{>/Gl:`Cs:A8# EGjK!CK ӱt-J(h5DgtH'A6NSt:A Il:byt>]@ 9"b"]BBt]NWЕt}B_kunf}Eߦ-nv"]t7m{^zO?a!OQz /)zg+5=Go ʼ@/K;6/+*^ #Lo_-zJл7;ĤO}C)b0C9ՇeFŨ& bӜ eZ@\D0-Vj(o&6L[LGhg Id̘L&tc3& LdAܓf0}~L& d%e0C<& gF0#QQ0V)b3)aJ;3ǔ1L`*Lpj Ld&1)Tf31Lif3e13BY9f<yY,e1/1˙Jf2 e1טי Ffހ[;le1ۙNfi`0{}~]=sy9f>d>b030GçqN23_0,%5s9||\`.2*-37/-6+sc3021L#YRaYceUJ~?bllیmΆ-06`[HVFh6e6l[۞g;Nleu3F6MbMl2kf;]+ۍ{T6Mg3L6d{>l_۟fA`6eC<6Hv;-`l![6v [–vv,;-c V*ak Dv;NeOl[dfga8K'^Gt"ѻIv#f7FLn$QD~n ~OU͆^Bn~ .2I$nVRewF7?Fi\~Ymeah 搇l VՈ5եb+e 嘤taU0㲚* ,٫l {ńB0"(VVpclB `+8STV[Ȗڬ@nS^[-* 'zX kQY[ aڊ:nOn,7D $`0( TqY]'Mm2$"ΤLL ëz5J 67%"ӫMW*\{Y @K.ŋe{>z}|q le֊b{̍w#"B3+JD-2v1|]{Xp?~׺+_+5\q z> '{ppI2 [Fe.h '[ph.V^ilv+7!6|DWv[^Ƹ|W_ S\ 6Ipm٨Sتk`a(`6֔Ĺj1 nܷzp9Yl5jxe5 G+L;,t+DYUrozWoWeevU) 4pilE:0i'VVZ!N(/,~-ɳDd*uWciz Jg6A܃\hS!)/]=3g?}>7d X%JiUN&Lc@Y/4_oyA-Zo;$ jFopc: K(a$a& K0KJD#MCgI^tR/zԋ^T/K饞RzgԳA ld`h$Aah$FQah%FG.FQah=rZ$I-IR$I$bx1IMR&gԳI9Y9YoD#Y,Hh$K4%dYah%fYah%f89ɠKnhtsh!OKy̓/ɨ%cnfIzw[DT/͋0i&IV&IV&#+i&zINқ< I(l0ysr^RV'QKr(1V $?OD %Jm@@ XTjkveg1<їA4f1jK%=nAhSG7$]Kzf!Ij̲ ^Oa3D)tLʔ`V1Cl& T0]rBVVV[F K$ s#`n9.RAz6zZZF)yI='J<[dIu|%% Kt7Y/͇d/zi> DO%=285x:gf9O̪g> gĕAk%0[%e+Kasbz)uRD K"^Ƀ3{^CF$E# O ^x(BE= 7x8}pc&/I$e];QpKR/I$eKR/I$%$Iz/I$eKR/I$eKR/II$ ^2zI%)id/I$eKRF/I$eD'Ydbr^2zI%)^2zI%)$N1W~ܘNf0%JX$,Y$:Nh$:Nh$:Nh%z^hH6E)Fg5nlvu\XݽHC'!I$Bs`οg-tLtZDt—C/ɮty1BՔګ5R-#I4QEbX%֋(BqL:qL:,Bqנw LŁ Bre=eHŎB[cؗ(<ȋ^E/ǠǨǢǢwNE"wn SJsJ:0^5 x2jH[ݗ&} A^5ܜY w |rKvw>rȔ0)O鑳.թWu?lgF?n3'u㤞O)H5SӴ"ԉP&OKY"4q<ɮ~byX?( E))J1HQAR Rb'II’%Lah$A!+KIE(更"tyDx.j[ލ2!hϥQ[B4dV\>-QUk̞@ $BHIP!d G0Ķj[ԊzҖc>hRZkm˱/KhOz[oQҭbVWQ[Of^7ÓV5qnQkP6yWװ\^rF{e^{-U4 'ѲWi&29h٫49i[cZ`^̲Z΋6sgO-G8HW+ [z^_#^-Osm=U_ի]~x\}:(׋FYTek-GiU;]}eGq2WQ2ҫN٭d}eNYd}jei][C^ˈZcze|Xr;GEEzJ9'[Vi\{Zhn]9#;K,9\ݼN΄ e>/rQOML-lTZjKO[)h%"|[N:Mg*|w+:cJ)u)f1t+ܡݥ==Ҷlڞlvd"u[БXstӎ_v%ws98W879<;|RcQbncQk0f͈G0]/p’e {Xx‡Kl%Β’KK,()/(,M[%\6WkkkUtչ\a ]\v=z)q]?rUevߚ֊wlԌƌ1XXXXؗKogϤϤ6C܏ܯ}Qg3ۅ΍94%+;w:9;t|5o?kB*.;ogL7fEg)Eg(El\}*:9%etv#:EsΝ]GUtBE'P- qicƖ5PtVu;sf_):7ptүSݓa{ {uퟅ8Ou:Ĺwҳgq'"(Dg~|g^=3?rI~&:ym7z_MW鼓[_kï}ecWz+rԡS>}_uS;j٩UjO8~dIړN,9YtrIm7}k_pgF5Q2ό~q}thhhs=s_M!t:s>souo;yisI9?[>ʰ9~"W^~ Xv{Q:0ϋ}|˫{Г>Ej˭-u~ytk!f!7ħ#∘&n}D܍['8)~+GĿߋţ3XvϋxV<'~(k~) GF8A9+BbPD( ~׈!T7IT7{K,|x@\/C_GM+fuV\sI"=֕UA! ^uğċuŸ-5P_kbqUƚquPudYǾ=e*dVϲeUǬe\#M*jj˲bIY3+S1B̪X,Bu4RLvYq,f[JϩuQ]JUP?d&-m)i쟷%W_`{EK߰mwϭekX(ۯ캾DD=f}]zV7m}>գz\g___ߠXQY?ߪߦ߮ߩߥ\?R?k IL`O?GW5/iNqY_:8J%2Rg\fw.w9ho]m>oCnFBl}Cs-u\vm ThUCjojqaq rm@]."F{wM۷׉ħįiKLܡhdMzLr$27:)M}#j0w|<ӡKf%f*0Kl.P Նd!jdU YՇ?CG>x?/|/='Wc7o3sX?}/ѓ/ze7o &)L|S0Ma7o ~S0 \'4FF8 tyԦ0F؉6]$3 m$ifIczRivEc1 ؗhB&FXzIn"'d `a6{dz#Uk7MW'HX@ wn}E|$<xbmU]`S駴 Q8Bx:ƻ4#-ÄVڳOG .cnUt{{3 jmyuV~4mY`-mpˀY Y j Ȇwm:4や|L]|`)?P߃U@wX 8Jx$|'$uno'g <( ˉ#i044I}9 _N×4|9 _N×4|1C1QB5ƽl~*};&a5XH} ӳs  X XMcTf\ k9CH'l"?gF9#6F>zNp2O&,g$K.ygX xL2^4Ӹ m3=3{ i 灞OLᖋWŬ˶}f)ѹ"^ҪAXVBO@7$"^‹\OBOBp(? g34X&Y;BHYj#Vk9 er`TpBp[><͇/%×|s}ɇ/%×|_E>ȇ"^\#d/fa5E^>JX4XH΢oY$"|5о XFwd+********* XUL^#kɞbF4I`4%bS\ N Hs`-#Ic\4%rBW`>/,! )Rh)Rh)Rh)R/%kˁeYeU_~9W_~nZ%Gh( [l) ƒfFؒ~]TvR5M)aw=g nà#'Eg[AAH2:`Wa7H&s֣ӮM`4̧ANmH ]iiah&r*w0 Nt x 8#DDW"+ᕈJDx%ٖ7[i'-+mJu}%mvwt0}7ۺiWhmA#4:l****[\Er{ItYm8J-| Ʒ}[('AG о `mHXGw>xccS{s-F|-8s:Ys~-GkaZh_KYk)Ÿ% S;Bwuhbt1t']tד%Ibsjbζt"z .򑑳 32]En'yх_ n]h9c'}jMcaǨc /ɋ#n8nD+F7ƚ /mہ<7mWN7fhmpw7@{ApBƁ ~ {{hvSp|0@wûk=Vn=ywgzW g|mDVlЋ=kfaffv#6=;vk 97c،L2ض-$MB~m9[(EVm_[>o:9|gVpw9J[aV̂$mdkVm4#NضS@ӈM 5ے#Ԧ$M H{,xAK샮>#-GYK"s5vC]MNҨդi5g:r$!;aN;aNcNDl'|w]XwameKRF i>%>>胏>;d`U?3O;c} n#;K}m* =AAHK_ {10pb@%Gu9<AXƪƪFVa'Lْ0F|°9B}k G ?9ȉ@{r"ȨI{p/A`QD)D7 1 hǠ1`s cԗ1 Ch9Ch9 $>껋ZR'Oo ,L!)ضcd~D`?ZGfff̠S`O9@{.£@okw;XHο]u]&aD,cjnZ2:=_; qV!V6WkM\R*zmI;bI;%ǝ$r> ֩G$x"v_tNIOu>|GҗK$ =]IDNapYmtWFNjt]$1}4IO3K%k )ffHyvaIOo+|^җ"wpfyDfMd"YAO=YIcd9F&jcIcd9F&mIcd9F&mIctnS-/Nta3_r$=3?}o]]yYmdѥh襠]KLOʲR,~KCxO+E oNVh8ь> Nj(ZYft'7$>M}5~*I-zs7'kK% aCDDY'IMfEw|䗲|1{F =H :]Ԑ~M~Rme"?J@46 A>9dl,SCvRFOWfdm$D%Dl #5$={f43Q,fэIOBh?̨&aXwᜰfNB"'=Z9mȼb{5ns M̑OF۔>b0ja<31'Rerd"saeGW#Y1~I_ Èt koEsۯ<@nȁmyhQζRM eR=t^,׏L3#ZC%# K7OK<(&߲ؒ>` ls7jA讠(S֒ec%$ `Σ,Yݔי/ rG }Pv7e\ r}ˬSM 7Du'\+b D;(EݣV]g#!ρ) n*rq"kiCM͑c b8#֖?onJ_f7*^DH v쁔Z{9WImkn:%2Vn*3;NTR2//ksYR2e~q. lZ[LTJ-W#eg5WKh|5,ktѬ|伱ȧc>X4|{17d.FPK/~D:[ų*UxVfzغ[y'/hf&:i:3Ǵ+;#r6oΪ!_(k#g=O7s=g ;#a><=Ž[93$/x8<!ylXMf|- ȧ$퐖eZ[A /a ]UўYsndetIK;~]lΔ s ն B{h|Ί'Jq'H7;V}F{ՄI=P6|I{4faXx9 cM46."X6Zac*al$}X4Q'4Z!_S+_nFbD}q?Iɐ?a$AF؀"-C@H$b>?!)*5р %=@X?f:#GXd*MԚ+PGB{x-&, 3a{7nJ#1R'p5 #`-x_7fkI(, k# @x"33#Eoh(@a we3@x YF$Fx2oRzÉ@5l찟o eHN%v=qO&*y2]F|{|׆$:WAP7*7n7DQ~21J`n>Ebruچ/b3㬭u/[f,旈Uw/>6z44e>0@6WFmpð@8Hg}5-k;5=ۍ7wN͝"‚9:QP̋#q=bĆ3+oTB^SN(_}6nANl7O=g G+);)7(xc{hPh8)w'I4Ye% j})+} ʪncSy>byZCSg$@E1 徾1e^GF8b¡H"%hfb#(gwC=, w짡1̄X3qWkȤJ ĥhƆBĝ> ЪџYdc23OZ=pa0YukDz|`XP-75 U˸M눹[5ƩdrhEuu*rG"s"`})MA2$mCkVJ?3607c5,`2$H:u`T L{wjGF4M|/]GF<,#?ۿd[t~~h, ;0NW`4sw89.w$l>|E엏#A1#&3 l?;.lGT׍(]1:#!6 Mtnsus#_Sۯ_H"oNE,ϊ:#Aag-+E9O^臨V~>Lғs9IBkRZ:o&WgHt\M-ڳlAO#&?;)&7˨_)]d>\HߐkAqHb8??/&0qL1qL1qL1qL1qL{|hw ]^+Vd~_Ima!ĵ`v'V #}F?qJ6Y{|\cpPendstream endobj 100 0 obj 47215 endobj 101 0 obj 95582 endobj 62 0 obj <> endobj 103 0 obj <> stream x]j0> /FontDescriptor 105 0 R /W [ 0[600.09765625]49[600.09765625]57[600.09765625]68[600.09765625 600.098]72[600.09765625]75[600.09765625 600.098]79[600.09765625 600.098 600.098 600.098 600.098]85[600.09765625 600.098]88[600.09765625] ] /BaseFont/GFEDCB+CourierNewPS-ItalicMT >> endobj 105 0 obj <> endobj 106 0 obj <> stream x \SG0<3f%anA$a_D (nX[*$hKնXbm.ֶfVmb[Uܛ~=̜Μ99gn0BH8u6-k,B7:nω/.DH:BqVM B(#nlt6w'2#B9CnA[OKnqPZ:VAfQZU1BSmK::U B]0^谵<W"4vC޹3}vE;mWʪqvBsڜM6d[v7?{˅zl _#_ Q,BCG烗A l-̆W5:jsч/D[!F*D ;1T( hb1  ݃Ѕm)<4L mCx){h7rO&wQ*̥SI7XkH&(Sc V!_A:Ta\!*z_〛GՈ O^> (ME7=8;7+PQ'ZZ]`򡸡?Ef^t}3q=tb P%Lntn <'T^no+*N8>C;b]6pM.i"rգfݍކYx&qyȿ84yh'H t(@_+-E7~tlj؊T<?L0r2Jv?‡\@$Ԁ mhz |Zܯq߇?檸Mܯ<48qp7Co" /,(pUZ4ـoKr݃Fo>qw|x]Az^$y|-nn徆 ~8w~={Ͳeu.fkfhE$qI8Up Ux=)r'b9Id'~_']\uB.d"D^oI kQ|4&8%dTÑ3@F8D P? Z#njBorV .-Vw\h/h5^Bp Yn>yJI*gN?W8̡`%wwn:WJf ųO1d>8%_goxF]G|3yZ8D%(&*BVf KP)XrЫ)4 47 ]^5]=,]غ EӋ|6OMlT Zy!jC9'uWs#-Z.[vHr%ZVU[֢u W^W8 u+n@7͘w bߎr]I{^tx9 މ.l^zt8z|Siz^D/5:x7Л¾C f}>A` (i} {k߀}Nⲟ`N_AoG?_ h QVՀA} 8 lyQ8vh,q6o68laV5j6.3-Ɠ▂,Ǔ\^sgx6W๸<Iޤp#n؎[bد qN<"/=x)^/Ư+ K|:Wp/^i`=7f|X[x XNowộ_x;~xnxxދp?އ< i||9&@t|J|N/ȗ+5ߐow{r@~$Og z&'!g$C`1G 9bTԜN@. ra\8ErQ\4rqx%@,ȍᒸ.K"7Y\6ry\>W^!x" $+ʸrpM_>Ur Vs5n.Gu_]syq\!rZrn!Ƶs8<\7D%\W˸KeVrn-sWsk ] #,Mh::nWޝu:ҹvT4ۚ\snrvGs#/nt6)  Kl0J,f6UQ&uKVM5u{61.V3mtڙbs{uLU(V9|%fUbe&{ͦHZaluTU㛩7<1[2~x)$ɶvqZ2[[gMloN p mu:;%fr}ISBNt;n@\mAݝj Z=bcsq5:=*[s5jJebk8:<0pvٻlm&ۜ MGM;/p<>ѣ*O Kdz /@^ [x2óSd{1gzdxk2}2xfy;gz3doSwtߤ^^R|dŜ[Qtw69*@41wyjkXh^rU (8hsZ\ q-sTnyfW9:5{($չ&;("_sww[Bs9;[`CU#'=#+ ˧s3S,;ejgC_Q,7MJj[Kan&HeD+hg_F!<ӂ& QN7eĘc4\|+$ .wLQ!hiqB21:%ðrYfhv4){ۼL/!\Yޱ@Q) rL9;]p#\M -.F-w --xGu#aXvx[]L;3`KLmvU2&aXeJfwsml6;.V-B:c]fL7} pK^~Va`vj[5VZ : MNG&{G<͈ t{b%u1uX ԔeVU MeJF,Ԍ謮l/;:dl~4Y)<<4aN!fAl#3nRPHsYnvSV\i[!ϕ:YnbļZ[VۆiHw"ݣJz~)%=tl!#M$,q.atsVtk9)4#=grs$ǻGr8S4^(;e,r|PA^(|sxHKaIaIaaaQ/Ç/G_ssssss92}sd͑#7Go,Y9|sdKo,Y9*GK\->̹>̹>̹>̹>y>y͑#7Go<y9|s͑#7Go|91;>(tג郲|PA>(H1LstxÙ =dBg_dS m" I eKq2Gmv)wu7v{fUn^n벵.[F] w,S0Փ-pdPV;ȶHqx8-8\,pv[,ttwpY}a+O(XCt Xu9R 4iZ$7+U$_@ f 2p=vbf oK+x-S3tàA%PGiG1I f` b]F݈V\eRSHU:]*ݏq]%Z"ILRQ<! (Ղ$$$BQNb_DcFDHME!,Pz$@;KUQ4ν4c a-1ipv\tt]Z_Tc-]9<9L]Kw[Qy./|py./* yxLxu%20p*cZlΑ%US3{&{{ʚTvfa*kFQ=:㣲nawG(%Tx-b"R!R%R#R'R^,哤~->p BE-Ȁ??-W@+hoJ$G iuxÇyB>0q*]rWs۸7x __篕='Vv:vm쟂Vbx!QBP(LJ¿ 2C!oH4 n4O)xuF IcҙpS)b2L+MkLW6]ofzд۴yk7MJ,L&NJlHlJlI\xBvJur)<3L3Cg;ֺ_EXGu n&Yq[S+c !X !߷ֻaZkB&ZaZZX,Z7UXGZ퉗) kM>k)9SN:t!=Kޡ jaCC? qv+T'̓Ƀc8{쑳=xϏJtl?ؚc~vM=9Ǯ9zG6zK ;ud>,GG2$.?\vpÙ-?uXwNtԡ=}C0ˡsh硲CJ8p(6YSw*PܮMEq+a'Q{{%^ 7_J^ѧ-=[f=SwJoB8$ϼ}{;Ig;I/j &rcf fWU̙[[7‹/`CMKw8;\nOKz.te+VZ}뮸Wofk7t-n;ܺuϽݿ܃=o={y}ɧ>̳=‹/ʫ~7Bo{GrG'OX?b5l*__a>0x@h4A ܁V-Bl_RH5%ɡFj ܃5aЉn(K4:%%b>ٌD)@Ķ)o-)fbaa!XZhhHr٠'f_03U %ÀxcЊV3g'V5j [b&1ՓP^Sj -- orOXPl>9pRzI'%PUyX::}ZjZyW`@FTHLJTL L|ZrOP:0<i#9[h]$΃6]DGh:u@l(2ؠ' `1SP>ZS:fYM ӹ8oƜPMŸ;JQ=nUhR1==2.'"26є@P)Ao2%h*S9a8ZMEO*Rsq`S%ޖ9/Qf 2㫬`Cf*PkRq5&߆me6/444tY9d䬣|) &ݤ}cv9{TZ.ۺ}Mo,uɼ]- mplDe͏2ԗ+]c 45D`aLM@ऱf߮G&)œ&im Ch kSn?y$$=UZPSYIԤ8dx#4!UBBRպ 合T]ptQ0Z*L !"s!}b@LMP ?Q'>~X hZ_ԡ.W}=3uLxcS3&,d/::#bgV޹frWK_[aۋPKO4]=T7CceG{ԁEY5$HMA*ب@MK~8ZB*:Opt?5|%$(9xK12J9/Wj00qFY,١mh+IЕ#B`CBD)Ԫb+c;c7FS8CeУ`# 愋T38 d@`8j14,ȽF}^4&z ?t:S7Jз /l۳{k><|'BxL%ld-m6XKQDe#OlQD:63`IxiC{!M6gdpP`Zctc9yL1NAY?7%Q|?18 JN6#+*W[##*VhzکިީRՑʌ~jբ_L,dZ2gn䁊=~v'EwptI)ԣdDPp k"BQ4/`C3]|m9US4G.hns>~v{7v:l3kZb~r zqځ5➇];Nh iP@ūB"!2.X"J_xQF|tN%,V!Dš~.5j}LR^G̀#N&6 Ua9"F9HpJU#}OL#btѳ3.P=ˈ q [ɆB1lMBlXa cJ;mY^<~ ک7o~g ac9,yy,pt?)plJ Ti@*  QCX]^ GH/)P P nE:`Q( *uc:0]z?>1y4㋓f3F3bosBEԸ3`FR PEjRUH!Q RГS+'$GJ.7S**§dM)kB:49,pc geedg ~r5ԪYj-)QO(-өBiS`pp68XSkCFX6 %IbDF:>~l!GUȚQ.We䨳 Qj:mʯ*(/WO/+\Fh1d,TYiil6ӑ< #&,T)W]\XZY8A=#)<̜u_؁< B0kք0%;uaB%lEgeIvKݒ[2,$[W$]Yj>4bFXXrXvX ~\I"m]%eiػN$; 'bLըS1sR7`.@M+4y4ߪNbl)qJXm8M 41$&e4[hi&R,R^J4v7LlRb|ֻ 3~sQ YunP59W(P,7)m41:A0ɗY(1ުAX2Wfn|;8#C9hGu@ձeޥd]Lzdreܫz;GF7H]q5}AXH?:gm Os$6zM`,)0%/,]ܨz~_{9{wQ ˢdya -Koz=h)|liZz5 -/B EH]0Z4TrG9Ev`IȽ!ٓHyз(|Q4VuZ@F dl Tu=maޖ/[ݷa.r黪v^.プL(hTFƒObqN4 )ͣc>4c1;IMV3=vfA\mݨbށ/o^eHN͏-㈽2vEY4($4":&VTАqS,<=1cbbMH:Ѐ XbeC6RPNNQDft̛1\Qg̊1w+Y;c11~\k;s"%ųY<<Ѓ%?A A>Ň*(GC_ԡI޳SIs\ NTBD,\btaȳ,g5ZZ}QMLX4lD{AnGl P|rZ/0)ago- lP.TFԆFPb}wg=`crCz05"`^JH0'%T#;r*J=腠 $0$Z [oXtaaХ+=TkA LoF裢 G8:*9ɔ`ecʴrRH5&S%pPXM-it-2*2*ZmLIJ0+u ܠTTÌ)jq 1!)a_ NaxRWHLjv~icE;k;?=BZC@{^0vѾAl1EmjVC#6ۭ tKW2^)_ݓnݧ9Y{ѓc:^¬Ol&fMOz!`l䲒HeL՜jH%VU:0SQb?{ 8TUlH;ǔ2rvaLTJ=Ɏa'Ee72 M_T$}hR>4$tbз{Ca_~}~Ҫ!/>b@RN0)X:(:&av R>>t Nud͏w,3Vٳ'!P>LzTZ$zùi<{ʏc1[&fZX=@}@0gB<9=i+1U MR5)=7'>ӥhM%B8{I$1쎌:"˄Z(Xg+ޥG{DX-)t"7wh%@?ĺShl;1Xj'4 @IG{mʃnSaT_3ѧ*iz:Of_x56Fn(Hç`d$8SSۍ:2`U  *VԊe5FFq>@[x[BjhJooxw/ҧLjue}8hӪ e oU*y6 .墈(&^L >r %"Bya֩ sn:e$2 ̣GG`>L۫M:o2)Md0*̟0.d&{)3oM(] oXj?`Ӳԧb0"?8"c"f6D薡t>9㋈_P)tWD[  V[ Db1HH4/Pm`z󢌆jL`IIͽ ik!qL3݊} S9%, -9|\M{Q:`[!֝7eV]c6dNXӲTi:%v-,eY70 \͆6s+[n{zmC+ػk2+Њ RmjxC ׋Cz\nʺl]euoF[L, rYy:`~l,KʈbWFBDȍ xO/0K粣ֽ_᜴oYVKW}}?Җ Wj՜k->Z1$#=#jxupQX!TaݳZf RK`h U[{cPew-r4مN'=˒!6ϬWO^Q]'ͪ.+M ĆZ3/=tV9XUWUлi©KSRVE@T}}0o6 4o׿]W[^s_䵮k@jc`Wnx?vekrSa|Csnp[ۺS't{s?J}woRUxZwYyfO?sVv ]椣WۯLowk㫁8>ՔƖϟNɋ<`[l7&CzYӾoj;SS.V oV^)lGqPڻFRL@m?K(Ӓ. <٧%vak-6]p]nd%+}?ϲo'"R*xE0~GZ}t;R(.u,px`ŠRv B0~)Hcl_),Hxy0J҂2X=FeّP̶7hLDN2htZo?swj쏠^IVcnz'毾 yn}YqOgriUf{쁊6Y_Y+7|ɖ[3j/}tBӂ[|[ٗ?C~>\?U.wjg|h?<^?SIk5K/b<;o™V/A=~nʼG['=^ze\=W=آ~\_<=5Zq[ qkۧ|j٧ղtbybA? jy#UWW\Rlo K[FZ-#{!*(%gD57Buֱ+Ǵzޜ&ͮ.[<{vꊲ*dzqŌRxf?ez߽l<~ɯ+6ge,)3k&}}o^gYmL_P Kt Gz㒊KXx1K~K@>=׽VYۃ=o}uDwMuZ%`?;.}Z?TyHcܒ/z_3;u g_љJhKI?o\p?k~.ٶ-^<}5~Q[>RaP__,]K$8Xҳ2M}ekIĕB/TVj_ .2>?^cӮxKH] .sщiQ'M196wVАPO5lʽcǙ?-8n^HMo<0 xWU<-=7AR{Fҡq!bKT1_*}Bo(8}kU+$G J pQ2~^^+Q"AU(`5%HjOK$_W4K}_߱Bc_#$CY-̣ [%X4JKU`% $X2%Xr$X2$؟'(-8~O\,>L>`=U4 ċ$~'`GG` Fchd *DZLŵ'0 l^ K! $|QdO>|;Q+g0/X6wԴ4JY!q>T>qC/˂R%(È6g?CB .9jsO|vVjZj(U2bF*73tNMbF3>}*a@O 8ɟjb6GuQOJRb of4-fiTYo+XF@n@y(j#꥝1nxN&]?]AN4*nciqsg<e5_3 )եn:?ǝ+,手av2q3=}^z=wPL3m WOj`e>J#4vAVZr{37ݹ3MGB{f5S9K@S(\ NgePS)ե` 5V#fj_5#63]dS=>a9$ʹȻzWs/aKXQz.>;vVa4p4[+vgϜqpH6:X}P=L]LSZYa,%盯YTٞn$!a>g)]+>gYkm7ǹӘ` Sd!i'-Q8`ְߒ b Pzfi^5"Hv[q}Sva|^e-pOu mdxlvq="]#zx "])tZѰ~T]rnj2pat}N %_##}/>qOҽHEn+09>Jv[ghbF4"oP,CY?8b<@^X1ؓ_thɒ\ oŞq7?=m9NBu]p'#?k:ۚ҄RtG UζnZ?IϷBvJ.%̴/M^#Z YFZn\x߻SjYU$RBl~_-na!~igs,L{޻[Z6!dz l2)2Pb&RbEdًWLRS8-<Miq~ȍ4ՙ$m_:$2dV!--'ff0SRhMc<~tj e:E+O+sh:(]..zOk3Z*6US|Sj>1 *r6Pb =}w6䓽#>jZɀ02ty[f ZHϡ|@Wza%R@wQrĦcr)vYe-G" ex?9 OfӳzA'h(OS5aח4h]ݪmUl 'qَZcJ;pj&$ALBA-A) Q6'q\8&dJv*5MjȤ<o9耤i:^@^gc 3 8=Yl\, S+:CH6UhAPoJVs3qpQ1p=Hu1mh1E+16,V*o (p0m^{o#g微vnC񮮞zu&ѱˬs2RUztc\aQSκH^%Su$%L.wVekZ8CkZ8CkZ8ï=͕>i(6[Eosp/M/{Y[Ļգ|>^3Q& uB6d;eؼ~[neYvv_^܍_ 4W.gu0IGɔ|Pڰ{9?_'W,x[8aH'n@':F$_i x -{u'M{gWRaW  5[EvNgFJKFZeƘ?xft3#ufC !<4te}V!Ƒ֣Ϝ~ `UJ~ոؼf#uʮhmbL= I/ט녤Z24ڜP;'PXUGTg>2N-JlpW8ܑu~53;=On[7pYr׎3:~±Zsq0$[_Q6;Vmpv^*[y?{)a~ѯ>;{~Q !"?+MB|^%MB~FHDTohyۂ ,X` ?۟|篂]߹Sb>9(endstream endobj 107 0 obj 21333 endobj 108 0 obj 47022 endobj 61 0 obj <> endobj 110 0 obj <> stream x]͊0F~ uQ.RgaH)͢0>-ɩ,ujH W?g7~W.ī`[prU/a_0N.ޟ)++F)vY8 sߋ5.^p,tm,O(P;{?oŭnU vvtևn:l_ħi2?ek`w!mq{QTuQY@*!U=& JMJ&%DwIUBOjjJj fm =A""O'ɩ) q8HiI4F!4~Q,QSS4HqP8hld p08(  "!"!b LF>cnW}58yU[e{+~endstream endobj 111 0 obj 431 endobj 109 0 obj <> /FontDescriptor 112 0 R /W [ 0[600.09765625]6[600.09765625]16[600.09765625 600.098 600.098]24[600.09765625]29[600.09765625]31[600.09765625]33[600.09765625]36[600.09765625]38[600.09765625]40[600.09765625]42[600.09765625]44[600.09765625]49[600.09765625]53[600.09765625 600.098 600.098]57[600.09765625]63[600.09765625]66[600.09765625]68[600.09765625 600.098 600.098 600.098 600.098 600.098 600.098 600.098 600.098]78[600.09765625 600.098 600.098 600.098 600.098 600.098]85[600.09765625 600.098 600.098 600.098 600.098]91[600.09765625 600.098 600.098] ] /BaseFont/GFEDCB+CourierNewPSMT >> endobj 112 0 obj <> endobj 113 0 obj <> stream xܽxT7>sl=ݔ$lHJ H@"*vƮ \^خWЋE/ Iߙ4,7{fSΜ)BzC^ZV'T+yi*Bb6/F$CHwiԶ y {>yA!O|G~B 'I$D2&r K# tArN&Gc9NNoIpow{0'HI ABI6K&rYO6frM'Vyd/O^$/Wɛ]w!|N$_%om7RɵdF$F&tO _y"# !]i,lq8K,n)w ÓzIyPJA$r$"S l#S!|L 2Cf6xRv/ g&cٝ | Ȇ c-װ6/amdmbm^fksksj"mV X:a >-E#A&xfjA+Q+mBhX)|= mO !|A ' O ظq7q/`㾔p-kȯUȍ,qոpQF p%ٝK؝Kٝi"Sa +erVskm9k2Zu2]Wh+4-tof=HÊQ/t~"!?d$gpYаJXm h8bbfvsjh ]H['"!,zscVu/ǭx#ލ?ǧ88|}&7O|!}&_DIjCQg))7vVjƱ>V?`MlF8rX|l&r4FϱlJ6z /lĿqv֢Zk1xx[t5`ύ`M~k3Xs`O~#A,e':X: ?ɠtPڤY c  I`K~(7Tdj2  RKB4^i;yXSp;X@>:AЯVylӠEvmaCV 7NXZ/@/ w zGRtU4ka^0/Q0#p1uI< $ a6bѐx3Zla#ޗ3I0Fws 07sI~<40O !yAy !| I;Aj-^ʋx1uW=jx/o=wn@X<' jv&? <>l>/<^ƗP>kCW ]X p2T08|RJZ}ż瓂>\LJ.UdnLdXyRXdYN.զOt p)=M)SΧ\ӣ|J9+@O ϧq; T  `?'Apfd3\U|Pst)nJU |A`~jCL2T!eLe_ (Qh%&;!fB#a 0SeKȁcGe~=7y'@^*'SB^?KOV0  6psYxcgf]͢* RHTCV>,+i3Z}{7Z5z5IE#)[E2{i%Xu~wwu$A)'ZAIj毓{V 7J7ha[od*VV 2AH-^褭DJU_SZֹ֗?T%m=on﹘<MkeqiӶ7Rkf_JY+P|IOV6oUuϯ88QEWK:r7xJ$KgIh^UX1]c5g h PQAWBn[냀 9x!,B~zⵢah83U ط۶%8LΞ^gUMO(oHLOsp'Eq(ERsȽfYԆK‰mB[> MS4=0'sDL|V6][ 'ݑ {ta Y3uXUǤLJ^7}dVavfEfH<2SonlipU͆61ДFYߦ'繟h,ɚM'PO89ӧ/fTMU@?i!\IFh{D,TgefgdfQBP^A݃N3kVgXNsulX-vyA"wY7w^mSw), k,~u!s^ϭ~ l"Fk:mtg s/aNϗ59rS?VXcNtL'*|Sf˭C*s<{BQ/ L*Ԝ'+Ke ;٣I^ߐ}s2B=DQ:Nt 3< +Mc1W$ǻfhZ{XaZEqMYJ sUM㡞/y;]C,щ3%ޕ[V=.yX]J !aW#Lt'²ء<>}WXf* (]=Ps/Y5U'VdqPQ}ԀiNh .`o 0\y40)ɤ[{wՋE5n|Q!^BVu}WiX?.fٯQv뷮/w̠>,:|Ozx7>* {Q.:<ـSQ}d4M2RM-GvhidtY:3Ԃ9iɜ.xj":ww@Q\;}sY_:ۆ4WZjZQf["8L`:ÍU)*(Z9jkLiFFǍ6er $9d2;,g*Y`lLWښA'bKRHVVrtzMjvR?,ށ5Ui:S`; /qɆkYwwee'O ,rdѤ5ΨGly+0 p*pօm3]MbUtXzcD&ޥv8T[ē8Dcm)tB@VVlJ|2J$qI?6Ձ68- l!SH=~qpbG2\%kdY~ J$s &TS6^QwJGtM@R`ikt 8 Zۉi|PGм34d [З \i{@+ZYY:\]GB-]%KhHiNcYT bӽ_BќwGd%?p&R+Hɵ %$-p"MT(&)jS<xR{^2ˎg(/fgRN))Yr+^N$WT,n_ u =eι))N0ޯ:t]E"ĶA|Qz_".~tyOA}HRV,G/Qi%•85%5TشTR3^Dx*w+b O̧:0s;7Vna[$`Z3q}1zJۜ6++j woĢMijnf 8؂zzmw w.Q89OyJ0TGP B"GsD6NLMQ(jMbiG6r8\(*XZE"J-:7fkF6[u~R_&R`UtW>j:W'8E^^"݌:]l&4nci)qS$aupqXv;6yM@L.&F J`X%`BB $H$< , l6:sҴǝv;ccanp8؎Tk76J(r,u8va_:Xl <m)q촺^7SߤIJϫXoMri-zM\ 5#KR]eR.%P2cJX"l: ؋f2|5[Lf^* ܧ؞nbhXδg\=NՅij8o0" y9f^NF9}s(ᤡ53mo2L^!s%,~bQ3fRoɦNp|E-2 L0 S+r}|]03^f@37䜶r/MoJ| q{(Zv~B> 4 5~viRvu0 fנ%5#Kj݌'g6Mѭ1MXEȍ }rkDtf,zI=kS~WitRyM3\ZGlK6!D8tƝ74ڼ#F\{͋Tr]rE72ef6TAVS6PW{7ځj4Z@`‚Ƒ8Վ"Gcc1Hv1%tu EK"w1= ~)[' 6[\/b/}_g<5 %F[Ffޢ9׀ D,d)F0j4ch$,PkG[<OROMc>҈_ۇB8 BqV{KQdaUv@d mIDO ǘ"[jd:V yaj\Vk>ˡ͠3'Vq]xV#)/eVõ[ ۶I ؞I#y>famiF9$LfVlL'ek̶WҎ}&MLKu|'A7'fQv"&JY0O *Jp9 Wj$59xQ[%_\zgY>SIܳ6tLZX#d4 jctp]u`q/{>~?Og^:}G  VgHf:-i3']}/3ƛJ11BoZkoUi9ܬ7LO2^&۬-Q6jaQj|kV9zz;Qŋ^ELtj ovtq.[Enc'~kЀuic%cﳓZ牨_߽8Kj,aвB@׃2 W{3xmϽֺ5Zsï}+Q9貙[FTK1y-p6'{+'qtc %EXB4Tn1{r'AV#1ؕq#`Ug^spIUH߽,WEC8ɐKILLʋ+ M,\`XUc>[ ><;yw>S:7$sA܂mm^q\׋"Jѧw#vC"{ 5ry%g03CLOrfVI(v jY,[ A?8×y8_\i:Hgy'0`F~rr0)uZ$ǜ@&틫ڏېrT3[39!39+dRу-X*42A[̚C;s}xQsA_S{uQsr; vDbkz$6'x!slxCbR,ѕq`y]UDD^@oϰc=;ԀZUZvBkBo"?LTT,j;{w߉wo pP}AZi1XPM8lT9@:S(Yk ph*54Dcu*!*7t߁: ##=+ 9ܘ<uz:.Qt~er}g٘vI-([(9%4g(cC!CzrjtJwDw\wJ#F]yN}.fGQ̦++dj5q Xi_(DBQ!uƠ IuxӖ~z/({?xbD!!b+y—ǻHl]8AHj$LԀx$={^”o[!;;1s!FLvYˌjM^ld/o/m,s6=|8{f-.gdeZrph qc$n.+//=kTIJ}s9D?Xn 9GG!!)tx,Jْ99vrQ1ʵ õ!sd1.#g,Gw1折cʣ$4ȧq/UVyx~| Ǻy `0N+1+RCaks b~cE^: JAZ2"D*rb.`$}/ "<Ȏ~~YwkΪ̝ v + D_QX=4y}E׏kꪒk~ 8t3 ȌGsu&d0 QJ*ėJ\=W7H Tz\&j(dD"ǘYV֠Ь[0=m:MSb*;qYB-uR1sCCK0_R9=M 5Tt }njgT2 hLbPAk.4@oPhCar9)) 8v@b? twt;WݧA>??v߽ǏQ-]`˟.JJ k"TՂW%-MQ,>(DOҾ%ZIl"[SDlr0ZX)bebOjԚ`Ub:FIu+n|+/A|VKԖD1S[;3)t3,`?.eNfUÄQuD zjozMo3jֽ|;? u[h9tOwϳțT 4|曏]!-l"e ;%ȶzۍgò(hʄq 8O@cP*2Hzd|( i@9.WKNI8-8q8`׍ rkoLwW305Fhc9zft3=p٨5V%[$rDCZwg&B NwlKܕNz8miFwMhԦDh-+_V\&8ÁNM׉3t%k 8b=2!7gNp>sхy.#@ISŅ̖¡Cb r].d(2Ei$]nj^7d|='Q)lL 9XwyL~o,a* d\-# (JjVmfVz (]t h&,rt""?orǯal~y3}R[i7?V촙yZo^1=i_c+Ttlj9q5[opy;VmvK'1X̫bVa%RdFZDVeb~8uI1Fb۪0;aC0( ~ȡqŎ؄v%SLt9O,tuF^PHf+6 Jx}K+ZŎs`/ uns-~5ǠXT/Kn}yb:*]Ue*VrٸK-0SIG=acL&U˘UJJԣQF_Ļi:r!.-xIm(^n仜NTQ n&&fM68hj<}wNmeX4H rP BWXRa8E%9v P"LÍ#'Av8;#-٫"\^7m)l{_sLtz?^ӽ5N_Q8vu}EK+7IL32FYe!e%Qs;Iσ:BPY8K[ (dQxr}=z>Āut}D+:U>uh8[ع= Qo~JHsX ec "і!FDI'}t{ ОDYDRk },dX#@Ӈ`nkIw_Fuho7%P}' shc5-i-}8y7]5&}!Q`$mQ"}eQ]_2ع( +W&(y|ŌtH, Y#"T_sŢۢl=Fܨ6n*+ qcW(8kcmGOkWx7#~߸lVv^i* b>#b2bg _BZy,m$d} R,p" b9ƇB9T*QjFM -pҿ0=^3sǿp(kxW4nT#b7?ڐHҊE-Kշ;Vaema͟^|ufq;!}辧|_/.P, PdٱⷩeU~wbg>V㒞Gu՞ajǓ~pCN~bcyڴ{dӓa p-3iŁ:Tk|xی[% {G?S-odIo>2&;ɾw@x/խ8_oOJ {懲' = 05iV̽cGbݢ_20tPF(-I}QҴpa „-.564ϯ_,3 eeB},IYyYyBkqNJ#7 RÍpc즅K7574-]ZR5>in0~nJu艥 CvJ5+Jf!CH4^ ]ǤƆ9- Mi/s!-MHɵAZiB1iќ4gAs| i)k\'0RKݛb6ܳpUqצ%X&<}_duU>B EgXoڞ;}{7o//^Տ㗧Ǟ)ffT^٤_Qg_ClsH§t%ܘj^ۅ=u;>*;eU?Ȳ&pXCiկxwOzVd乭UW֝^>9b&Oxܲ|pCż+έ[᩹~Zp]ͫGƜRsdǐ9_ G ?VZ'lub<B!%8 qܴ'<=9dQ׏L"Xm"!8Zg#彐jKlҲyHj %k֒74 뗶4m]R/40VLfifEsfaY3Tk[6ni\!o^V~vZ .[AR~Q=IC7ib„jxP\=qDx苼zG T]sٔe&I[2ҟ+~)_2/WLKo/X*>T./TUPd\1z0r|Xe솒ʱUC+Gᖱ+&El%jPZ Xlf-qNjR2Kh:;/ A"CZQiˌ}/=&jص|ܿD<¨&ܸ Kv6^M(Z7׌+p ӳQ e蔥?U]M޻Mz:>,٫//Ϳڍ篹.'!rs _ZoZ>:8Z~o[7d%IhXx)EEf'꿑O-a_:C->]hڀʴѡmV& -E B2B"`\UW-KշX\zb=/=OS>6յDE?0o~H_cYcѧGȹԚ֘ϊd,UI뿸S?r:QZ5;gkFW7]2%55ǜdg/?]Xxn<+'.wۇqyg߄fWikwsSijVoQ_RɅT='>:Zr~uiH(kCl(-]Z|"N[_}t? ` XE{ t]G1w ʶlq[ִ߽^>m zxs&OL}{/Gf{k vMb]֥j?3ꬪ2.? CUk}g;h߇o7.tK)_=WoaŚ$xlghN/]$wVg; ¢]1q4VXSQTJpm0\< hA.ࢹ76j \G9!g?쇜SD:&ϒ;\ݻq?.Gn}I4o8 r|X!쁋ݻsxe>F0ޜ{vAJ^ zu/G1z@=,YShSQޝjS4b9J&thbJ4L&Lw(E,l#鿯™,djVMnbt4 S.iH 9HW2䃸4K*X< ghȷ@< IYҥ4򝥮PbHϤsʅتC4!dö!CKR5Za9fLrNP aunB 攦d*$A}Iv;Jj1О]L (<T UB uF'!an``PP~2 $O@' ҘD&$qᩣ e܍2v+%xBxR9_t|NT:o#e.{%$ny!|OŅ@0 WeF|x ohA:Zo/Z#wKᓅdYqx]7o)~({9Y^x+e`Yah)fq k/4/-ͼjieK3/͜4s K3 37f[YRY\(]Y P&zB\]\u0>n[&J}?<z<@ީC𶡧mO4x5:'>4(aX5e {TE\X:ֲӲRjX[YFYFZYZrSzddSX IA)K r9<23~e71Bt4jC99Oա9 ێӎYn6 TM*ݒX.Ӟ[191Z'xҙw Ǟq22qc 2uSzyf\&}'i@&/hq݃k$< nRRQxTxGzX֗t ;Pr:dF78]T!nH*ʷ44 ]iMFCU$~'h,7h IdMeZyhkP ,o8}}պMi^e;~oR>}Xuko_óVZuMRң+yksuq[x˙fn>Df=emfDnL_4LlB߁CnO&!-.OCE( 1k ū\I3ɇ\O}av@ 'LR!5od<^ m硱~ J.B%XOď80x+$ 8= ,٣z-0GṬ#׸̀sQ/>_I2T!3坿2=t'&3'Wh ̍l4DM"s)sZ֙KG>dK$E-lO?y$<]d= U0^E[a8գ$|.G7G!ϓG苴auh}@ Zi(;?6HQ >]ĝ^~yC7F_>;fƘc C ]L&2]Cĝw7}{2Y7wrܕb/))dTҧ+}j*ҧ өE+}zw&Og}~n2}S\qgf z_2}F+}V?9Y SʿقKfTw]7[+}^KfK߻ҾYf>/M]7ǜ!s+}nҾ̙"_wm >R;e,ԯ[Xs+t"*L,$&d6uQ<hTS_xne6̲tˁ?yW Wt BǠҮ29E ]./r ]MZXf݄ؑn­O܎@w==Vm??# [/z=YCƋ%_^FN m®}>5u7ڃ>F{>)`W_aw-lG?gYq~E_O@qtu)M鰧Y^{/>^G?V/G1 Z: `JM8yaQصV58`'*Og/r> |< &|_er|FW5Z|߀o7-V ow;aW|7@vނV/A~o;#<O' ~?/KO ūx~ ow2~CxK{x/xi'S_7[v?3ÿ?/܁ 0!e_*x$d,MrH/қ!/d9 $ȑ{!C|2 GW2$h2dxCH;q')&%L/iISTRJ4UIAfYd6s\2'd9,$O%ǑŤ|Rr9,#ˉԂ# x] &$!V0(.&md 9LNvYON_tr9>H"dyL(}>NOҧ,}>O_%L_]5:}I.}O?ҏn~L}t?~J?/+5~K'3J?/A fQƘTYdY,^7rk6 bGlʬ,al8+`#H6fcX!Ʊl+b6fgzY s17(6MfSTV46 6dlv4yl>d 1l![ĪX5;ϖ؉l[μ1SX=k`V,gM,BRw8,", p keG$~2;ezqw*;,v6;>md &v].eJv]îeױ FvneNve}l kg[6v?{=bl{=c'ؓ)4{=˞cϳ؋%^a]5:{bowػ=>}>b1)}ξ`_-}~`?O+`bX%L'd2,rw8> r`7l+X8Hb6&V ,&o]8L ubn|6(f,ePPYi񪱹 >5*FKFhDjFsub\51 "6$;_|*(J_Z:5#B5 kw*}XT)> Mj\EEdL1~MbR5Z#"k.ަ&QzFhn|J (xG M^hs?3i꺀`$֬YTo8j (Q@4PkPEhcF fHTQBh#oo OG:~4<]Yx1(؁Pi! D%,am" :<:(сKp|zb]D١)vƮ)Uu] tC=˩I:gS뜝>NY/S/^,+(K6[i6I ԫq8G#^bWoS롃C NSQZ f5kup]@I[jaPii&?CoEH,hW 1~1EA8 jMD^ĚXDTJV^OfM+҃P$57((ƭRES~t1ςw9̳lbDpL,^5Nkk( ̦\KVBQcs: *"bNK$N Ifrԧ J*ӘTfV7b|/"lMlU:#&[}Sz@JX `RAP"@`RS()T*QB\X$"I W4*Zj1%qoM5I&"ie|~S8̥:UWqzXT2pwڀtkUԵU:WJImՑF%lQX?/5=qRHFH*TV~cFNőz3")gԅ`=)hXiLP0Եwie|0B]MJETMMPFxQDV٤4D@EIH``I3uQÖE0.4}BSKYh2?]2-Ki7f~ Ϙ$7[ӼF%J*z%z%sc]DV˕oK=[ÕQ3^дRPUj?7 7bY4δ4h qe$+PcIn+ݡbDv\DH-GG%EI% SI.6&%bڥ~v.Kv.9;$g쐜)!e8 2RSpJN))e8 .N))e8 agYD(%JdY%rI]\R%9$g쒜][rv 2R[pKn)-ex 2]Ƭl49IZﱐ&lSy$rI$;]r;m%2MrpɱI~%~nf2 V.Y\2%uqI]iR{cvi?%b.vXnnC[]p?C?i9gFYC?5H[+HzdtHy\9%b9ə(+0rd[rp9˜ݝ2pی]蓒M1m:}m!g.9S:cN'eإ OvRSem6Zh!uvHRCJsJZ FpCmr6Ξ.I6.%*I{$ZwvؓϓݐԑP%[+%v{I$ ;pqK?L^&tJ#R$K9tbib{Ir$Yʑd)GIr$YJʁUAGRb=R$K9,H#R$K9,H#RRˑd)gI- Ir&Yʙd)gIr&Yʙd))-[-%Ir&Yʙd)gIr&Yʙd)gI #gD:Id!SbJ$rIHʰI6)&eؤ a2lRMʰI6).eإ a2RSlK,1ctSec(4ĵZ\cꋊJ/uZlh VzkC- ۊ/6~\I+_ru)>C0%T/5 Ÿ3_6"!7B2"1hd^"OyiGy.Vӥ&ޮZ9VN,5]rZ!LK0l7WTTt7=ՕV8ՕCYՕV8ՕfuK:[Z/QD!Y(2^PuEl:-*"E3ސEPJM0KJ%B]n2BZFLK %ߥVKT c6T2fhYUXW- -c]uѲF6e5hSMkCmzWh 5./b۵ءN-.-vi[=Z\Ӵx:ROCr]woGФpvbہɉpcA'"M "I>RJѵ2X%[ʖL;LϚ5j025O4/447WWo5eb~sC5:Ěoa-:Su[wX3뗗7"o|^UމyݙO?:0V7_F +@ `@ 8 & QpNTpoG +x >,rĤ#X>nD_u|}ԟ:HcRǔc:j::NqYǁxj<+;n+5xs<0~Q;wߍ@с9Kg3'ˍ` E^~@` - ,v ;m25aYoԼ|HV{w.;>oo/C4. ZcҾ n,[e`߉Ҿʈ_ca߾_?;0wLFDZ+:tqAG<"kOϏ/mG^+wzվJM{̆}n+p ;tu_{o_ů_ K7#^g' uH?se~rC&?ؾ?Y ݹywepWtc=3T왴dzdcOў{ ړqwOy/~rAw߶{v;w!1𯁟2RЋh'zM;GoX#BoF V ?ZPэ(Vfq,h5ZIt2z݄֡ٷ{C3"bMl~戟fl)(~bf| ?"w'L?%i92q拟SrZ?O`~y8O)L ~I?)t =0?ٶO;׶>N11 9;Ʉ,O~t!3O4skdvN5DO3\^H/ѫuFt J;iѿbe)j^Dc-֜t)k׭?89 oM]|ɥ]~ŕW]}͵]Í7|˭~ǝw}w}[ڷnzxG}'|g}^|i˯@o;~{{^{v=מkgڳ{ٽ^^lh6S]sTiiϹAkZ²'?ĨbǛs姛KOְ k،wk؂n44$:}4U gz[ÙLk8 -X(720F4L%ӭaeN0M(#Ufy-hQENA}2?p*4ep:*prdL$ g3n>&E%Y lNxaU}i(wr6 i(wri( Cah;4 mW6ۡahGhh6𝆡 pPl:"pO8KaX'poZ\AS)p_x!ʶ oѠ&+ڕ6kljzQ/s&cݪq zЩUԆ?ɖ)> e%KVziV6T{n)^հYԦlcןנIZ4$,F+`[>!; &fhQ~!14t>_/"*d!afq5lCDQ>ʸ!FΰT'1$ڎum N= pWpwLzzege*IR⪠?̀0z Ǖj  ӋL*yjDi"T'EZz:/4YYmr{h=6D/P.׸%i.j?QUW5= "VE5.h!EЅ@}-|14 ubj=,ZP i Ҫ<<6~X+Ɣu2AZ]QR睃{rfmc/&k@vDpVx1}Dpj;-v꺒3Wh,,ajsbV!>aiuPp`'[~h)]6sO"]f-c4(CڪZ7"QJ|A:>Lw52lQ[[_XGbNnp7{yBb-ikEw[恿:?uLڢ1t~j-Q1D9vuI[K]F' kΡ'n`i saORgUBV,4m﯌zބn֓aU[x.kUb d 7^&ksn uQ() y::$-R,Wm {} ?k ۊXJ?:%8 FUd,55͍mBް:GFJ\(ވk夭a?0 [ׇ捵YX֠Z A0XR X)T"VkΟbh]'䏵6qECAWU< V (0hȪ4ASDdChs,*4 +`hd5Mfm M9ߨRBu&%66O0u|fu ѦhۤLh,STZYU @"̯=cٕ3sgOZ6saEżUiiUh /4CmoyEscP[(K؁oUS3Z:%^#n(mQZޥ({5#ŪYGhڬP4B4ԠV4߆(5y'UhWDW 4,睵ykv$DKVJ$"*/jAk4+uz V FQy~"NCW䰰-ȋvW*oG՞)x]KtH S8/M6+M gX aF6"RH#V 4b*tВ<8#޺Ƽb^MC*u0c*:#>D'rEeqQnkesOKME6 Weu{=iuv0 zb.r g²oĢ-0wQj>Nzoχi=|aZχi=|aZχi=|aӺx= C}ҭR=< a66d"2_>o&ĸ(K$BG}G.esKϏ@X ]hY$M)'AE ut1:XAPϫyz^=W.jn1zd"J0К#@Ț:'sR^ endstream endobj 114 0 obj 32721 endobj 115 0 obj 69778 endobj 78 0 obj <> endobj 77 0 obj <> endobj 73 0 obj <> endobj 72 0 obj <> endobj 63 0 obj <> endobj 56 0 obj <> >> endobj 55 0 obj <> >> endobj 49 0 obj <> endobj 48 0 obj <> endobj 47 0 obj <> endobj 46 0 obj <> endobj 39 0 obj <> >> endobj 38 0 obj <> >> endobj 37 0 obj <> >> endobj 36 0 obj <> >> endobj 35 0 obj <> >> endobj 34 0 obj <> >> endobj 33 0 obj <> >> endobj 32 0 obj <> >> endobj 27 0 obj <> >> endobj 26 0 obj <> >> endobj 1 0 obj <> ] >> /PageMode /UseOutlines /OpenAction [13 0 R /Fit] /Outlines 4 0 R /Names 17 0 R >> endobj 2 0 obj <> endobj 13 0 obj <> endobj 16 0 obj <> /XObject <> >> endobj 116 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 117 0 obj 36 endobj 22 0 obj <> endobj 25 0 obj <> >> endobj 118 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 119 0 obj 36 endobj 28 0 obj <> endobj 31 0 obj <> >> endobj 120 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 121 0 obj 36 endobj 40 0 obj <> endobj 43 0 obj <> /XObject <> >> endobj 122 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 123 0 obj 36 endobj 50 0 obj <> endobj 53 0 obj <> >> endobj 124 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 125 0 obj 36 endobj 57 0 obj <> endobj 60 0 obj <> >> endobj 126 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 127 0 obj 36 endobj 64 0 obj <> endobj 67 0 obj <> >> endobj 128 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 129 0 obj 36 endobj 68 0 obj <> endobj 71 0 obj <> >> endobj 130 0 obj <> stream x+2P0P2509`2\ y\endstream endobj 131 0 obj 36 endobj 4 0 obj <> endobj 6 0 obj <> endobj 9 0 obj <> endobj 11 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <> endobj 7 0 obj <> endobj 12 0 obj <> endobj 5 0 obj <> endobj 17 0 obj <> endobj 18 0 obj <> endobj 412 0 obj <> endobj 414 0 obj <> endobj 415 0 obj <> endobj 416 0 obj <> endobj 417 0 obj <> endobj 418 0 obj <> endobj 419 0 obj <> endobj 420 0 obj <> endobj 421 0 obj <> endobj 422 0 obj <> endobj 423 0 obj <> endobj 424 0 obj <> endobj 425 0 obj <> endobj 426 0 obj <> endobj 427 0 obj <> endobj 428 0 obj <> endobj 429 0 obj <> endobj 413 0 obj <> endobj 430 0 obj <> endobj 431 0 obj <> endobj 239 0 obj <> endobj 219 0 obj <> endobj 297 0 obj <> endobj 262 0 obj <> endobj 310 0 obj <> endobj 303 0 obj <> endobj 273 0 obj <> endobj 405 0 obj <> endobj 384 0 obj <> endobj 211 0 obj <> endobj 147 0 obj <> endobj 217 0 obj <> endobj 388 0 obj <> endobj 285 0 obj <> endobj 329 0 obj <> endobj 134 0 obj <> endobj 242 0 obj <> endobj 238 0 obj <> endobj 270 0 obj <> endobj 161 0 obj <> endobj 160 0 obj <> endobj 406 0 obj <> endobj 403 0 obj <> endobj 402 0 obj <> endobj 401 0 obj <> endobj 221 0 obj <> endobj 220 0 obj <> endobj 387 0 obj <> endobj 296 0 obj <> endobj 205 0 obj <> endobj 225 0 obj <> endobj 266 0 obj <> endobj 323 0 obj <> endobj 317 0 obj <> endobj 292 0 obj <> endobj 284 0 obj <> endobj 283 0 obj <> endobj 276 0 obj <> endobj 227 0 obj <> endobj 278 0 obj <> endobj 277 0 obj <> endobj 356 0 obj <> endobj 411 0 obj <> endobj 394 0 obj <> endobj 383 0 obj <> endobj 184 0 obj <> endobj 377 0 obj <> endobj 375 0 obj <> endobj 374 0 obj <> endobj 373 0 obj <> endobj 368 0 obj <> endobj 360 0 obj <> endobj 359 0 obj <> endobj 349 0 obj <> endobj 348 0 obj <> endobj 328 0 obj <> endobj 324 0 obj <> endobj 325 0 obj <> endobj 326 0 obj <> endobj 327 0 obj <> endobj 144 0 obj <> endobj 145 0 obj <> endobj 146 0 obj <> endobj 268 0 obj <> endobj 265 0 obj <> endobj 288 0 obj <> endobj 286 0 obj <> endobj 287 0 obj <> endobj 256 0 obj <> endobj 244 0 obj <> endobj 247 0 obj <> endobj 248 0 obj <> endobj 165 0 obj <> endobj 159 0 obj <> endobj 370 0 obj <> endobj 295 0 obj <> endobj 294 0 obj <> endobj 293 0 obj <> endobj 291 0 obj <> endobj 289 0 obj <> endobj 212 0 obj <> endobj 207 0 obj <> endobj 261 0 obj <> endobj 308 0 obj <> endobj 254 0 obj <> endobj 253 0 obj <> endobj 399 0 obj <> endobj 400 0 obj <> endobj 395 0 obj <> endobj 393 0 obj <> endobj 407 0 obj <> endobj 298 0 obj <> endobj 390 0 obj <> endobj 331 0 obj <> endobj 330 0 obj <> endobj 206 0 obj <> endobj 203 0 obj <> endobj 202 0 obj <> endobj 201 0 obj <> endobj 200 0 obj <> endobj 199 0 obj <> endobj 198 0 obj <> endobj 197 0 obj <> endobj 196 0 obj <> endobj 194 0 obj <> endobj 193 0 obj <> endobj 192 0 obj <> endobj 191 0 obj <> endobj 190 0 obj <> endobj 189 0 obj <> endobj 188 0 obj <> endobj 187 0 obj <> endobj 186 0 obj <> endobj 185 0 obj <> endobj 182 0 obj <> endobj 181 0 obj <> endobj 180 0 obj <> endobj 179 0 obj <> endobj 178 0 obj <> endobj 177 0 obj <> endobj 176 0 obj <> endobj 175 0 obj <> endobj 172 0 obj <> endobj 171 0 obj <> endobj 170 0 obj <> endobj 169 0 obj <> endobj 168 0 obj <> endobj 167 0 obj <> endobj 166 0 obj <> endobj 173 0 obj <> endobj 164 0 obj <> endobj 163 0 obj <> endobj 157 0 obj <> endobj 156 0 obj <> endobj 155 0 obj <> endobj 154 0 obj <> endobj 153 0 obj <> endobj 152 0 obj <> endobj 151 0 obj <> endobj 150 0 obj <> endobj 149 0 obj <> endobj 148 0 obj <> endobj 142 0 obj <> endobj 141 0 obj <> endobj 140 0 obj <> endobj 143 0 obj <> endobj 138 0 obj <> endobj 246 0 obj <> endobj 309 0 obj <> endobj 158 0 obj <> endobj 139 0 obj <> endobj 208 0 obj <> endobj 344 0 obj <> endobj 343 0 obj <> endobj 290 0 obj <> endobj 282 0 obj <> endobj 281 0 obj <> endobj 280 0 obj <> endobj 410 0 obj <> endobj 409 0 obj <> endobj 271 0 obj <> endobj 230 0 obj <> endobj 389 0 obj <> endobj 132 0 obj <> endobj 204 0 obj <> endobj 241 0 obj <> endobj 240 0 obj <> endobj 229 0 obj <> endobj 224 0 obj <> endobj 222 0 obj <> endobj 216 0 obj <> endobj 408 0 obj <> endobj 210 0 obj <> endobj 209 0 obj <> endobj 249 0 obj <> endobj 279 0 obj <> endobj 269 0 obj <> endobj 260 0 obj <> endobj 355 0 obj <> endobj 259 0 obj <> endobj 257 0 obj <> endobj 258 0 obj <> endobj 255 0 obj <> endobj 252 0 obj <> endobj 251 0 obj <> endobj 250 0 obj <> endobj 245 0 obj <> endobj 243 0 obj <> endobj 235 0 obj <> endobj 234 0 obj <> endobj 233 0 obj <> endobj 232 0 obj <> endobj 231 0 obj <> endobj 305 0 obj <> endobj 306 0 obj <> endobj 307 0 obj <> endobj 195 0 obj <> endobj 183 0 obj <> endobj 215 0 obj <> endobj 214 0 obj <> endobj 213 0 obj <> endobj 162 0 obj <> endobj 137 0 obj <> endobj 136 0 obj <> endobj 135 0 obj <> endobj 334 0 obj <> endobj 322 0 obj <> endobj 386 0 obj <> endobj 398 0 obj <> endobj 397 0 obj <> endobj 396 0 obj <> endobj 392 0 obj <> endobj 391 0 obj <> endobj 223 0 obj <> endobj 218 0 obj <> endobj 174 0 obj <> endobj 228 0 obj <> endobj 264 0 obj <> endobj 263 0 obj <> endobj 275 0 obj <> endobj 274 0 obj <> endobj 272 0 obj <> endobj 267 0 obj <> endobj 133 0 obj <> endobj 226 0 obj <> endobj 404 0 obj <> endobj 237 0 obj <> endobj 236 0 obj <> endobj 385 0 obj <> endobj 379 0 obj <> endobj 378 0 obj <> endobj 376 0 obj <> endobj 380 0 obj <> endobj 381 0 obj <> endobj 382 0 obj <> endobj 372 0 obj <> endobj 371 0 obj <> endobj 366 0 obj <> endobj 365 0 obj <> endobj 364 0 obj <> endobj 363 0 obj <> endobj 362 0 obj <> endobj 361 0 obj <> endobj 367 0 obj <> endobj 369 0 obj <> endobj 358 0 obj <> endobj 357 0 obj <> endobj 354 0 obj <> endobj 352 0 obj <> endobj 351 0 obj <> endobj 350 0 obj <> endobj 353 0 obj <> endobj 347 0 obj <> endobj 346 0 obj <> endobj 345 0 obj <> endobj 341 0 obj <> endobj 340 0 obj <> endobj 339 0 obj <> endobj 338 0 obj <> endobj 337 0 obj <> endobj 336 0 obj <> endobj 335 0 obj <> endobj 342 0 obj <> endobj 333 0 obj <> endobj 332 0 obj <> endobj 320 0 obj <> endobj 319 0 obj <> endobj 318 0 obj <> endobj 321 0 obj <> endobj 316 0 obj <> endobj 315 0 obj <> endobj 314 0 obj <> endobj 313 0 obj <> endobj 312 0 obj <> endobj 311 0 obj <> endobj 304 0 obj <> endobj 302 0 obj <> endobj 301 0 obj <> endobj 300 0 obj <> endobj 299 0 obj <> endobj xref 0 432 0000000000 65535 f 0000195440 00000 n 0000195607 00000 n 0000019115 00000 n 0000199174 00000 n 0000200117 00000 n 0000199228 00000 n 0000199918 00000 n 0000199814 00000 n 0000199377 00000 n 0000199671 00000 n 0000199527 00000 n 0000200018 00000 n 0000195713 00000 n 0000000015 00000 n 0000000523 00000 n 0000195899 00000 n 0000200236 00000 n 0000200271 00000 n 0000086712 00000 n 0000019377 00000 n 0000022157 00000 n 0000196140 00000 n 0000000543 00000 n 0000005034 00000 n 0000196351 00000 n 0000195288 00000 n 0000195172 00000 n 0000196548 00000 n 0000005055 00000 n 0000008115 00000 n 0000196801 00000 n 0000195043 00000 n 0000194923 00000 n 0000194796 00000 n 0000194661 00000 n 0000194529 00000 n 0000194411 00000 n 0000194280 00000 n 0000194125 00000 n 0000196998 00000 n 0000008136 00000 n 0000010121 00000 n 0000197223 00000 n 0000022865 00000 n 0000022510 00000 n 0000194022 00000 n 0000193924 00000 n 0000193826 00000 n 0000193728 00000 n 0000197464 00000 n 0000010142 00000 n 0000012089 00000 n 0000197675 00000 n 0000063477 00000 n 0000193601 00000 n 0000193470 00000 n 0000197894 00000 n 0000012110 00000 n 0000015092 00000 n 0000198098 00000 n 0000158596 00000 n 0000135913 00000 n 0000193374 00000 n 0000198328 00000 n 0000015113 00000 n 0000017748 00000 n 0000198514 00000 n 0000198744 00000 n 0000017769 00000 n 0000019094 00000 n 0000198955 00000 n 0000193280 00000 n 0000193182 00000 n 0000022136 00000 n 0000022413 00000 n 0000022433 00000 n 0000193134 00000 n 0000193089 00000 n 0000022768 00000 n 0000022788 00000 n 0000023538 00000 n 0000023007 00000 n 0000023518 00000 n 0000024167 00000 n 0000024420 00000 n 0000063433 00000 n 0000063455 00000 n 0000064016 00000 n 0000063621 00000 n 0000063996 00000 n 0000064364 00000 n 0000064619 00000 n 0000086668 00000 n 0000086690 00000 n 0000087493 00000 n 0000086849 00000 n 0000087473 00000 n 0000088316 00000 n 0000088560 00000 n 0000135867 00000 n 0000135890 00000 n 0000136467 00000 n 0000136066 00000 n 0000136446 00000 n 0000136858 00000 n 0000137124 00000 n 0000158550 00000 n 0000158573 00000 n 0000159270 00000 n 0000158742 00000 n 0000159249 00000 n 0000159973 00000 n 0000160229 00000 n 0000193043 00000 n 0000193066 00000 n 0000196008 00000 n 0000196120 00000 n 0000196416 00000 n 0000196528 00000 n 0000196866 00000 n 0000196978 00000 n 0000197332 00000 n 0000197444 00000 n 0000197762 00000 n 0000197874 00000 n 0000198196 00000 n 0000198308 00000 n 0000198612 00000 n 0000198724 00000 n 0000199042 00000 n 0000199154 00000 n 0000217097 00000 n 0000220204 00000 n 0000209438 00000 n 0000219218 00000 n 0000219166 00000 n 0000219114 00000 n 0000216215 00000 n 0000216423 00000 n 0000216111 00000 n 0000216059 00000 n 0000216007 00000 n 0000216163 00000 n 0000211766 00000 n 0000211818 00000 n 0000211870 00000 n 0000209179 00000 n 0000215955 00000 n 0000215905 00000 n 0000215853 00000 n 0000215801 00000 n 0000215749 00000 n 0000215697 00000 n 0000215645 00000 n 0000215593 00000 n 0000215541 00000 n 0000215489 00000 n 0000216371 00000 n 0000212439 00000 n 0000209698 00000 n 0000209646 00000 n 0000219062 00000 n 0000215437 00000 n 0000215385 00000 n 0000212387 00000 n 0000215281 00000 n 0000215229 00000 n 0000215177 00000 n 0000215127 00000 n 0000215075 00000 n 0000215025 00000 n 0000214973 00000 n 0000215333 00000 n 0000219788 00000 n 0000214921 00000 n 0000214869 00000 n 0000214817 00000 n 0000214765 00000 n 0000214713 00000 n 0000214661 00000 n 0000214609 00000 n 0000214557 00000 n 0000218854 00000 n 0000210990 00000 n 0000214505 00000 n 0000214455 00000 n 0000214405 00000 n 0000214353 00000 n 0000214301 00000 n 0000214249 00000 n 0000214197 00000 n 0000214145 00000 n 0000214093 00000 n 0000214041 00000 n 0000218803 00000 n 0000213989 00000 n 0000213937 00000 n 0000213885 00000 n 0000213833 00000 n 0000213781 00000 n 0000213729 00000 n 0000213677 00000 n 0000213625 00000 n 0000217149 00000 n 0000210160 00000 n 0000213573 00000 n 0000212849 00000 n 0000216475 00000 n 0000217615 00000 n 0000217563 00000 n 0000209127 00000 n 0000212799 00000 n 0000219010 00000 n 0000218958 00000 n 0000218906 00000 n 0000217459 00000 n 0000209230 00000 n 0000219738 00000 n 0000208721 00000 n 0000210006 00000 n 0000209954 00000 n 0000217409 00000 n 0000219686 00000 n 0000217357 00000 n 0000210212 00000 n 0000220256 00000 n 0000210628 00000 n 0000219840 00000 n 0000217305 00000 n 0000216993 00000 n 0000218597 00000 n 0000218547 00000 n 0000218495 00000 n 0000218443 00000 n 0000218391 00000 n 0000220412 00000 n 0000220360 00000 n 0000209542 00000 n 0000208670 00000 n 0000217253 00000 n 0000217201 00000 n 0000209490 00000 n 0000218339 00000 n 0000212231 00000 n 0000218287 00000 n 0000216267 00000 n 0000212283 00000 n 0000212335 00000 n 0000217667 00000 n 0000218237 00000 n 0000218187 00000 n 0000218135 00000 n 0000213057 00000 n 0000213005 00000 n 0000218083 00000 n 0000212179 00000 n 0000217979 00000 n 0000218031 00000 n 0000217927 00000 n 0000217823 00000 n 0000212901 00000 n 0000208822 00000 n 0000219944 00000 n 0000219892 00000 n 0000211973 00000 n 0000210264 00000 n 0000220152 00000 n 0000211922 00000 n 0000217771 00000 n 0000209594 00000 n 0000216941 00000 n 0000220100 00000 n 0000208977 00000 n 0000220048 00000 n 0000219996 00000 n 0000210576 00000 n 0000210732 00000 n 0000210680 00000 n 0000217719 00000 n 0000216785 00000 n 0000216733 00000 n 0000216681 00000 n 0000210524 00000 n 0000210472 00000 n 0000209334 00000 n 0000212075 00000 n 0000212127 00000 n 0000212023 00000 n 0000212747 00000 n 0000216629 00000 n 0000212697 00000 n 0000210420 00000 n 0000212647 00000 n 0000212595 00000 n 0000212543 00000 n 0000210108 00000 n 0000208770 00000 n 0000213365 00000 n 0000223104 00000 n 0000223052 00000 n 0000223000 00000 n 0000222948 00000 n 0000208925 00000 n 0000222896 00000 n 0000218647 00000 n 0000218699 00000 n 0000218751 00000 n 0000212953 00000 n 0000216319 00000 n 0000208873 00000 n 0000222844 00000 n 0000222792 00000 n 0000222740 00000 n 0000222688 00000 n 0000222636 00000 n 0000222584 00000 n 0000210368 00000 n 0000222480 00000 n 0000222430 00000 n 0000222378 00000 n 0000222532 00000 n 0000219322 00000 n 0000210316 00000 n 0000211558 00000 n 0000211610 00000 n 0000211662 00000 n 0000211714 00000 n 0000211506 00000 n 0000209386 00000 n 0000213521 00000 n 0000213469 00000 n 0000222326 00000 n 0000222274 00000 n 0000219270 00000 n 0000222170 00000 n 0000222118 00000 n 0000222066 00000 n 0000222014 00000 n 0000221962 00000 n 0000221910 00000 n 0000221858 00000 n 0000222222 00000 n 0000216579 00000 n 0000216527 00000 n 0000221806 00000 n 0000221756 00000 n 0000221704 00000 n 0000211454 00000 n 0000211402 00000 n 0000221600 00000 n 0000221550 00000 n 0000221498 00000 n 0000221652 00000 n 0000221446 00000 n 0000217875 00000 n 0000210784 00000 n 0000221394 00000 n 0000221342 00000 n 0000211350 00000 n 0000211298 00000 n 0000221188 00000 n 0000221138 00000 n 0000221086 00000 n 0000221034 00000 n 0000220982 00000 n 0000220932 00000 n 0000221238 00000 n 0000211248 00000 n 0000221290 00000 n 0000212491 00000 n 0000220880 00000 n 0000220828 00000 n 0000211196 00000 n 0000211144 00000 n 0000211092 00000 n 0000220620 00000 n 0000211040 00000 n 0000220568 00000 n 0000220516 00000 n 0000220672 00000 n 0000220724 00000 n 0000220776 00000 n 0000210938 00000 n 0000209078 00000 n 0000220464 00000 n 0000219374 00000 n 0000210058 00000 n 0000209282 00000 n 0000217045 00000 n 0000213417 00000 n 0000219634 00000 n 0000219582 00000 n 0000213261 00000 n 0000210886 00000 n 0000213209 00000 n 0000219530 00000 n 0000219478 00000 n 0000219426 00000 n 0000213109 00000 n 0000213159 00000 n 0000209902 00000 n 0000209850 00000 n 0000209800 00000 n 0000220308 00000 n 0000209027 00000 n 0000209750 00000 n 0000213313 00000 n 0000217511 00000 n 0000216889 00000 n 0000216837 00000 n 0000210834 00000 n 0000200317 00000 n 0000207975 00000 n 0000200507 00000 n 0000200976 00000 n 0000201525 00000 n 0000202063 00000 n 0000202594 00000 n 0000203112 00000 n 0000203636 00000 n 0000204167 00000 n 0000204698 00000 n 0000205229 00000 n 0000205662 00000 n 0000206061 00000 n 0000206448 00000 n 0000206833 00000 n 0000207202 00000 n 0000207588 00000 n 0000208056 00000 n 0000208443 00000 n trailer <<767281EF402DB6CE2D7C41356E6EEF06>] >> startxref 223156 %%EOF 1 0 obj <>]>>/PageLayout/OneColumn/PageMode/UseOutlines/Pages 2 0 R/Type/Catalog/ViewerPreferences<>>> endobj 3 0 obj <> endobj 432 0 obj <>stream application/pdf Veritas Technologies LLC Cluster Server ACC Library Installation Guide: AIX, Linux, Solaris 2017-03-01T13:51:14 Unknown 2017-03-01T19:25:24+05:30 2017-03-01T19:25:24+05:30 XEP 4.6 build 20060623 False uuid:2f85fcb4-9ea0-4a76-bafe-b8efbe0926b3 uuid:dc24d136-c1b8-4b40-b1e3-41e8b37a1b1a endstream endobj 433 0 obj <> endobj xref 0 2 0000000000 65535 f 0000231951 00000 n 3 1 0000232191 00000 n 432 2 0000232447 00000 n 0000236255 00000 n trailer <]/Prev 223156>> startxref 236312 %%EOF