ProtoObjectObjectWAPresenterWADecorationWABasicAuthentication
| authenticator | realm |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| authenticator |
|---|
|
| realm |
|---|
|
| as yet unclassified |
|---|
| authenticator: anAuthenticator |
authenticator _ anAuthenticator |
| isGlobal |
^ true |
| processChildCallbacks: aStream |
(self verifyRequest: self session currentRequest) ifTrue: [super processChildCallbacks: aStream] ifFalse: [self respondWithChallenge] |
| realm |
^ realm ifNil: [self session application basePath] |
| realm: aString |
realm _ aString |
| renderContentOn: html |
(self verifyRequest: html request) ifTrue: [self renderOwnerOn: html] ifFalse: [self respondWithChallenge] |
| respondWithChallenge |
self session returnResponse: (WAResponse basicAuthWithRealm: self realm) |
| verifyRequest: aRequest |
^ authenticator verifyPassword: aRequest password forUser: aRequest user |