./0000755000000000000000000000000013320062073007705 5ustar rootroot./pkgs/0000755000000000000000000000000013320062073010651 5ustar rootroot./pkgs/VRTSvcsm.rte.bff0000755000000000000000000031000013320062073013605 0ustar rootroot kx F Fby nameby namerootd k<AwF"F"F./r/lib0A k (w!F"F"F./lpp_names/msg04 R I VRTSvcsm.rte { VRTSvcsm.rte 4.1.2.0 01 N B en_US VERITAS Clustering Support for EMC MirrorView(tm) 4.1 08/31/07-23:57:00 Build Env:AIX prowler 1 5 0000D99F4C00 IBM,7025-F50 [ % /etc/objrepos 8 /etc 8 /etc/VRTSvcs 8 /etc/VRTSvcs/conf 16 /etc/VRTSvcs/conf/sample_mirrorview 24 /usr/lib/objrepos 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf 16 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf/sample_mirrorview 24 /opt 8 /opt/VRTSvcs 8 /opt/VRTSvcs/bin 8 /opt/VRTSvcs/bin/MirrorView 168 /opt/VRTSvcs/bin/MirrorView/actions 16 INSTWORK 64 24 % ] } kvAwFFF`./usrna0A k*AwFFF`./usr/lpps/msg0A kF2AwF!F!F`./usr/lpp/VRTSvcsm.rteb0A k><a%w F!F!F./usr/lpp/VRTSvcsm.rte/liblpp.a0 4012 0 68 3888 0 167 350 0 1188633884 65530 119 755 22 VRTSvcsm.rte.copyright` Copyright (c) 2001-2004 VERITAS Software Corporation. ALL RIGHTS RESERVED. THIS SOFTWARE IS THE PROPERTY OF AND IS LICENSED BY VERITAS SOFTWARE, AND/OR ITS SUPPLIERS. 713 1172 68 1188633883 65530 119 755 15 VRTSvcsm.rte.al` ./opt/VRTSvcs/bin/MirrorView/MirrorViewAgent ./opt/VRTSvcs/bin/MirrorView/open ./opt/VRTSvcs/bin/MirrorView/online ./opt/VRTSvcs/bin/MirrorView/monitor ./opt/VRTSvcs/bin/MirrorView/offline ./opt/VRTSvcs/bin/MirrorView/clean ./opt/VRTSvcs/bin/MirrorView/info ./opt/VRTSvcs/bin/MirrorView/actions/resync ./opt/VRTSvcs/bin/MirrorView/MirrorViewAgent.pm ./opt/VRTSvcs/bin/MirrorView/ArrayRep.pm ./opt/VRTSvcs/bin/MirrorView/ag_i18n_inc.pm ./usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf/MirrorViewTypes.cf ./usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf/sample_mirrorview/main.cf ./opt/VRTSvcs/bin/MirrorView/MirrorView.xml ./usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf/sample_mirrorview/addMirrorViewType.sh 2143 3430 350 1188633883 65530 119 755 22 VRTSvcsm.rte.inventory` /opt/VRTSvcs: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/actions: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/MirrorViewAgent: owner = root group = system mode = 750 type = SYMLINK class = apply,inventory,VRTSvcsm.rte target = /opt/VRTSvcs/bin/ScriptAgent /opt/VRTSvcs/bin/MirrorView/open: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/online: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/monitor: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/offline: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/clean: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/info: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/actions/resync: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/MirrorViewAgent.pm: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/ArrayRep.pm: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/ag_i18n_inc.pm: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /opt/VRTSvcs/bin/MirrorView/MirrorView.xml: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte 350 3888 1172 1188633888 65530 119 755 17 VRTSvcsm.rte.size` /usr/lib/objrepos 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs 8 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf 16 /usr/lpp/VRTSvcsm.rte/inst_root/etc/VRTSvcs/conf/sample_mirrorview 24 /opt 8 /opt/VRTSvcs 8 /opt/VRTSvcs/bin 8 /opt/VRTSvcs/bin/MirrorView 168 /opt/VRTSvcs/bin/MirrorView/actions 16 INSTWORK 40 21 4012 3430 1188633883 65530 119 755 9 productid` VRTSvcsm.rte 4.1.2.0 162 0 3888 0 0 0 0 0 ` 5 68 350 1172 3430 3888 VRTSvcsm.rte.copyrightVRTSvcsm.rte.alVRTSvcsm.rte.inventoryVRTSvcsm.rte.sizeproductid kԅAwFFF`./usr/lpp/VRTSvcsm.rte/inst_roott0A kwFFF./usr/lpp/VRTSvcsm.rte/inst_root/liblpp.a0 1546 0 68 1328 0 141 318 0 1188633883 65530 119 755 15 VRTSvcsm.rte.al` ./etc/VRTSvcs/conf/MirrorViewTypes.cf ./etc/VRTSvcs/conf/sample_mirrorview/main.cf ./etc/VRTSvcs/conf/sample_mirrorview/addMirrorViewType.sh 895 1328 68 1188633883 65530 119 755 22 VRTSvcsm.rte.inventory` /etc: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs/conf: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs/conf/sample_mirrorview: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs/conf/MirrorViewTypes.cf: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs/conf/sample_mirrorview/main.cf: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte /etc/VRTSvcs/conf/sample_mirrorview/addMirrorViewType.sh: owner = root group = system mode = 750 type = FILE class = apply,inventory,VRTSvcsm.rte 110 1546 318 1188633887 65530 119 755 17 VRTSvcsm.rte.size` /etc/objrepos 8 /etc 8 /etc/VRTSvcs 8 /etc/VRTSvcs/conf 16 /etc/VRTSvcs/conf/sample_mirrorview 24 INSTWORK 24 105 0 1328 0 0 0 0 0 ` 3 68 318 1328 VRTSvcsm.rte.alVRTSvcsm.rte.inventoryVRTSvcsm.rte.sizeas knqwFFF./opt/VRTSvcs/bin/MirrorView/MirrorViewAgent/opt/VRTSvcs/bin/ScriptAgentMir k[w FFF ./opt/VRTSvcs/bin/MirrorView/openrViewA0# # START COPYRIGHT-NOTICE: 2002-2005 # # Copyright 2002-2005 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; my $ResName = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my ($typ) = split('\n', `$HARES -value $ResName Type`); my ($LockFile); $LockFile = $vcs_home . "/bin/" . $typ . "/.VCS_" . $typ . "_" . $ResName . "_Online_Lockfile.DO-NOT-REMOVE"; if (! -f "$LockFile") { exit(0); } my (@fields) = split('\s+', `$vcs_home/bin/hasys -nodeid`); my $sys = $fields[5]; my (@lines) = split('\n', `$vcs_home/bin/hares -dep $ResName`); if ($#lines == 0) { exit(0); # no deps } foreach my $line (@lines) { if ($line =~ /^#/) { next; } (@fields) = split('\s+', $line); if ($fields[1] eq $ResName) { next; } my $ret = system("$vcs_home/bin/hares -wait $fields[1] Probed 1 -sys $sys -time 120 2>/dev/null"); if ($ret == 0) { my ($st) = split('\n', `$vcs_home/bin/hares -state $fields[1] -sys $sys`); if ($st =~ /ONLINE/) { exit 0; } } } unlink("$LockFile"); exit 0; group kvpwFFF./opt/VRTSvcs/bin/MirrorView/onlineiewA0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; use strict; use MirrorViewAgent; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $ResName = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover); if (($res->{'arrayname'} eq "NOARRAYSP")) { VCSAG_LOG_MSG("W", "The Storage Processors for the local array are unreachable. Cannot continue with onlining the resource.", 00000); exit 0; } if (($res->{'remotearray'} eq "NOARRAYSP")) { VCSAG_LOG_MSG("W", "The Storage Processors for the remote array are unreachable.", 00000); } $res->get_state(0); my $ret = $res->failover_required(); if ($ret == 0) { VCSAG_LOG_MSG("N", "devices in mirrors are all read/write enabled; \ no action is required", 2); $res->create_lockfile(); $res->cvm_import(); exit(0); } elsif ($ret == 2) { VCSAG_LOG_MSG("E", "devices are in an invalid mix of states; administrative intervention required", 3); exit(0); } $ret = $res->serialize(); if ($ret) { $res->get_state(); $ret = $res->failover_required(); if ($ret == 0) { VCSAG_LOG_MSG("N", "devices in mirrors are all read/write enabled; no action is required", 4); $res->create_lockfile(); exit(0); } elsif ($ret == 2) { VCSAG_LOG_MSG("E", "devices are in an invalid mix of states; administrative intervention required", 5); exit(0); } } if ($Mode eq "sync") { $ret = $res->wait_for_sync(); if ($ret) { VCSAG_LOG_MSG("E", "Resources are still in Consistent State. Checking to see if the TAKEOVER is required", 6); } } # Now try to failover. $ret = $res->failover(); if ($ret == 0 ) { $res->create_lockfile(); $res->cvm_import(); } else { VCSAG_LOG_MSG("E", "Unsuccessful in failing over", 3); } exit(0); kw FFF ./opt/VRTSvcs/bin/MirrorView/monitorewA0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; my $VCSHOME = $ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $HARES = "$VCSHOME/bin/hares"; my $ResName = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my ($typ) = split('\n', `$HARES -value $ResName Type`); my ($LockFile); $LockFile = $VCSHOME . "/bin/" . $typ . "/.VCS_" . $typ . "_" . $ResName . "_Online_Lockfile.DO-NOT-REMOVE"; if (-f "$LockFile") { exit(110); } else { exit(100); } e local kwr FFFr ./opt/VRTSvcs/bin/MirrorView/offlineewA0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; use strict; use MirrorViewAgent; my $ResName = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover); $res->remove_lockfile(); $res->cvm_deport(); exit(0); ockFil kw FFF ./opt/VRTSvcs/bin/MirrorView/cleaneewA0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; use strict; use MirrorViewAgent; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $ResName = shift @ARGV; my $WhyClean = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover); $res->get_state(); VCSAG_LOG_MSG("W", "clean:get_state:$res->{'state'}", 2, "$res->{'state'}"); my $ret = $res->failover_required(); if ($ret == 2) { VCSAG_LOG_MSG("E", "devices in the mirrors are in an invalid states; administrative intervention required", 3); exit(1); } system("$vcs_home/bin/hares -unlock $res->{'ResName'} > /dev/null 2>&1"); $res->remove_lockfile(); exit(0); et k&w FFF ./opt/VRTSvcs/bin/MirrorView/infoeewA0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; use strict; use MirrorViewAgent; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $HARES="$vcs_home/bin/hares"; my $SILENTGREP="/usr/bin/egrep -s"; my $ResName = shift @ARGV; my $InfoType = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover); my $option; if ($InfoType = 1) { $option="-add"; } else { $option="-update"; } $res->get_state(0); if ($Mode eq "async") { if ($GroupName ne "") { my $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{'state'}"; system("$cmd"); } else { my $i=0; for($i=0; $i<$res->{'numMirrors'}; $i++){ my $mirror = $res->{mirnames}[$i]; my $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{MIR_STATES}{$mirror}"; system("$cmd"); } } } elsif ($Mode = "sync"){ my $i=0; for($i=0; $i<$res->{'numMirrors'}; $i++){ my $mirror = $res->{mirnames}[$i]; my $cmd = "$HARES -modify $ResName ResourceInfo $option" . " Status " . "$res->{MIR_STATES}{$mirror}"; system("$cmd"); } } exit 0 dev k (w FFF ./opt/VRTSvcs/bin/MirrorView/actions/resync0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # eval 'exec /opt/VRTSvcs/bin/perl5 -S $0 ${1+"$@"}' if 0; use strict; use MirrorViewAgent; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $ResName = shift @ARGV; my $NaviCliHome = shift @ARGV; my $numLocalSPs = shift @ARGV; my @LocalArraySPNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numLocalSPs; $i++){ @LocalArraySPNames[$i] = shift @ARGV; } my $numRemoteSPs = shift @ARGV; my @RemoteArraySPNames; $i=0; # populate our mirrorNames array for($i=0; $i<$numRemoteSPs; $i++){ @RemoteArraySPNames[$i] = shift @ARGV; } my $Mode = shift @ARGV; my $GroupName = shift @ARGV; my $numMirrors = shift @ARGV; my @mirrorNames; my $i=0; # populate our mirrorNames array for($i=0; $i<$numMirrors; $i++){ @mirrorNames[$i] = shift @ARGV; } my $SplitTakeover = shift @ARGV; use ag_i18n_inc; VCSAG_SET_ENVS ($ResName, 20048); my $USERLANG=$ENV{"LANG"}; # 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", 1, "$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'.", 4, "$ResName"); exit 0; } if (($Mode eq "sync") && ($GroupName ne "")) { $ENV{"LANG"}="$USERLANG"; VCSAG_LOG_MSG("W", "Invalid GroupName for $ResName specified. For synchronous mode of replication, consistent groups are not support. Only for Asynchronous mode of replication, consistent groups are support.", 5, "$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 specifiy either one for $ResName.", 6, "$ResName"); exit 0; } my $res = MirrorViewAgent->new($ResName, $NaviCliHome, $numLocalSPs, @LocalArraySPNames, $numRemoteSPs, @RemoteArraySPNames, $Mode, $GroupName, $numMirrors, @mirrorNames, $SplitTakeover); if (($res->{'mode'} eq "async") && ($res->{'grpname'} ne "")) { $res->grp_resync(); } else { $res->mirror_resync(); } 1) {  kꐍw}FFF}./opt/VRTSvcs/bin/MirrorView/MirrorViewAgent.pm0# # START COPYRIGHT-NOTICE: 2002-2003 # # Copyright 2002-2003 VERITAS Software Corporation. # All rights reserved. # # VERITAS, VERITAS SOFTWARE, the VERITAS logo and all other VERITAS # product names and slogans are trademarks or registered trademarks # of VERITAS Software Corporation in the USA and/or other countries. # Other product names and/or slogans mentioned herein may be trade- # marks or registered trademarks of their respective companies. # # END COPYRIGHT-NOTICE. # package MirrorViewAgent; use ArrayRep; use POSIX qw(uname); @ISA = ("ArrayRep"); use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %default); @EXPORT = qw( ); $VERSION = '1.00'; require 5.000; my $vcs_home=$ENV{"VCS_HOME"} || "/opt/VRTSvcs"; my $java_home="/opt/VRTSjre/jre1.4/bin"; use ag_i18n_inc; 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($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, "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; my $class = ref($self) || $self; bless $self; return $self; } sub DESTROY {} sub get_state { my $self = shift; my $nolog = shift; $self->{'role'} = ""; if (($self->{'mode'} eq "async") && ($self->{'grpname'} ne "")) { my $cmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror -async -listgroups -name " . $self->{'grpname'} . " -role -state -condition -update"; if (!$nolog){ VCSAG_LOG_MSG("W", "Getting the role, state, condition and update policy for group:$self->{'grpname'}", 3, $self->{'grpname'}); my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror -async -listgroups -name $self->{'grpname'} -role -state -condition -update"; log_command($logcmd); } my $i=0; my @query = split('\n', `$cmd`); foreach my $q (@query) { 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/) { my @conditioninfo = split('\s+', $q); $self->{'condition'} = $conditioninfo[1]; } if ($q =~ /Update Type/) { 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)", 4); } my $cmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror " . $self->{'flag'} . " -list -name "; my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} 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"; if (!$nolog){ log_command($logcmd); } my @query = split('\n', `$cmd $mirror`); foreach my $q (@query) { 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/) { my @conditioninfo = split('\s+', $q); $self->{MIR_CONDITIONS}{$mirror} = $conditioninfo[2]; } 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"; } } 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', `$vcs_home/bin/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; while ($j < $count) { $wait_req = 0; for($i=0; $i<$self->{'numMirrors'}; $i++){ my $mirror = $self->{mirnames}[$i]; my $state = $self->{MIR_STATES}{$mirror}; if ($state eq "Synchronized") { next; } elsif (($state eq "Synchronizing") || ($state eq "Consistent")) { $wait_req++; } } if ($wait_req) { my $cmd = "sleep 10"; system ($cmd); 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 avaialble, check to see if the image condition is # not FRACTURED VCSAG_LOG_MSG("W", "Checking the image condition of the remote mirrors", 7); my $remcmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'remotearray'} . " mirror " . $self->{'flag'} . " -list -name "; my $logremcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'remotearray'} 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"; log_command($logcmd); my @query = split('\n', `$remcmd $mirror`); 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.", 8, $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 FRACUTRED condition. Possible link failures.", 9, $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.", 10, $self->{'remotearray'} ); $force = 1; if ($self->{'mode'} eq "sync") { $ret = $self->mirror_failover(); } elsif ($self->{'grpname'} ne "") { $ret = $self->grp_promote($force); } else { $ret = $self->async_mirror_failover($force); } return $ret; } if ($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->mirror_failover(); } elsif (($self->{'mode'} eq "async") && ($self->{'grpname'} ne "")) { $force = 0; $ret = $self->grp_promote($force); if ($ret == 1) { $ret = $self->synchronize_grp(); if (!$ret) { $force = 0; $ret = $self->grp_promote($force); } } } 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); } } } return $ret; } sub mirror_failover { my ($self) = @_; my $i=0; my $cmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror " . $self->{'flag'} . " -promoteimage -name "; my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror $self->{'flag'} -promoteimage -n ame "; my $autocmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror " . $self-> {'flag'} . " -changeimage -name "; my $logautocmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} 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"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -o"; VCSAG_LOG_MSG("W", "Promoting the mirror: $mirror", 12, $mirror); log_command($logcmd); my $ret = system($newcmd); if ($ret) { VCSAG_LOG_MSG("E", "Unable to promote the image for $mirror", 13, $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"; my $lognewauto = "$logautocmd $mirror -imageuid $localUID -recoverypolicy auto -o"; 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.", 15, $mirror); } } } sub async_mirror_failover { my ($self) = shift; my ($force) = shift; my ($retVal) = 0; my $i=0; my $cmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror " . $self->{'flag'} . " -promoteimage -name "; my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror $self->{'flag'} -promoteimage -name "; my $autocmd = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror " . $self->{'flag'} . " -changeimage -name "; my $logautocmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} 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"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -o"; VCSAG_LOG_MSG("W", "Promoting the mirror: $mirror", 12, $mirror); log_command($logcmd); my @query = split ('\n', `$newcmd`); $retVal = $?; if ($retVal) { VCSAG_LOG_MSG("E", "Unable to promote the image for $mirror", 13, $mirror); } 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.", 16, $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.", 11); 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 oos -o"; my $logcmd = "$logcmd $mirror -imageuid $remoteUID -type oos -o"; VCSAG_LOG_MSG("W", "Promoting the image: $mirror forcibly.", 19, $mirror); log_command($logcmd); 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); $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 = $java_home . "/java -jar " . $self->{'naviclihome'} . "/navicli.jar -h " . $self->{'arrayname'} . " mirror -async -promotegroup -name " . $self->{'grpname'}; my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror -async -promotegroup -name $self->{'grpname'}"; # normal promote if (!($force)){ my $cmd = $cmd . " -o"; my $logcmd = $logcmd . "-o"; 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; } 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; } } } # force promote -in case of a disaster or a link failure (i.e. a normal promote fails) 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.", 11); exit(0); } VCSAG_LOG_MSG("W", "Promoting the group: $self->{'grpname'} forcibly.", 27, $self->{'grpname'}); my $cmd = $cmd . " -type oos -o"; my $logcmd = $logcmd . " -type oos -o"; log_command($logcmd); my @query = split ('\n', `$cmd`); 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; } } if ($retVal) { VCSAG_LOG_MSG("W", "Failure promoting the group $self->{'grpname'} forcibly", 30, $self->{'grpname'}); } } if ($retVal == 0){ my $logcmd = "$java_home/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror -async -changegroup -name $self->{'grpname'} -recoverypolicy auto -o > /dev/null 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 = $java_home . "/java -jar $self->{'naviclihome'}/navicli.jar -h $self->{'arrayname'} mirror -async -changegroup -name $self->{'grpname'} -recoverypolicy auto -o > /dev/null 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'}); } return $retVal; } 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