another try... this one works but need some tuning.
open: anException
|maillerait sender target|
sender := 'seaside image'.
target := '
admin@...'.
mailText :=
'From: ', sender ,'
To: ', target , '
Subject: error in your seaside app
'.
(SeasidePlatformSupport walkbackStringsFor: anException)
do: [ :each | mailText := (mailText , each) ]
separatedBy: [ String crlf ].
SeasidePlatformSupport deliverMailFrom: sender to: #(target) text: mailText .
WARenderLoop new session redirectWithMessage: 'error' delay: 2.
"others, are there better ways to do that? "
Cédrick
_______________________________________________
seaside mailing list
seaside@...
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
