[Seaside] Seaside Error Handler for emailing the error

cdrick cdrick65 at gmail.com
Sat May 3 12:34:10 UTC 2008

oups, still errors...

YourErrorHandler>>open: anException
	|mailText sender target|
        sender := 'seaside at image.com'.
        target := #('admin at gmail.com').
	mailText :=
'From: ', sender ,'
To: ', target first , '
Subject: error in your seaside app
	(SeasidePlatformSupport  walkbackStringsFor: anException)
		do: [ :each | mailText := (mailText , each) ]
		separatedBy: [ String cr].
        SeasidePlatformSupport  deliverMailFrom: sender to: target
text: mailText .

	WARenderLoop new session redirectWithMessage: 'error' delay: 2.	

I cannot display the carriage return properly, but otherwise, it seems ok


More information about the seaside mailing list