savemsg.ssjs

load("html_inc/msgslib.ssjs");

if(sub=='mail') {
	template.group=new Object;
	template.group.name="E-Mail";
	template.group.description="E-Mail";
	template.sub=new Object;
	template.sub.description="Personal E-Mail";
	template.sub.code="mail";
}
else {
	template.group=msg_area.grp[msg_area.sub[sub].grp_name];
	template.sub=msg_area.sub[sub];
}

var hdrs = new Object;
if(sub!='mail')  {
	if(! msg_area.sub[sub].can_post)  {
		error("You don't have sufficient rights to post in this sub");
	}
}
else {
	hdrs.to_net_type=netaddr_type(http_request.query.to);
	if(hdrs.to_net_type!=NET_NONE)
		hdrs.to_net_addr=http_request.query.to;
	else {
		var usr=system.matchuser(http_request.query.to);
		if(usr!=0)
			hdrs.to_ext=usr;
		else
			error("Cannot find that local user (Not net address specified)");
	}
}

var body=http_request.query.body[0];
body=body.replace(/([^\r])\n/g,"$1\r\n");
body=word_wrap(body, 80);

hdrs.from=user.alias;
hdrs.to=http_request.query.to;
hdrs.subject=http_request.query.subject;
if(http_request.query.reply_to != undefined) {
	hdrs.thread_orig=parseInt(http_request.query.reply_to);
}
if(msgbase.open!=undefined && msgbase.open()==false) {
	error(msgbase.last_error);
}

if(sub != 'mail') {
	/* Anonymous/Real Name/etc stuff */
	if(msgbase.cfg.settings&SUB_AONLY || (msgbase.cfg.settings&SUB_ANON && http_request.query.anonymous != undefined && http_request.query.anonymous[0]=='Yes'))
		hdrs.attr|=MSG_ANONYMOUS;
	if(msgbase.cfg.settings&SUB_NAME)
		hdrs.from=user.name;

	/* Private message stuff */
	/* Note, apparently, "private" is a magical property... */
	if(msgbase.cfg.settings&SUB_PONLY || (msgbase.cfg.settings&SUB_PRIV && http_request.query['private']!=undefined && http_request.query['private'][0]=='Yes'))
		hdrs.attr|=MSG_PRIVATE;

	/* Moderated stuff */
	if(msgbase.cfg.moderated_ars!='')
		hdrs.attr|=MSG_MODERATED;
}

/* Set kill when read flag */
if(sub=="mail" && hdrs.to_net_type==NET_NONE && system.settings&SYS_DELREADM)
	hdrs.attr|=MSG_KILLREAD;
if(sub != 'mail') {
if(msgbase.cfg.settings&SUB_KILL)