Subversion Repositories planix.SVN

#include "headers.h"

int

smbsendunicode(SmbPeerInfo *i)

{

	return smbglobals.unicode && (i == nil || (i->capabilities & CAP_UNICODE) != 0);

}

int

smbcheckwordcount(char *name, SmbHeader *h, ushort wordcount)

{

	if (h->wordcount != wordcount) {

		smblogprint(-1, "smb%s: word count not %ud\n", name, wordcount);

		return 0;

	}

	return 1;

}

int

smbcheckwordandbytecount(char *name, SmbHeader *h, ushort wordcount, uchar **bdatap, uchar **edatap)

{

	ushort bytecount;

	uchar *bdata;

	if (h->wordcount != wordcount) {

		smblogprint(-1, "smb%s: word count not %ud\n", name, wordcount);

		return 0;

	}

	bdata = *bdatap;

	if (bdata + 2 > *edatap) {

		smblogprint(-1, "smb%s: not enough data for byte count\n", name);

		return 0;

	}

	bytecount = smbnhgets(bdata); bdata += 2;

	if (bdata + bytecount > *edatap) {

		smblogprint(-1, "smb%s: not enough data for bytes\n", name);

		return 0;

	}

	*edatap = bdata + bytecount;

	*bdatap = bdata;

	return 1;

}

SmbProcessResult

smbchaincommand(SmbSession *s, SmbHeader *h, ulong andxoffsetfixup, uchar cmd, ushort offset, SmbBuffer *b)

{

	SmbOpTableEntry *ote;

	uchar *pdata;

	ushort bytecount;

	h->command = cmd;

	ote = smboptable + cmd;

	if (ote->process == nil) {

		smblogprint(-1, "smbchaincommand: %s (0x%.2ux) not implemented\n", ote->name, cmd);

		return SmbProcessResultUnimp;

	}

	if (!smbresponsealignl2(s, 2)

		|| !smbresponseoffsetputs(s, andxoffsetfixup, smbresponseoffset(s))

		|| !smbbufferpopreadlimit(b))

		return SmbProcessResultMisc;

	if (!smbbufferreadskipto(b, offset)) {

		smblogprint(-1, "smbchaincommand: illegal offset\n");

		return SmbProcessResultFormat;

	}

	if (!smbbuffergetb(b, &h->wordcount)) {

		smblogprint(-1, "smbchaincommand: not enough space for wordcount\n");

		return SmbProcessResultFormat;

	}

	pdata = smbbufferreadpointer(b);

	if (!smbbuffergetbytes(b, nil, h->wordcount * 2)) {

		smblogprint(-1, "smbchaincommand: not enough space for parameters\n");

		return SmbProcessResultFormat;

	}

	if (!smbbuffergets(b, &bytecount)) {

		smblogprint(-1, "smbchaincommand: not enough space for bytecount\n");

		return SmbProcessResultFormat;

	}

	if (!smbbufferpushreadlimit(b, smbbufferreadoffset(b) + bytecount)) {

		smblogprint(-1, "smbchaincommand: not enough space for bytes\n");

		return SmbProcessResultFormat;

	}

smblogprint(cmd, "chaining to %s\n", ote->name);

	return (*ote->process)(s, h, pdata, b);

}

int

smbbuffergetheader(SmbBuffer *b, SmbHeader *h, uchar **parametersp, ushort *bytecountp)

