'From Squeak3.1beta of 3 October 2001 [latest update: #4478] on 17 April 2002 at 4:35:32 am'!

!HttpSwikiRequest methodsFor: 'initializing'!
fromHttpRequest: t1 
	| t2 |
	raw _ t1.
	t2 _ (raw url copyUpTo: $?)
				findTokens: '/.'.
	t2 size = 1
		ifTrue: [^ self].
	book _ t2 at: 2.
	t2 size = 2
		ifTrue: [address _ 'default'.
			^ self].
	(t2 at: 3) isAllDigits
		ifTrue: [page _ (t2 at: 3) asNumber.
			address _ t2 size > 3
						ifTrue: [t2 at: 4]
						ifFalse: ['default']]
		ifFalse: [address _ t2 at: 3]! !