|
115
|
1 |
"{ Package: 'stx:goodies/monticello' }"
|
|
|
2 |
|
|
|
3 |
MCWriteOnlyRepository subclass:#MCSMReleaseRepository
|
|
|
4 |
instanceVariableNames:'packageName user password'
|
|
|
5 |
classVariableNames:''
|
|
|
6 |
poolDictionaries:''
|
|
677
|
7 |
category:'SCM-Monticello-Repositories'
|
|
115
|
8 |
!
|
|
|
9 |
|
|
|
10 |
|
|
|
11 |
!MCSMReleaseRepository class methodsFor:'as yet unclassified'!
|
|
|
12 |
|
|
|
13 |
creationTemplate
|
|
|
14 |
^
|
|
|
15 |
'MCSMReleaseRepository
|
|
|
16 |
package: ''mypackage''
|
|
|
17 |
user: ''squeak''
|
|
|
18 |
password: ''squeak'''
|
|
|
19 |
|
|
|
20 |
!
|
|
|
21 |
|
|
|
22 |
description
|
|
|
23 |
^ 'SqueakMap Release'
|
|
|
24 |
!
|
|
|
25 |
|
|
|
26 |
package: packageString user: userString password: passString
|
|
|
27 |
^ self basicNew initializeWithPackage: packageString user: userString password: passString
|
|
|
28 |
! !
|
|
|
29 |
|
|
|
30 |
!MCSMReleaseRepository methodsFor:'as yet unclassified'!
|
|
|
31 |
|
|
|
32 |
basicStoreVersion: aVersion
|
|
|
33 |
| url |
|
|
227
|
34 |
url := self uploadVersion: aVersion.
|
|
115
|
35 |
self releaseVersion: aVersion url: url
|
|
|
36 |
!
|
|
|
37 |
|
|
|
38 |
checkResult: resultString
|
|
|
39 |
(#( 'HTTP/1.1 201 ' 'HTTP/1.1 200 ' 'HTTP/1.0 201 ' 'HTTP/1.0 200 ')
|
|
|
40 |
anySatisfy: [:code | resultString beginsWith: code ])
|
|
|
41 |
ifFalse: [self error: resultString].
|
|
227
|
42 |
|
|
115
|
43 |
!
|
|
|
44 |
|
|
|
45 |
description
|
|
|
46 |
^ 'sm://', packageName
|
|
|
47 |
!
|
|
|
48 |
|
|
|
49 |
initializeWithPackage: packageString user: userString password: passString
|
|
227
|
50 |
packageName := packageString.
|
|
|
51 |
user := userString.
|
|
|
52 |
password := passString.
|
|
|
53 |
|
|
115
|
54 |
!
|
|
|
55 |
|
|
|
56 |
releaseVersion: aVersion url: urlString
|
|
|
57 |
| result |
|
|
227
|
58 |
result := HTTPSocket
|
|
115
|
59 |
httpPost: self squeakMapUrl, '/packagebyname/', packageName, '/newrelease'
|
|
|
60 |
args: {'version' -> {(aVersion info name copyAfter: $.) extractNumber asString}.
|
|
|
61 |
'note' -> {aVersion info message}.
|
|
|
62 |
'downloadURL' -> {urlString}}
|
|
|
63 |
user: user
|
|
|
64 |
passwd: password.
|
|
|
65 |
result contents size > 4 ifTrue: [self error: result contents]
|
|
227
|
66 |
|
|
115
|
67 |
!
|
|
|
68 |
|
|
|
69 |
squeakMapUrl
|
|
|
70 |
^ 'http://localhost:9070/sm'
|
|
227
|
71 |
|
|
115
|
72 |
!
|
|
|
73 |
|
|
|
74 |
stringForVersion: aVersion
|
|
|
75 |
| stream |
|
|
227
|
76 |
stream := RWBinaryOrTextStream on: String new.
|
|
115
|
77 |
aVersion fileOutOn: stream.
|
|
|
78 |
^ stream contents
|
|
|
79 |
!
|
|
|
80 |
|
|
|
81 |
uploadVersion: aVersion
|
|
|
82 |
| result stream |
|
|
227
|
83 |
result := HTTPSocket
|
|
115
|
84 |
httpPut: (self stringForVersion: aVersion)
|
|
|
85 |
to: self squeakMapUrl, '/upload/', aVersion fileName
|
|
|
86 |
user: user
|
|
|
87 |
passwd: password.
|
|
|
88 |
self checkResult: result.
|
|
227
|
89 |
stream := result readStream.
|
|
115
|
90 |
stream upToAll: 'http://'.
|
|
|
91 |
^ 'http://', stream upToEnd
|
|
|
92 |
! !
|
|
|
93 |
|
|
|
94 |
!MCSMReleaseRepository class methodsFor:'documentation'!
|
|
|
95 |
|
|
|
96 |
version
|
|
677
|
97 |
^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.4 2012-09-11 21:28:27 cg Exp $'
|
|
227
|
98 |
!
|
|
|
99 |
|
|
|
100 |
version_CVS
|
|
677
|
101 |
^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.4 2012-09-11 21:28:27 cg Exp $'
|
|
227
|
102 |
!
|
|
|
103 |
|
|
|
104 |
version_SVN
|
|
|
105 |
^ '§Id: MCSMReleaseRepository.st 5 2010-08-29 07:30:29Z vranyj1 §'
|
|
115
|
106 |
! !
|