"Change Set: getfields-bf
Date: 17 January 2000
Author: Bert Freudenberg
Makes GET fields (like /myswiki/search?what=text) work with ComSwikis by
truncating urls to the first $?."
-Bert-
'From Squeak2.7 of 5 January 2000 [latest update: #1762] on 17 January 2000 at 4:00:07
pm'!
"Change Set: getfields-bf
Date: 17 January
2000
Author: Bert Freudenberg
Makes GET fields (like
/search?what=text) work with ComSwikis by truncating urls to the first $?."!
!NetworkRequest methodsFor: 'misc properties' stamp: 'bf 1/17/2000 12:23'!
urlTokens
^self propertyAt: #urlTokens ifAbsentPut: [
(self url copyUpTo: $?)
findTokens: '/.'.
].
! !
!SwikiModule methodsFor: 'processing' stamp: 'bf
1/17/2000 12:26'!
filter: rawRequest
| tokens request |
request _ SwikiRequest
fromRequest: rawRequest.
tokens _ (request url copyUpTo: $?) findTokens: '/.'.
request urlTokens: tokens.
request urlPrefix: ('/', self name, '/').
^request! !
!DefaultSwikiModule methodsFor: 'processing' stamp: 'bf 1/17/2000
15:44'!
filter: rawRequest
| tokens request |
request _ SwikiRequest
fromRequest: rawRequest.
tokens _ (request url copyUpTo: $?) findTokens: '/.'.
tokens ifNil: [tokens _ OrderedCollection new].
tokens addFirst: 'default'.
request urlTokens: tokens.
request urlPrefix: ('/default/').
^request! !
