ftp.nice.ch/pub/next/connectivity/news/Alexandra-0.9.s.tar.gz#/alex/AMGErrorHandling.subproj/ErrorMail.m

This is ErrorMail.m in view mode; [Download] [Up]

#import <misckit/misckit.h>
#import "EMErrorManager.h"
#import "ErrorMail.h"

@implementation EMErrorAction(MiscMail)

- sendMailTo:(const char *)recipient subject:(const char *)subject 
		body:(const char *)body;
	{
	MiscMailApp	*mail;
	MiscString	*r,*s,*b;
	MiscTime	*now;

	EM_DURING
		now=[[MiscTime allocFromZone:[self zone]] initWithCurrentTime];
		if([now year]==1998 && [now month]<8)
			{
			mail=[MiscMailApp localMailer];
			EM_CONDERROR(mail==nil,EM_INTBASE+23,recipient,NULL);
			r=[MiscString newWithString:recipient],
			s=[MiscString newWithString:subject],
			b=[MiscString newWithString:body];
			[mail sendMailTo:r subject:s body:b];
			[r free];
			[s free];
			[b free];
			}
	EM_HANDLER
		[now free];
		NX_RERAISE();
	EM_ENDHANDLER
	
	now=[now free];
	return self;	
	}		

@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.