{

	SmbOpTableEntry *ote;

	SmbRawHeader *rh;

	rh = (SmbRawHeader *)smbbufferreadpointer(b);

	if (!smbbuffergetbytes(b, nil, (long)offsetof(SmbRawHeader, parameterwords[0]))) {

		smblogprint(-1, "smbgetheader: short packet\n");

		return 0;

	}

	if (rh->protocol[0] != 0xff || memcmp(rh->protocol + 1, "SMB", 3) != 0) {

		smblogprint(-1, "smbgetheader: invalid protocol\n");

		return 0;

	}

	h->command = rh->command;

	ote = smboptable + h->command;

	if (ote->name == nil) {

		smblogprint(-1, "smbgetheader: illegal opcode 0x%.2ux\n", h->command);

		return 0;

	}

	h->errclass = rh->status[0];

	h->error = smbnhgets(rh->status + 2);

	h->flags = rh->flags;

	h->flags2 = smbnhgets(rh->flags2);

	if (h->flags & ~(SmbHeaderFlagCaseless | SMB_FLAGS_SERVER_TO_REDIR | SmbHeaderFlagReserved | SmbHeaderFlagServerIgnore))

		smblogprint(-1, "smbgetheader: warning: unexpected flags 0x%.2ux\n", h->flags);

	h->wordcount = rh->wordcount;

	if (parametersp)

		*parametersp = smbbufferreadpointer(b);

	if (!smbbuffergetbytes(b, nil, h->wordcount * 2)) {

		smblogprint(-1, "smbgetheader: not enough data for parameter words\n");

		return 0;

	}

	h->tid = smbnhgets(rh->tid);

	h->pid = smbnhgets(rh->pid);

	h->uid = smbnhgets(rh->uid);

	h->mid = smbnhgets(rh->mid);

	if (!smbbuffergets(b, bytecountp))

		*bytecountp = 0;

	if (!smbbufferpushreadlimit(b, smbbufferreadoffset(b) + *bytecountp))

		return 0;

smblogprint(h->command, "%s %s: tid 0x%.4ux pid 0x%.4ux uid 0x%.4ux mid 0x%.4ux\n", ote->name,

	(h->flags & SMB_FLAGS_SERVER_TO_REDIR) ? "response" : "request", h->tid, h->pid, h->uid, h->mid);

	return 1;

}

int

smbcheckheaderdirection(SmbHeader *h, int response, char **errmsgp)

{

	if (((h->flags & SMB_FLAGS_SERVER_TO_REDIR) == 0) == response) {

		smbstringprint(errmsgp, "unexpected %s", response ? "request" : "response");

		return 0;

	}

	return 1;

}

int

smbcheckheader(SmbHeader *h, uchar command, int response, char **errmsgp)

{

	if (response && h->command != command) {

		smbstringprint(errmsgp, "sent %.2uc request, got %.2ux response", command, h->command);

		return 0;

	}

	if (!smbcheckheaderdirection(h, response, errmsgp))

		return 0;

	return 1;

}

int

smbbuffergetandcheckheader(SmbBuffer *b, SmbHeader *h, uchar command, int response, uchar **pdatap, ushort *bytecountp, char **errmsgp)

{

	if (!smbbuffergetheader(b, h, pdatap, bytecountp)) {

		smbstringprint(errmsgp, "smbbuffergetandcheckheader: not enough data for header");

		return 0;

	}

	return smbcheckheader(h, command, response, errmsgp);

}

int

smbsuccess(SmbHeader *h, char **errmsgp)

{

	if (h->errclass != SUCCESS) {

		smbstringprint(errmsgp, "%s returned error %d/%d", smboptable[h->command].name, h->errclass, h->error);

		return 0;

	}

	return 1;

}

#define BASE_FLAGS (0)

int

smbbufferputheader(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p)

{

	SmbRawHeader *rh;

	if (offsetof(SmbRawHeader, parameterwords[0]) > smbbufferwritespace(b))

		return 0;

	if (smbbufferwriteoffset(b) == 0) {

		rh = (SmbRawHeader *)smbbufferwritepointer(b);

		rh->protocol[0] = 0xff;

		memcpy(rh->protocol + 1, "SMB", 3);

		rh->flags = SMB_FLAGS_SERVER_TO_REDIR | SmbHeaderFlagCaseless;

		rh->command = h->command;

		smbhnputs(rh->flags2, BASE_FLAGS | (smbsendunicode(p) ? SMB_FLAGS2_UNICODE : 0));

		memset(rh->extra, 0, sizeof(rh->extra));

		if (!smbbufferputbytes(b, nil, offsetof(SmbRawHeader, parameterwords[0])))

			return 0;

		rh->wordcount = h->wordcount;

	}

	else {

		rh = (SmbRawHeader *)smbbufferreadpointer(b);

		smbbufferputb(b, h->wordcount);

	}

	rh->status[0] = h->errclass;

	rh->status[1] = 0;

	smbhnputs(rh->status + 2, h->error);

	smbhnputs(rh->tid, h->tid);

	smbhnputs(rh->pid, h->pid);

	smbhnputs(rh->uid, h->uid);

	smbhnputs(rh->mid, h->mid);

	return 1;

}

