WACookie

• expireIn:
• expiry
• expiry:
• expiryString
• key
• key:
• path
• path:
• value
• value:
• valueWithExpiry

• key:value:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	self expiry: DateAndTime now + aDuration

	^ expiry

	expiry _ aDateTime asUTC

	^ String streamContents:
		[:s |
		s
			nextPutAll: (expiry dayOfWeekName first: 3);
			nextPutAll: ', ';
			nextPutAll: expiry dayOfMonth asString;
			nextPut: $-;
			nextPutAll: expiry monthName;
			nextPut: $-;
			nextPutAll: expiry year asString;
			space;
			nextPutAll: expiry hour24 asString;
			nextPut: $:;
			nextPutAll: expiry minute asString; 
			nextPut: $:;
			nextPutAll: expiry second asString;
			nextPutAll: ' GMT']

	^ key

	key _ aString

	^ path ifNil: ['/']

	path _ aString

	^ value

	value _ aString

	^ expiry
		ifNil: [self value]
		ifNotNil: [self value, '; expires=', self expiryString]

	^ self new
		key: keyString;
		value: valueString;
		yourself