ProtoObjectObjectWARequestHandlerWAExpiringHandler
| expired | lastAccess | timeout |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| expired |
|---|
|
| lastAccess |
|---|
|
|
| timeout |
|---|
|
| as yet unclassified |
|---|
| defaultTimeoutSeconds |
^ 600 |
| expire |
expired _ true |
| expired |
^ expired ifNil: [false] |
| handleRequest: aRequest |
lastAccess _ Time totalSeconds. ^ self incomingRequest: aRequest |
| incomingRequest: aRequest |
self subclassResponsibility |
| isActive |
^ self expired not and: [self secondsSinceLastAccess < self timeoutSeconds] |
| lastAccess |
^ lastAccess ifNil: [lastAccess _ Time totalSeconds] |
| secondsSinceLastAccess |
^ Time totalSeconds - self lastAccess |
| timeoutSeconds |
^ timeout ifNil: [self defaultTimeoutSeconds] |
| timeoutSeconds: aNumber |
timeout _ aNumber |