SeasidePlatformSupport

• issueRequest:responseSemaphore:

• base64Decode:
• deliverMailFrom:to:text:
• ensureAuthorInitials:
• isProxy:
• mimeDocumentClass
• profileSendsDuring:
• readWriteStream
• smtpServer
• vmStatisticsReportString
• weakDictionaryOfSize:

	| response |
	[response := WAKom default processHttpRequest: anHttpRequest.
	semaphore signal] fork.
	semaphore wait.
	^ response

	^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents
		

	SMTPClient
		deliverMailFrom: fromAddress
		to: recipientList
		text: messageText
		usingServer: self smtpServer

	Utilities authorInitialsPerSe isEmpty
		ifTrue: [Utilities setAuthorInitials: aBlock value].

	^ (anObject class allSuperclasses includes: Object) not

	^ MIMEDocument 

	Processor activeProcess priority: 20.
	Smalltalk garbageCollectMost.	
	^ String streamContents: 
			[:stream | 
			(MessageTally new)
				spyEvery: 1
				on: [aBlock value. Smalltalk garbageCollectMost];
				report: stream]

	^ RWBinaryOrTextStream on: String new

	^ MailSender smtpServer

	^ Utilities vmStatisticsReportString 

	| dict |
	dict _ WeakIdentityKeyDictionary new: aNumber.
	WeakArray addWeakDependent: dict.
	^ dict