kzZh:h:by nameby nameBUILDd kHA./AA k&mh:h:h:0v./lpp_namemm4 R S vsd { vsd.sysctl 3.2.0.4 01 Y U En_US VSD sysctl commands [ *ifreq ssp.basic (3.2.0.0) 3.2.0.8 *ifreq ssp.css (3.2.0.0) 3.2.0.7 *ifreq ssp.sysman (3.2.0.0) 3.2.0.5 *ifreq ssp.vsdgui (3.2.0.0) 3.2.0.1 *ifreq vsd.cmi (3.2.0.0) 3.2.0.3 *ifreq vsd.rvsd.scripts (3.2.0.0) 3.2.0.5 *ifreq vsd.vsdd (3.2.0.0) 3.2.0.7 % /usr/lpp/csd/sysctl 432 /usr/lpp/SAVESPACE 432 /usr/lib/objrepos 8 /usr/lpp/csd/bin 8 INSTWORK 56 24 % % % IY11913 GENERIC FIXES FOR PSSP 320 14 IY11913 GENERIC FIXES FOR PSSP 320 IY13449 GENERIC FIXES FOR PSSP 320 8 IY13449 GENERIC FIXES FOR PSSP 320 IY14619 UPDATEVSDTAB SCRIPT DOES NOT TAKE INTO ACCOUNT MIRRORING WHEN 1 IY14619 UPDATEVSDTAB SCRIPT DOES NOT TAKE INTO ACCOUNT MIRRORING WHEN IY16629 GENERIC FIXES FOR PSSP 320 7 IY16629 GENERIC FIXES FOR PSSP 320 IY16427 ucfgvsd - returns error from SDRGetObjects call 3 IY16427 ucfgvsd - returns error from SDRGetObjects call % ] } k\A./usrAA k{A./usr/lppAA k_A./usr/lpp/vsd/vsd.sysctl/3.2.0.4AA kꦿzmh:h:h:0r./usr/lpp/vsd/vsd.sysctl/3.2.0.4/liblpp.amm 5620 0 68 4232 0 15 186 0 983197363 30007 1 644 9 productid` vsd 5765-D5100 268 564 68 983197364 30007 1 644 20 vsd.sysctl.copyright` Licensed Materials - Property of IBM 5765D5100 (C) Copyright International Business Machines Corp. 1985, 2000. All rights reserved. US Government Users Restricted Rights - Use, duplication or disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 2826 3500 186 983197711 30007 1 644 20 vsd.sysctl.inventory` /usr/lpp/csd/sysctl/sysctl_vsd.cmds: owner = root group = system mode = 644 type = FILE class = apply,inventory,vsd.sysctl size = 9077 checksum = "33602 9 " /usr/lpp/csd/sysctl/vsdl1diag2.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 5465 checksum = "45198 6 " /usr/lpp/csd/sysctl/domkvglv.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 33221 checksum = "15066 33 " /usr/lpp/csd/sysctl/removevsd: owner = root group = system mode = 755 type = FILE links = /usr/lpp/csd/bin/removevsd class = apply,inventory,vsd.sysctl size = 3633 checksum = "56016 4 " /usr/lpp/csd/sysctl/removevsd2.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 20271 checksum = "43187 20 " /usr/lpp/csd/sysctl/updatevsdtab2.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 16524 checksum = "27750 17 " /usr/lpp/csd/sysctl/createhsd2.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 34037 checksum = "02755 34 " /usr/lpp/csd/sysctl/createvsd2.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 56201 checksum = "64608 55 " /usr/lpp/csd/sysctl/dodelvg.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 6633 checksum = "57419 7 " /usr/lpp/csd/sysctl/doimportvg.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 7527 checksum = "33325 8 " /usr/lpp/csd/sysctl/dovaryonvg.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 2553 checksum = "62219 3 " /usr/lpp/csd/sysctl/getavailpv.perl: owner = root group = system mode = 755 type = FILE class = apply,inventory,vsd.sysctl size = 3660 checksum = "22506 4 " 86 3692 564 983197711 30007 1 644 15 vsd.sysctl.size` /usr/lpp/csd/sysctl 432 /usr/lpp/SAVESPACE 432 /usr/lib/objrepos 8 /usr/lpp/csd/bin 8 436 4232 3500 983197711 30007 1 644 13 vsd.sysctl.al` ./usr/lpp/csd/sysctl/sysctl_vsd.cmds ./usr/lpp/csd/sysctl/vsdl1diag2.perl ./usr/lpp/csd/sysctl/domkvglv.perl ./usr/lpp/csd/sysctl/removevsd ./usr/lpp/csd/sysctl/removevsd2.perl ./usr/lpp/csd/sysctl/updatevsdtab2.perl ./usr/lpp/csd/sysctl/createhsd2.perl ./usr/lpp/csd/sysctl/createvsd2.perl ./usr/lpp/csd/sysctl/dodelvg.perl ./usr/lpp/csd/sysctl/doimportvg.perl ./usr/lpp/csd/sysctl/dovaryonvg.perl ./usr/lpp/csd/sysctl/getavailpv.perl 1280 5620 3692 983197711 30007 1 644 18 vsd.sysctl.fixdata` fix: name = IY11913 abstract = GENERIC FIXES FOR PSSP 320 type = f filesets = "ssp.authent:3.2.0.1\n\ ssp.basic:3.2.0.1\n\ ssp.cediag:3.2.0.1\n\ ssp.clients:3.2.0.1\n\ ssp.css:3.2.0.1\n\ ssp.st:3.2.0.1\n\ ssp.sysman:3.2.0.1\n\ vsd.cmi:3.2.0.1\n\ vsd.hsd:3.2.0.1\n\ vsd.rvsd.hc:3.2.0.1\n\ vsd.rvsd.rvsdd:3.2.0.1\n\ vsd.rvsd.scripts:3.2.0.1\n\ vsd.sysctl:3.2.0.1\n\ vsd.vsdd:3.2.0.1\n\ " symptom = "" fix: name = IY13449 abstract = GENERIC FIXES FOR PSSP 320 type = f filesets = "ppe.poe:3.1.0.4\n\ ptpe.program:3.2.0.3\n\ ssp.basic:3.2.0.5\n\ ssp.clients:3.2.0.3\n\ ssp.css:3.2.0.4\n\ ssp.resctr.rte:3.2.0.1\n\ vsd.sysctl:3.2.0.2\n\ vsd.vsdd:3.2.0.4\n\ " symptom = "" fix: name = IY14619 abstract = UPDATEVSDTAB SCRIPT DOES NOT TAKE INTO ACCOUNT MIRRORING WHEN type = f filesets = "vsd.sysctl:3.2.0.3\n\ " symptom = "" fix: name = IY16629 abstract = GENERIC FIXES FOR PSSP 320 type = f filesets = "ssp.basic:3.2.0.8\n\ ssp.css:3.2.0.7\n\ ssp.sysman:3.2.0.5\n\ ssp.vsdgui:3.2.0.1\n\ vsd.rvsd.scripts:3.2.0.5\n\ vsd.sysctl:3.2.0.4\n\ vsd.vsdd:3.2.0.7\n\ " symptom = "" fix: name = IY16427 abstract = ucfgvsd - returns error from SDRGetObjects call type = f filesets = "vsd.cmi:3.2.0.3\n\ vsd.rvsd.scripts:3.2.0.5\n\ vsd.sysctl:3.2.0.4\n\ " symptom = "" 185 0 4232 0 0 0 0 0 ` 6 68 186 564 3500 3692 4232 productidvsd.sysctl.copyrightvsd.sysctl.inventoryvsd.sysctl.sizevsd.sysctl.alvsd.sysctl.fixdata kIu#h:}9:0ƕu#./usr/lpp/csd/sysctl/sysctl_vsd.cmds# IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2000 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG # #"@(#)29 1.13 src/csd/sysctl/sysctl_vsd.cmds, vsd, csd_rmoh, rmohs01a 7/7/00 14:49:42" #################################################################### # # Module: sysctl_vsd.cmds # #------------------------------------------------------------------- # # Description: # This file contains Tcl procs for the VSD sysctl # server side application. # # sysctl_mkvglv # sysctl_varyoffvg # sysctl_importvg # sysctl_varyonvg # sysctl_dellv # sysctl_lsucfgvsd # sysctl_lsucfghsd # sysctl_vsdl1diag # sysctl_vsdsklst # sysctl_delvg # sysctl_vsdcheck # sysctl_createvsd2 # sysctl_createhsd2 # sysctl_removevsd2 # sysctl_removehsd2 # sysctl_vsdsklst2 # sysctl_updatevsdnode2 # sysctl_updatevsdtab2 # sysctl_updatehsd2 # sysctl_cfghsdvsd2 # sysctl_ucfghsdvsd2 # sysctl_vsdl1diag2 # sysctl_commit # sysctl_rollback # sysctl_delvg # # ################################################################### # globals used to get/free dce credentials create var envrc 0 SYSTEM create var nkrb5 {} SYSTEM create var okrb5 {} SYSTEM ################################################################### create proc sysctl_mkvglv {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/domkvglv.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_varyoffvg {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dovaryoffvg.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_importvg {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/doimportvg.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_varyonvg {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dovaryonvg.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_dellv {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dodellv.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_lscfgvsd {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dolscfgvsd.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_lscfghsd {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dolscfghsd.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_lsucfgvsd {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dolsucfgvsd.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_lsucfghsd {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dolsucfghsd.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_vsdl1diag {} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dovsdl1diag.perl " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_vsdsklst {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dovsdsklst.perl $args " Output ] puts stdout $Output vsd_free_creds return } # This routine is used to check if a user can run sysctl and sysctl_vsd* # create proc sysctl_vsdcheck {} {ACL /etc/sysctl.vsd.acl} { if { [ aclcheck -f /etc/sysctl.vsd.acl root.SPbgAdm ] } { # sysctl_vsdcheck: Authorization confirmed. return } return -code error "sysctl_vsdcheck: Not authorized to run sysctl vsd commands.\n Principal root.SPbgAdm is not defined."; } # Since we plan to let any user with sysctl_vsd authorization run # VSD usability commands, he must be enabled to run SDR commands and # vsd admin commands such as defvsd, defhsd, ... # in order to avoid creating a lot of sysctl_SDRxxx, sysctl_defvsd ... # we create following sysctl_ commands to transfer root group to the user create proc sysctl_createvsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/createvsd2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_createhsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/createhsd2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_removevsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/removevsd2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_removehsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/removehsd2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_vsdsklst2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/vsdsklst2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_updatevsdnode2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/updatevsdnode2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_updatevsdtab2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/updatevsdtab2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_updatehsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/updatehsd2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_cfghsdvsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/cfghsdvsd2.ksh $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_ucfghsdvsd2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/ucfghsdvsd2.ksh $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_vsdl1diag2 {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/vsdl1diag2.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_commit {} {ACL /etc/sysctl.vsd.acl} { set f [open /usr/lpp/csd/vsdfiles/vsd_rollback r+] seek $f 0 end puts $f "COMMIT" close $f vsd_get_creds set In [ open "| /bin/grep COMMIT /usr/lpp/csd/vsdfiles/vsd_rollback " ] while {![eof $In]} { gets $In Line puts stdout $Line } vsd_free_creds return } create proc sysctl_rollback {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dorollback.perl $args " Output ] puts stdout $Output vsd_free_creds return } create proc sysctl_delvg {args} {ACL /etc/sysctl.vsd.acl} { vsd_get_creds set rc [ catch "exec /usr/lpp/csd/sysctl/dodelvg.perl $args " Output ] puts stdout $Output vsd_free_creds return } # get credentials create proc vsd_get_creds {} SYSTEM { global env nkrb5 okrb5 envrc # First try to get DCE credentials # note, dsrvtgt returns 0 if DCE if not being used. set rc [catch {exec /usr/bin/dsrvtgt ssp/spbgroot} nkrb5] if { $rc != 0 } { error "$nkrb5" } if { $nkrb5 != ""} { set envrc [catch {set okrb5 $env(KRB5CCNAME)}] set env(KRB5CCNAME) $nkrb5 } # Try to get kerberos credentials set env(KRBTKFILE) "/tmp/tktvsd.[pid]" set rc [catch {exec /usr/lpp/ssp/kerberos/bin/ksrvtgt root SPbgAdm} credsmsg] if { $rc != 0 } { error "$credsmsg" } return } # free credentials create proc vsd_free_creds {} SYSTEM { global env nkrb5 okrb5 envrc # free dce credentials if they exist if { $nkrb5 != ""} { catch {exec /bin/kdestroy} if { $envrc == 0 } { set env(KRB5CCNAME) $okrb5 } else { unset env(KRB5CCNAME) } } # free kerberose credentials if they exist catch {exec /bin/k4destroy} return } # Simple proc to test the use of credentials create proc vsd_test_creds {} NONE { vsd_get_creds set rc [ catch "exec /bin/sysctl whoami -v " Output ] puts stdout $Output vsd_free_creds return } erl k,$(Yh:}9:0Y./usr/lpp/csd/sysctl/vsdl1diag2.perl#!/usr/lpp/ssp/perl/bin/perl # IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2000 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG ##################################################################### # # # Module: vsdl1diag2.perl # # # CPRY PGM # # Licensed Materials - Property of IBM # # 5765-296 PSSP # # (C) Copyright IBM Corp. 1994, 1995 All Rights Reserved. # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # CPRY # # #-------------------------------------------------------------------# # # # Description: # # # Inputs: # # # # # Outputs: # # # # Returns: # # 0 - if completed successfully # # 1 - if bad command line or bad SDR return # # # # Syntax: # # # # # # External Ref: # # sp_msg # # SDRChangeAttrValues # # SDRGetObjects # # # # Internal Ref: # # none # # # ##################################################################### #"@(#)37 1.8.1.1 src/csd/sysctl/vsdl1diag2.perl, vsd, csd_rmoh, rmohs01a 7/7/00 15:16:12" # This file is the client or user command to do VSD consistency check # a user must run kinit before eovking this program $MSGCAT="/usr/lib/nls/msg/\?/vsd.cat"; $SPMSG="/usr/lpp/csd/bin/spmsg_csd"; $SDR_PATH="/usr/lpp/ssp/bin"; $USAGE="Usage: vsddiag"; $progname = "vsddiag"; $FAN_OUT=128; $TIMEOUT = 28800; sub print_usage { system "$SPMSG VSDSYSCTLINF $MSGCAT VSDSYSCTLINF08 '$USAGE\n' "; } if ($ARGV[0] eq "-P") { shift(@ARGV); $sp_name = $ARGV[0]; shift(@ARGV); $ENV{'SP_NAME'} = $sp_name; } ######################################################################## # # Check for usage needed # ######################################################################## if ($ARGV[0] eq "-h") { &print_usage; exit 0; } # check that SDR is accessable # if SDR is not accessable, cfgvsd will check flat files `$SDR_PATH/SDRGetObjects SP control_workstation > /dev/null 2>&1`; if ( $? != 0 ) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG02 '%1\$s: 0034-602 The repository cannot be accessed. Return code was %2\$s.\n' $progname $? "; print "VSD_USA ERROR\n"; exit 1; } # get hostnames to convert from numbers to hostname open(HOSTNAMES, "/usr/lpp/ssp/bin/SDRGetObjects -q Node node_number reliable_hostname VSD_adapter | ") || die "Can't get HOSTNAMES"; $junk = ; while() { ($num, $name, $vsd_adapter) = split; $hostname{$num} = $name if $vsd_adapter ne "\"\""; } #convert node numbers to hostnames $hosts = join(',', values(%hostname)); # print "vsds=", $vsds, "; hosts=", $hosts, ".\n"; if ( $hosts eq "" ) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG11 '%1\$s: 0034-611 No valid VSD hosts specified.\n' $progname "; print "VSD_USA ERROR\n"; exit 2; } if ($hosts =~ /,/) { @node_table = split(/,/, $hosts); } else { @node_table[0] = $hosts; } foreach $n (@node_table) { $run_node_list = $run_node_list . " -h $n"; } # after exec the current perl script file is gone so that we should use system # instead of exec # sysctl takes a collection of node names as argument # if -c does not work; we need to change it to -h nodename1 -h nodename2 ... # system "/usr/lpp/ssp/bin/sysctl -f $FAN_OUT -T $TIMEOUT $run_node_list sysctl_vsdl1diag > /tmp/vsdl1.$$"; $rc=$?; if ($rc > 0) { system "cat /tmp/vsdl1.$$"; system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG10 '%1\$s: 0034-610 Failed to run sysctl %2$s.\n' $progname \"sysctl_vsdl1diag\" "; system "rm -f /tmp/vsdl1.$$"; print "VSD_USA ERROR\n"; exit 3; } system "/usr/lpp/csd/sysctl/checkvsdl1 /tmp/vsdl1.$$ 2>&1"; if ($? > 0) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG01 '%1\$s: 0034-601 %2\$s failed.\n' $progname \"/usr/lpp/csd/sysctl/checkvsdl1\" "; system "rm -f /tmp/vsdl1.$$"; print "VSD_USA ERROR\n"; exit 4; } system "rm -f /tmp/vsdl1.$$"; exit 0; s: lbq`Łh:Җ:Җ:0ʈ+K./usr/lpp/csd/sysctl/domkvglv.perll   e $ainoprst"#;_dhlmv()-/=Sbcfgku{} &',.01:ADGLOPRTV\wxy+234@CEFIM[]q|%56>HKNUYj~!89sWb@RHBZCBbƔ}7t7Vu^]ʪ?\[OLC؇b)iV+L18Q&0C؆@G!P$kB8:Sr@ Dv!2*V潧bW8-pRLfYmN/fMpwUNSn0TN7LuGW}x]NӋ^K^N؃aHh$?CS}+җ)ޫ]iFXS-sb :i龆9kb<夭dI(hDoHrDÁDbJ&(hM䡉 Q7Љ6!ܪQNNf O|2,Cb)|"6k7N\7V{ c;Mx]GnxX΁C}uЧU^^#JU/޳?)x& U/,˄S؇J^kg:)mb&58÷SSbַBazOτS!җ.w $_?tI :T/M \9x{_I .>]W:>0HX4=rVòPp$_Ƅ!W3p D8PLhL8PLhL!(&4& ?% GB%A1<<<=:U[Ƅ`" cBb0؇HϜ4¡?Xωgq^2 cJ?DT+ +{iU؇HM(9kJS %uWJZҔǂlC$Hx':UDZFu\7(Ϋ^?7.N؃b C7Y!|/c}wӄkV!|/5|" ?(%C%^+I[rJ6r[e^+,'_圞TPg CT~p1 8is*+(g!%_J\LXXJm' Hι /Dҕ(E; 1D|^ "R]*VoG "K4)NNM908efĴⱥ̪J1al+)J;GIH#3e(9kD4sJNHX'-3H*DT+J6DעiAZRxO WUt)N s GCiPѠpD4S X| tV"2rTo8Ҷ{JJeE AB,"TT&5* x' hTLT9XuAAAAAAAAAAAAAAAAAAb Cef#<f]i                  12   gBDEFB>™ìcd62KpၙUJ\/<$s+kgD6TPT4,*+"TT&5* JDqP, kפU0nx m8ʯ S9k$8?7¹ ?.sұԁXuyc*.y?c ʩKE0^2RLၛc*,ͱR, U)`ͱRb G8Ҷ{JJeE ABB%EAcXQBiPhаD' DGA/ +YW&ҹk#>&:;-u A:!fmZ_Q1 ʩ)y03 ʩ v<?U"LEcdU% gG8UI|zLXu1leT)y?U%r~2Kìyc*™3RS| oll(X"FDPv ZE!rqenc\[.e'A=cJ\Y[b0V,ЁcfsuoXR.lC.g$?e(9kM4X̤陸\[O,?ŕ# R{q])AVL&Njs9)mɧkU @`Qgd19g}7+;rcva;z5}cR˚J{c>ӏcո&WbyPf2t,VKleT^z(`V< okיjs'(ب8T#g rL,AZ.g%-s)A^:U}$R&06&07 c2cؠ@@Ap-cw+iX( ]ʛSv ڻ7`jT݂öM G(%_R(&E^ZöM؉YuՍ,ب8T,Cuzr^_%9k7Js7\fd?JmXR}mdXUHaL񲢇`Y`IWҹ@?5.dF2Cc*g%MRɓE%%UPMcK팪6UHk&M`]K`Y`IWҹ@?5.g$c$?2FrTU!rdgAJK\ɑsA)/%_Ra`IWҤQgڴ0d!Sl*Ug]MdvڣLA]M@rGgc _Ir;?mQ|"?γγc 5} } Stד7NFk| :i{?r\UHnVvi@Yuujy΃բpfw,2Fp#&NT(2 B9Mx O"?2 Bs 狁BMX}(E;J-sjƗ2k@Y)ŅEs&>"k5cKI z,yc*kx4lYq/79+d;^*Z39kt UG7|`AwL~0WZ)b3W Maԭtܭ"CyvtㆬiUw7ng/3=Z3ӳ^$0_ WA"k6U|r MX}(E;J-smV4Esf>BX]X Ecc I=(q1=("ìEqV<4sYB?c I=(q"kdOh4 ?γEH}qXue %_JK\]34##U/|$n黥fgoBJ&Q7$Q7(& gc䒯D㮅r*W)㮅uU IDCB!&&1b]IWҡ0J"?Չw+(Hb]aCR(XrB9LAW Б ?Չw+köQg.r Qg?c L2~LLXX?B)J EnpEY t:IWԁ<mtЊ:2I2 G a HL' eXH( 1YUӮSE=[*3!&'#?QC t̄ <Ui:fBMxOp̀2I2k|/ &D3Ec?y@U 5>˜i003Ui:fBM]: a|*gZN^)ၘ2I2m*'S  #UӨ ?:)\7w_XIWҬiB)S ^*2,g=[dZN^y2ʭ'LI 4H42ʭ'LI 484G`_^"γ*3!&'S  aM"VQ`_XK`_eVd$ג 4i`X_\O1#<8ʯ z, 28+}HEagX6%ΰ/U(E;g?y_6ҮA$X͟oqsF)?FyJuGhZvAagU}*"6U(E;eVd$8&?ΰ,-JNBcɤL, U(E;ĶU(E;/iIϞS 4U(E;E1id}*G`XYJdY%_JnG\攜i{3USissRs?γFdIϚUqel;issRsEuB, 2 0&xpH issPw=o @U 5> #dZN^y" iB)SissPwʭ'LI @!`X[dZN^) " 2ZN^ 484Ui:fBMx D'"Ea`X_\CZz)j_U2xYgW,/}Q`X_Xuav-agW][b=[_c*]V J#[)ҮR@q0:ն!pN&Tz?V?TzdU؇ WN@ Eg.r xv8;i(XrQg.r ](9k"?Չw+mC֤Qc՜< gep 6TPv{J 0&4*(2+u,Yz$ʊ$46TQ(9k½\rP E=[Q@9jAYI* HM-h2 ](9k6UIrdsyWJZ~MR\q0D#`X[`mlЛc*#D4Yg%k0,,-8y([)EagYuYuՍ,QBQb큵VpP6,c.n\O?XrCRDCI*UVJNҁ\gV4[[)z,1ۋ_ Uŕ;?dtiY.Ed›k";?WJK\yM42IWҹLgdPɎ s WJKPM42IWҤr$@ vj%UPL8L,4\R]%_JÉ̢i{?mUtJmQU]).rBafQg)yQAM;]No^q]3t8=Y.4+;qU/1Ug.5A&@%ޟcϥiw)nOt1[עtg kSL# gu,:'sT}3jqmu׊g.0ꥬ?M5wR\U]DC[5׉uTg} r]t.f>prwU(ECYƯUtJ ӛ IӛRJ PL9IWҤQg]MedN>E8@Xvy3t:| GVY/w%ޞ#P}]FVfz,9M>u^j^0]Sk^y{jE(Q1!9ۓ7Y?9@&MkE{շ&*?, UŭP]mI*&9@A2(c!K>™,?愦W<&jB)P6k}GSv06(.]MM[U^>vpw.xE\cϩ(1mdPɀ y:"}cW流w5G:Q? TTcJ_\2֬Gs7Zw N:W} I`h@l` g7I,k䂘rהY/bYG״M48~ 6'\+ٙܵܩ®5  §E:ռE@A̺,jY@?3ɓ2f1e(n53TM4Sp+s{ͬG)J &EBU g(* g7IgTM5@imUpfgr Td\ ? 5 ΆSȢ,@@P(lTE1 gWU^^or^rA<ŀ/HU>0T}cR˚ M4]J;^]K.i3uR'UMDCTr^*jsyk%~Lj&&EsCOrYs]Tuzj&NfyauTgd Oբ.`YsCkV# n|/VybuTds0x4L@G)h]WDC@ |ד/ &%A$pXDrlzDC@]W"55r8$D@ j&5y/is$u} rk_H y:zx4L@G)h5r:A  &E\ CɛгMZ/" \Y!ݵT(ږSFP!y"9jJKm\I*&9@A2(2 3Ys MX}(E;J-sY/ᛥ!?28+}HEvgwCN0\g1&׉uTgӌ/.4ד7A=DCT꣫r]锄al;ʊ eԲ,gdU!™sleT-`_dU#]3eE"V4[[)dUHJc*5/UҒ*WkM%̥%U?Z[?3c!UҒ*W(דaLၙUH ϜcU̞G#fn]VKR&Osu78nד &?%USdՔd?BTsՒgu#" *T,ydJ)y9Mxi{?o1leT gGgU! EuUHaLhQCȳmXR}mlzƗ31U#9*mH.pH"z,V9cKI\HHleT䩶2C[dJ @`γ?α1j%UaLWJK\C3piUM8y(YARy3R/Qg`ml[yc*'S<9 yAvc*]b3Sl2B)Uqelq1leT gG8M6EY(SjB)P6k?^Zc*,lUx9kI[ո^ZȢ6 *TD#gWPv Z$fr׶ *@Y)Pv Z$fr׶ *@Y)l0r%)z5S^fsum=U9k^ZV03s꣡u7΁Gzuo}z:n/[:.tSem`?7¹fZİ6&]<3e流p3U8ע|x_)هlM80'u_oU/Y6C z, 3JǟRQgcJyL*IsgdU%^ysjƕ])NXҫ)Hʩ,z,:iU}ml{V4Jw^ZEeԲVo2 ^ysjƕ]'gcJkd9U)EXjjƕ]'gcJkd=gdU*vYuYuYjl ڳg]M%iUŕ9 yAvc*][)(2 PՇ҄Smb29 *6UI\?l Y$r֒5S)p3U6 *E1lUx9kI[ G8M,.*,.+ 5a(XHUlUx9kS|+ 5a(XHUlUx9kS|+N&`KRnjTzr׶ *怜`fGC:n/[a:U3p."et^:u]|=os)`lMOyfU/Vfq1D9k;03_S؛paOZ310^mʇ@Ysf>jƕ])NU|62KpՍ*R3ڱWJS}RXYuXҫLiUҔ$? *?˩et+gdU)pՍ*Ojƕ]'r2R:?ΰ,/եՍ*Ojƕ]'^ʩXʩSj%UFbƕ]*cJkEYuYuXPmʪ"\ ʩAq7Y "WVðdJ,Xr(XrEĻ J2* I*'0Rt0eVd$ (" @@N,&P2eVQ` g<Ui%V XOG#g)l0r%rygW|2P*0Ggήu_f'z΁*9g)l0r%޳J>zyx@Yosʊ$#"#=9iX@,: 2I(ʰ }3ɞG *,'S) { split(/s+/); print "$_"; if ($_ =~ /removevsd: failure/) { $exit_error = 1; } elsif ($_ =~ /Remote operation timed-out/) { `rm -rf /usr/lpp/csd/sysctl/lock`; $exit_error = 1; } } close(OUTPUT); if ($exit_error == 1) { exit 1; } else { exit 0; } u#" * kp?/Oh:Җ:Җ:0/O./usr/lpp/csd/sysctl/removevsd2.perl#! /usr/lpp/ssp/perl5/bin/perl # IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2001 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG ##################################################################### # # Module: removevsd2.perl # #-------------------------------------------------------------------# # # # Description: # # This command is to use a single command to remove a set of logical volumes # and vsds on given nodes. Basically it combines the ucfgvsd, rmlv, undefvsd, # and reducevg commands together. # # Inputs: # -f force as much work done as possible. This includes # unconfiguring the vsds if necessary. # -v specify the vsd_names # -a all vsds defined in SDR # -L internal lock used by removehsd # # # # Outputs: # uncfgvsd if -f option is specified # delete LV on server node # undefine vsds in SDR # # # Returns: # 0 - if completed successfully # 1 - if bad command line or bad SDR return # # Syntax: # removevsd [-f] [-L] {-a | -v vsd_name[,vsd_name]} # # External Ref: # sp_msg # SDRGetObjects # # Internal Ref: # none # ##################################################################### #"@(#)32 1.24.1.3 src/csd/sysctl/removevsd2.perl, vsd, csd_rmoh, rmohs07a 2/14/01 13:41:22" # required imported function require "getopts.pl" ; $| = 1; # turn off buffering; msg cat stuff causes output scrambling otherwise $MSGCAT="/usr/lib/nls/msg/\?/vsd.cat"; $SPMSG="/usr/lpp/csd/bin/spmsg_csd"; $MSGCAT2="/usr/lib/nls/msg/\?/vsdcmi.cat"; $SPMSG2 = "/usr/lpp/csd/bin/spmsg_vsdcmi"; # $SDR_PATH="/usr/lpp/ssp/bin"; $VSD_Data_Dir="/usr/lpp/csd/vsdfiles"; $VSD_Bin_Dir="/usr/lpp/csd/bin"; $SYS_Bin_Dir="/usr/lpp/ssp/bin"; $VSD_ipaddr_file="/usr/lpp/csd/vsdfiles/VSD_ipaddr"; $SDRFenceFile="SDRVSDFenceFile"; $FenceFileIn="/usr/lpp/csd/vsdfiles/RemovevsdSDRFenceIn"; $SDRERRFileNotFound=62; $Warnfile = "/usr/lpp/csd/vsdfiles/removevsd.log"; $WarningsLogged = "false"; $Date = `date \"+%D %T\"`; chop($Date); # trim the Warnfile if it is too large $numline = `cat $Warnfile 2>/dev/null | wc -l`; if ( $numline > 500 ) { `tail -250 $Warnfile > $Warnfile.$$`; `mv $Warnfile.$$ $Warnfile`; } $USAGE="Usage: removevsd [-f] {-a | -v vsd_name[,vsd_name]}"; $progname = "removevsd"; $FAN_OUT=128; $TIMEOUT = 28800; sub print_usage { system "$SPMSG VSDSYSCTLINF $MSGCAT VSDSYSCTLINF03 '$USAGE\n' "; } if ($ARGV[0] eq "-P") { shift(@ARGV); $sp_name = $ARGV[0]; shift(@ARGV); $ENV{'SP_NAME'} = $sp_name; } ######################################################################## # # Check for usage needed # ######################################################################## if ($ARGV[0] eq "" || $ARGV[0] eq "-h") { &print_usage; if ("-h" eq $ARGV[0]) { exit 0; } exit 1; } # This command can only be envoked on the Control Work Station(CWS) $my_node_number = `/usr/lpp/ssp/install/bin/node_number`; chop($my_node_number); if ($my_node_number != 0) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG03 '%1\$s: 0034-603 This program can be envoked on the control work station only.\n' $progname "; exit 1; } ######################################################################## # # Validate nodes specified # ######################################################################## foreach $arg (@ARGV) { $save_arguments = $save_arguments . ' ' . $arg; } # default is need_lock # if we are envoked by createhsd, we don't need to check lock $need_lock = 1; # The (undocumented) "-H" is to indicate removevsd is # being called by removehsd. &Getopts('afHLv:'); if (($opt_v ne "") && ($opt_a ne "")) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG04 '%1\$s: 0034-604 Cannot specify both %2$s and %3$s option.\n' $progname \"-v\" \"-a\" "; print "$USAGE \n"; &error_exit(); } if (($opt_v eq "") && ($opt_a eq "")) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG05 '%1\$s: 0034-605 Must specify either %2$s or %3$s option.\n' $progname \"-v\" \"-a\" "; print "$USAGE \n"; &error_exit(); } # we need to check and set lock before looking at the SDR info $LOCK="/usr/lpp/csd/sysctl/lock"; if ($opt_L ne "") { $need_lock = 0; } if ($need_lock == 1) { `mkdir $LOCK >/dev/null 2>&1 `; while ($? != 0) { $count = $count +1; if ($count > 7) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG28 '%1\$s: 0034-628 The lock directory %2$s is held by someone else. Try again later.\n' ${progname} $LOCK "; # last; # exit from the while loop exit 1; } `sleep 1`; `mkdir $LOCK >/dev/null 2>&1`; } } # parse the argument we need to create a list of arrays and lists # vgNames on all nodes, and lv_names on all nodes # since we use same argument and algorithm as the clien program # we should have same names in program # also these name will be used in this program to do vsdvg and defvsd # output are: # # &vsd_list(); # Ensure no VSD's are removed if they are part of a defined HSD. # Inform the user to remove them with removehsd. &hsd_check(); # BODY # pass ucfgvsd command to all vsd nodes in parallel # so we need to make a vsd node list # if this node is alive, we send sysctl_lsucfgvsd command to do lsvsd 1st # if original argument specify -f option we will uncfgit # if original argument does not specify -f option we will get error # if given vsds on all nodes are ucfged, we will undefine vsds in SDR # if vsds are undefined, we will run delete LV on the server node open(WARNLOG, ">>$Warnfile") || die "cannot open $Warnfile file"; $cmd = "$SDR_PATH/SDRGetObjects Node node_number VSD_adapter reliable_hostname | "; if ( ! open(NODES, $cmd ) ) { # die "Can't get Node Objects from SDR"; $rc = $! + 0; if ( $rc >= 256 ) { $rc = $rc / 256; } system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG01 '%1\$s: 0034-601 %2\$s failed.\n' $progname \"$cmd\" "; exit $rc; } $junk = ; # skip SDR header while() { s/^\s*//; ($node_number, $ipaddr, $reliable_hostname) = split(/\s+/); if ($ipaddr ne '""') { if ( $reliable_hostname eq '""' ) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG09 '%1\$s: 0034-609 Cannot find host name in SDR for node %2$s.\n' $progname $node_number "; &error_exit(); } # it is better to check if we can run sysctl commands on the nodes $cmd = "sysctl -h $reliable_hostname sysctl_vsdcheck"; system ($cmd); if ($? != 0) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG01 '%1\$s: 0034-601 %2\$s failed.\n' $progname \"$cmd\" "; print " Please check your Kerberos/sysctl Authorization on $reliable_hostname.\n"; $Msg = system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG01 '%1\$s: 0034-601 %2 \$s failed.\n' $progname \"$cmd\" "; print WARNLOG "$Date FAIL:$node_number:$cmd:No removevsd actions were done on this node.\n"; $WarningsLogged = "true"; if ($opt_f eq "") { &error_exit(); } } else { push (@node_list, $node_number); push(@node_name_table, $reliable_hostname); $run_node_list = $run_node_list . " -h $reliable_hostname"; } } } close NODES; # make up node name list for sysctl # after the sysctl call, we parse the output to put into LOG file # this will be 2 sysctl calls one for mkvg; one for mklv # $save_arguments = "{ $save_arguments }"; $save_arguments = " $save_arguments "; print "removevsd: calls sysctl_lsucfgvsd.\n"; $cmd = "sysctl -f $FAN_OUT -T $TIMEOUT $run_node_list sysctl_lsucfgvsd $save_arguments"; $time_0 = time(); open(LSUCFGOUT, "$cmd | ") || die "cannot set LSUCFGOUT"; $failed = 0; $fail_rec = ""; while () { s/^\s*//; ($delimeter, $node_name) = split(/\s+/); if ($delimeter eq ">>") { $current_node = $node_name; } if ($delimeter =~ /OK/) { chop($delimeter); } if ($delimeter =~ /FAIL/) { $failed = 1; chop($_); push(@fail_list, $_); } } close(LSUCFGOUT); if ($failed == 1) { foreach $fail_rec (@fail_list) { print "$fail_rec\n"; print WARNLOG "$Date $fail_rec\n"; } $WarningsLogged = "true"; &error_exit(); } $time_1 = time(); &display_time_delta($time_0, $time_1); print "removevsd: calls sysctl_dellv.\n"; $cmd = "sysctl -f $FAN_OUT -T $TIMEOUT $run_node_list sysctl_dellv $save_arguments"; $time_0 = time(); open(DELLVOUT, "$cmd | ") || die "cannot set DELLVOUT"; $failed = 0; $fail_rec = ""; $have_emptyvg = 0; while () { s/^\s*//; ($delimeter, $node_name) = split(/\s+/); if ($delimeter eq ">>") { $current_node = $node_name; } if ($delimeter =~ /OK/) { chop($delimeter); print "$delimeter \n"; } if ($delimeter =~ /FAIL/) { $failed = 1; chop($_); print "$_\n"; print WARNLOG "$Date $_\n"; } if ($delimeter =~ /EMPTY_GVG/) { # the return string will be "EMPTY_GVG: gvgname" # since we split it with blank, so $node_name actually is gvgname $have_emptyvg = 1; chop($_); print "$_\n"; push(@emptyvg_table, $node_name); $emptyvg = $emptyvg . " $node_name"; } } close(DELLVOUT); if ($failed == 1) { $WarningsLogged = "true"; if ($opt_f eq "") # exit if not forcing are way thru { &error_exit(); } } $time_1 = time(); &display_time_delta($time_0, $time_1); print "removevsd: calls undefvsd.\n"; $time_0 = time(); # next we will run undefvsd to update VSD_Table if ($opt_v eq "") # undefine ALL vsds { if ($fencedVSDs ne "") { $rc = system("$VSD_Bin_Dir/vsdDeleteSDRFence ALL") >> 8; if ($rc != 0) { print "FAIL:$my_node_number: Deleting Fence Map\n"; print WARNLOG "$Date FAIL:$my_node_number: Deleting Fence Map\n"; $WarningsLogged = "true"; &error_exit(); } } system "$SDR_PATH/SDRDeleteObjects VSD_Table"; if ($? != 0) { print "FAIL:$my_node_number: undefvsd -a\n"; print WARNLOG "$Date FAIL:$my_node_number: undefvsd -a\n"; $WarningsLogged = "true"; &error_exit(); } else { system "$SDR_PATH/SDRDeleteObjects VSD_Minor_Number"; if ($? != 0) { print "FAIL:$my_node_number: undefvsd minor table -a\n"; print WARNLOG "$Date FAIL:$my_node_number: undefvsd minor table -a\n"; $WarningsLogged = "true"; &error_exit(); } else { print "OK:$my_node_number: undefvsd -a\n"; } } } else # undefine specific vsds { foreach $vsd_minor_entry (@vsd_minor_table) { ($vsd_name, $minor) = split(/\s+/, $vsd_minor_entry); if (defined( $fencedVSDs{$minor} )) { $rc = system("$VSD_Bin_Dir/vsdDeleteSDRFence $minor") >> 8; if ($rc != 0) { system "$SPMSG2 undefvsd $MSGCAT2 EMSG040 'undefvsd: 0021-040 Deletion of Fencemap for vsd %1\$s from VSD_Fence in the SDR failed with return code %2\$d.\n VSD %3\$s is not undefined.\n' $vsd_name $rc $vsd_name 1>&2"; print "FAIL:$my_node_number: undefvsd $vsd_name\n"; print WARNLOG "$Date FAIL:$my_node_number: undefvsd $vsd_name\n"; $WarningsLogged = "true"; &error_exit(); } } system "$SDR_PATH/SDRDeleteObjects VSD_Table VSD_name==$vsd_name"; if ($? != 0) { print "FAIL:$my_node_number: undefvsd $vsd_name\n"; print WARNLOG "$Date FAIL:$my_node_number: undefvsd $vsd_name\n"; $WarningsLogged = "true"; &error_exit(); } else { system "$SDR_PATH/SDRDeleteObjects VSD_Minor_Number minor_number==$minor"; if ($? != 0) { print "FAIL:$my_node_number: undefvsd wth minor number $minor\n"; print WARNLOG "$Date FAIL:$my_node_number: undefvsd wth minor number $minor\n"; $WarningsLogged = "true"; &error_exit(); } else { print "OK:$my_node_number: undefvsd $vsd_name\n"; } } } } $time_1 = time(); &display_time_delta($time_0, $time_1); # next we will call vsd nodes to do rmdefvsddevs # we had dsh (hang) problem in /usr/lpp/csd/bin/undefvsd # even we have called sysctl_vsdcheck, it is better to check the node again # to make sure dsh will not hang # actually we don't care if rmdefvsddevs run or not on ALL nodes # since some nodes may be down # # $rmdev_node_list = ""; foreach $node_name (@node_name_table) { system "ping -c 1 $node_name > /dev/null"; $node_name =~ s/\s+//; if ($? == 0) { if ($rmdev_node_list eq "") { $rmdev_node_list = $node_name; } else { $rmdev_node_list = "$rmdev_node_list,$node_name" } } } print "removevsd: calls rmundefvsddevs.\n"; $undefvsd_lst = ""; $num_undefvsd = 0; $time_0 = time(); foreach $vsd (@vsd_table) { $undefvsd_lst = "$undefvsd_lst $vsd"; $num_undefvsd = $num_undefvsd + 1; if ($num_undefvsd == 100) { $cmd = "/usr/lpp/csd/bin/rmundefvsddevs $undefvsd_lst"; system("/usr/lpp/ssp/bin/dsh -w $rmdev_node_list $cmd"); print "CALL:$my_node_number:$cmd \n"; $num_undefvsd = 0; $undefvsd_lst = ""; } } # 0 < $num_undefvsd < 100 if ($num_undefvsd >0) { $cmd = "/usr/lpp/csd/bin/rmundefvsddevs $undefvsd_lst"; system("/usr/lpp/ssp/bin/dsh -w $rmdev_node_list $cmd"); print "CALL:$my_node_number:$cmd \n"; } $time_1 = time(); &display_time_delta($time_0, $time_1); # next we will remove VG on the server node if the VG is empty if ($have_emptyvg == 1) { print "removevsd: calls sysctl_dodelvg.\n"; $time_0 = time(); $cmd = "sysctl -f $FAN_OUT -T $TIMEOUT $run_node_list sysctl_delvg $emptyvg"; open(DELVGOUT, "$cmd | ") || die "cannot set DELVGOUT"; $failed = 0; $fail_rec = ""; while () { s/^\s*//; ($delimeter, $node_name) = split(/\s+/); if ($delimeter eq ">>") { $current_node = $node_name; } if ($delimeter =~ /OK/) { chop($delimeter); print "$_"; } if ($delimeter =~ /FAIL/) { $failed = 1; chop($_); $fail_rec = $fail_rec . ";$_"; print WARNLOG "$Date $_\n"; $WarningsLogged = "true"; } } close(DELVGOUT); if ($failed == 1) { @fail_list = split(/;/, $fail_rec); foreach $tfail_rec (@fail_list) { print "$tfail_rec\n"; } if ($opt_f eq "") # exit if not forcing are way thru { &error_exit(); } } $time_1 = time(); &display_time_delta($time_0, $time_1); } # next we will delete vsdvg if a vg is empty if ($have_emptyvg == 1) { print "removevsd: calls delvg\n"; $time_0 = time(); foreach $vsdvg_item (@emptyvg_table) { $cmd = "vsdelvg $vsdvg_item"; system ("/usr/lpp/csd/bin/vsdelvg $vsdvg_item 2>&1"); if ($? != 0) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG01 '%1\$s: 0034-601 %2\$s failed.\n' $progname \"$cmd\" "; print WARNLOG "$Date FAIL:$my_node_number:$cmd\n"; $WarningsLogged = "true"; if ($opt_f eq "") # exit if not forcing are way thru { &error_exit(); } } else { print "OK:$my_node_number:$cmd\n"; } } $time_1 = time(); &display_time_delta($time_0, $time_1); } if ( $WarningsLogged eq "true" ) { print "Failures were logged in $Warnfile \n"; } close(WARNLOG); #end of BODY if ($need_lock == 1) { if (-d $LOCK) { `rm -fr $LOCK`; } } exit 0; sub error_exit { if ($need_lock == 1) { if (-d $LOCK) { `rm -fr $LOCK`; } } print "removevsd: failure\n"; if ( $WarningsLogged eq "true" ) { print "Failures were logged in $Warnfile \n"; } exit 1; } sub hsd_check { # If removevsd is called by removehsd, return 0. if ($opt_H ne "") { return 0; } # Check if any of the VSD's are part of an HSD. foreach $vsd_minor_entry (@vsd_minor_table) { ($vsd_name, $minor) = split(/\s+/, $vsd_minor_entry); `$SDR_PATH/SDRGetObjects HSD_Table VSD_name==$vsd_name > /dev/null 2>&1`; if ($? eq 0) { system "$SPMSG VSDSYSCTLMSG $MSGCAT VSDSYSCTLMSG54 'removevsd : 0034-654 You have specified a VSD name (%1\$s) that is part of an HSD. Use removehsd to remove the HSD and all underlying VSDs.\n' $vsd_name "; &error_exit(); } } return 0; } sub vsd_list { ############################################################################## # Read either the the SDRFenceFile or the VSD_Fence class ############################################################################## $rc=system("$SDR_PATH/SDRListClasses | /usr/bin/grep VSD_Fence 1>/dev/null 2>/dev/null"); if ($rc == 0) { open(VSDFENCE, "$SDR_PATH/SDRGetObjects VSD_Fence | tail -n +2 | ") || die "Can't get VSD_Fence from SDR"; } else { $rc=system("$SDR_PATH/SDRRetrieveFile $SDRFenceFile $FenceFileIn 1>/dev/null 2>/dev/null"); $rc = $rc/256; if ($rc == $SDRERRFileNotFound) { system("/usr/bin/touch $FenceFileIn"); } else { if ($rc != 0) { system "$SPMSG VSDMSGS $MSGCAT EMSG136 '%1\$s: 0034-136 can not execute %2\$s.\n' $progname 'SDRRetrieveFile $SDRFenceFile $FenceFileIn'" ; exit($rc); } } if (!open(VSDFENCE,"$FenceFileIn")) { system "$SPMSG VSDMSGS $MSGCAT EMSG001 '%1\$s: 0034-001 Cannot open or access file %2\$s.\n' $progname $FenceFileIn" ; system("/usr/bin/rm -f $FenceFileIn"); exit(1); } } while () { s/^\s*//; ($minor_number, $commit, $Map) = split(/\s+/); if ($commit == 1) { $fencedVSDs{$minor_number} = $minor_number; } } close(VSDFENCE); system("/usr/bin/rm -f $FenceFileIn"); open (VSDTAB, "$SDR_PATH/SDRGetObjects VSD_Table VSD_name minor_number global_group_name | tail -n +2 |") || die "Cannot open VSDTAB"; while () { s/^\s*//; push(@VSD_Table, $_); } if ($opt_v ne "") { @vsd_table = split(/,/, $opt_v); foreach $vsd (@vsd_table) { $vsd_defined = 0; foreach $vsd_table_entry(@VSD_Table) { s/^\s*//; ($vsdname, $vsdminor, $vsdgvgname) = split(/\s+/, $vsd_table_entry); if ($vsd eq $vsdname) { $vsd_defined = 1; $vsd_minor_item = "$vsdname $vsdminor"; push(@vsd_minor_table, $vsd_minor_item); last; } } if ($vsd_defined == 0) { system "$SPMSG2 undefvsd $MSGCAT2 EMSG014 'removevsd : 0021-014 You have specified a VSD name %1\$s, that does not exist.\n' $vsd "; &error_exit(); } } } else { foreach $vsd_table_entry (@VSD_Table) { s/^\s*//; ($vsdname, $vsdminor, $vsdgvgname) = split(/\s+/, $vsd_table_entry); $vsd_minor_item = "$vsdname $vsdminor"; push(@vsd_minor_table, $vsd_minor_item); } } } sub display_time_delta { local ($tsec, $tminute); $tsec = $_[1] - $_[0]; if ($tsec > 60) { $tminute = $tsec / 60; printf ("It took about %6.2f minutes.\n", $tminute); } else { if ( $tsec > 0 ) { print "It took about $tsec seconds.\n"; } } } e l6$@h:d::0&./usr/lpp/csd/sysctl/updatevsdtab2.perl  # $einst";S_acdlmopr()-/0:=ACDGMPRTV\bfghuv ',.123EILNOy{}%&46?@BHUY[]`qxz+57>jkw|!*8Dv0> Sb֔2aBK (o0r$C0yP" <6;qJ/\u^4XQ'g˜qنpqMfu8eAč4vi&p2y݈Mշ+@KMrnVCl;Mh6UG'*BzI?Z҂L(\G8e6(aB (\Cb9 (PC "`/"DD<D^Ey*@); mY70 㭠G:gRΤ=czI㲝UEEE7x vS *P$hбI7)*ut24lr:I|lr$AzV-iAC&.#P 0~.T⅔Tء a`/"DD<DVۯG"盪 v֛D)dÎ3k5C:u!Υ&;uUAWJoqNG,9BBƎ$xܪI!h¬ʕh2x6UF8ro|Yqg8aA5 @&*,hj,x<'P)vauYGF4_')e:P bF ;4BⅶܬܪC6 U[]e! x_mrxJ1UL6 cEQcDW10qBʗe2DU.h2UqYIh4taZo lхj.CxqWCmG&taZ!=",0e:Jt;4x_^ZPPɅ k..T H…Ȃ&,A*D뱝sYt1v;HfY]T8mcdÎ3k5$;)H⅕(S4hX٤!IWx_/ X5(U2P4BDjřEg,3⅕D8#nVM̜rp&:O)76"yqNG,9BBƎ$`PHa)*MH!ITl_!ɿe?nUZsC](U2P4E^(YSkf9 +5,ʨmf .*mMEYv6Vh=vܬIbfqBfLь 괙Iж#SPY@geTfQ h$̪Q5fQ Ԧ۪Goܬo H+>3* v!ƺ4cq4"8Ͷ#G񰬪Cx8]Ve8(U2P4E^(YRyfU8(m[<*uN+52p@geTfQmuUqYwK:.b!$6 ̪8j!&Vh=Gd8̪43 \uY97eVb tYɿ%`JP"+֘lGlEYh]&Nm4MYǙ[fQ &!nVk5@@{iq2hZf tY^K2ȿ8CٔX2xH*:A!J8A`LC tYQ=)fh$̪Q5fQ &٣(2.&TpXP`HhFDCఠ8\а8/?DhxL0 &$h"D@̉0&b¤beX 6$KĂ1j(lHł>`"DіhLؖpHИy Зx2gPLbDQ@zm>DĔ%AE"‚eAqgVe З3B_Ce&hK0*%ŖZf/LTؑEʃԧ&5hHPXCeDG&*lAEʃԘa&D``pb_"8TdXLT/R?  s0&hб ʋ &!R[sxBPTX?j (h,K?p%VQXB)t-6 JlD(6 J .&TC cqNN-ҪfFQe]fUF(Y֓1`8Mv5D]#{_6eCx#YQ fQDD75E@ok2 (ok2 e@a7eQ t1\ Ucx#YQ KʨeQVk5v0B*j;4e[A%eTm5}i3$cTNUb9<=7!JeqdXo] n Pro :ұc&i CzU̙nϻL`fQD<75EeDCx#YQF(F( fQDfU@Br}?/ʜۮgEۛ"""4e4fA}ʔ  FL>b?pXP`K.hXd4P&XHTؘ4Kȑ"D@<A ) 0pdHс5%y%8(sPCbD>`"D  _y З+̙/S*,dLIB_T$[2,(&TKS3B_2fOCe&hK_ fEʃ)4<ȰPy/ڔ& (l0PHhM(<ȰPy/׌q"F`8T/`X*o2,&*lBU4hXF͉eETPؐPy,HPn(g*,d 54Pؖd %Əok2 != RCab֔2aB>p0r F.DDC  dH""!CIuѶ&uN`R.]iN@)>cNœͺt]gmj<mYQ&j<J5M Jzor '̢%7)b6eCx#YQ fQDD75E@GF;@orQO5EOP ж8&;S]+9O2f 7uYɚMd6eCx#YQ fQDD75E@ok2 (2h F(M]IcM]&QVV# TC` 4U AeiPx MmGF) UCF&]Ic"|ъH+e5PсP di *iJӋ24TǙqBfLю YMSp]IbM?+D#^ZPPɅ ,=B (_ (lG8e6(aB 0 v%HDABDjřEf,uoD V8@)Nšի<>ca@ 㭠G:1J YMSégRYSkf'RM Jzo_2q|y+&*qHv0.=(U2P4E^[bmj4o,Ȧu|'v1|_!^ZPPɅ ,=B (_ (lG8e6(aBC0yP"" "a}i33k5P]&qBʃ)4,hM J]7L TX:}9Xֆ+1_!1EE (Bv 6m4MB*j!$0GF;@#IŘaqH0v0(XЫlFlEYhg'mf mh1 U&r|J5oeG,$oBƅ[b4-Ҵٕ*Cx&"PV؈Fcl,hU"*Q&3:I-ҴB+L;K EVj4RMʼkz+d~Ae 897,.(gHrry;U4x_#<,.(gHrrxzI,.GҼBx``aaC# (hɼ,,eaqfҩ&𰱗,eqfAzV-iAC&.#P 0~.T⅔Tء 0yP"" "~; ȑtY7< v;0: xoUQQdM;)H⅕(S4hX٤p]v/GҼҩ&ŚGxX]F.pro xX_2d)eD{]fYUxr3(8ni `^ģӛu }i32yI]=$LEc;@@o"̚bo UDvOʣH@rol2j5Bz@8a]uVm UE7Gb,ɨ.>@X$c] n fMFtroqb,ɨ.>@ ;l2j50"DD<@pa><=7QɿTB4}i22Cx*97e"4QA`qɿ?Xɓc>۱Yt<&Uv+Ag֓**Tv0I]fou8eAč4vi&%\=7e l4/h:Җ:Җ:0ƈP./usr/lpp/csd/sysctl/createhsd2.perlrl   e #$ainorst";S_cdlmp'()-/=Gbfghuv{} &,.01:ACDLMOTV\kxy%+2346@PRY[]qw!>BEHIKNU|~589*pYf{B&9,Yi[Ⱦh9G1w2Rz𮜖-5͘ Tnn0e@QԲhYRdbfTd[NK,M-3U9Gs7s%.n0fE4ϊ;r5[SKS7(77E%d)\oXR)%-L)|M,Z|ԅkcq.䣈RRR  RR Lo=eձq!QRb&T 4ު"dR6z˫b:sLqQ0X!A*B`I!AY0fJCf2J7E2JfhI< 7%@4L"eHPl@4ʐ(eHPlL42RXΛ}-w2úrYg1E o%/\UYmL<7MM,ZͽNE#ñ7✢d4k3zϘ)aؔTci*qŮ|)垘٥Kc3}=eսnxK\)8,*qSizcfc3yMHPo־ӒЉ+ %-\֛R޳rשwB|^Ӕu \^2RʐJ•Wδ°xS9,P{zfs/a0fz^ ̩ + W}yFK ^xS5KS/) o)P`o-9ENf+ E_55!Afj1u͘Gxʼ#6`V)Z17ǂcoXlٌ+URE8|ԅñ76+UR'J_55!AXRsQ~nwœeRIXR^3lorYgMXFtoV 7'J6*eSR-afcE;fz=gr׌)eP5^*QLU^2RJ m(E!o H_Qc$c6a(kc O7E^d?Xϑ|(o䫙R+8/} o Dք9F67%34Q(k(j*\L$n%i/;/0HҋִM$Ho7EDS1E67`u{_7E:-zsDS7(1lPYyN$]WcK.J6M_"L]WLA9fK:0N /)ن7Gi*>cd 3y!K t^ӁxZo[3E0W] tQ9f`Ƥ^SMo(Ʊn.jv7K/2W~N2cX,#x(eJpAR7@Ʊ.Ӓ˫u:M; UQݍC%Yie5a<sX?4S%d)\ąEN&҄Rܕ4br4QzגJ T c!UҤM,IKҌ Da=D "Rzfo7fxHМ4B{)EXO WTQz֒ "C3cX/WYqc-C@LbīYSWO7EnEZoQ/WYq2kZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֲv5 y3T5W\(5jVz9uOce1658._,h{"a j}zTro5K#U\z'7YXD*aKc*&$0Pf2j8BkP1 LM=9x%JL&MU&&Z'E֡8YbC5IVZZ bfk@97Aȕe3ɚɪӢB$0(=1r"CICɚɪEɖOADQ!G Be&j&N7E [1($) Be&j&N-ExE!HLRd]rtB' (+iPDQ!G BgI(+g (QPDQ!G BgI(Q (zM"V($(!HL1EQI5"AC<ň[3E2QFJZJ•HTTJ m(E!`$c6a(kWg*@P@X j m(E!`'O7E^dvHT$$ "H)i37d3a<$ImhNrIơ<$ILJ/ZxHҋִO D:!1^r1yLo0P@c` \ `e ל#TQ/8Ҷ{"WDQ"cP{*&$1(E1P( 0V=j"E@AX@AA! aL@C0/R Q(3](kn g HFH`rQzփkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkj1|nԵ5kZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֲ  gpH Td$)l  }3Fs/8FZ  y#'$*2 3pux"`@@ .3!\Ac4ϊo(;nCv(3xY\LoF%`EXu(KJ&-s(ɚɪE4ThDdKt.A)iDŮdPd QM,Z瀥09v܈  㖾nCv(3zrg%p7ү%QTt8j#/9ֿ=8F($%@j'quctc}L"ޚwJf -q7Lͦ7*WNK-(^Jn;`•d 2OK\kL&G#gk5"F5gerV9 "zsA72Y/Z Da[FL"DTTFB#"B"D3=j"E@j'.sұTu/sDFpH@3ל#\1<29M+HAX:K(<Ì+kgx%qE&0*,]ȕQD"%CE|<< $ )šХ!Qy^Gz ^ps$TƢz SJ!RPa@A^Sy}AVr dJ("DL`TY*&$1(E1QdJqxx,H u GS5JB&?r󑈽kƏ%A DHDsBìjfm1D^SͽX)Tu{_ cRfL$@$&L$$HL |Iz7#d%DP8`fA^ 1E"Ga}i[[=ȃő+(E1QdJD2!DE* ǂ(#a hx7zS6M^^S ^qܼb/ZDh=xerV9 "/tF; gG3AȕQD"%w "TLHcDQ"cȕX04< kBL D~#z׍Hz ^ps$TƢz SJ!RPa1fm1l|RaLv܈ |]zQMhRᨏܼb/ZTh=8FQ*cQ=\)c(0-Z^qY{J7j^kվE`RP/:K*G9v܈s|hE+&j&N7E [3tQ)UK=1ei[[ y3T5W\tPhU&%U,×NJY鍞E@AJas^ps˾ ڝe.rURLlj'˜4r Eei[[ |*.T(2=G*.T(1|}L4ƸVݩZs•_|ohZ;WҋֺrU%.oHE;·z׾f -qS*emfՅƺ󑉽f7 C24ZkF&]L/ּ+U^j3 kF&RZ\5Ga)B, *A^D cqKhFf|))S/(njYs4S UroJu2 7E97E)JZUyemŮ| >cdI>™a^'u7E)K$nS^& _ Y#tRDXs+kgx%qE&0*,]ȕQD"%@/4PG`@ ģ(sN)S/(2p@;}/ib>E\ ¦zy/XJ$yOS5&-s_DR*g'zQ"53.sұTwc8,)i+ WRuWMZs*3=.f|dLœ)Zt*͍ל|R,.sT2ýhUzcu'댕c0W-z񒗖%/UmV7"3y8,Re;" U3yzcf_j|LZmroǩ͘ygw6,oS0 qz֦n,rdd)RPcV,Ё陴@njͽX)|eV9xKJ,q/]K/ڄ7"($w#qml"D2!DE+YbC"QD(PG`@P/$t*Q%,8j#/9ֽgerV9 "?ΰ v\@e WV8\7qb9N &0˖"?_!^nDP IK;8Ҷ{"WDQ"cȕ,Q1!eDB( "T ǂ(#a h(RE:qw(q5E^z SJ!RPgct7ju47Yi[7E+|n-gi~o%@ܒ$/XJ9yONuF@A^-S<;3^-AYjgR[)Im^-/tBo<;3ՒIjYwV<ZrxWY)IUczB)S7Ů|)Pi.XDƼ4kcY/Tc%2R udRba?Y/TY/T@K*e7V^S ì|%0#gY/TZzL ^S)J1/tC3#?ܜtQ'SfA^psӝfUi;}lܜtQ'5c X-dPv5IUuɧE vRi[7EAܜtQ'Pd 098FXYA/q *ۅEʞE8FQQrXYAìiy8F$ 5lQQr0 T\Pgk+b@PYAՕ,QQrPgi[[=ȃő+(E1QdJD2!DE*!PG`@S.+j D~#z׍Ph=\)c(0X-ie:k E) .RjwV ZBPc;}lzR˙Q=7 ,$BA drX0lO4UieNf W:Ke0hxz cxpX*3QԲhYfQ DQ!VtR)=:&J-iXn*e3AZJY|X-i:k EU,))eD?VIT6^* EXntQ(k % DS¤ PL7uTA4UkIK/]˾uJ&#gtR)nR3E0~?n%h3tM,dZR7DVE%, guK3\ Xn*%WVwEY&J-iXn*e7DVE+L ?:7R˙(^i%MXm:Y{J7(^юJM^W@< AMe2Ys4StJnI^Wq)HD=Pv5IUuɧE IeM^)K$wIz]!4SA/pRy?;JD,\eDB( "Wp%DĆ1E&0*,P x"> x"w[P8j#/9ּh&G3y5Eʊ1 (TDf)fTɑg;JD,\eDB( "Wp%DĆ1E&0*,P`ǂA ;k>yO%KpG^r1y329M+HAuYjsrҨP*Bgg 2|S(̩ #dPɛ]2LE:Ҷ{"WDQ"cȕ,Q1!eDB( "T1PE 'S/)#ó7EA7E JnzגWu.fVK#0/y(lP7E Jz :V,?Sf")K#v>#A7E Jnz׺K#z :Pq(lUyel7q(lPEc[ԲWV[)g%K :K!^7y?%yLAgIz%S<;? /)nwIz 3HWG8DM4 AX^Sgtr%-*G8:K!^™0/4StM-Dg)zה%ꑼ;tM-c?褩knI\;tM-c<;tPgzcyL=Z˖]Uyelq#躰i ZA/rP3_D=1 ?}*?γ?_ /EP G`XYIz7S#ñۋ=4j\КDIԔoZ|S78owWyN2ϫAŞEՅH&Ԋ E#f")K#v>#ñðqg:i{3HوknH;tPgK.n% MISqzׇcvl^~)zׇcv/TPr\J,R˛BugYu/g&nYD3oLJZUyelq&pOAk#z#ֳuJB&:9+( D\)c(3?g 2ꬺR^ }3ɞG Iz$ &pOAk#z# R1oxG*5gsB/) $7 !A$srW)si+n˥%@MgoLv)t"G89@%.o<9jHnEdtNA/Iz$ &y03 ˥%0'SBU`j|~89*pYf{B&YSou_VF SK]S7E)9A} TwthF8l3tPف SR˛nYRdbf#Xh_NK,M6ڜA73x%4ϊ;3iY}o(77EsU5#d)\&oXR)%-L)|M,Z|ԅ8kc2VsLq1I P4ʐ!AH ʐ(/#LdLf衳uMy)OāT1(,,~4eު%8KmN(c1$@*BbT *BBdŮt;koӒfLpd3}^7bdל|X8K\)´=1K榤(9_ ihDLŮykM}LYkԁr;X!A/Z:.^q)tcLeHPq%aJZaT : oӒ?-u ]Ƿg2 qz#&nwܵʐBХwהodͱ:W3T2/•LӔTNozB^eSRjXwXpَQTw:ÊL/•K]}mL<#af0W5Kcު^eSRLްW5Kcf+|ԅ5aJ򊣢,o 3s,ʐJ•轧8GcӒ>*j6!;}lU]x&9ͱ:WyWV/Yk0")S7;x)E9zr\wu6"Y{  TTJ/Z^v^Tҋִd,"9Tu{ ¦n{Jr*4F7fa(E8;}lU\"03.+u6`^S12R3z]敮KM%lV C:-AK 2bbK/T$ɉc28GR0(on0jo+ W)V7K/,5=.f|dYxFtR#P&Ʊo;ƀ7,rYunCItsJ;x=M9,⦬#|z%|77Dv5xdo[7E21FJZJ•PXXF m(E!p#"c6a(kc)^dfDX"( aSVք)koE}Sk%J T l*Dn%i/;/Y¤U6^!l*DBTޙ2M陰Hꮕ m(E!p -HfU^Td,knqzN˃ %b_)ZiꚺP&V0X Ocpksv\QkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZ2v5 yWT1fOCoSS"Ƌ&֡7ץM/Tr5UWszŕLrb1D3+Ģ -C)#tPE7BB&y#T%W\tPhDZNtJ IH&IX%hIj$6ISc T$j$N-PFk@ƱȔ $j$뒥$Z=8i}^HLRd]rIBFx+t=8iE!2g5IUu'E OAD(@D"HLRd]rTB'8 DP*iJ]:/i-F5kZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵcy2RU_J1ɬO=Ȕ (+u,uJZQ4kR͒UAml{YB1O'Ǻi)ÃH[yg/Th0 _/Tz SJ03?γ;zfw.[\ҫ+d6g.!+ TO£$HCr ǏsK+ W"pv=^vD3?+kg%qJ"DTdX]**(3"Q""8ۨ ! P,0WǢ ҥz%nLDDsDH~#zמ?SJ03?*VE^Op%U5J9s1Lͦ9Y_QtmN2R3;cŕ*A R6Ȕ dd6qv܈H]% "*2,.]Ƒ(QQatJAXxLm(D xFJ^)Uߍ"S^r1{y343 ?:_/T; 犍"P ? eP~JF(C,w!ml"D4DB Wp%EEqJ"DTdX]ȃ`7dpKœe]yU5JFy^-SJ03γ_QJ jqcop[Adml"D4DB Wp%EEqJ"DTdX]fu$$ 0 EU2R{Njo^EHfFS-j&:˩MSTDn!r󑈽kAsaQggX^FOA368"c/)]X&)tYyNޙŋcŕ*A`oɓXT/#QSbh3:/#QS2 07y5Յ+2wiu`|dn'?:gu12Rʹk=1Krx /)3ǃ yNޙű• 3|{=ňl 3Ҷ{ WD!DEFE+]8% "*2,.PP7Ą@ P)xoe\^Ӂ{S}2ҩygw|T=1K񒗗 srTט/"7F"qm^g9iXfAYgrLpd1rך1#7>k=1K>j@3%|y%.e}%/:/i-N'ljfm1󷪨:R]LŒqyG' 3;x9r˾J,qV $! Չ^Sgqbqb• ӌ 3;xqeaJ`og XL6gED^FQh3_5d6ml"D4DB Wp%EEqJ"DTdX]<<@o dA>2R=4ʹk轧Pf1%/VC/9ֽż\)aTyYuwgݰ.gݥ61y5Nvٺ( zSzc#q=7 _:R\䪥Zw/1q啺c9c 5IUu'E Б(䪥2=G,0T1Ղ֐Oei[[y#T%W\tPhU$%U,WNJYA@=ID3+kg%qJ"DTdX]**(3"Q""(D$'zemA^r1xJrURLpl=8FmNԗ9*g87gurVGAX1yIFUK=1Q@YU)tH0oLJZUyelqJ rH :Kj啴ʕ־2R҉\ɓtp3F8  Ǹ)N5S2K Gp=F2Rҋּ\)aTyrk)Ϡ0E!$g"3d .FwLR+vT%U,3tQ)UK=1d  C=ɬg3RW  OA.*>aAα^psӝntoӫ9啺ygu(KJ,ZaރNUzNv4W|TņGό7S8kS}7.Xygu"LpU啼-LA'UtުeeyNqoS0RQ2Rüdu7Ll( >cnԧYe6ȹ|Ncn=Ll(垘e:ڂf_|d\3qff9G^rY;cJZFEZUyeoR衳 o衳1HلVITJ/Z1ܳ4N&20^% DC}p*j$ުF%{ͱU#fֽS _:Yz7 E_ fS7;/)ެz0^HFJZQ4kW5]kƱ+WV< cnMꫧ%|T-J[XbݩZϘ)zXަn:oU^NL""98A'URNvٺ)BAlP&TX YoUV7vNׯS7zc%-%/ AUu:_S7f -qYjK }lυxݩNԓ؉af0aM9 +\xVI{aD3pO!f/=72%8\e-[Nņ  0 iz#%07e-[N(0CpLM3/8F[7EoUZtuU% T؈OA}` G3֙ $7@A"3RՂ[a|pzogzHC|2Haf"cCA?›դʻ)T-CcFJY2n_()dɸ:hMբFީi*>cVZ$mꚿxIK6J&W< ::ûǺK ?یk^^Y[U\^aMyB5Ǩj˩ȆrݩYS7 ]*Ku3zϘ)zYܭש6^ɬ0)ȅHR) Rr!˥)iE^7/TH3{QܹCpj#Q!躰CtܚAzZWmꚼS78,񒗗s|^ɬ3*䓢B$oPلzrҋֳgDSVL r!DR!BdcrFJZQz׹5gf8!H5d2}VHnBDSVA+ufKib>Eygw5&y#T%W\((Fz-ib3g`S "R$ CJ2Rҋֽɬ?Ǹ 5 щ EՅG Ă \ V ]*J,g1%ꑍբFީ< :74Je:%l|{R/4C{w)+œ^S)stS`Ҍ83;H<e WVg=ˈn,C'uaQ$!tA;zfwV ]*Jk^U啲uhdn6`Cuhjd.*<7V ]*J Z%)y2{!f=բQ' q/]%dqӝniUmL1 U3KKNQQJgi[[{(H$(2"P&*e1bƞ4D"U!*ikHi}Y&R19](k&MբFk >cFJY2n_()dɸ:hMբFީi*>cVZ$mꚿxIK6J&W< ;ڴ?ۧ;}lzژb3D2~]WԔC]GZrU?;J܉@A!AI1S/f4M]1J$UYz ISKZEg#K7EY2n6c^pYJ2Rɓr-9EGu(K&Mŵ1ԫBn6M^ ÄlM*yuYuXuaU^feN.x%yemYn9<&#\o75,("7ayNޙYstQ(VǃUyelqMe2yYstSr\JA}` ?1ުF䩥(k+"U#ҋֱ iEX% GpVC8Ҷ{ T=tJ 0=e-YD\LTαW-zJu2asOWPA^r1x%ֳsaQgLT+#MnJZҋֲgU3BBp%EEA8<]B@<@n$$ "$$ )j&|ZbuRkպSǔ ze̾oN:?r󑈽kՑ&R7%M-iE^z?îsҰ*< :=[ ȳHitYn$3+kg%A:kC.QQAND3 Dȉ 0=:ZcTZne>枯Y`=3/ӭ΂#qܼb/Z ȳHit6\)aTyu|~J%}+#MnJZҋּqml"D'Mh{**(2 ! H!03x%ֱ A 72ZZөՑ&R7%M-iEXC "Q(k=\)aTyunV1*k >c.f|d4k^Sfe%JjdgVV7*SE $@[`.ӭ1J$UYz ISKZEg#KgEY2n0=TNFJ/ZdHit^pYJ2RkZֵkZֵkZֵkZֵkZֵkZֵkZֵ5db \ܕ4YxF²,srTט.YֵkZֵkZֵkZֵkZֵkZֵkZֵkZ{oU#ҋֱ ђM,ZC'uaQxERV3XU[fTQzC&)@@"HPdDL`i֘FJ_)iDŮdɺ2R҉\vY[H̩XkgʕJ/Z`oBCt$Hy7x`+t]9ʕJ/Z;l0EXFR&{R jk7›xx;[3zaA}a(Q#T%W\()B$C;ʕJ/Z1զE\LI:(H"H ߂@p< N*H3 O!g(LJ\YBESeJyRd]rIBEFeW+#MnJZҋְ)t23 4$C8BBYstSp%EEA8<]@e@n$$ "$ Xɛ~Yst%Rg7E*\dzb#qܬA7*ikJ/ZFJZQ4k3:9M+ £ L̗EAg*m"ʎ $lCr,K EՅG EAg ܩ*8$_<ml"D'R˛**(2 <=K.nq! H PL >STEIrͽSWjq2)CPt3_[.2R=FYoU#rT֔^ib3gurVGAYu/8ʛHI.Z9# "Q%LO)@9$JF vi HH^X A/4De>3ª؆u!J$mB< p(+u,uD/"Q!VψCHIK/ڜogYhjfdp@"0D &8R rH :"Ƒ(#)4kA>hX#8\  AᡮFh!Q OAᡠpD`&O^&7Fh(3ᡰ/pD`&LpD`&UFhͻW\隥445B2OsE8#Aᡧ{VۗTfQ5KS\^S ڝe[MhFSib<L#qܴ#)nDQzz SJ03?kZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵk?ۊ[fJJr,uaYz.^cHJ/Z5db TSKZQz!*kB2Q4k?kZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵkZֵgmi[[=@@"HPdDLVv`.ӭ1J$2aYz.^qdYbr4Qz׍"Q(k&J%z1ުF䩥(k&db TSKZQz׭iDŮdܴ#)^IKHJH\&@ީ*8$YnTEIu,ީ*8$MʛHI.Z'g1i[[y#T%W\tPhD\ܥ7Eml A/pRx ?*,0W< Xu(KJ&-s53+kg%qJ"DTdX]**(3"Q""(D$'zemA^r1xMeg*,0T îsҰ*< γiy,0TX`xaԣ%-(XPn'y5,:dK\ gkHO' X3R]WX-i)jX-i n3K.nAcqS 9*g9ɬO>NK᐀<` 3QJ2RVA'URNK- $x@d` rk)00 ԅUuF#H2 LHqi[[=Ȅ+"Q"".QQAiD7Ą@ !?.+j?r󑈽krk(6.+jd$N瞃K$Z2x $d!g $=ZZs)iEY EՅG )jkϰxC8&js(Kg ܥ< !gidBOtM,rYhVh332\{ ?_ݨLs&O!gk +Nw)x@dS}{[7E1?γեE 3SƩFJ^*0..^"sLn':ìMYRNJ F1/ueWd&OtM,rYhV!g VIdd3^pqasF;T_Nvٺ)uX&cņ  ۊ@@Ǻ7j$ɓg*n3D )aXfĐc(hsa\?_ݨLs&O!g ȩX`T3 ,0*uY"Q %L z +ìe %-%aJz>f(C'CLj)gg#b>& T @TAa[?n0]%aJq<pƹd+Lb\J•)R2(8 R3Y&q)+ T VI\{t*A$ޮ=9ІOA7pTOA7t7dgMK%E_C$c?۔Wz1"c|ʐ7L署l|{3Ɂ#kIg˛J3ͮ= L R$As+kg%qJ"DTdX]**(3"Q""<<&6}B@Y`,2Ϯ^Sǒ"7F"=\)aTyYu-7.m*d2(8z :?2`nHʐ"pv=ϙdܑS$ds+kg%qJ"DTdX]**(3"Q""<<&6}$$ S/)cdzZ+ U3SQ=^SǸ &U! gLd&jsJ2RU|\gY ܺJ•!g]%aJ]%aJ8~Cܙ(KAg/8ܺJ•]%aJ;59)h3sT2<dWV7&jsJ2R JuCn._Ե`ܙ%{59)h1~aN2S2t^Ӄ}^_/!NJrx g0VuV]0to<pv<U|]6Ue3W@- g γǃ/C9^Q$'γV3_˾f0ggi[[=Ȅ+"Q"".QQAiD,q1P ȃ`}rF<%^r1y044:9M+ £ :t2{`oX*dA=r{WΠ29¹, /J[?pMԫT7`CpVQܬ)T%/YwUXY*dބHLx&jsI|GH<#XRFJZ ǸJ•!73Y%aJ,q?!Lggڴq+ W'3SKAu\ҫ+b5923γ@! ^Q$&O 8rf4%/'z +xꬻ`*H<Ue3W@- AqNiFJ^Orf4%/YwU t/Ue3W@-_$Aq ǃ q<@<Ue3W@&y Cv8FBzT*aTK垧}q?Ҷ{ WD!DEFE+]8% "*2,.PXcn7B@Y`,2Ϯ^Sǒ"7F"=9iXfAYX-qi[[=Ȅ+"Q"".QQAiD,q1P ! P,0zyMg/)czQ~#zמCp43 ?2x&jsI|GH<#3SQ$)\=$)\Gb;%-%!A뚡ͥWV7FJZJBg1uf!AXRKT 󡡬{e4g<U|]@[ Aq ??g|=3oVR]o羽LqS~2RV4n'{`ҰxSsbq=7j7^2Rҫ+bҫ+b⦹e WVìg(hV,a1%8kU\/ӔMk G}(H&:4ظdKcXަoR˼ҵםg0tP?_xb 3zra(/A &!gXܼ'JvYf%X%yeo]/S7E0*gLq4DA0~:WҼM,Z羝*׉\7yzUQ4k k1QSe!_"-š^Iz-ǷgMS6=gR@(U^2Rڴ|{RLS71yoEM1ն70f K$ 8r+ To>|M-"0V.3mZ[3otqV['үR@qRE`xdǺ ÄgMܳ)Dib3Y&q6^nFEYzTCujA1Yᔢil$?x%r%i@9$JF vi HHe啼iE^u|| ?` %g=ҋֲ>  D=ҋִJ/Z`nI^$C8ǸQzדrNHڀ$C8D07'Izlx HlL |{ilܳ)D3 r KdD044?γ?γ5eK4DH D=<2M,aYz^Y[񒗘VEF%l /)38r񒖕^Y[!gTIrENXް U啶7 Ȏ%y!Aĕ*3;<dWVl8,8lP=U˛J,q Hd.* $7@A"3/8v\ 7IU)iRr-$ި]K/ڜ#NK-(+kg%A9(ltJ px%D 7E B@2"B`I7i~/ZSxKMޠmNʫ"W7%M-y"7^]UC?îsҰ*< :ǺJ_qgf*->=2r-$ި]K/ڜ#NK-(+kg%A9(ltJ px%D 7E B@2"B`I7i~/ZSxKMޠmNʫ"W7%M-y"7^Y6`saQggjʗF A뚡tPل؆tPل[X :Vgdx86a*!6a(V ?γ?Z_ȳƊVv{ •N3sT2<aRCf+bCfmb3?αK.nuyem{xe(Y=^ qg/Th3?ǺK!N04t !%hn C8ǺK!n7y ?KdD M`oyNޙǃ Iz-_<&@ :E#tR/Z{R7>!E%M^OtJ;ilGx)*n/ZVbrz2=ISqzA=ISqz֒3 C8=F"[_\nooֽISqzšS/&i|ޝntņWE7W0LsYi/^r,"7gk#z ’5NjN[_7E8kםgMzׯ;/Ȏg5;Ϭ%fOTDn'43 ?γ_D=1̞$?vq.M*Cg==2> $! թ ܼ'6q\ͤ)\zc!8y`Gqg?:Z[8ԹIXR07$IAzד%ꑌG~#zf07q(lP"cuMּs6}^Agڴzד%ꑌG~#3?ܥ7Eml褩kp?ּGHּG^I 뚡,(^Y[ܥ7Emb3N4[z)i+ W8櫺K(UsUJZUyelC.m*dA7=YzYtbA3UJK9> % ! ^DpuV]0 C aPHX' ¸T& x:.Ba|GÃꬺR^ o<y qk#z =L9^PdkYxENo/)yMg3zω"7gsaQg~Ytb <UeҒT/ "^SY=L޳iꈍ8F^r1`hR|LtU3) { s/^\s*//; push(@VSD_GVG, $_); } close(VSDGVG); foreach $gvg_name (@vg_table) { foreach $vsd_gvg_entry (@VSD_GVG) { ($gvgname, $localvgname, $primary, $secondary, $server_list, $vsd_type) = split(/\s+/, $vsd_gvg_entry); if (($primary eq $my_node_number) && ($gvgname eq $gvg_name)) { # I am the server for this VG $pv_list = ""; # next look if any undefined hard disk # run lspv on it1n11: # hdisk0 000156670002244f rootvg # hdisk1 abcd000054c23486 None open(HDISKS, "/usr/sbin/lspv | ") || die "Cannot run lspv"; while () { s/^\s*//; ($t_pv_name, $pv_id, $t_pv_vg) = split(/\s+/); if ($localvgname eq $t_pv_vg) { # If there are multiple adapters in the node mapping # hdisks to the same LUN, we must only reducevg on one # of the hdisks. # # I.E. we could have # hdisk90 00010246e316698d junkvg # hdisk123 00010246e316698d junkvg $Foundpvid = "false"; foreach $Processedpvid (@Processedpvid) { if ($Processedpvid eq $pv_id) { $Foundpvid = "true"; last; } } if ($Foundpvid eq "false") { $pv_list = "$pv_list $t_pv_name"; push(@Processedpvid, $pv_id); } } } close(HDISKS); if ($vsd_type eq "CVSD") { $rc = system("/usr/sbin/varyoffvg $localvgname > /dev/null") >> 8; if ($rc != 0) { print "FAIL:$my_node_number:varyoffvg $localvgname\n"; last; } $rc = system("/usr/sbin/varyonvg $localvgname > /dev/null") >> 8; if ($rc != 0) { print "FAIL:$my_node_number:varyonvg $localvgname\n"; last; } } $cmd = "/usr/sbin/reducevg -f $localvgname $pv_list >/dev/null"; $rc = system("$cmd ") >> 8; if ($rc == 0) { print "OK:$my_node_number:reducevg -f $localvgname $pv_list\n"; } else { print "FAIL:$my_node_number:reducevg -f $localvgname $pv_list\n"; } } else { if (($secondary eq $my_node_number) && ($gvgname eq $gvg_name)) { # I am the secondary for this VG $cmd = "/usr/sbin/exportvg $localvgname >/dev/null"; system("$cmd "); if ($? == 0) { print "OK:$my_node_number:$cmd\n"; } else { print "FAIL:$my_node_number:$cmd\n"; } } if ($vsd_type eq "CVSD") { @list = split(/:/, $server_list); foreach $i (@list) { if (($my_node_number eq $i) && ($gvgname eq $gvg_name)) { $rc = system("/usr/sbin/varyoffvg $localvgname > /dev/null") >> 8; if ($rc != 0) { print "FAIL:$my_node_number:varyoffvg $localvgname\n"; } $cmd = "/usr/sbin/exportvg $localvgname >/dev/null"; system("$cmd "); if ($? == 0) { print "OK:$my_node_number:$cmd\n"; } else { print "FAIL:$my_node_number:$cmd\n"; } } } } } } } #end of BODY exit 0; rgument k@gh:Җ:Җ:0Èg./usr/lpp/csd/sysctl/doimportvg.perlrl#!/usr/lpp/ssp/perl5/bin/perl # IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2001 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG ##################################################################### # # # Module: doimportvg.perl # # # CPRY PGM # # Licensed Materials - Property of IBM # # 5765-296 PSSP # # (C) Copyright IBM Corp. 1994, 1997 All Rights Reserved. # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # CPRY # # #-------------------------------------------------------------------# # # # Description: # # This is the progam run on server node to mkvg and mklv. # It gets exact argument as createvsd on client(CWS). # After parse the argument, this program only does what it needs to do # on the local node. # # # Inputs: # vg_name # pv_id # vsd_type VSD|CVSD # pv_type hdisk|vpath # # Outputs: # # # Returns: # # 0 - if completed successfully # # 1 - if bad command line or bad SDR return # # # # # External Ref: # # # # Internal Ref: # # none # # # ##################################################################### #"@(#)16 1.17.1.1 src/csd/sysctl/doimportvg.perl, vsd, csd_rmoh, rmohs07a 1/18/01 08:24:58" # This is an internal program. # It does not require NLS. $curpath = $ENV{'PATH'}; $ENV{'PATH'} = "$curpath:/usr/sbin"; $VSD_cmd_dir = "/usr/lpp/csd/bin"; $LOG = "/usr/lpp/csd/vsdfiles/vsd_rollback"; `date >$LOG`; open(LOGLOG, ">>$LOG") || die "cannot open LOG file"; select (LOGLOG); $| = 1; select (STDERR); $| = 1; select (STDOUT); $| = 1; $vg_name = @ARGV[0]; $pv_id = @ARGV[1]; $vsd_type = @ARGV[2]; $pv_type = @ARGV[3]; $nn = `/usr/lpp/ssp/install/bin/node_number`; chop($nn); $my_node_number = $nn; chop($t_pv_data =`lspv | grep $pv_id`); print LOGLOG "vg_name=$vg_name pv_id=$pv_id\n"; if ($t_pv_data eq "" ) { chop(@hdisks = `lspv | grep " none "`); for ( $cnt = 0 ; $cnt <= $#hdisks ; $cnt++ ) { ($pv_name, $t_pv_id, $t_pv_vg) = split(/\s+/, $hdisks[$cnt]); chop($lqpv = `lqueryvg -Atp $pv_name 2>/dev/null | \ grep Physical | awk '{print \$2}'`); if ( $lqpv eq $pv_id) { system("chdev -l $pv_name -a pv=yes 2>&1"); last } } if ($lqpv ne $pv_id) { # we could not find the pvid, maybe the disk isn't twin-tailed properly? print "FAIL:$my_node_number:pvid=$pv_id not found\n"; exit(1); } } else { ($pv_name, $t_pv_id, $t_pv_vg) = split(/\s+/, $t_pv_data); } # Below we look for the volume group. If it is found then we try # to do an importvg with the -L option. If this fails then we will # try to do the importvg with the -y option. If the volume group # is not found then the default is doing the importvg with the -y # option. system ("lsvg | grep -w $vg_name >/dev/null"); if ($? == 0) { if ($vsd_type eq "CVSD") { exit; } $ivg_flag = "-L"; } else { $ivg_flag = "-y"; } $time_of_day = `date`; print LOGLOG "$time_of_day"; $ivg_rc = &import_vg($ivg_flag, $vg_name, $pv_name ); if ($ivg_rc > 0 && $ivg_flag == "-L") { $time_0 = time(); system ("exportvg $vg_name 2>&1"); print "OK:$my_node_number:exportvg $vg_name\n"; $time_1 = time(); &display_time_delta($time_0, $time_1); $ivg_flag = "-y"; &import_vg($ivg_flag, $vg_name, $pv_name); } $time_of_day = `date`; print LOGLOG "$time_of_day"; close(LOGLOG); ## Start of subroutines ################################################ sub import_vg { local ($rc); # Since multiple exits where fails occur and one where # it exits on OK ... assume bad return code (rc). $rc = 1; $time_0 = time(); system ("importvg $ivg_flag $vg_name $pv_name 2>&1"); if ($? == 0) { print "OK:$my_node_number:importvg $ivg_flag $vg_name $pv_name\n"; if ($ivg_flag eq "-y") { system ("chvg -a n $vg_name 2>/dev/null"); if ($? == 0) { if ($vsd_type ne "CVSD") { print "OK:$my_node_number:chvg -a n $vg_name\n"; # before we do varyoffvg, # we need to make sure to kill back groud syncvg $list=`ps -ef | grep "syncvg -v $vg_name" | grep -v grep`; if ($list ne "") { $list =~ s/^\s*//; chop($list); ($owner, $pid, $junk) = split(/\s+/, $list); print "pid is $pid\n"; `kill -9 $pid 1>/dev/null 2>/dev/null` } # get disk timestamp, createvsd2.perl depends on this output $timestamp=`$VSD_cmd_dir/readvg_timestamps $pv_name 2>/dev/null`; chop($timestamp); print "timestamp $my_node_number $vg_name $timestamp\n"; # check if this importvg is related to vpath devices if ( $pv_type eq "vpath" ) { system ("/usr/sbin/dpovgfix $vg_name 1>/dev/null"); if ($? == 0) { print "OK:$my_node_number:dpovgfix $vg_name success\n"; } else { print "FAIL:$my_node_number:dpovgfix $vg_name failed\n"; } } system ("varyoffvg $vg_name 2>&1 "); if ($? == 0) { $rc = 0; print "OK:$my_node_number:varyoffvg $vg_name\n"; # we cannot punch OK to rollback file, otherwise the # dorollback will varyon the vg } else { print "FAIL:$my_node_number:varyoffvg $vg_name\n"; print LOGLOG"FAIL:$my_node_number:varyoffvg $vg_name\n"; } } else # CVSD { $rc=0; } } else { print "FAIL:$my_node_number:chvg -a n $vg_name\n"; print LOGLOG "FAIL:$my_node_number:chvg -a n $vg_name\n"; } } else # no need to do chvg -a n if we did importvg -L { $rc=0; } } else { print "FAIL:$my_node_number:importvg $ivg_flag $vg_name $pv_name\n"; if ( $ivg_flag eq "-y" ) { print LOGLOG "FAIL:$my_node_number:importvg $ivg_flag $vg_name $pv_name\n"; } } $time_1 = time(); &display_time_delta($time_0, $time_1); return $rc; } sub display_time_delta { local ($tsec, $tminute); $tsec = $_[1] - $_[0]; if ($tsec > 60) { $tminute = $tsec / 60; printf ("It took about %6.2f minutes.\n", $tminute); } else { if ( $tsec > 0 ) { print "It took about $tsec seconds.\n"; } } } p kN) h:Җ:Җ:0 ./usr/lpp/csd/sysctl/dovaryonvg.perlrl#!/usr/lpp/ssp/perl5/bin/perl # IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2001 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG ##################################################################### # # # Module: dovaryonvg.perl # # # CPRY PGM # # Licensed Materials - Property of IBM # # 5765-296 PSSP # # (C) Copyright IBM Corp. 1994, 1995 All Rights Reserved. # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # CPRY # # #-------------------------------------------------------------------# # # # Description: # # This is the progam run on server node to mkvg and mklv. # It gets exact argument as createvsd on client(CWS). # After parse the argument, this program only does what it needs to do # on the local node. # # # Inputs: # vg_name # Outputs: # # # Returns: # # 0 - if completed successfully # # 1 - if bad command line or bad SDR return # # # # # External Ref: # # # # Internal Ref: # # none # # # ##################################################################### # This is an internal program. # It does not require NLS. $curpath = $ENV{'PATH'}; $ENV{'PATH'} = "$curpath:/usr/sbin"; $vg_name = @ARGV[0]; $option = @ARGV[1]; $my_node_number = `/usr/lpp/ssp/install/bin/node_number`; chop($my_node_number); system ("varyonvg $option $vg_name"); if ($? == 0) { print "OK:$my_node_number:varyonvg $option $vg_name\n"; } else { print "FAIL:$my_node_number:varyonvg $option $vg_name\n"; } |/@ k)+Lh:Җ:Җ:0L./usr/lpp/csd/sysctl/getavailpv.perlrl#! /usr/lpp/ssp/perl5/bin/perl # IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # # # Licensed Materials - Property of IBM # # (C) COPYRIGHT International Business Machines Corp. 1994,2001 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG ##################################################################### # # # Module: getavailpv.perl # # # CPRY PGM # # Licensed Materials - Property of IBM # # 5765-296 PSSP # # (C) Copyright IBM Corp. 1994, 1995 All Rights Reserved. # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # CPRY # # #-------------------------------------------------------------------# # # # Description: # # # Inputs: # # # # # Outputs: # # # # Returns: # # 0 - if completed successfully # # 1 - if bad command line or bad SDR return # # # # Syntax: # # # # # # External Ref: # # sp_msg # # SDRChangeAttrValues # # SDRGetObjects # # # # Internal Ref: # # none # # # ##################################################################### #"@(#)25 1.5.1.1 src/csd/sysctl/getavailpv.perl, vsd, csd_rmoh, rmohs07a 1/18/01 08:36:22" # This is the program run on sysctl server node. $curpath = $ENV{'PATH'}; $ENV{'PATH'} = "$curpath:/usr/sbin"; sub print_usage { print "Usage: getavailpv"; } # print "ARGV = ", $#ARGV, "\n"; if ($ARGV[0] eq "-h") { &print_usage; exit ("-h" eq $ARGV[0]) ? 0 : 1; } # next look if any undefined hard disk # run lspv on it1n11: # hdisk0 000156670002244f rootvg # hdisk1 abcd000054c23486 None $found_undef = 0; open(HDISKS, "/usr/sbin/lspv | ") || die "Cannot run lspv"; while () { s/^\s*//; ($h_name, $addr, $tvg) = split(/\s+/); # Only search for free disks with a pvid. We explicitly do not # want to return an hdisk that does not have a pvid, because it # may be part of a vpath. We also do not want to return any available # vpaths, because the user should explicitly specify a device. if ( !($h_name =~ /vpath/) && ($addr ne "none") && ($tvg eq "None")) { $found_undef = 1; print "$h_name\n"; last; } } if ($found_undef == 0) { print "None\n"; } close(HDISKS); failkJ} = $ENV{'PATH'}; $ENV{'PATH'} = "$curpath:/usr/sbin"; sub print_usage { print "Usage: getavailpv"; } # print "ARGV = ", $#ARGV, "\n"; if ($ARGV[0] eq "-h") { &print_usage; exit ("-h" eq $ARGV[0]) ? 0 : 1; } # next look if any undefined hard disk # run lspv on it1n11: # hdisk0 000156670002244f rootvg # hdisk1 abcd000054c23486 None $found_undef = 0; open(HDISKS, "/usr/sbin/lspv | ") || die "Cannot run lspv"; while () { s/^\s*//; ($h_name, $addr, $tvg) = split(/\s+/); # Only search for free disks with a pvid. We explicitly do not # want to retur