|
| 1 | +#!/usr/bin/env superdoit_solo |
| 2 | +instvars |
| 3 | +% |
| 4 | +usage |
| 5 | +----- |
| 6 | +USAGE: restartnetldi [-h] <stone-name> |
| 7 | + |
| 8 | +DESCRIPTION |
| 9 | +Restart a running netldi process. |
| 10 | + |
| 11 | +OPTIONS |
| 12 | + -h, --help display usage message |
| 13 | + |
| 14 | +EXAMPLES |
| 15 | + $basename -h |
| 16 | + $basename myStoneName |
| 17 | +----- |
| 18 | +% |
| 19 | +method |
| 20 | +restartNetldi |
| 21 | + "If GemStone version if >= 3.3 netldi supports restarting with -r. |
| 22 | + Older version need to be stopped and then started using the same arguments used to start it the first time" |
| 23 | + |
| 24 | + | result netldiArgs | |
| 25 | + self stderr nextPutAll: 'SESS_HOME: ', (System gemEnvironmentVariable: 'GS_SYS_SESSIONS'). |
| 26 | + self stoneInfo gsVers >= '3.3.0' ifTrue: [ |
| 27 | + result := GsHostProcess execute: (self gs_binDirectory / 'startnetldi ') fullPath asString, ' -r ', self sessionDescription netLDI. |
| 28 | + self stderr nextPutAll: result. |
| 29 | + ] ifFalse: [ |
| 30 | + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'stopNetldi ') fullPath asString, ' ', self stoneName. |
| 31 | + self stderr nextPutAll: result. |
| 32 | + netldiArgs := self netldiArgsStringFromArray: self netldiArgs. |
| 33 | + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'startNetldi ') fullPath asString, ' ', netldiArgs. |
| 34 | + self stderr nextPutAll: result. |
| 35 | + ]. |
| 36 | +% |
| 37 | +method |
| 38 | +netldiArgs |
| 39 | + | sess netldiArgs | |
| 40 | + sess := self sessionDescription. |
| 41 | + netldiArgs := OrderedCollection new. |
| 42 | + self netldiArgsOn: netldiArgs. |
| 43 | + (self scriptArgs size = 1 or: [ self scriptArgs size = 2 and: [ self privateRestart ] ]) |
| 44 | + ifTrue: [ |
| 45 | + self privateRestart ifTrue: [ netldiArgs add: '-r' ]. |
| 46 | + sess netldiArgsOn: netldiArgs. |
| 47 | + ] |
| 48 | + ifFalse: [ |
| 49 | + netldiArgs |
| 50 | + addAll: (self scriptArgs copyFrom: 3 to: self scriptArgs size); |
| 51 | + add: sess netLDI |
| 52 | + ]. |
| 53 | + ^ netldiArgs |
| 54 | +% |
| 55 | +method |
| 56 | +netldiArgsOn: netldiArgs |
| 57 | + | logDir | |
| 58 | + logDir := self gs_logDirectory. |
| 59 | + netldiArgs |
| 60 | + add: '-l'; |
| 61 | + add: (logDir / 'netldi.log') fullPath asString |
| 62 | +% |
| 63 | +method |
| 64 | +netldiArgsStringFromArray: netldiArgsArray |
| 65 | + ^ String streamContents: [ :stream | |
| 66 | + netldiArgsArray |
| 67 | + do: [ :item | stream nextPutAll: item asString ] |
| 68 | + separatedBy: [ stream space ] |
| 69 | + ] |
| 70 | +% |
| 71 | +method |
| 72 | +sessionDescription |
| 73 | + ^ self |
| 74 | + sessionDescriptionIfAbsent: [ :sessionDescriptionReference | |
| 75 | + Error signal: |
| 76 | + 'Session description file ' , sessionDescriptionReference pathString printString , ' for ' , self stoneName printString |
| 77 | + , ' not found.' ] |
| 78 | +% |
| 79 | +method |
| 80 | +sessionDescriptionIfAbsent: absentBlock |
| 81 | + ^self sessionDescriptionFor: self stoneName ifAbsent: absentBlock |
| 82 | +% |
| 83 | +method |
| 84 | +sessionDescriptionFor: aStoneName ifAbsent: absentBlock |
| 85 | + | sessionDescriptionReference | |
| 86 | + sessionDescriptionReference := self sessionDescriptionHome / aStoneName. |
| 87 | + sessionDescriptionReference exists |
| 88 | + ifFalse: [ ^ absentBlock value: sessionDescriptionReference ]. |
| 89 | + ^ TDSessionDescription importFrom: sessionDescriptionReference pathString |
| 90 | +% |
| 91 | +method |
| 92 | +sessionDescriptionHome |
| 93 | + ^ (System gemEnvironmentVariable: 'GS_SYS_SESSIONS') asFileReference |
| 94 | +% |
| 95 | +method |
| 96 | +gs_binDirectory |
| 97 | + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference |
| 98 | +% |
| 99 | +method |
| 100 | +gs_logDirectory |
| 101 | + ^ (System gemEnvironmentVariable: 'GEMSTONE_LOGDIR') asFileReference |
| 102 | +% |
| 103 | +method |
| 104 | +gs_stonesDirectory |
| 105 | + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference |
| 106 | +% |
| 107 | +method |
| 108 | +gs_devKitBinDirectory |
| 109 | + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/bin') asFileReference |
| 110 | +% |
| 111 | +method |
| 112 | +gs_stoneDirectory |
| 113 | + ^ self gs_stonesDirectory / self stoneName |
| 114 | +% |
| 115 | +method |
| 116 | +stoneInfoClass |
| 117 | + ^ GsDevKitStoneInfo |
| 118 | +% |
| 119 | +method |
| 120 | +stoneInfoFilename |
| 121 | + ^ 'info.ston' |
| 122 | +% |
| 123 | +method |
| 124 | +stoneInfo |
| 125 | + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename |
| 126 | +% |
| 127 | +method |
| 128 | +stoneName |
| 129 | + ^ self positionalArgs at: 1 |
| 130 | +% |
| 131 | +method |
| 132 | +doit |
| 133 | + "override doit method, because ChildError does not exist in 3.6.0" |
| 134 | + [ |
| 135 | + self getAndVerifyOptions == self noResult |
| 136 | + ifTrue: [ ^ self noResult ]. |
| 137 | + ^ self theDoit |
| 138 | + ] on: Error do: [:ex | |
| 139 | + self debug ifTrue: [ ex pass ]. |
| 140 | + self |
| 141 | + exit: ((ex respondsTo: #stderr) |
| 142 | + ifTrue: [ ex stderr asString trimBoth ] |
| 143 | + ifFalse: [ ex messageText ]) |
| 144 | + withStatus: 1 "does not return" ]. |
| 145 | +% |
| 146 | +doit |
| 147 | + self restartNetldi. |
| 148 | + ^ self noResult |
| 149 | +% |
0 commit comments