[Seaside] SSL

[Avi Bryant]

On Apr 28, 2006, at 10:56 AM, Ramon Leon wrote:
>
> Thanks, but can you share the code, or am I in for another night of
> hacking trying to figure out how to modify seasides generated url  
> root?

These are from my WASession subclass:

actionUrlForKey: aString
	| url |
	url := super actionUrlForKey: aString.
	self useSSL ifTrue: [url scheme: #https; port: 443].
	^ url
	
useSSL
	^ (currentRequest headers includesKey: 'via')

Avi