| [796] | 1 | TMGPAT4 ;TMG/kst/Patching tools ;09/22/08
|
|---|
| 2 | ;;1.0;TMG-LIB;**1**;09/22/08
|
|---|
| 3 | ;
|
|---|
| 4 | ;"Kevin Toppenberg MD
|
|---|
| 5 | ;"GNU General Public License (GPL) applies
|
|---|
| 6 | ;"9/26/08
|
|---|
| 7 |
|
|---|
| 8 | ;"=======================================================================
|
|---|
| 9 | ;" API -- Public Functions.
|
|---|
| 10 | ;"=======================================================================
|
|---|
| 11 | ;"Analyze(Info,Option) -- look at a patch TXT file and extract useful information
|
|---|
| 12 | ;"ShowAnalysis(Info,Msg) -- display to user analysis info in a meaningful way.
|
|---|
| 13 |
|
|---|
| 14 | ;"=======================================================================
|
|---|
| 15 | ;"Private Functions
|
|---|
| 16 | ;"=======================================================================
|
|---|
| 17 | ;"GetReqPatches(Array,Info) -- scan Array, holding TXT file, and assemble list of required patches
|
|---|
| 18 | ;"GetCategory(Array,Info) -- scan Array, holding TXT file, and assemble category entries
|
|---|
| 19 | ;"GetFNames(Array,Info) -- scan Array, holding TXT file, and scavenge and .KID file names
|
|---|
| 20 | ;"GetMultPatches(Array,Info,Option) -- scan Array, holding TXT file, and matching multi-patch info
|
|---|
| 21 | ;"GetSeq(PatchName,Mode,Option,URL) -- For a given patch (e.g. DI*12*123), return the SEQ #
|
|---|
| 22 | ;"FindMultPatch(PatchName,PckInit,Option,URL) --
|
|---|
| 23 | ;"CheckDelta(Info) -- compare the requirements in Info vs existing system.
|
|---|
| 24 | ;"PAnalyze(Info,Option) -- look at a patch KID file and extract useful information
|
|---|
| 25 | ;"PGetReqPatches(Array,Info) -- scan Array, holding KID file, and assemble list of required patches
|
|---|
| 26 | ;"CheckLocal(pArray,Option) -- check a KIDS for conflict with local modifications.
|
|---|
| 27 | ;"Chk1Routine(routine) -- see if one routine has any local modifications.
|
|---|
| 28 |
|
|---|
| 29 | ;"=======================================================================
|
|---|
| 30 |
|
|---|
| 31 | Analyze(Info,Option)
|
|---|
| 32 | ;"Purpose: To look at a patch TXT file and extract useful information
|
|---|
| 33 | ;"Input: Info -- PASS BY REFERENCE, and IN and OUT PARAMETER.
|
|---|
| 34 | ;" Input: Info("PATH") -- path on HFS of TXT file
|
|---|
| 35 | ;" Info("TEXT FILE") -- filename on HFS of TXT file
|
|---|
| 36 | ;" Output:
|
|---|
| 37 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 38 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 39 | ;" Info("MULTI-PATCH","FILENAME")=FileName
|
|---|
| 40 | ;" Info("MULTI-PATCH","CONTAINS",PatchName)=""
|
|---|
| 41 | ;" Info("MULTI-PATCH","CONTAINS",patchName,"LATEST IN THIS PACKAGE")=lastPatch
|
|---|
| 42 | ;" Option -- optional. Pass by reference.
|
|---|
| 43 | ;" Option("VERBOSE")=1, means messaages also written directly to output
|
|---|
| 44 | ;"
|
|---|
| 45 | ;"Results: none
|
|---|
| 46 |
|
|---|
| 47 | new FPath,FName,Array
|
|---|
| 48 | set FPath=$get(Info("PATH")) if FPath="" goto ADone
|
|---|
| 49 | set FName=$get(Info("TEXT FILE")) if FName="" goto ADone
|
|---|
| 50 | if $$FTG^%ZISH(FPath,FName,"Array(0)",1)=0 goto ADone
|
|---|
| 51 | do GetReqPatches(.Array,.Info)
|
|---|
| 52 | do GetCategory(.Array,.Info)
|
|---|
| 53 | do GetMultPatches(.Array,.Info,.Option)
|
|---|
| 54 | do GetFNames(.Array,.Info)
|
|---|
| 55 | do GetSubject(.Array,.Info)
|
|---|
| 56 | do CheckDelta(.Info)
|
|---|
| 57 | ADone quit
|
|---|
| 58 |
|
|---|
| 59 |
|
|---|
| 60 | PAnalyze(Info,Option)
|
|---|
| 61 | ;"Purpose: To look at a patch KID file and extract useful information
|
|---|
| 62 | ;"Input: Info -- PASS BY REFERENCE, and IN and OUT PARAMETER.
|
|---|
| 63 | ;" Input: Info("PATH") -- path on HFS of TXT file
|
|---|
| 64 | ;" Info("KID FILE") -- filename on HFS of KID file
|
|---|
| 65 | ;" Output: Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 66 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 67 | ;" Option -- optional. Pass by reference.
|
|---|
| 68 | ;" Option("VERBOSE")=1, means messaages also written directly to output
|
|---|
| 69 | ;"Results: none
|
|---|
| 70 |
|
|---|
| 71 | new FPath,FName,Array
|
|---|
| 72 | set FPath=$get(Info("PATH")) if FPath="" goto PADone
|
|---|
| 73 | set FName=$get(Info("KID FILE")) if FName="" goto PADone
|
|---|
| 74 | if $$FTG^%ZISH(FPath,FName,"Array(0)",1)=0 goto PADone
|
|---|
| 75 | do PGetReqPatches(.Array,.Info)
|
|---|
| 76 | ;"do PCheckDelta(.Info)
|
|---|
| 77 | PADone quit
|
|---|
| 78 |
|
|---|
| 79 |
|
|---|
| 80 | GetReqPatches(Array,Info)
|
|---|
| 81 | ;"Purpose: to scan Array, holding TXT file, and assemble list of required patches
|
|---|
| 82 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 83 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 84 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 85 | ;"Results: none
|
|---|
| 86 |
|
|---|
| 87 | new done set done=0
|
|---|
| 88 | new foundList set foundList=0
|
|---|
| 89 | new i set i=""
|
|---|
| 90 | for set i=$order(Array(i)) quit:(i="")!done do
|
|---|
| 91 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 92 | . set s=$$STRIP^XLFSTR(s,$char(10))
|
|---|
| 93 | . set s=$$STRIP^XLFSTR(s,$char(13))
|
|---|
| 94 | . if (foundList=1)&(s="") set done=1 quit
|
|---|
| 95 | . if s["Associated patches:" set foundList=1
|
|---|
| 96 | . if foundList do
|
|---|
| 97 | . . new onePatch
|
|---|
| 98 | . . set onePatch=$$TRIM^XLFSTR($piece($piece(s,")",2)," ",1)) ;"e.g. (v)PX*1*29 <<= must be installed BEFORE `PX*1*121'
|
|---|
| 99 | . . if onePatch="" quit
|
|---|
| 100 | . . set Info("SPECIFIED REQ",onePatch)=""
|
|---|
| 101 | quit
|
|---|
| 102 |
|
|---|
| 103 | PGetReqPatches(Array,Info)
|
|---|
| 104 | ;"Purpose: to scan Array, holding KID file, and assemble list of required patches
|
|---|
| 105 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 106 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 107 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 108 | ;"Results: none
|
|---|
| 109 | ;
|
|---|
| 110 | new done set done=0
|
|---|
| 111 | new foundList set foundList=0
|
|---|
| 112 | new i set i=""
|
|---|
| 113 | for set i=$order(Array(i)) quit:(i="")!done do
|
|---|
| 114 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 115 | . set s=$$STRIP^XLFSTR(s,$char(10))
|
|---|
| 116 | . set s=$$STRIP^XLFSTR(s,$char(13))
|
|---|
| 117 | . if s'["REQB" quit
|
|---|
| 118 | . if (s["""REQB"",""B""")!(s["""REQB"",0") quit
|
|---|
| 119 | . set i=$order(Array(i)) quit:(i="")
|
|---|
| 120 | . new onePatch set onePatch=$piece($get(Array(i)),"^",1) quit:(onePatch="")
|
|---|
| 121 | . set Info("SPECIFIED REQ",onePatch)=""
|
|---|
| 122 | quit
|
|---|
| 123 |
|
|---|
| 124 | GetCategory(Array,Info)
|
|---|
| 125 | ;"Purpose: to scan Array, holding TXT file, and assemble category entries
|
|---|
| 126 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 127 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 128 | ;" Info("PATCH CATEGORY",name)=""
|
|---|
| 129 | ;"Results: none
|
|---|
| 130 |
|
|---|
| 131 | new done set done=0
|
|---|
| 132 | new foundList set foundList=0
|
|---|
| 133 | new i set i=""
|
|---|
| 134 | for set i=$order(Array(i)) quit:(i="")!done do
|
|---|
| 135 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 136 | . set s=$$STRIP^XLFSTR(s,$char(10))
|
|---|
| 137 | . set s=$$STRIP^XLFSTR(s,$char(13))
|
|---|
| 138 | . if (foundList=1)&(s="") set done=1 quit
|
|---|
| 139 | . if s["Category:" set foundList=1
|
|---|
| 140 | . if foundList do
|
|---|
| 141 | . . new onePatch
|
|---|
| 142 | . . set onePatch=$$TRIM^XLFSTR($piece(s,"-",2)) ;"e.g. - Routine
|
|---|
| 143 | . . if onePatch="" quit
|
|---|
| 144 | . . set Info("PATCH CATEGORY",onePatch)=""
|
|---|
| 145 | quit
|
|---|
| 146 |
|
|---|
| 147 | GetFNames(Array,Info)
|
|---|
| 148 | ;"Purpose: to scan Array, holding TXT file, and scavenge and .KID file names
|
|---|
| 149 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 150 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 151 | ;" Info("MISC KID FILES",name)=""
|
|---|
| 152 | ;"Results: none
|
|---|
| 153 |
|
|---|
| 154 | new i set i=""
|
|---|
| 155 | for set i=$order(Array(i)) quit:(i="") do
|
|---|
| 156 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 157 | . set s=$$STRIP^XLFSTR(s,$char(10))
|
|---|
| 158 | . set s=$$STRIP^XLFSTR(s,$char(13))
|
|---|
| 159 | . if $$UP^XLFSTR(s)[".KID" do ;"NOTE: this system will only get 1 filename per line...
|
|---|
| 160 | . . new kidS
|
|---|
| 161 | . . if s[".kid" set kidS=".kid"
|
|---|
| 162 | . . else set kidS=".KID"
|
|---|
| 163 | . . if $piece(s,kidS,1)="" quit
|
|---|
| 164 | . . new FName set FName=$$GetWord^TMGSTUTL(s,$find(s,kidS)-1," "," ")
|
|---|
| 165 | . . if $extract(FName,$length(FName))="." set FName=$$TRIM^XLFSTR(FName,"R",".")
|
|---|
| 166 | . . if (FName="") quit
|
|---|
| 167 | . . set Info("MISC KID FILES",FName)=""
|
|---|
| 168 | quit
|
|---|
| 169 |
|
|---|
| 170 | GetSubject(Array,Info)
|
|---|
| 171 | ;"Purpose: to scan Array, holding TXT file, and scavenge SUBJECT line
|
|---|
| 172 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 173 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 174 | ;" Info("SUBJECT",name)=""
|
|---|
| 175 | ;"Results: none
|
|---|
| 176 |
|
|---|
| 177 | new i set i=""
|
|---|
| 178 | new done set done=0
|
|---|
| 179 | for set i=$order(Array(i)) quit:(i="")!done do
|
|---|
| 180 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 181 | . set s=$$STRIP^XLFSTR(s,$char(10))
|
|---|
| 182 | . set s=$$STRIP^XLFSTR(s,$char(13))
|
|---|
| 183 | . if s["Subject:" do
|
|---|
| 184 | . . new subj set subj=$piece(s,"Subject:",2)
|
|---|
| 185 | . . if subj="" quit
|
|---|
| 186 | . . set Info("SUBJECT",subj)=""
|
|---|
| 187 | . . set done=1
|
|---|
| 188 | quit
|
|---|
| 189 |
|
|---|
| 190 | GetMultPatches(Array,Info,Option)
|
|---|
| 191 | ;"Purpose: to scan Array, holding TXT file, and matching multi-patch info
|
|---|
| 192 | ;"Input: Array -- PASS BY REFERENCE -- holds TXT file
|
|---|
| 193 | ;" Info -- PASS BY REFERENCE. Data added as follows:
|
|---|
| 194 | ;" Info("MULTI-PATCH","FILENAME")=FileName
|
|---|
| 195 | ;" Info("MULTI-PATCH","CONTAINS",PatchName)=""
|
|---|
| 196 | ;" Option -- optional. Pass by reference.
|
|---|
| 197 | ;" Option("VERBOSE")=1, means messaages also written directly to output
|
|---|
| 198 | ;"Results: none
|
|---|
| 199 |
|
|---|
| 200 | new done set done=0
|
|---|
| 201 | new foundList,foundSection set (foundList,foundSection)=0
|
|---|
| 202 | new fileName set fileName=""
|
|---|
| 203 | new i set i=""
|
|---|
| 204 | for set i=$order(Array(i)) quit:(i="")!done do
|
|---|
| 205 | . new s set s=$$TRIM^XLFSTR($get(Array(i)))
|
|---|
| 206 | . if (foundList=1)&(s="") set done=1 quit
|
|---|
| 207 | . if s["SOFTWARE AND DOCUMENTATION RETRIEVAL" do
|
|---|
| 208 | . . set foundSection=1
|
|---|
| 209 | . if foundList do quit
|
|---|
| 210 | . . if s["---" quit
|
|---|
| 211 | . . if s="" set done=1 quit
|
|---|
| 212 | . . new tempS set tempS=$$TRIM^XLFSTR(s)
|
|---|
| 213 | . . new onePatch
|
|---|
| 214 | . . set onePatch=$$GetWord^TMGSTUTL(tempS,$length(tempS)-1)
|
|---|
| 215 | . . if onePatch="" quit
|
|---|
| 216 | . . new tempName set tempName=$$GetSeq(onePatch,1)
|
|---|
| 217 | . . if tempName="" set onePatch=onePatch_" SEQ #???"
|
|---|
| 218 | . . else set onePatch=tempName
|
|---|
| 219 | . . set Info("MULTI-PATCH","CONTAINS",onePatch)=""
|
|---|
| 220 | . if foundSection do
|
|---|
| 221 | . . if s["Patch(es)" set foundList=1 quit
|
|---|
| 222 | . . new tempS set tempS=$$UP^XLFSTR(s)
|
|---|
| 223 | . . if tempS[".KID" do
|
|---|
| 224 | . . . new p set p=$find(tempS,".KID")-1
|
|---|
| 225 | . . . set tempS=$$GetWord^TMGSTUTL(s,p) quit:tempS=""
|
|---|
| 226 | . . . for quit:($$UP^XLFSTR($e(tempS,$length(tempS)))="D")!(tempS="") do
|
|---|
| 227 | . . . . set tempS=$e(tempS,1,$length(tempS)-1)
|
|---|
| 228 | . . . set Info("MULTI-PATCH","FILENAME")=tempS
|
|---|
| 229 |
|
|---|
| 230 | quit
|
|---|
| 231 |
|
|---|
| 232 |
|
|---|
| 233 | GetSeq(PatchName,Mode,Option,URL)
|
|---|
| 234 | ;"Purpose: For a given patch (e.g. DI*12*123), return name with the SEQ #
|
|---|
| 235 | ;"Input: PatchName -- e.g. DI*12*123
|
|---|
| 236 | ;" Mode -- OPTIONAL (0 is default) -- 0: search .KID & .TXT; 1: search .TXT files only, 2: search .KID only
|
|---|
| 237 | ;" Option -- optional. Pass by reference.
|
|---|
| 238 | ;" Option("VERBOSE")=1, means messaages also written directly to output
|
|---|
| 239 | ;" URL -- PASS BY REFERENCE, an OUT PARAMETER
|
|---|
| 240 | ;"Output: in addition to OUT PARAMETERS, the following global variables are set:
|
|---|
| 241 | ;" set ^TMG("KIDS","PATCH NAMES",PckInit,Ver,PatchNum,oneSeqNum)=""
|
|---|
| 242 | ;" set ^TMG("KIDS","PATCH NAMES",PckInit,"COMBINED",result)=URL
|
|---|
| 243 | ;"Results: returns patch name with seq #, e.g. 'DI*12*123 SEQ #123'
|
|---|
| 244 | ;" or "" if problem.
|
|---|
| 245 |
|
|---|
| 246 | new result set result=""
|
|---|
| 247 | new PckInit,Ver,PatchNum
|
|---|
| 248 | set PatchName=$get(PatchName)
|
|---|
| 249 | set PckInit=$piece(PatchName,"*",1)
|
|---|
| 250 | set Ver=$piece(PatchName,"*",2)
|
|---|
| 251 | set PatchNum=$piece(PatchName,"*",3)
|
|---|
| 252 | if (PckInit="")!(Ver="")!(PatchNum="") goto GSqDone
|
|---|
| 253 | set result=$get(^TMG("KIDS","PATCH NAMES",PckInit,Ver,PatchNum)) ;"stored from prior search
|
|---|
| 254 | if result'="" do goto GSqDone
|
|---|
| 255 | . if result="???" set result="" quit
|
|---|
| 256 | . set URL=$get(^TMG("KIDS","PATCH NAMES",PckInit,"COMBINED",result))
|
|---|
| 257 |
|
|---|
| 258 | new verbose set verbose=$get(Option("VERBOSE"))
|
|---|
| 259 | set Mode=+$get(Mode)
|
|---|
| 260 |
|
|---|
| 261 | new FPath,FName,Array,abort
|
|---|
| 262 | set abort=0
|
|---|
| 263 | set FPath=$get(^TMG("KIDS","PATCH DIR"),"/tmp/")
|
|---|
| 264 | set FName="ftp.va.gov-dirFor-"_PckInit
|
|---|
| 265 | if '$$FileExists^TMGIOUTL(FPath_FName) do
|
|---|
| 266 | . if verbose do
|
|---|
| 267 | . . write "Finding Sequence # for ",PatchName,!
|
|---|
| 268 | . . write "Getting directory information from VA ftp server..."
|
|---|
| 269 | . if $$GetPckList^TMGKERNL(PckInit,.Array,1)=0 set abort=1
|
|---|
| 270 | . if verbose write " Done.",!
|
|---|
| 271 | else do
|
|---|
| 272 | . if $$FTG^%ZISH(FPath,FName,"Array(0)",1)=0 set abort=1 quit
|
|---|
| 273 | if abort goto GSqDone
|
|---|
| 274 |
|
|---|
| 275 | new found set found=0
|
|---|
| 276 | new i set i=0 ;"skip first line, a header line
|
|---|
| 277 | for set i=$order(Array(i)) quit:(i="")!found do
|
|---|
| 278 | . new Name,Path,FullNamePath,oneVer,onePatchNum,oneSeqNum
|
|---|
| 279 | . set FullNamePath=$get(Array(i)) quit:FullNamePath=""
|
|---|
| 280 | . do SplitFNamePath^TMGIOUTL(FullNamePath,.Path,.Name,"/")
|
|---|
| 281 | . if Name="" quit
|
|---|
| 282 | . new tempName set tempName=$$UP^XLFSTR(Name)
|
|---|
| 283 | . if Mode=0,(tempName'[".TXT")&((tempName'[".KID")) quit
|
|---|
| 284 | . else if Mode=1,(tempName'[".TXT") quit
|
|---|
| 285 | . else if Mode=2,(tempName'[".KID") quit
|
|---|
| 286 | . set oneVer=$piece($piece(tempName,"_",1),"-",2) quit:(oneVer="")
|
|---|
| 287 | . if oneVer?.N1"P".N set oneVer=$translate(Ver,"P",".")
|
|---|
| 288 | . set oneSeqNum=$piece($piece(tempName,"_",2),"-",2) quit:(oneSeqNum="")
|
|---|
| 289 | . set onePatchNum=$piece($piece(tempName,"_",3),"-",2) quit:(onePatchNum="")
|
|---|
| 290 | . set onePatchNum=$piece(onePatchNum,".",1) quit:(onePatchNum="")
|
|---|
| 291 | . if onePatchNum=PatchNum do
|
|---|
| 292 | . . set result=PatchName_" SEQ #"_oneSeqNum
|
|---|
| 293 | . . set URL=FullNamePath
|
|---|
| 294 | . . set found=1
|
|---|
| 295 | . . set ^TMG("KIDS","PATCH NAMES",PckInit,Ver,PatchNum)=result
|
|---|
| 296 | . . set ^TMG("KIDS","PATCH NAMES",PckInit,"COMBINED",result)=URL
|
|---|
| 297 |
|
|---|
| 298 | GSqDone
|
|---|
| 299 | if result="" do
|
|---|
| 300 | . if (PckInit="")!(Ver="")!(PatchNum="") quit
|
|---|
| 301 | . set ^TMG("KIDS","PATCH NAMES",PckInit,Ver,PatchNum)="???"
|
|---|
| 302 |
|
|---|
| 303 | quit result
|
|---|
| 304 |
|
|---|
| 305 |
|
|---|
| 306 | FindMultPatch(PatchName,PckInit,Option,URL,Info)
|
|---|
| 307 | ;"Purpose: Search through downloaded directory file for patch, and return URL
|
|---|
| 308 | ;"Input: PatchName -- e.g. CSV_12_1234.KID
|
|---|
| 309 | ;" PckInit -- the initials for the package.
|
|---|
| 310 | ;" Option -- optional. Pass by reference.
|
|---|
| 311 | ;" Option("VERBOSE")=1, means messaages also written directly to output
|
|---|
| 312 | ;" URL -- PASS BY REFERENCE, an OUT PARAMETER
|
|---|
| 313 | ;" Info -- PASS BY REFERENCE
|
|---|
| 314 | ;" Info("KID URL")=URL on server for KID file
|
|---|
| 315 | ;" Info("TEXT URL")=URL on server for TXT file
|
|---|
| 316 | ;"Results: 1 if found, 0 if not found or problem.
|
|---|
| 317 |
|
|---|
| 318 | new result set result=0
|
|---|
| 319 | set PatchName=$get(PatchName) goto:(PatchName="") FMPDone
|
|---|
| 320 | new verbose set verbose=$get(Option("VERBOSE"))
|
|---|
| 321 |
|
|---|
| 322 | new FPath,FName,Array,abort
|
|---|
| 323 | set abort=0
|
|---|
| 324 | set FPath=$get(^TMG("KIDS","PATCH DIR"),"/tmp/")
|
|---|
| 325 | set FName="ftp.va.gov-dirFor-"_PckInit
|
|---|
| 326 | if '$$FileExists^TMGIOUTL(FPath_FName) do
|
|---|
| 327 | . if verbose do
|
|---|
| 328 | . . write "Finding Patch: ",PatchName,!
|
|---|
| 329 | . . write "Getting directory information from VA ftp server..."
|
|---|
| 330 | . if $$GetPckList^TMGKERNL(PckInit,.Array,1)=0 set abort=1
|
|---|
| 331 | . if verbose write " Done.",!
|
|---|
| 332 | else do
|
|---|
| 333 | . if $$FTG^%ZISH(FPath,FName,"Array(0)",1)=0 set abort=1 quit
|
|---|
| 334 | if abort goto FMPDone
|
|---|
| 335 |
|
|---|
| 336 | new i set i=0 ;"skip first line, a header line
|
|---|
| 337 | for set i=$order(Array(i)) quit:(i="")!(result=1) do
|
|---|
| 338 | . new Name,Path,FullNamePath,tempName
|
|---|
| 339 | . set FullNamePath=$get(Array(i)) quit:FullNamePath=""
|
|---|
| 340 | . do SplitFNamePath^TMGIOUTL(FullNamePath,.Path,.Name,"/")
|
|---|
| 341 | . if Name="" quit
|
|---|
| 342 | . if $$UP^XLFSTR(Name)=$$UP^XLFSTR(PatchName) do
|
|---|
| 343 | . . set URL=FullNamePath
|
|---|
| 344 | . . set result=1
|
|---|
| 345 |
|
|---|
| 346 | if result=0 do ;"last try to come up with filename.
|
|---|
| 347 | . new serverPath set serverPath=$get(Info("KID URL"))
|
|---|
| 348 | . if serverPath="" set serverPath=$get(Info("TEXT URL"))
|
|---|
| 349 | . set serverPath=$$PathExtract^TMGIOUTL(serverPath)
|
|---|
| 350 | . set serverPath=$piece(serverPath,"ftp://",2)
|
|---|
| 351 | . set URL=serverPath_PatchName
|
|---|
| 352 | . set result=1 ;"this is not a sure 'find', more of a hopeful guess that it will be in same directory.
|
|---|
| 353 |
|
|---|
| 354 | FMPDone
|
|---|
| 355 | quit result
|
|---|
| 356 |
|
|---|
| 357 |
|
|---|
| 358 |
|
|---|
| 359 | CheckDelta(Info)
|
|---|
| 360 | ;"Purpose: to compare the requirements in Info (as created by Analyze) and
|
|---|
| 361 | ;" determine differences in existing system.
|
|---|
| 362 | ;"Input: Info. PASS BY REFERENCE
|
|---|
| 363 | ;" Info("PATH") -- path on HFS of TXT file
|
|---|
| 364 | ;" Info("TEXT FILE") -- filename on HFS of TXT file
|
|---|
| 365 | ;" Info("SPECIFIED REQ",PatchName)=""
|
|---|
| 366 | ;" Info("MULTI-PATCH","FILENAME")=FileName
|
|---|
| 367 | ;" Info("MULTI-PATCH","CONTAINS",PatchName)=""
|
|---|
| 368 | ;" Info("MULTI-PATCH","CONTAINS",patchName,"LATEST IN THIS PACKAGE")=lastPatch
|
|---|
| 369 | ;"Output:
|
|---|
| 370 | ;" Info("SPECIFIED REQ",PatchName)="OK, Installed." or "Still Needed"
|
|---|
| 371 | ;" Info("STILL NEEDED",reqPatch)=""
|
|---|
| 372 |
|
|---|
| 373 | new reqPatch set reqPatch=""
|
|---|
| 374 | for set reqPatch=$order(Info("SPECIFIED REQ",reqPatch)) quit:(reqPatch="") do
|
|---|
| 375 | . new tempS
|
|---|
| 376 | . if $$IsInstalled^TMGPAT2(reqPatch) set tempS="OK, Installed."
|
|---|
| 377 | . else do
|
|---|
| 378 | . . set tempS="Still Needed."
|
|---|
| 379 | . . new s2 set s2=$$GetSeq(reqPatch) if s2="" set s2=reqPatch
|
|---|
| 380 | . . set Info("STILL NEEDED",s2)=""
|
|---|
| 381 | . set Info("SPECIFIED REQ",reqPatch)=tempS
|
|---|
| 382 |
|
|---|
| 383 | new patchName set patchName=""
|
|---|
| 384 | for set patchName=$order(Info("MULTI-PATCH","CONTAINS",patchName)) quit:(patchName="") do
|
|---|
| 385 | . new PckInit set PckInit=$piece(patchName,"*",1)
|
|---|
| 386 | . new Ver set Ver=$piece(patchName,"*",2)
|
|---|
| 387 | . set patchNum=$piece($piece(patchName,"*",3)," ",1)
|
|---|
| 388 | . new seqNum set seqNum=$piece(patchName,"SEQ #",2)
|
|---|
| 389 | . if (PckInit="")!(Ver="")!(patchNum="") quit
|
|---|
| 390 | . new lastPatch set lastPatch=$$GetLastPackage^TMGPAT1(PckInit,Ver) ;"returns e.g. 'DI*22.0*140 SEQ# 123'
|
|---|
| 391 | . set Info("MULTI-PATCH","CONTAINS",patchName,"LATEST IN THIS PACKAGE")=lastPatch
|
|---|
| 392 | . new lastSeqNum set lastSeqNum=$piece(lastPatch,"SEQ #",2)
|
|---|
| 393 | . if lastSeqNum<seqNum do
|
|---|
| 394 | . . set Info("GAPPED PATCHES",patchName)="Currently at: "_lastPatch
|
|---|
| 395 |
|
|---|
| 396 | quit
|
|---|
| 397 |
|
|---|
| 398 | ShowAnalysis(Info,Msg)
|
|---|
| 399 | ;"Purpose: To display analysis info in a meaningful way.
|
|---|
| 400 | ;"Input: Info -- PASS BY REFERENCE. Info as created by Analyze(Info,Option)
|
|---|
| 401 | ;" Msg -- PASS BY REFERANCE, an OUT PARAMETER
|
|---|
| 402 | ;" Errors are stored in Msg("ERROR",x)=Message
|
|---|
| 403 | ;" Msg("ERROR")=count of last error
|
|---|
| 404 | ;" Message are store in Msg(x)=Message
|
|---|
| 405 | ;" Msg=count of last message+1
|
|---|
| 406 |
|
|---|
| 407 | new tempMsg,someReq
|
|---|
| 408 | merge tempMsg=Msg
|
|---|
| 409 | set someReq=0
|
|---|
| 410 | do AddMsg^TMGPAT2("According to Info TXT file,",0,.tempMsg)
|
|---|
| 411 | do AddMsg^TMGPAT2("Before this patch is applied, other patches should have been installed first:",0,.tempMsg)
|
|---|
| 412 | new i set i=""
|
|---|
| 413 | for set i=$order(Info("SPECIFIED REQ",i)) quit:(i="") do
|
|---|
| 414 | . new s set s=$$GetSeq(i) if s="" set s=i
|
|---|
| 415 | . set s=$$LJ^XLFSTR(s,25)
|
|---|
| 416 | . set someReq=1
|
|---|
| 417 | . new PckInit set PckInit=$piece(s,"*",1)
|
|---|
| 418 | . new Ver set Ver=$piece(s,"*",2)
|
|---|
| 419 | . new LastPck set LastPck=$$GetLastPackage^TMGPAT1(PckInit,Ver)
|
|---|
| 420 | . new tempS set tempS=" "_s_" <-- "_$get(Info("SPECIFIED REQ",i))
|
|---|
| 421 | . if LastPck'="" set tempS=tempS_" Current at: "_LastPck
|
|---|
| 422 | . do AddMsg^TMGPAT2(tempS,0,.tempMsg)
|
|---|
| 423 | do AddMsg^TMGPAT2(" ",0,.tempMsg)
|
|---|
| 424 | if someReq=1 do
|
|---|
| 425 | . kill Msg merge Msg=tempMsg
|
|---|
| 426 |
|
|---|
| 427 | if $get(Info("MULTI-PATCH","FILENAME"))="" goto SA2
|
|---|
| 428 | set someReq=0
|
|---|
| 429 | do AddMsg^TMGPAT2("This patch is a Multi-Patch. It contains patches for the following packages: ",0,.Msg)
|
|---|
| 430 | kill tempMsg merge tempMsg=Msg
|
|---|
| 431 | set i=""
|
|---|
| 432 | for set i=$order(Info("MULTI-PATCH","CONTAINS",i)) quit:(i="") do
|
|---|
| 433 | . new curSys set curSys=$get(Info("MULTI-PATCH","CONTAINS",i,"LATEST IN THIS PACKAGE"))
|
|---|
| 434 | . new s set s=$$LJ^XLFSTR(i,25)
|
|---|
| 435 | . set someReq=1
|
|---|
| 436 | . do AddMsg^TMGPAT2(" "_s_" [This system is currently at: "_curSys_"]",0,.tempMsg)
|
|---|
| 437 | if someReq=1 do
|
|---|
| 438 | . kill Msg merge Msg=tempMsg
|
|---|
| 439 | do AddMsg^TMGPAT2("This multipatch is combined into file: "_$get(Info("MULTI-PATCH","FILENAME")),0,.Msg)
|
|---|
| 440 | SA2
|
|---|
| 441 | new subj set subj=$order(Info("SUBJECT",""))
|
|---|
| 442 | if subj'="" do
|
|---|
| 443 | . do AddMsg^TMGPAT2("PATCH SUBJECT: "_subj,0,.Msg)
|
|---|
| 444 |
|
|---|
| 445 | SADone
|
|---|
| 446 | quit
|
|---|
| 447 |
|
|---|
| 448 |
|
|---|
| 449 | CheckLocal(pArray,Option)
|
|---|
| 450 | ;"Purpose: to check a KIDS installation file, before it is applied, to ensure
|
|---|
| 451 | ;" that it doesn't conflict with any local modifications.
|
|---|
| 452 | ;" --The means of detecting local mods to be enhanced with time.
|
|---|
| 453 | ;"Input -- pArray -- PASS BY NAME. This should be a reference to ^XTMP("XPDI",XPDA,
|
|---|
| 454 | ;" for the installation being considered. Thus is should have this format:
|
|---|
| 455 | ;" @pArray@("BLD")
|
|---|
| 456 | ;" @pArray@("MBREQ")
|
|---|
| 457 | ;" @pArray@("PKG")
|
|---|
| 458 | ;" @pArray@("QUES")
|
|---|
| 459 | ;" @pArray@("RTN",RoutineName) <--- the key part
|
|---|
| 460 | ;" Option -- PASS BY REFERENCE
|
|---|
| 461 | ;" Option("VERBOSE")=1 Optional, 1=show output
|
|---|
| 462 | ;"Results: 1 if conflict, 0 if OK.
|
|---|
| 463 | new result set result=0
|
|---|
| 464 | new routine set routine=""
|
|---|
| 465 | for set routine=$order(@pArray@("RTN",routine)) quit:(routine="") do
|
|---|
| 466 | . if $$Chk1Routine(routine)=1 do
|
|---|
| 467 | . . set result=1
|
|---|
| 468 | . . if $get(Option("VERBOSE"))=1 write "WARNING: Importing routine ",routine," will overwrite local changes!",!
|
|---|
| 469 | quit result
|
|---|
| 470 |
|
|---|
| 471 |
|
|---|
| 472 | Chk1Routine(routine)
|
|---|
| 473 | ;"Purpose: to see if one routine has any local modifications.
|
|---|
| 474 | ;"Input: routine -- the routine name e.g. XUP
|
|---|
| 475 | ;"Results: 1 if conflict, 0 if OK.
|
|---|
| 476 | ;"NOTE: for now, the only test to be used will be the presence of the
|
|---|
| 477 | ;" text '//kt'
|
|---|
| 478 | ;" Later I want to use TMG VISTA FILE INFO, file 22708
|
|---|
| 479 |
|
|---|
| 480 | new result set result=0
|
|---|
| 481 |
|
|---|
| 482 | new line set line=0
|
|---|
| 483 | new blankCt set blankCt=0
|
|---|
| 484 | for do quit:(blankCt>10)!result
|
|---|
| 485 | . new ref set ref="+"_line_"^"_routine
|
|---|
| 486 | . new s set s=$TEXT(@ref)
|
|---|
| 487 | . if s="" set blankCt=blankCt+1
|
|---|
| 488 | . set result=(s["//kt")
|
|---|
| 489 | . set line=line+1
|
|---|
| 490 | quit result
|
|---|
