./0000755000000000000000000000000013320061751007707 5ustar rootroot./pkgs/0000755000000000000000000000000013320061751010653 5ustar rootroot./pkgs/VRTSvcsm/0000755000000000000000000000000013320061751012342 5ustar rootroot./pkgs/VRTSvcsm/reloc/0000755000000000000000000000000013320061751013446 5ustar rootroot./pkgs/VRTSvcsm/reloc/etc/0000755000000000000000000000000013320061751014221 5ustar rootroot./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/0000755000000000000000000000000013320061751015533 5ustar rootroot./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/conf/0000755000000000000000000000000013320061751016460 5ustar rootroot./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/conf/sample_mirrorview/0000755000000000000000000000000013320061751022226 5ustar rootroot./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/conf/sample_mirrorview/main.cf0000755000000000000000000000357713320061751023503 0ustar rootrootinclude "types.cf" include "MirrorViewTypes.cf" cluster RepMVCluster ( UserNames = { admin = dlmElgLimHmmKumGlj, a = aHHb } ClusterAddress = "10.182.13.120" Administrators = { admin, a } CredRenewFrequency = 0 CounterInterval = 5 ) system sys120 ( ) system sys121 ( ) group ClusterService ( SystemList = { sys120 = 0, sys121 = 1 } AutoStartList = { sys120, sys121 } OnlineRetryLimit = 3 OnlineRetryInterval = 120 ) IP webip ( Device = hme0 Address = "10.182.13.120" NetMask = "255.255.240.0" ) NIC csgnic ( Device = hme0 ) VRTSWebApp VCSweb ( Critical = 0 AppName = vcs InstallDir = "/opt/VRTSweb/VERITAS" TimeForOnline = 5 RestartLimit = 3 ) VCSweb requires webip webip requires csgnic // resource dependency tree // // group ClusterService // { // VRTSWebApp VCSweb // { // IP webip // { // NIC csgnic // } // } // } group mirrorgrp ( SystemList = { sys121 = 0, sys120 = 1 } PrintTree = 0 AutoStartList = { sys121, sys120 } SystemZones = { sys121 = 2, sys120 = 1 } TypeDependencies = { Mount, DiskGroup } ) Application Application-s ( StartProgram = "/appsh/start.sh" StopProgram = "/appsh/stop.sh" MonitorProgram = "/appsh/monitor.sh" ) DiskGroup DG-appdg ( DiskGroup = mydg ) MirrorView mir ( NaviCliHome = "/opt/Navisphere/bin" LocalArraySPNames @sys121 = { "cx600-1c2", "10.180.66.138" } LocalArraySPNames @sys120 = { "10.180.67.148", "cx700-1spj2" } RemoteArraySPNames @sys121 = { "cx700-1spj1", "10.180.67.149" } RemoteArraySPNames @sys120 = { "10.180.66.139", "cx600-1c1" } Mode = async GrpName = grp1 SplitTakeover = 1 ) Mount Mount-vol ( MountPoint = "/testdir" BlockDevice = "/dev/vx/dsk/mydg/vol01" FSType = vxfs MountOpt = "rw,suid,delaylog,largefiles,ioerror=mwdisable" FsckOpt = "-y" ) Application-s requires Mount-vol DG-appdg requires mir ./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/conf/sample_mirrorview/addMirrorViewType.sh0000755000000000000000000000510213320061751026203 0ustar rootroot#!/bin/sh # # $Copyright$ # $Revision$ # $Source$ # VCSHOME="${VCS_HOME:-/opt/VRTSvcs}" ro=`${VCSHOME}/bin/haclus -value ReadOnly` if [ $ro -eq 1 ]; then ${VCSHOME}/bin/haconf -makerw fi ${VCSHOME}/bin/hatype -add MirrorView ${VCSHOME}/bin/hatype -modify MirrorView SupportedActions resync PreSwitch addArrayUser ${VCSHOME}/bin/hatype -modify MirrorView MonitorInterval 300 ${VCSHOME}/bin/hatype -modify MirrorView NumThreads 1 ${VCSHOME}/bin/hatype -modify MirrorView OpenTimeout 180 ${VCSHOME}/bin/hatype -modify MirrorView ArgList NaviCliHome LocalArraySPNames RemoteArraySPNames Mode GrpName MirNames SplitTakeover LocalArraySecurityFilePath RemoteArraySecurityFilePath os=`uname -s`; if [ "X$os" = "XAIX" ] then ${VCSHOME}/bin/haattr -add MirrorView NaviCliHome -string "/usr/lpp/NAVICLI/" else ${VCSHOME}/bin/haattr -add MirrorView NaviCliHome -string "/opt/Navisphere/bin" fi ${VCSHOME}/bin/haattr -add MirrorView LocalArraySPNames -string -vector ${VCSHOME}/bin/haattr -add MirrorView RemoteArraySPNames -string -vector ${VCSHOME}/bin/haattr -add MirrorView Mode -string ${VCSHOME}/bin/haattr -add MirrorView GrpName -string ${VCSHOME}/bin/haattr -add MirrorView MirNames -string -vector ${VCSHOME}/bin/haattr -add MirrorView SplitTakeover -boolean 0 ${VCSHOME}/bin/haattr -add MirrorView LocalArraySecurityFilePath -string ${VCSHOME}/bin/haattr -add MirrorView RemoteArraySecurityFilePath -string ${VCSHOME}/bin/haattr -add -temp MirrorView VCSResLock -string ${VCSHOME}/bin/hatype -add MirrorViewSnap ${VCSHOME}/bin/hatype -modify MirrorViewSnap SupportedActions devscan ${VCSHOME}/bin/hatype -modify MirrorViewSnap ArgList StorageGrpName TargetResName ${VCSHOME}/bin/hatype -modify MirrorViewSnap MonitorInterval 300 ${VCSHOME}/bin/hatype -modify MirrorViewSnap OpenTimeout 180 ${VCSHOME}/bin/hatype -modify MirrorViewSnap NumThreads 1 ${VCSHOME}/bin/hatype -modify MirrorViewSnap OnlineTimeout 600 ${VCSHOME}/bin/hatype -modify MirrorViewSnap RestartLimit 1 ${VCSHOME}/bin/haattr -add MirrorViewSnap StorageGrpName -string ${VCSHOME}/bin/haattr -add MirrorViewSnap TargetResName -string ${VCSHOME}/bin/haattr -add -temp MirrorViewSnap Responsibility -string ${VCSHOME}/bin/haattr -add -temp MirrorViewSnap VCSResLock -string 2>/dev/null ${VCSHOME}/bin/hatype -modify MirrorViewSnap SupportedActions devscan 2>/dev/null ${VCSHOME}/bin/hatype -modify CVMVolDg SupportedActions -add import 2>/dev/null ${VCSHOME}/bin/hatype -modify CVMVolDg SupportedActions -add deport 2>/dev/null if [ $ro -eq 1 ]; then ${VCSHOME}/bin/haconf -dump -makero else ${VCSHOME}/bin/haconf -dump fi ./pkgs/VRTSvcsm/reloc/etc/VRTSvcs/conf/MirrorViewTypes.cf0000755000000000000000000000213213320061751022125 0ustar rootroottype MirrorView ( static keylist SupportedActions = { resync, PreSwitch, addArrayUser } static int MonitorInterval = 300 static int NumThreads = 1 static int OfflineMonitorInterval = 0 static int OpenTimeout = 180 static int RestartLimit = 1 static str ArgList[] = { NaviCliHome, LocalArraySPNames, RemoteArraySPNames, Mode, GrpName, MirNames, SplitTakeover, LocalArraySecurityFilePath, RemoteArraySecurityFilePath } str NaviCliHome = "/opt/Navisphere/bin" str LocalArraySPNames[] str RemoteArraySPNames[] str Mode str GrpName str MirNames[] boolean SplitTakeover temp str VCSResLock str LocalArraySecurityFilePath str RemoteArraySecurityFilePath ) type MirrorViewSnap ( static int ActionTimeout = 300 static keylist SupportedActions = { devscan } static int MonitorInterval = 300 static int NumThreads = 1 static int OfflineMonitorInterval = 0 static int OnlineTimeout = 600 static int OpenTimeout = 180 static int RestartLimit = 1 static str ArgList[] = { StorageGrpName, TargetResName } str TargetResName str StorageGrpName temp str Responsibility temp str VCSResLock ) ./pkgs/VRTSvcsm/reloc/opt/0000755000000000000000000000000013320061751014250 5ustar rootroot./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/0000755000000000000000000000000013320061751015562 5ustar rootroot./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/bin/0000755000000000000000000000000013320061751016332 5ustar rootroot./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/bin/MirrorView/0000755000000000000000000000000013320061751020437 5ustar rootroot./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/bin/MirrorView/clean0000755000000000000000000000522413320061751021452 0ustar rootroot# # $Copyright$ # $Revision$ # $Source$ # eval 'exec /opt/VRTSperl/bin/perl -I `pwd`/../../lib -S $0 ${1+"$@"}' if 0; use strict; use warnings; use MirrorViewAgent; use ag_i18n_inc; my $vcs_home=$VCSHOME; my $USERLANG=$ENV{"LANG"}; my $ResName = shift; my $WhyClean = shift @ARGV; my $DEVNULL = "/dev/null"; if ($^O =~ /^MSWin/i) { VCSAG_SET_ENVS ($ResName, 20048); $DEVNULL = "nul"; } else { VCSAG_SET_ENVS ($ResName, 20054); } my ($ret, $NaviCliHome, @LocalArraySPNames, @RemoteArraySPNames, $Mode, $GroupName, @mirrorNames, $SplitTakeover, $LocalArraySecurityFilePath, $RemoteArraySecurityFilePath); MirrorViewAgent::GetVectorArgs("NaviCliHome", \$NaviCliHome, \@ARGV); my $numLocalSPs = MirrorViewAgent::GetVectorArgs("LocalArraySPNames", \@LocalArraySPNames, \@ARGV); my $numRemoteSPs = MirrorViewAgent::GetVectorArgs("RemoteArraySPNames", \@RemoteArraySPNames, \@ARGV); MirrorViewAgent::GetVectorArgs("Mode", \$Mode, \@ARGV); MirrorViewAgent::GetVectorArgs("GrpName", \$GroupName, \@ARGV); my $numMirrors = MirrorViewAgent::GetVectorArgs("MirNames", \@mirrorNames, \@ARGV); MirrorViewAgent::GetVectorArgs("SplitTakeover", \$SplitTakeover, \@ARGV); MirrorViewAgent::GetVectorArgs("LocalArraySecurityFilePath", \$LocalArraySecurityFilePath, \@ARGV); MirrorViewAgent::GetVectorArgs("RemoteArraySecurityFilePath", \$RemoteArraySecurityFilePath, \@ARGV); # log error if any mandatory attr not specified if (!$NaviCliHome) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid NaviCliHome attribute value specified for resource $ResName", 401, "$ResName"); exit 0; } if (($Mode ne "sync") && ($Mode ne "async")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid Mode value specified for resource $ResName. Mode could be either 'sync' or 'async'.", 404, "$ResName"); exit 0; } if (($GroupName ne "") && ($numMirrors > 0)) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "You can either specify consistent group name or individual mirrors. Please specify either one for $ResName.", 409, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover, $LocalArraySecurityFilePath, $RemoteArraySecurityFilePath); $res->get_state(); VCSAG_LOG_MSG("W", "Replication state is : $res->{'state'}", 407, "$res->{'state'}"); $ret = $res->failover_required(); if ($ret == 2) { VCSAG_LOG_MSG("E", "devices in the mirrors are in an invalid states; administrative intervention required", 1103); } $res->remove_lockfile(); $res->set_vxdisk_state("offline"); exit(0); ./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/bin/MirrorView/info0000755000000000000000000000576713320061751021337 0ustar rootroot# # $Copyright$ # $Revision$ # $Source$ # eval 'exec /opt/VRTSperl/bin/perl -I `pwd`/../../lib -S $0 ${1+"$@"}' if 0; use strict; use warnings; use MirrorViewAgent; use ag_i18n_inc; my $vcs_home=$VCSHOME; my $USERLANG=$ENV{"LANG"}; my $ResName = shift; my $InfoType = shift; if ($^O =~ /^MSWin/i) { VCSAG_SET_ENVS ($ResName, 20048); } else { VCSAG_SET_ENVS ($ResName, 20054); } my ($ret, $NaviCliHome, @LocalArraySPNames, @RemoteArraySPNames, $Mode, $GroupName, @mirrorNames, $SplitTakeover, $LocalArraySecurityFilePath, $RemoteArraySecurityFilePath, $ind, $tmp); MirrorViewAgent::GetVectorArgs("NaviCliHome", \$NaviCliHome, \@ARGV); my $numLocalSPs = MirrorViewAgent::GetVectorArgs("LocalArraySPNames", \@LocalArraySPNames, \@ARGV); my $numRemoteSPs = MirrorViewAgent::GetVectorArgs("RemoteArraySPNames", \@RemoteArraySPNames, \@ARGV); MirrorViewAgent::GetVectorArgs("Mode", \$Mode, \@ARGV); MirrorViewAgent::GetVectorArgs("GrpName", \$GroupName, \@ARGV); my $numMirrors = MirrorViewAgent::GetVectorArgs("MirNames", \@mirrorNames, \@ARGV); MirrorViewAgent::GetVectorArgs("SplitTakeover", \$SplitTakeover, \@ARGV); MirrorViewAgent::GetVectorArgs("LocalArraySecurityFilePath", \$LocalArraySecurityFilePath, \@ARGV); MirrorViewAgent::GetVectorArgs("RemoteArraySecurityFilePath", \$RemoteArraySecurityFilePath, \@ARGV); # log error if any mandatory attr not specified if (!$NaviCliHome) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid NaviCliHome attribute value specified for resource $ResName", 401, "$ResName"); exit 0; } if (($Mode ne "sync") && ($Mode ne "async")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid Mode value specified for resource $ResName. Mode could be either 'sync' or 'async'.", 404, "$ResName"); exit 0; } if (($GroupName ne "") && ($numMirrors > 0)) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "You can either specify consistent group name or individual mirrors. Please specify either one for $ResName.", 409, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover, $LocalArraySecurityFilePath, $RemoteArraySecurityFilePath); my $option; if ($InfoType == 1) { $option="-add"; } else { $option="-update"; } $res->get_state(0); my ($cmd, $i); if ($Mode eq "async") { if ($GroupName ne "") { $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{'state'}"; system("$cmd"); } else { for($i=0; $i<$res->{'numMirrors'}; $i++){ my $mirror = $res->{mirnames}[$i]; $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{MIR_STATES}{$mirror}"; system("$cmd"); } } } elsif ($Mode eq "sync"){ for($i=0; $i<$res->{'numMirrors'}; $i++){ my $mirror = $res->{mirnames}[$i]; $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{MIR_STATES}{$mirror}"; system("$cmd"); } } exit 0 ./pkgs/VRTSvcsm/reloc/opt/VRTSvcs/bin/MirrorView/MirrorViewAgent.pm0000755000000000000000000020716213320061751024074 0ustar rootroot# # $Copyright: Copyright (c) 2015 Symantec Corporation. # All rights reserved. # # THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE SECRETS OF # SYMANTEC CORPORATION. USE, DISCLOSURE OR REPRODUCTION IS PROHIBITED # WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SYMANTEC CORPORATION. # # The Licensed Software and Documentation are deemed to be commercial # computer software as defined in FAR 12.212 and subject to restricted # rights as defined in FAR Section 52.227-19 "Commercial Computer # Software - Restricted Rights" and DFARS 227.7202, "Rights in # Commercial Computer Software or Commercial Computer Software # Documentation", as applicable, and any successor regulations. Any use, # modification, reproduction release, performance, display or disclosure # of the Licensed Software and Documentation by the U.S. Government # shall be solely in accordance with the terms of this Agreement. $ # $Revision: 1.11.5.48 $ # $Source: /project/arrayrep/src/mirrorview/unix/MirrorViewAgent.pm,v $ # #MAX LOG 1117 package MirrorViewAgent; use ArrayRep; use POSIX qw(uname); @ISA = ("ArrayRep"); use strict; use warnings; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %default); use ag_i18n_inc; @EXPORT = qw( ); $VERSION = '1.00'; require 5.000; my $vcs_home=$VCSHOME; my $VXDCTL = "/usr/sbin/vxdctl"; my $VXDISKADM = "/usr/sbin/vxdiskconfig"; my $VXDISK= "/usr/sbin/vxdisk"; my $DEVNULL = "/dev/null"; if ($^O =~ /^MSWin/i) { $DEVNULL = "nul"; } #Scan devices my $DEVFSADM = "/usr/sbin/devfsadm"; my $IOSCAN = "/usr/sbin/ioscan"; my $CFGMGR = "/usr/sbin/cfgmgr"; my $OS = (uname())[0]; if ( eval "require Net::IP" ) { require Net::IP; } if ( eval "require Socket" ) { require Socket; } my ($navisecpath, $navijarpath); sub new { my($self) = shift; my($resname) = shift; my($naviclihome) = shift; my $i=0; my ($numLocalarraySPNames) = shift; my @LocalarraySPNames; for($i=0; $i<$numLocalarraySPNames; $i++){ $LocalarraySPNames[$i] = shift; } my ($numRemotearraySPNames) = shift; my @RemotearraySPNames; $i=0; for($i=0; $i<$numRemotearraySPNames; $i++){ $RemotearraySPNames[$i] = shift; } my($mode) = shift; my($grpname) = shift; my($numMirrors) = shift; $i=0; my @mirnames; my (%mir_states) = (); my (%mir_roles) = (); my (%mir_conditions) = (); my (%mir_imageuid) = (); my (%mir_remoteuid) = (); my (%mir_updatetype) = (); my (%mir_updatetime) = (); # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ $mirnames[$i] = shift; $mir_states{$mirnames[$i]} = ""; $mir_roles{$mirnames[$i]} = ""; $mir_conditions{$mirnames[$i]} = ""; $mir_imageuid{$mirnames[$i]} = ""; $mir_remoteuid{$mirnames[$i]} = ""; $mir_updatetype{$mirnames[$i]} = ""; $mir_updatetime{$mirnames[$i]} = ""; } my($splitTakeover) = shift; my($LocalArrSecFilePath) = shift; my($RemoteSecFilePath) = shift; my $LocalSecFileOpt = ""; my $RemoteSecFileOpt = ""; if ($LocalArrSecFilePath ne "") { $LocalSecFileOpt = " -secfilepath \"$LocalArrSecFilePath\" "; } if ($RemoteSecFilePath ne "") { $RemoteSecFileOpt = " -secfilepath \"$RemoteSecFilePath\" "; } my($arrayname)="NOARRAYSP"; $i=0; for($i=0; $i<$numLocalarraySPNames; $i++){ if (&PingTest($LocalarraySPNames[$i])) { VCSAG_LOG_MSG("N", "Local array SP $LocalarraySPNames[$i] is unreachable.", 1, $LocalarraySPNames[$i] ); } else { $arrayname = $LocalarraySPNames[$i]; last; } } my($remotearray)="NOARRAYSP"; $i=0; for($i=0; $i<$numRemotearraySPNames; $i++){ if (&PingTest($RemotearraySPNames[$i])) { VCSAG_LOG_MSG("N", "Remote array SP $RemotearraySPNames[$i] is unreachable.", 2, $RemotearraySPNames[$i] ); } else{ $remotearray = $RemotearraySPNames[$i]; last; } } $self = { "resname" => $resname, "naviclihome" => $naviclihome, "arrayname" => $arrayname, "remotearray" => $remotearray, "mode" => $mode, "grpname" => $grpname, "numMirrors" => $numMirrors, "splitTakeover" => $splitTakeover, "localsecfileopt" => $LocalSecFileOpt, "remotesecfileopt" => $RemoteSecFileOpt, "state" => '', "role" => '', "condition" => '', "grpudpatetype" => '', "grpupdatetime" => '', "flag" => '', "RETRY_ATTEMPTS" => 6, "start_time" => $ }; $self->{LocalarraySPNames} = \@LocalarraySPNames; $self->{RemotearraySPNames} = \@RemotearraySPNames; $self->{mirnames} = \@mirnames; $self->{'flag'} = "-" . $self->{'mode'}; $self->{MIR_STATES} = \%mir_states; $self->{MIR_ROLES} = \%mir_roles; $self->{MIR_CONDITIONS} = \%mir_conditions; $self->{MIR_IMAGEUID} = \%mir_imageuid; $self->{MIR_REMOTEUID} = \%mir_remoteuid; $self->{MIR_UPDATETYPE} = \%mir_updatetype; $self->{MIR_UPDATETIME} = \%mir_updatetime; $navisecpath = $naviclihome . "/naviseccli"; $navijarpath = $naviclihome . "/navicli.jar"; if ($^O =~ /^MSWin/i) { $navisecpath = Win32::GetShortPathName($naviclihome . "\\naviseccli.exe"); $navijarpath = Win32::GetShortPathName($naviclihome . "\\navicli.jar"); } my $class = ref($self) || $self; bless $self; return $self; } sub DESTROY {} sub get_state { my $self = shift; my $nolog = shift; $self->{'role'} = ""; my $cmd; my $logcmd; if ($self->{'grpname'} ne "") { if ($self->{'mode'} eq "sync") { $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -listgroups -name " . $self->{'grpname'} . " -role -state -condition -recoverypolicy 2>&1"; $logcmd = $navisecpath . " -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror " . $self->{'flag'} . " -listgroups -name $self->{'grpname'} -role -state -condition 2>&1"; } else { $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -listgroups -name " . $self->{'grpname'} . " -role -state -condition -update 2>&1"; $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror " . $self->{'flag'} . " -listgroups -name $self->{'grpname'} -role -state -condition -update 2>&1"; } if (!$nolog){ VCSAG_LOG_MSG("W", "Getting the role, state, condition and update policy for group:$self->{'grpname'}", 103, $self->{'grpname'}); log_command($logcmd); } my $i=0; my @query = split('\n', `$cmd`); foreach my $q (@query) { if ($q =~ /Unable to locate the specified group/) { return 1; } if ($q =~ /Caller not privileged/) { VCSAG_LOG_MSG("W", "Caller not privileged error. Please add privileged user using Navisphere GUI.", 96); exit 1; } if ($q =~ /Authentication failed/) { VCSAG_LOG_MSG("W", "Authentication failed. Possible reasons for failure are invalid security file, invalid username, password and/or scope. Please verify privileged user and password.", 97); exit 1; } if ($q =~ /Security file not found/) { my $home_var = "home"; $home_var = "HOMEPATH" if ($^O =~ /^MSWin/i); my $home = $ENV{$home_var}; $home = "" if (!defined $home); VCSAG_LOG_MSG("W", "Security file does not exist. Please Run 'naviseccli -AddUserSecurity -User -Password -Scope -secfilepath $home' or run addArrayUser action entry point to create the security file.", 110, "$home"); exit 1; } if ($q =~ /Role/) { my @roleinfo = split('\s+', $q); if ($roleinfo[1] eq "Primary") { $self->{'role'} = "PRIMARY"; } elsif ($roleinfo[1] eq "Secondary") { $self->{'role'} = "SECONDARY"; } else { $self->{'role'} = "Invalid"; } } if ($q =~ /State/) { my @stateinfo = split('\s+', $q); $self->{'state'} = $stateinfo[1]; } if ($q =~ /Condition:\s+(.*)$/) { $self->{'condition'} = $1; if (($self->{'condition'} =~ /Fracture/i) && !$nolog) { VCSAG_LOG_MSG("W", "Condition of [$self->{'role'}] image is [$self->{'condition'}].", 120, "$self->{'role'}", "$self->{'condition'}"); } } if ($q =~ /Update Type/ || $q =~ /Recovery Policy/) { my @updateinfo = split('\s+', $q); $self->{'grpudpatetype'} = $updateinfo[2]; if ($self->{'grpudpatetype'} eq "Manual") { $self->{'grpupdatetime'} = 0; last; } else { $self->{'grpudpatetype'} = $updateinfo[5]; next; } } if ($q =~ /Update Period, in minutes/) { my @times = split('\s+', $q); $self->{'grpupdatetime'} = $times[4]; last; } } } else { if (!$nolog){ VCSAG_LOG_MSG("W", "Getting the role, state, condition and UID(s) for mirror(s)", 1105); } my $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -list -name "; my $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -list -name "; my $i=0; for($i=0; $i < $self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $localUID = ""; my $logcmd = $logcmd . " $mirror 2>&1"; if (!$nolog){ log_command($logcmd); } my @query = split('\n', `$cmd $mirror 2>&1`); foreach my $q (@query) { if ($q =~ /Caller not privileged/) { VCSAG_LOG_MSG("W", "Caller not privileged error. Please add privileged user using Navisphere GUI.", 96); exit 1; } if ($q =~ /Authentication failed/) { VCSAG_LOG_MSG("W", "Authentication failed. Possible reasons for failure are invalid security file, invalid username, password and/or scope. Please verify privileged user and password.", 97); exit 1; } if ($q =~ /Security file not found/) { my $home_var = "home"; $home_var = "HOMEPATH" if ($^O =~ /^MSWin/i); my $home = $ENV{$home_var}; $home = "" if (!defined $home); VCSAG_LOG_MSG("W", "Security file does not exist. Please Run 'naviseccli -AddUserSecurity -User -Password -Scope -secfilepath $home' or run addArrayUser action entry point to create the security file.", 110, "$home"); exit 1; } if (($q =~ /Requested mirror does not exist/) || ($q =~ /Mirror not found/)) { return ($i+2); } if ($q =~ /Remote Mirror Status/) { my @roleinfo = split('\s+', $q); if (($roleinfo[3] eq "Mirrored") || ($roleinfo[3] eq "Mirrored/No")) { $self->{MIR_ROLES}{$mirror} = "PRIMARY"; if ($self->{'role'} eq "SECONDARY") { $self->{'role'} = "Invalid"; } elsif ($self->{'role'} eq "Invalid") { $self->{'role'} = "Invalid"; } else { $self->{'role'} = "PRIMARY"; } } else { $self->{MIR_ROLES}{$mirror} = "SECONDARY"; if ($self->{'role'} eq "PRIMARY") { $self->{'role'} = "Invalid"; } elsif ($self->{'role'} eq "Invalid") { $self->{'role'} = "Invalid"; } else { $self->{'role'} = "SECONDARY"; } } } elsif ($q =~ /Image State/) { my @stateinfo = split('\s+', $q); $self->{MIR_STATES}{$mirror} = $stateinfo[2]; } elsif ($q =~ /Image Condition:\s+(.*)$/) { $self->{MIR_CONDITIONS}{$mirror} = $1; if (($self->{MIR_CONDITIONS}{$mirror} =~ /Fracture/i) && !$nolog) { VCSAG_LOG_MSG("W", "Condition of [$self->{'role'}] image is [$self->{MIR_CONDITIONS}{$mirror}].", 121, "$self->{'role'}", "$self->{MIR_CONDITIONS}{$mirror}"); } } elsif ($q =~ /Image UID/) { my @uids = split('\s+', $q); if ( $localUID eq "" ) { $self->{MIR_IMAGEUID}{$mirror} = $uids[2]; $localUID = $uids[2]; } else { $self->{MIR_REMOTEUID}{$mirror} = $uids[2]; } } elsif ($q =~ /Update Type/) { my @updateinfo = split('\s+', $q); $self->{MIR_UPDATETYPE}{$mirror} = $updateinfo[2]; if ($self->{MIR_UPDATETYPE}{$mirror} eq "Manual") { $self->{MIR_UPDATETIME}{$mirror} = 0; last; } else { $self->{MIR_UPDATETYPE}{$mirror} = $updateinfo[5]; next; } }elsif ($q =~ /Update Period, in minutes/) { my @times = split('\s+', $q); $self->{MIR_UPDATETIME}{$mirror} = $times[4]; last; } } } } if (!$self->{'role'}) { $self->{'role'} = "Invalid"; } return 0; } sub failover_required { my ($self) = shift; if ($self->{'role'} eq "Invalid") { return 2; } if ($self->{'role'} eq "SECONDARY") { return 1; } return 0; } sub wait_for_sync { my $self = shift; my $i = 0; my $wait_req = 0; my ($oto) = split('\n', `$ag_i18n_inc::HATYPE -value MirrorView OnlineTimeout `); my $cur_time = time(); my $remaining_time = ($oto - ($cur_time - $self->{'start_time'})); my $count = int($remaining_time / 20) - 1; if ($count <= 0) { return 1; } my $j =0; if ($self->{'grpname'} ne "") { while ($j < $count) { my $nolog=1; $self->get_state($nolog); my $state = $self->{'state'}; VCSAG_LOG_MSG("I", "wait_for_sync: Group [$self->{'grpname'}] State: [$state] Condition: [$self->{'condition'}].", 1041, "$self->{'grpname'}", "$state", "$self->{'condition'}"); if ($state eq "Synchronized") { last; } elsif (($state eq "Synchronizing") || ($self->{'condition'} eq "Updating") || (($self->{'mode'} eq "sync") && ($state eq "Consistent"))){ $wait_req++; } if ($wait_req) { sleep(10); } else { VCSAG_LOG_MSG("N", "Devices are Synchronized", 5); return 0; } $j++; } } else { while ($j < $count) { $wait_req = 0; for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $state = $self->{MIR_STATES}{$mirror}; my $localCondition = $self->{MIR_CONDITIONS}{$mirror}; VCSAG_LOG_MSG("I", "wait_for_sync: Mirror: [$mirror], State: [$state], localCondition: [$localCondition]", 1040, "$mirror", "$state", "$localCondition"); if (($state eq "Synchronized")) { next; } elsif (($state eq "Synchronizing") || ($state eq "Consistent") || ($localCondition eq "Updating") ) { $wait_req++; } } if ($wait_req) { sleep(10); my $nolog=1; $self->get_state($nolog); } else { VCSAG_LOG_MSG("N", "Devices are Synchronized", 5); return 0; } $j++; } } if ($j == $count) { VCSAG_LOG_MSG("W", "Devices are still in Consistent state", 6); return 1; } VCSAG_LOG_MSG("N", "Devices are Synchronized", 5); return 0; } sub mirror_takeover { my ($self) = @_; my $fractured_images = 0; # If remote array is available, check to see if the image condition is # not FRACTURED VCSAG_LOG_MSG("W", "Checking the image condition of the remote mirrors", 107); my $remcmd = $navisecpath . " -h " . $self->{'remotearray'} . $self->{'remotesecfileopt'} . " mirror " . $self->{'flag'} . " -list -name "; my $logremcmd = "$navisecpath -h $self->{'remotearray'} $self->{'remotesecfileopt'} mirror $self->{'flag'} -list -name "; my $i=0; for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $remoteCondition = ""; my $remoteState = ""; my $logcmd = $logremcmd . " $mirror 2>&1"; log_command($logcmd); my @query = split('\n', `$remcmd $mirror 2>&1`); foreach my $q (@query) { if ($q =~ /Image State/) { my @currState = split('\s+', $q); $remoteState = $currState[2]; next; } if ($q =~ /Image Condition/) { my @conditions = split('\s+', $q); $remoteCondition = $conditions[2]; } } my $localCondition = $self->{MIR_CONDITIONS}{$mirror}; my $localState = $self->{MIR_STATES}{$mirror}; if (($remoteState eq "") && ($remoteCondition eq "")) { VCSAG_LOG_MSG("E", "For mirror $mirror, there is no secondary image available. Administrative Intervention required.", 1108, $mirror); return 2; } if (($localCondition eq "fractured") || ($remoteCondition eq "fractured") || ($localState ne $remoteState) || ($localCondition ne $remoteCondition)) { $fractured_images++; } } if ($fractured_images) { VCSAG_LOG_MSG("N", "$fractured_images mirrors are in FRACTURED condition. Possible link failures.", 1109, $fractured_images); return 1; } return 0; } sub failover { my $self = shift; my $ret = 0; my $force = 0; # Determine if the remotearray is accessible or not if ($self->{'remotearray'} eq "NOARRAYSP") { VCSAG_LOG_MSG("N", "Remote array $self->{'remotearray'} is unreachable.", 1010, $self->{'remotearray'} ); $force = 1; if ($self->{'grpname'} ne "") { $ret = $self->grp_promote($force); } elsif ($self->{'mode'} eq "sync") { $ret = $self->sync_mirror_failover($force); } else { $ret = $self->async_mirror_failover($force); } ScanDev(); return $ret; } if ($self->{'grpname'} ne "") { $ret = $self->grp_promote($force); if ($ret == 1) { $ret = $self->synchronize_grp(); if (!$ret) { $force = 0; $ret = $self->grp_promote($force); } } } elsif ($self->{'mode'} eq "sync") { $ret = $self->mirror_takeover(); # Remote mirror doesn't exist. if ($ret == 2) { return $ret; } if (($ret) && ($self->{'splitTakeover'} == 0)) { VCSAG_LOG_MSG("E", "Link Failure has been detected. Since SplitTakeover flag is set to 0, VCS will not failover. Administrative intervention required.", 11); return $ret; } $ret = $self->sync_mirror_failover(); } else { $ret = $self->mirror_takeover(); # Remote mirror doesn't exist. if ($ret == 2) { return $ret; } $force = 0; $ret = $self->async_mirror_failover($force); if ($ret == 1) { $ret = $self->async_synchronize_mirror(); if (!$ret) { $force = 0; $ret = $self->async_mirror_failover($force); } } } ScanDev(); return $ret; } sub sync_mirror_failover { my ($self) = @_; my $i=0; my $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -promoteimage -name "; my $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -promoteimage -name "; my $autocmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self-> {'flag'} . " -changeimage -name "; my $logautocmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -changeimage -name "; for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $remoteUID = $self->{MIR_REMOTEUID}{$mirror}; my $localUID = $self->{MIR_IMAGEUID}{$mirror}; my $newcmd = $cmd . $mirror . " -imageuid " . $remoteUID . " -o > $DEVNULL 2>&1"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -o 2>&1"; VCSAG_LOG_MSG("W", "Promoting the mirror: $mirror", 1012, $mirror); log_command($logcmd); my $ret = system($newcmd); if ($ret) { VCSAG_LOG_MSG("E", "Unable to promote the image for $mirror", 213, $mirror); return 1; } # once you promote an image, recoverypolicy becomes 'manual' # we have to change the recoverypolicy back to 'auto' my $newauto = $autocmd . $mirror . " -imageuid " . $localUID . " -recoverypolicy auto -o > $DEVNULL 2>&1"; my $lognewauto = "$logautocmd $mirror -imageuid $localUID -recoverypolicy auto -o > $DEVNULL 2>&1"; VCSAG_LOG_MSG("W", "Changing the recovery policy to 'auto' for mirror: $mirror", 14, $mirror); log_command($lognewauto); $ret = system ("$newauto"); if ($ret) { VCSAG_LOG_MSG("W", "Unable to change the 'recoverypolicy' to auto for $mirror mirror.", 215, $mirror); #return 1; } } return 0; } sub async_mirror_failover { my ($self) = shift; my ($force) = shift; my ($retVal) = 0; my $i=0; my $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -promoteimage -name "; my $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -promoteimage -name "; my $autocmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -changeimage -name "; my $logautocmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -changeimage -name "; if (!($force)){ for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $remoteUID = $self->{MIR_REMOTEUID}{$mirror}; my $localUID = $self->{MIR_IMAGEUID}{$mirror}; my $newcmd = $cmd . $mirror . " -imageuid " . $remoteUID . " -o 2>&1"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -o 2>&1"; VCSAG_LOG_MSG("W", "Promoting the mirror: $mirror", 1012, $mirror); log_command($logcmd); my @query = split ('\n', `$newcmd`); $retVal = $?; if ($retVal) { VCSAG_LOG_MSG("E", "Unable to promote the image for $mirror", 213, $mirror); } else { #******* BEGIN: Changes for seting recovery policy to auto ******** $logcmd = $logautocmd . $mirror . " -imageuid " . $localUID . " -recoverypolicy auto -o > $DEVNULL 2>&1" ; VCSAG_LOG_MSG("W", "Changing the recovery policy to 'auto' for the mirror : $mirror", 331, $mirror ); log_command($logcmd); $newcmd = $autocmd . $mirror . " -imageuid " . $localUID . " -recoverypolicy auto -o > $DEVNULL 2>&1" ; my $ret = system("$newcmd"); if ($ret) { VCSAG_LOG_MSG("W", "Unable to set the 'recoverypolicy' for group : $self->{'grpname'} to 'auto'.", 32, $self->{'grpname'}); } #******* END: Changes for seting recovery policy to auto ******** } foreach my $q (@query) { if (($q =~ /The image specified to be promoted was unable to contact other images in the mirror/) || ($q =~ /0x7152807c/)) { VCSAG_LOG_MSG("W", "The image specified to be promoted: '$mirror' was unable to contact other images in the mirror.", 1016, $mirror); $retVal = 2; } elsif (($q =~ /0x7152807d/) || ($q =~ /cause the existing primary to become out-of-sync./)) { VCSAG_LOG_MSG("W", "Cannot promote mirror '$mirror' as the existing primary will become out-of-sync.", 17, $mirror); $retVal = 1; } elsif (($q =~ /0x7152818f/) || ($q =~ /MirrorView\/A promote failed since the primary image is currently updating the./)) { VCSAG_LOG_MSG("W", "Cannot promote image '$mirror' as secondary image is being updated.", 18, $mirror); $retVal = 1; } } } } if (($force) || ($retVal == 2)){ if ($self->{'splitTakeover'} == 0) { VCSAG_LOG_MSG("E", "Link Failure has been detected. Since SplitTakeover is set to 0, VCS will not failover. Administrative intervention required.", 1011); exit(0); } for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $remoteUID = $self->{MIR_REMOTEUID}{$mirror}; my $localUID = $self->{MIR_IMAGEUID}{$mirror}; my $newcmd = $cmd . $mirror . " -imageuid " . $remoteUID . " -type force -o 2>&1"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -type force -o 2>&1"; VCSAG_LOG_MSG("W", "Promoting the image: $mirror forcibly.", 19, $mirror); log_command($logcmd); # Reinitialize the retVal for the new pair. $retVal = 1; my @query = split ('\n', `$newcmd`); foreach my $q (@query) { if ($q =~ /Primary Image Status: Local Promote succeeded/) { VCSAG_LOG_MSG("W", "Local Promote succeeded for mirror :$mirror", 20, $mirror); #******* BEGIN: Changes for seting recovery policy to auto ******** $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror -async -changeimage -name " . $mirror . " -imageuid " . $localUID . " -recoverypolicy auto -o > $DEVNULL 2>&1" ; VCSAG_LOG_MSG("W", "Changing the recovery policy to 'auto' for the mirror : $mirror", 331, $mirror ); log_command($logcmd); $cmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror -async -changeimage -name " . $mirror . " -imageuid " . $localUID . " -recoverypolicy auto -o > $DEVNULL 2>&1" ; my $ret = system("$cmd"); if ($ret) { VCSAG_LOG_MSG("W", "Unable to set the 'recoverypolicy' for group : $self->{'grpname'} to 'auto'.", 32, $self->{'grpname'}); } #******* END: Changes for seting recovery policy to auto ******** $retVal = 0; } if ($q =~ /0x71528003/) { VCSAG_LOG_MSG("W", "Unable to send a message to the secondary or peer SP.", 21); last; } } if ($retVal) { VCSAG_LOG_MSG("W", "Failure promoting the image $mirror forcibly", 22, $mirror); } } } return $retVal; } sub grp_promote { my ($self) = shift; my ($force) = shift; my $retVal = 0; my $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -promotegroup -name " . $self->{'grpname'}; my $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror $self->{'flag'} -promotegroup -name $self->{'grpname'}"; # normal promote # We need to detect whether the image was fractured so that we can # resynchronize it later. my $fracture = 0; if (!($force)){ my $cmd = $cmd . " -o 2>&1"; my $logcmd = $logcmd . " -o 2>&1"; VCSAG_LOG_MSG("W", "Promoting the group: $self->{'grpname'} normally.", 23, $self->{'grpname'}); log_command($logcmd); my @query = split ('\n', `$cmd`); foreach my $q (@query) { if (($q =~ /Unable to contact MirrorView\/A on remote array/) || ($q =~ /0x715280fd/)) { VCSAG_LOG_MSG("W", "Unable to contact MirrorView/A on remote array.", 24); $retVal = 2; } elsif (($q =~ /0x71528031/) || ($q =~ /cause the existing primary group to become out-of-sync. Promote Locally or Force Promote needs to be selected./)) { VCSAG_LOG_MSG("W", "Cannot promote group '$self->{'grpname'}' as the existing primary group will become out-of-sync.", 25, $self->{'grpname'}); $retVal = 1; return $retVal; } elsif (($q =~ /0x715281bb/) || ($q =~ /Cannot proceed with promote as group update is in progress./)) { VCSAG_LOG_MSG("W", "Cannot promote group '$self->{'grpname'}' as group update is in progress.", 26, $self->{'grpname'}); $retVal = 1; } elsif (($q =~ /0x71058958/) || ($q =~ /Consistency Group Promotion failed because promotion would cause group to be out-of-sync/)) { VCSAG_LOG_MSG("W", "Cannot promote group '$self->{'grpname'}' normally as group has been fractured and the group can go out-of-sync if promoted forcibly.", 1021, $self->{'grpname'}); $retVal = 1; $fracture = 1; } } # Even if the promotegroup command returns success without any o/p, the command # actually doesn't change the state of the mirrors. We need to verify whether # the normal promote really succeeded. my $nolog=1; $self->get_state($nolog); if ($self->{'role'} eq "SECONDARY") { VCSAG_LOG_MSG("W", "Unable to promote the group: $self->{'grpname'} ", 33, $self->{'grpname'}); $retVal = 2; } } # force promote -in case of a disaster or a link failure (i.e. a normal promote fails) if (($force) || ($retVal == 2)){ $retVal = 1; if ($self->{'splitTakeover'} == 0) { if ($fracture) { VCSAG_LOG_MSG("E", "Consistency Group [$self->{'grpname'}] has been fractured. Since SplitTakeover is set to 0, VCS will not failover. Administrative intervention required.", 1020); } else { VCSAG_LOG_MSG("E", "Link Failure has been detected. Since SplitTakeover is set to 0, VCS will not failover. Administrative intervention required.", 1011); } exit(0); } VCSAG_LOG_MSG("W", "Promoting the group: $self->{'grpname'} forcibly.", 27, $self->{'grpname'}); my $cmd = $cmd . " -type force -o 2>&1"; my $logcmd = $logcmd . " -type force -o 2>&1"; log_command($logcmd); my @query = split ('\n', `$cmd`); my $ret = $?; foreach my $q (@query) { if ($q =~ /Local Status: Local Promote succeeded/) { VCSAG_LOG_MSG("W", "Local Promote succeeded for group :$self->{'grpname'}", 28, $self->{'grpname'}); $retVal = 0; } if ($q =~ /0x71528003/) { VCSAG_LOG_MSG("W", "Secondary or peer SP is unreachable.", 29); last; } } $self->get_state(1); if ($self->{'role'} ne "PRIMARY") { VCSAG_LOG_MSG("W", "Failure promoting the group $self->{'grpname'} forcibly", 30, $self->{'grpname'}); exit(0); } else { VCSAG_LOG_MSG("I", "Sucessfully promoted the group [$self->{'grpname'}].", 1022, "$self->{'grpname'}"); $retVal = 0; } } if ($retVal == 0){ my $logcmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror " . $self->{'flag'}. " -changegroup -name $self->{'grpname'} -recoverypolicy auto -o > $DEVNULL 2>&1" ; VCSAG_LOG_MSG("W", "Changing the recovery policy to 'auto' for the group: $self->{'grpname'}", 31, $self->{'grpname'}); log_command($logcmd); my $cmd = "$navisecpath -h $self->{'arrayname'} $self->{'localsecfileopt'} mirror " . $self->{'flag'}. " -changegroup -name $self->{'grpname'} -recoverypolicy auto -o > $DEVNULL 2>&1" ; my $ret = system("$cmd"); if ($ret) { VCSAG_LOG_MSG("W", "Unable to set the 'recoverypolicy' for group : $self->{'grpname'} to 'auto'.", 32, $self->{'grpname'}); } } elsif ($retVal == 1){ VCSAG_LOG_MSG("W", "Unable to promote the group: $self->{'grpname'} ", 33, $self->{'grpname'}); } if ($fracture) { # Synchronize the group. $self->restart_fractured_sync(); } return $retVal; } sub restart_fractured_sync { my ($self) = @_; my ($cmd, $ret); VCSAG_LOG_MSG("I", "Secondary group [$self->{'grpname'}] was forcibly promoted while it was fractured. Initiating resynchronization with new secondary.", 1023, "$self->{'grpname'}"); $cmd = $navisecpath . " -h " . $self->{'arrayname'} . $self->{'localsecfileopt'} . " mirror " . $self->{'flag'} . " -syncgroup -name " . $self->{'grpname'}; if ($self->{'mode'} eq "async") { $cmd .= " -synctype startnow"; } $cmd .= " -o > $DEVNULL 2>&1"; log_command($cmd); $ret = system("$cmd"); } sub synchronize_grp { my ($self) = @_; my $cmd; my $retVal; # first check for -listgroups -name <> -update # if update type = manual, # just issue '-syncgroup -name<> -synctype startnow' # if update type = Time elapsed since end of last update # ^^^ # store that type=end # store the time # i have to -changegroup -manualupdate # -syncgroup -name <> -synctype startnow # once synchronized, # -changegroup -enddelay