ProtoObjectObjectWAPresenterWADecorationWASessionProtector
| remoteAddress |
| instance | class |
|---|---|
| accessing forwarding testing | no messages
|
| remoteAddress |
|---|
|
| accessing |
|---|
| remoteAddressFromRequest: aRequest |
^aRequest headerAt: 'x-forwarded-for' ifAbsent: [ aRequest nativeRequest remoteAddress ] |
| storedRemoteAddress |
remoteAddress isNil ifTrue: [ remoteAddress _ self remoteAddressFromRequest: self session currentRequest ]. ^remoteAddress |
| forwarding |
|---|
| processChildCallbacks: aStream |
(self verifyRequest: self session currentRequest) ifTrue: [ super processChildCallbacks: aStream ] ifFalse: [ self respondNotVerified ] |
| renderContentOn: html |
(self verifyRequest: html request) ifTrue: [ self renderOwnerOn: html ] ifFalse: [ self respondNotVerified ] |
| respondNotVerified |
self session redirectTo: self session application basePath. |
| testing |
|---|
| isGlobal |
^true |
| verifyRequest: aRequest |
^(self remoteAddressFromRequest: aRequest) = self storedRemoteAddress |