int

smbbufferputerror(SmbBuffer *s, SmbHeader *h, SmbPeerInfo *p, uchar errclass, ushort error)

{

	h->errclass = errclass;

	h->error = error;

	return smbbufferputheader(s, h, p);

}

int

smbbufferputandxheader(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p, uchar andxcommand, ulong *andxoffsetfixupp)

{

	if (!smbbufferputheader(b, h, p)

		|| !smbbufferputb(b, andxcommand)

		|| !smbbufferputb(b, 0))

		return 0;

	*andxoffsetfixupp = smbbufferwriteoffset(b);

	return smbbufferputbytes(b, nil, 2);

}

void

smbseterror(SmbSession *s, uchar errclass, ushort error)

{

	s->errclass = errclass;

	s->error = error;

}

SmbProcessResult

smbbufferputack(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p)

{

	h->wordcount = 0;

	return smbbufferputheader(b, h, p) && smbbufferputs(b, 0) ? SmbProcessResultReply : SmbProcessResultMisc;

}

ushort

smbplan9mode2dosattr(ulong mode)

{

	if (mode & DMDIR)

		return SMB_ATTR_DIRECTORY;

	return SMB_ATTR_NORMAL;

}

ulong

smbdosattr2plan9mode(ushort attr)

{

	ulong mode = 0444;

	if ((attr & SMB_ATTR_READ_ONLY) == 0)

		mode |= 0222;

	if (attr & SMB_ATTR_DIRECTORY) {

		mode |= DMDIR | 0711;

		mode &= DMDIR | 0755;

	}

	else

		mode &= 0744;

	return mode;

}

ulong

smbdosattr2plan9wstatmode(ulong oldmode, ushort attr)

{

	ulong mode;

	if (oldmode & DMDIR)

		attr |= SMB_ATTR_DIRECTORY;

	else

		attr &= ~SMB_ATTR_DIRECTORY;

	mode = smbdosattr2plan9mode(attr);

	if (oldmode & 0444)

		mode = (mode & ~0444) | (mode & 0444);

	if ((attr & SMB_ATTR_READ_ONLY) == 0)

		mode |= oldmode & 0222;

	if (mode == oldmode)

		mode = 0xffffffff;

	return mode;

}

ulong

smbplan9length2size32(vlong length)

{

	if (length > 0xffffffff)

		return 0xffffffff;

	return length;

}

vlong

smbl2roundupvlong(vlong v, int l2)

{

	uvlong mask;

	mask = (1 << l2) - 1;

	return (v + mask) & ~mask;

}

SmbSlut smbsharemodeslut[] = {

	{ "compatibility", SMB_OPEN_MODE_SHARE_COMPATIBILITY },

	{ "exclusive", SMB_OPEN_MODE_SHARE_EXCLUSIVE },

	{ "denywrite", SMB_OPEN_MODE_SHARE_DENY_WRITE },

	{ "denyread", SMB_OPEN_MODE_SHARE_DENY_READOREXEC },

	{ "denynone", SMB_OPEN_MODE_SHARE_DENY_NONE },

	{ 0 }

};

SmbSlut smbopenmodeslut[] = {

	{ "oread", OREAD },

	{ "owrite", OWRITE },

	{ "ordwr", ORDWR },

	{ "oexec", OEXEC },

	{ 0 }

};

int

smbslut(SmbSlut *s, char *pat)

{

	while (s->name) {

		if (cistrcmp(s->name, pat) == 0)

			return s->val;

		s++;

	}

	return -1;

}

char *

smbrevslut(SmbSlut *s, int val)

{

	while (s->name) {

		if (s->val == val)

			return s->name;

		s++;

	}

	return nil;

}