Hi,
After much searching, I found the bug (not entirely obvious).
I'm attaching a fix. File it in. Press 'save and exit' and the next time
it should work.
Peace and Luck!
Je77
'From Squeak2.9alpha of 13 June 2000 [latest update: #3299] on 27 June 2001 at
12:27:52 pm'!
!NuSwikiPage methodsFor: 'utility' stamp: 'je77 6/27/2001 12:27'!
sendAlerts: request response: response shelf: shelf book: book
| alertSender
alertText alertServer |
(settings includesKey: 'alerts')
ifTrue:
["Send Messages"
alertSender _ self settingsAt: 'alertSender'
ifAbsent: [book settingsAt: 'alertSender' ifAbsent: [^self]].
alertServer _ self settingsAt: 'alertServer' ifAbsent: [book settingsAt: 'alertServer'
ifAbsent: [^self]].
alertText _ book formatPageTemplate: 'alert'
request: request response: response shelf: shelf page: self.
[SMTPSocket deliverMailFrom: alertSender to: ((settings at: 'alerts') findTokens: ',
') text: alertText usingServer: alertServer] ifError: [:a :b | "No error for bad
e-mail addresses"]]
! !
