path: root/source3/smbd/nttrans.c

/*
   Unix SMB/CIFS implementation.
   SMB NT transaction handling
   Copyright (C) Jeremy Allison			1994-1998
   Copyright (C) Stefan (metze) Metzmacher	2003

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include "includes.h"

extern int max_send;
extern enum protocol_types Protocol;
extern int smb_read_error;
extern int global_oplock_break;
extern struct current_user current_user;

static const char *known_nt_pipes[] = {
	"\\LANMAN",
	"\\srvsvc",
	"\\samr",
	"\\wkssvc",
	"\\NETLOGON",
	"\\ntlsa",
	"\\ntsvcs",
	"\\lsass",
	"\\lsarpc",
	"\\winreg",
	"\\spoolss",
	"\\netdfs",
	"\\rpcecho",
        "\\svcctl",
	"\\eventlog",
	NULL
};

/* Map generic permissions to file object specific permissions */
 
struct generic_mapping file_generic_mapping = {
	FILE_GENERIC_READ,
	FILE_GENERIC_WRITE,
	FILE_GENERIC_EXECUTE,
	FILE_GENERIC_ALL
};

static char *nttrans_realloc(char **ptr, size_t size)
{
	char *tptr = NULL;
	if (ptr==NULL)
		smb_panic("nttrans_realloc() called with NULL ptr\n");
		
	tptr = SMB_REALLOC(*ptr, size);
	if(tptr == NULL) {
		*ptr = NULL;
		return NULL;
	}
	memset(tptr,'\0',size);

	*ptr = tptr;

	return tptr;
}


/****************************************************************************
 Send the required number of replies back.
 We assume all fields other than the data fields are
 set correctly for the type of call.
 HACK ! Always assumes smb_setup field is zero.
****************************************************************************/

static int send_nt_replies(char *inbuf, char *outbuf, int bufsize, NTSTATUS nt_error, char *params,
                           int paramsize, char *pdata, int datasize)
{
	int data_to_send = datasize;
	int params_to_send = paramsize;
	int useable_space;
	char *pp = params;
	char *pd = pdata;
	int params_sent_thistime, data_sent_thistime, total_sent_thistime;
	int alignment_offset = 3;
	int data_alignment_offset = 0;

	/*
	 * Initially set the wcnt area to be 18 - this is true for all
	 * transNT replies.
	 */

	set_message(outbuf,18,0,True);

	if (NT_STATUS_V(nt_error))
		ERROR_NT(nt_error);

	/* 
	 * If there genuinely are no parameters or data to send just send
	 * the empty packet.
	 */

	if(params_to_send == 0 && data_to_send == 0) {
		if (!send_smb(smbd_server_fd(),outbuf))
			exit_server("send_nt_replies: send_smb failed.");
		return 0;
	}

	/*
	 * When sending params and data ensure that both are nicely aligned.
	 * Only do this alignment when there is also data to send - else
	 * can cause NT redirector problems.
	 */

	if (((params_to_send % 4) != 0) && (data_to_send != 0))
		data_alignment_offset = 4 - (params_to_send % 4);

	/* 
	 * Space is bufsize minus Netbios over TCP header minus SMB header.
	 * The alignment_offset is to align the param bytes on a four byte
	 * boundary (2 bytes for data len, one byte pad). 
	 * NT needs this to work correctly.
	 */

	useable_space = bufsize - ((smb_buf(outbuf)+
				alignment_offset+data_alignment_offset) -
				outbuf);

	/*
	 * useable_space can never be more than max_send minus the
	 * alignment offset.
	 */

	useable_space = MIN(useable_space,
				max_send - (alignment_offset+data_alignment_offset));


	while (params_to_send || data_to_send) {

		/*
		 * Calculate whether we will totally or partially fill this packet.
		 */

		total_sent_thistime = params_to_send + data_to_send +
					alignment_offset + data_alignment_offset;

		/* 
		 * We can never send more than useable_space.
		 */

		total_sent_thistime = MIN(total_sent_thistime, useable_space);

		set_message(outbuf, 18, total_sent_thistime, True);

		/*
		 * Set total params and data to be sent.
		 */

		SIVAL(outbuf,smb_ntr_TotalParameterCount,paramsize);
		SIVAL(outbuf,smb_ntr_TotalDataCount,datasize);

		/* 
		 * Calculate how many parameters and data we can fit into
		 * this packet. Parameters get precedence.
		 */

		params_sent_thistime = MIN(params_to_send,useable_space);
		data_sent_thistime = useable_space - params_sent_thistime;
		data_sent_thistime = MIN(data_sent_thistime,data_to_send);

		SIVAL(outbuf,smb_ntr_ParameterCount,params_sent_thistime);

		if(params_sent_thistime == 0) {
			SIVAL(outbuf,smb_ntr_ParameterOffset,0);
			SIVAL(outbuf,smb_ntr_ParameterDisplacement,0);
		} else {
			/*
			 * smb_ntr_ParameterOffset is the offset from the start of the SMB header to the
			 * parameter bytes, however the first 4 bytes of outbuf are
			 * the Netbios over TCP header. Thus use smb_base() to subtract
			 * them from the calculation.
			 */

			SIVAL(outbuf,smb_ntr_ParameterOffset,
				((smb_buf(outbuf)+alignment_offset) - smb_base(outbuf)));
			/* 
			 * Absolute displacement of param bytes sent in this packet.
			 */

			SIVAL(outbuf,smb_ntr_ParameterDisplacement,pp - params);
		}

		/*
		 * Deal with the data portion.
		 */

		SIVAL(outbuf,smb_ntr_DataCount, data_sent_thistime);

		if(data_sent_thistime == 0) {
			SIVAL(outbuf,smb_ntr_DataOffset,0);
			SIVAL(outbuf,smb_ntr_DataDisplacement, 0);
		} else {
			/*
			 * The offset of the data bytes is the offset of the
			 * parameter bytes plus the number of parameters being sent this time.
			 */

			SIVAL(outbuf,smb_ntr_DataOffset,((smb_buf(outbuf)+alignment_offset) -
				smb_base(outbuf)) + params_sent_thistime + data_alignment_offset);
				SIVAL(outbuf,smb_ntr_DataDisplacement, pd - pdata);
		}

		/* 
		 * Copy the param bytes into the packet.
		 */

		if(params_sent_thistime)
			memcpy((smb_buf(outbuf)+alignment_offset),pp,params_sent_thistime);

		/*
		 * Copy in the data bytes
		 */

		if(data_sent_thistime)
			memcpy(smb_buf(outbuf)+alignment_offset+params_sent_thistime+
				data_alignment_offset,pd,data_sent_thistime);
    
		DEBUG(9,("nt_rep: params_sent_thistime = %d, data_sent_thistime = %d, useable_space = %d\n",
			params_sent_thistime, data_sent_thistime, useable_space));
		DEBUG(9,("nt_rep: params_to_send = %d, data_to_send = %d, paramsize = %d, datasize = %d\n",
			params_to_send, data_to_send, paramsize, datasize));
    
		/* Send the packet */
		if (!send_smb(smbd_server_fd(),outbuf))
			exit_server("send_nt_replies: send_smb failed.");
    
		pp += params_sent_thistime;
		pd += data_sent_thistime;
    
		params_to_send -= params_sent_thistime;
		data_to_send -= data_sent_thistime;

		/*
		 * Sanity check
		 */

		if(params_to_send < 0 || data_to_send < 0) {
			DEBUG(0,("send_nt_replies failed sanity check pts = %d, dts = %d\n!!!",
				params_to_send, data_to_send));
			return -1;
		}
	} 

	return 0;
}

/****************************************************************************
 Save case statics.
****************************************************************************/

static BOOL saved_case_sensitive;
static BOOL saved_case_preserve;
static BOOL saved_short_case_preserve;

/****************************************************************************
 Save case semantics.
****************************************************************************/

static void set_posix_case_semantics(connection_struct *conn, uint32 file_attributes)
{
	if(!(file_attributes & FILE_FLAG_POSIX_SEMANTICS))
		return;

	saved_case_sensitive = conn->case_sensitive;
	saved_case_preserve = conn->case_preserve;
	saved_short_case_preserve = conn->short_case_preserve;

	/* Set to POSIX. */
	conn->case_sensitive = True;
	conn->case_preserve = True;
	conn->short_case_preserve = True;
}

/****************************************************************************
 Restore case semantics.
****************************************************************************/

static void restore_case_semantics(connection_struct *conn, uint32 file_attributes)
{
	if(!(file_attributes & FILE_FLAG_POSIX_SEMANTICS))
		return;

	conn->case_sensitive = saved_case_sensitive;
	conn->case_preserve = saved_case_preserve;
	conn->short_case_preserve = saved_short_case_preserve;
}

/****************************************************************************
 Utility function to map create disposition.
****************************************************************************/

static int map_create_disposition( uint32 create_disposition)
{
	int ret;

	switch( create_disposition ) {
		case FILE_CREATE:
			/* create if not exist, fail if exist */
			ret = (FILE_CREATE_IF_NOT_EXIST|FILE_EXISTS_FAIL);
			break;
		case FILE_SUPERSEDE:
		case FILE_OVERWRITE_IF:
			/* create if not exist, trunc if exist */
			ret = (FILE_CREATE_IF_NOT_EXIST|FILE_EXISTS_TRUNCATE);
			break;
		case FILE_OPEN:
			/* fail if not exist, open if exists */
			ret = (FILE_FAIL_IF_NOT_EXIST|FILE_EXISTS_OPEN);
			break;
		case FILE_OPEN_IF:
			/* create if not exist, open if exists */
			ret = (FILE_CREATE_IF_NOT_EXIST|FILE_EXISTS_OPEN);
			break;
		case FILE_OVERWRITE:
			/* fail if not exist, truncate if exists */
			ret = (FILE_FAIL_IF_NOT_EXIST|FILE_EXISTS_TRUNCATE);
			break;
		default:
			DEBUG(0,("map_create_disposition: Incorrect value for create_disposition = %d\n",
				create_disposition ));
			return -1;
	}

	DEBUG(10,("map_create_disposition: Mapped create_disposition 0x%lx to 0x%x\n",
			(unsigned long)create_disposition, ret ));

	return ret;
}

/****************************************************************************
 Utility function to map share modes.
****************************************************************************/

static int map_share_mode( char *fname, uint32 create_options,
			uint32 *desired_access, uint32 share_access, uint32 file_attributes)
{
	int smb_open_mode = -1;
	uint32 original_desired_access = *desired_access;

	/* This is a nasty hack - must fix... JRA. */
	if (*desired_access == MAXIMUM_ALLOWED_ACCESS) {
		*desired_access = FILE_GENERIC_ALL;
	}

	/*
	 * Convert GENERIC bits to specific bits.
	 */

	se_map_generic(desired_access, &file_generic_mapping);

	switch( *desired_access & (FILE_READ_DATA|FILE_WRITE_DATA|FILE_APPEND_DATA) ) {
		case FILE_READ_DATA:
			smb_open_mode = DOS_OPEN_RDONLY;
			break;
		case FILE_WRITE_DATA:
		case FILE_APPEND_DATA:
		case FILE_WRITE_DATA|FILE_APPEND_DATA:
			smb_open_mode = DOS_OPEN_WRONLY;
			break;
		case FILE_READ_DATA|FILE_WRITE_DATA:
		case FILE_READ_DATA|FILE_WRITE_DATA|FILE_APPEND_DATA:
		case FILE_READ_DATA|FILE_APPEND_DATA:
			smb_open_mode = DOS_OPEN_RDWR;
			break;
	}

	/*
	 * NB. For DELETE_ACCESS we should really check the
	 * directory permissions, as that is what controls
	 * delete, and for WRITE_DAC_ACCESS we should really
	 * check the ownership, as that is what controls the
	 * chmod. Note that this is *NOT* a security hole (this
	 * note is for you, Andrew) as we are not *allowing*
	 * the access at this point, the actual unlink or
	 * chown or chmod call would do this. We are just helping
	 * clients out by telling them if they have a hope
	 * of any of this succeeding. POSIX acls may still
	 * deny the real call. JRA.
	 */

	if (smb_open_mode == -1) {

		if(*desired_access & (DELETE_ACCESS|WRITE_DAC_ACCESS|WRITE_OWNER_ACCESS|SYNCHRONIZE_ACCESS|
					FILE_EXECUTE|FILE_READ_ATTRIBUTES|
					FILE_READ_EA|FILE_WRITE_EA|SYSTEM_SECURITY_ACCESS|
					FILE_WRITE_ATTRIBUTES|READ_CONTROL_ACCESS)) {
			smb_open_mode = DOS_OPEN_RDONLY;
		} else if(*desired_access == 0) {

			/* 
			 * JRA - NT seems to sometimes send desired_access as zero. play it safe
			 * and map to a stat open.
			 */

			smb_open_mode = DOS_OPEN_RDONLY;

		} else {
			DEBUG(0,("map_share_mode: Incorrect value 0x%lx for desired_access to file %s\n",
				(unsigned long)*desired_access, fname));
			return -1;
		}
	}

	/*
	 * Set the special bit that means allow share delete.
	 * This is held outside the normal share mode bits at 1<<15.
	 * JRA.
	 */

	if(share_access & FILE_SHARE_DELETE) {
		smb_open_mode |= ALLOW_SHARE_DELETE;
		DEBUG(10,("map_share_mode: FILE_SHARE_DELETE requested. open_mode = 0x%x\n", smb_open_mode));
	}

	if(*desired_access & DELETE_ACCESS) {
		DEBUG(10,("map_share_mode: DELETE_ACCESS requested. open_mode = 0x%x\n", smb_open_mode));
	}

	/*
	 * We need to store the intent to open for Delete. This
	 * is what determines if a delete on close flag can be set.
	 * This is the wrong way (and place) to store this, but for 2.2 this
	 * is the only practical way. JRA.
	 */

	if (create_options & FILE_DELETE_ON_CLOSE) {
		/*
		 * W2K3 bug compatibility mode... To set delete on close
		 * the redirector must have *specifically* set DELETE_ACCESS
		 * in the desired_access field. Just asking for GENERIC_ALL won't do. JRA.
		 */

		if (!(original_desired_access & DELETE_ACCESS)) {
			DEBUG(5,("map_share_mode: FILE_DELETE_ON_CLOSE requested without \
DELETE_ACCESS for file %s. (desired_access = 0x%lx)\n",
				fname, (unsigned long)*desired_access));
			return -1;
		}
		/* Implicit delete access is *NOT* requested... */
		smb_open_mode |= DELETE_ON_CLOSE_FLAG;
		DEBUG(10,("map_share_mode: FILE_DELETE_ON_CLOSE requested. open_mode = 0x%x\n", smb_open_mode));
	}

	/* Add in the requested share mode. */
	switch( share_access & (FILE_SHARE_READ|FILE_SHARE_WRITE)) {
		case FILE_SHARE_READ:
			smb_open_mode |= SET_DENY_MODE(DENY_WRITE);
			break;
		case FILE_SHARE_WRITE:
			smb_open_mode |= SET_DENY_MODE(DENY_READ);
			break;
		case (FILE_SHARE_READ|FILE_SHARE_WRITE):
			smb_open_mode |= SET_DENY_MODE(DENY_NONE);
			break;
		case FILE_SHARE_NONE:
			smb_open_mode |= SET_DENY_MODE(DENY_ALL);
			break;
	}

	/*
	 * Handle an O_SYNC request.
	 */

	if(file_attributes & FILE_FLAG_WRITE_THROUGH)
		smb_open_mode |= FILE_SYNC_OPENMODE;

	DEBUG(10,("map_share_mode: Mapped desired access 0x%lx, share access 0x%lx, file attributes 0x%lx \
to open_mode 0x%x\n", (unsigned long)*desired_access, (unsigned long)share_access,
		(unsigned long)file_attributes, smb_open_mode ));
 
	return smb_open_mode;
}

/****************************************************************************
 Reply to an NT create and X call on a pipe.
****************************************************************************/

static int nt_open_pipe(char *fname, connection_struct *conn,
			char *inbuf, char *outbuf, int *ppnum)
{
	smb_np_struct *p = NULL;

	uint16 vuid = SVAL(inbuf, smb_uid);
	int i;

	DEBUG(4,("nt_open_pipe: Opening pipe %s.\n", fname));
    
	/* See if it is one we want to handle. */

	if (lp_disable_spoolss() && strequal(fname, "\\spoolss"))
		return(ERROR_BOTH(NT_STATUS_OBJECT_NAME_NOT_FOUND,ERRDOS,ERRbadpipe));

	for( i = 0; known_nt_pipes[i]; i++ )
		if( strequal(fname,known_nt_pipes[i]))
			break;
    
	if ( known_nt_pipes[i] == NULL )
		return(ERROR_BOTH(NT_STATUS_OBJECT_NAME_NOT_FOUND,ERRDOS,ERRbadpipe));
    
	/* Strip \\ off the name. */
	fname++;
    
	DEBUG(3,("nt_open_pipe: Known pipe %s opening.\n", fname));

	p = open_rpc_pipe_p(fname, conn, vuid);
	if (!p)
		return(ERROR_DOS(ERRSRV,ERRnofids));

	*ppnum = p->pnum;

	return 0;
}

/****************************************************************************
 Reply to an NT create and X call for pipes.
****************************************************************************/

static int do_ntcreate_pipe_open(connection_struct *conn,
			 char *inbuf,char *outbuf,int length,int bufsize)
{
	pstring fname;
	int ret;
	int pnum = -1;
	char *p = NULL;

	srvstr_pull_buf(inbuf, fname, smb_buf(inbuf), sizeof(fname), STR_TERMINATE);

	if ((ret = nt_open_pipe(fname, conn, inbuf, outbuf, &pnum)) != 0)
		return ret;

	/*
	 * Deal with pipe return.
	 */  

	set_message(outbuf,34,0,True);

	p = outbuf + smb_vwv2;
	p++;
	SSVAL(p,0,pnum);
	p += 2;
	SIVAL(p,0,FILE_WAS_OPENED);
	p += 4;
	p += 32;
	SIVAL(p,0,FILE_ATTRIBUTE_NORMAL); /* File Attributes. */
	p += 20;
	/* File type. */
	SSVAL(p,0,FILE_TYPE_MESSAGE_MODE_PIPE);
	/* Device state. */
	SSVAL(p,2, 0x5FF); /* ? */

	DEBUG(5,("do_ntcreate_pipe_open: open pipe = %s\n", fname));

	return chain_reply(inbuf,outbuf,length,bufsize);
}

/****************************************************************************
 Reply to an NT create and X call.
****************************************************************************/

int reply_ntcreate_and_X(connection_struct *conn,
			 char *inbuf,char *outbuf,int length,int bufsize)
{  
	int result;
	pstring fname;
	enum FAKE_FILE_TYPE fake_file_type = FAKE_FILE_TYPE_NONE;
	uint32 flags = IVAL(inbuf,smb_ntcreate_Flags);
	uint32 desired_access = IVAL(inbuf,smb_ntcreate_DesiredAccess);
	uint32 file_attributes = IVAL(inbuf,smb_ntcreate_FileAttributes);
	uint32 share_access = IVAL(inbuf,smb_ntcreate_ShareAccess);
	uint32 create_disposition = IVAL(inbuf,smb_ntcreate_CreateDisposition);
	uint32 create_options = IVAL(inbuf,smb_ntcreate_CreateOptions);
	uint16 root_dir_fid = (uint16)IVAL(inbuf,smb_ntcreate_RootDirectoryFid);
	int smb_ofun;
	int smb_open_mode;
	/* Breakout the oplock request bits so we can set the
	   reply bits separately. */
	int oplock_request = 0;
	int fmode=0,rmode=0;
	SMB_OFF_T file_len = 0;
	SMB_STRUCT_STAT sbuf;
	int smb_action = 0;
	BOOL bad_path = False;
	files_struct *fsp=NULL;
	char *p = NULL;
	time_t c_time;
	BOOL extended_oplock_granted = False;
	NTSTATUS status;

	START_PROFILE(SMBntcreateX);

	DEBUG(10,("reply_ntcreateX: flags = 0x%x, desired_access = 0x%x \
file_attributes = 0x%x, share_access = 0x%x, create_disposition = 0x%x \
create_options = 0x%x root_dir_fid = 0x%x\n", flags, desired_access, file_attributes,
			share_access, create_disposition,
			create_options, root_dir_fid ));

	/* If it's an IPC, use the pipe handler. */

	if (IS_IPC(conn)) {
		if (lp_nt_pipe_support()) {
			END_PROFILE(SMBntcreateX);
			return do_ntcreate_pipe_open(conn,inbuf,outbuf,length,bufsize);
		} else {
			END_PROFILE(SMBntcreateX);
			return(ERROR_DOS(ERRDOS,ERRnoaccess));
		}
	}
			
	if (create_options & FILE_OPEN_BY_FILE_ID) {
		END_PROFILE(SMBntcreateX);
		return ERROR_NT(NT_STATUS_NOT_SUPPORTED);
	}

	/* 
	 * We need to construct the open_and_X ofun value from the
	 * NT values, as that's what our code is structured to accept.
	 */    
	
	if((smb_ofun = map_create_disposition( create_disposition )) == -1) {
		END_PROFILE(SMBntcreateX);
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
	}

	/*
	 * Get the file name.
	 */

	if(root_dir_fid != 0) {
		/*
		 * This filename is relative to a directory fid.
		 */
		pstring rel_fname;
		files_struct *dir_fsp = file_fsp(inbuf,smb_ntcreate_RootDirectoryFid);
		size_t dir_name_len;

		if(!dir_fsp) {
			END_PROFILE(SMBntcreateX);
			return(ERROR_DOS(ERRDOS,ERRbadfid));
		}

		if(!dir_fsp->is_directory) {

			srvstr_get_path(inbuf, fname, smb_buf(inbuf), sizeof(fname), 0, STR_TERMINATE, &status,False);
			if (!NT_STATUS_IS_OK(status)) {
				END_PROFILE(SMBntcreateX);
				return ERROR_NT(status);
			}

			/* 
			 * Check to see if this is a mac fork of some kind.
			 */

			if( strchr_m(fname, ':')) {
				END_PROFILE(SMBntcreateX);
				return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);
			}

			/*
			  we need to handle the case when we get a
			  relative open relative to a file and the
			  pathname is blank - this is a reopen!
			  (hint from demyn plantenberg)
			*/

			END_PROFILE(SMBntcreateX);
			return(ERROR_DOS(ERRDOS,ERRbadfid));
		}

		/*
		 * Copy in the base directory name.
		 */

		pstrcpy( fname, dir_fsp->fsp_name );
		dir_name_len = strlen(fname);

		/*
		 * Ensure it ends in a '\'.
		 */

		if(fname[dir_name_len-1] != '\\' && fname[dir_name_len-1] != '/') {
			pstrcat(fname, "/");
			dir_name_len++;
		}

		srvstr_get_path(inbuf, rel_fname, smb_buf(inbuf), sizeof(rel_fname), 0, STR_TERMINATE, &status,False);
		if (!NT_STATUS_IS_OK(status)) {
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(status);
		}
		pstrcat(fname, rel_fname);
	} else {
		srvstr_get_path(inbuf, fname, smb_buf(inbuf), sizeof(fname), 0, STR_TERMINATE, &status,False);
		if (!NT_STATUS_IS_OK(status)) {
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(status);
		}

		/* 
		 * Check to see if this is a mac fork of some kind.
		 */

		if( strchr_m(fname, ':')) {
			
#ifdef HAVE_SYS_QUOTAS
			if ((fake_file_type=is_fake_file(fname))!=FAKE_FILE_TYPE_NONE) {
				/*
				 * here we go! support for changing the disk quotas --metze
				 *
				 * we need to fake up to open this MAGIC QUOTA file 
				 * and return a valid FID
				 *
				 * w2k close this file directly after openening
				 * xp also tries a QUERY_FILE_INFO on the file and then close it
				 */
			} else {
#endif
				END_PROFILE(SMBntcreateX);
				return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);
#ifdef HAVE_SYS_QUOTAS
			}
#endif
		}
	}
	
	/*
	 * Now contruct the smb_open_mode value from the filename, 
	 * desired access and the share access.
	 */
	RESOLVE_DFSPATH(fname, conn, inbuf, outbuf);

	if((smb_open_mode = map_share_mode(fname, create_options, &desired_access, 
					   share_access, 
					   file_attributes)) == -1) {
		END_PROFILE(SMBntcreateX);
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
	}

	oplock_request = (flags & REQUEST_OPLOCK) ? EXCLUSIVE_OPLOCK : 0;
	if (oplock_request) {
		oplock_request |= (flags & REQUEST_BATCH_OPLOCK) ? BATCH_OPLOCK : 0;
	}

	/*
	 * Ordinary file or directory.
	 */
		
	/*
	 * Check if POSIX semantics are wanted.
	 */
		
	set_posix_case_semantics(conn, file_attributes);
		
	unix_convert(fname,conn,0,&bad_path,&sbuf);

	/* FAKE_FILE is a special case */
	if (fake_file_type == FAKE_FILE_TYPE_NONE) {
		/* Normal file. */
		if (bad_path) {
			restore_case_semantics(conn, file_attributes);
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);
		}
		/* All file access must go through check_name() */
		if (!check_name(fname,conn)) {
			restore_case_semantics(conn, file_attributes);
			END_PROFILE(SMBntcreateX);
			return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRbadpath);
		}
	}

#if 0
	/* This is the correct thing to do (check every time) but can_delete is
	   expensive (it may have to read the parent directory permissions). So
	   for now we're not doing it unless we have a strong hint the client
	   is really going to delete this file. */
	if (desired_access & DELETE_ACCESS) {
#else
	/* Setting FILE_SHARE_DELETE is the hint. */
	if ((share_access & FILE_SHARE_DELETE) && (desired_access & DELETE_ACCESS)) {
#endif
		status = can_delete(conn, fname, file_attributes, bad_path, True);
		/* We're only going to fail here if it's access denied, as that's the
		   only error we care about for "can we delete this ?" questions. */
		if (!NT_STATUS_IS_OK(status) && (NT_STATUS_EQUAL(status,NT_STATUS_ACCESS_DENIED) ||
						 NT_STATUS_EQUAL(status,NT_STATUS_CANNOT_DELETE))) {
			restore_case_semantics(conn, file_attributes);
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(status);
		}
	}

	/* 
	 * If it's a request for a directory open, deal with it separately.
	 */

	if(create_options & FILE_DIRECTORY_FILE) {
		oplock_request = 0;
		
		/* Can't open a temp directory. IFS kit test. */
		if (file_attributes & FILE_ATTRIBUTE_TEMPORARY) {
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
		}

		fsp = open_directory(conn, fname, &sbuf, desired_access, smb_open_mode, smb_ofun, &smb_action);
			
		restore_case_semantics(conn, file_attributes);

		if(!fsp) {
			END_PROFILE(SMBntcreateX);
			return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
		}
	} else {
		/*
		 * Ordinary file case.
		 */

		/* NB. We have a potential bug here. If we
		 * cause an oplock break to ourselves, then we
		 * could end up processing filename related
		 * SMB requests whilst we await the oplock
		 * break response. As we may have changed the
		 * filename case semantics to be POSIX-like,
		 * this could mean a filename request could
		 * fail when it should succeed. This is a rare
		 * condition, but eventually we must arrange
		 * to restore the correct case semantics
		 * before issuing an oplock break request to
		 * our client. JRA.  */

		if (fake_file_type==FAKE_FILE_TYPE_NONE) {
			fsp = open_file_shared1(conn,fname,&sbuf,
					desired_access,
					smb_open_mode,
					smb_ofun,file_attributes,oplock_request,
					&rmode,&smb_action);
		} else {
			/* to open a fake_file --metze */
			fsp = open_fake_file_shared1(fake_file_type,conn,fname,&sbuf,
					desired_access,
					smb_open_mode,
					smb_ofun,file_attributes, oplock_request,
					&rmode,&smb_action);
		}
		
		if (!fsp) { 
			/* We cheat here. There are two cases we
			 * care about. One is a directory rename,
			 * where the NT client will attempt to
			 * open the source directory for
			 * DELETE access. Note that when the
			 * NT client does this it does *not*
			 * set the directory bit in the
			 * request packet. This is translated
			 * into a read/write open
			 * request. POSIX states that any open
			 * for write request on a directory
			 * will generate an EISDIR error, so
			 * we can catch this here and open a
			 * pseudo handle that is flagged as a
			 * directory. The second is an open
			 * for a permissions read only, which
			 * we handle in the open_file_stat case. JRA.
			 */

			if(errno == EISDIR) {

				/*
				 * Fail the open if it was explicitly a non-directory file.
				 */

				if (create_options & FILE_NON_DIRECTORY_FILE) {
					restore_case_semantics(conn, file_attributes);
					END_PROFILE(SMBntcreateX);
					return ERROR_FORCE_NT(NT_STATUS_FILE_IS_A_DIRECTORY);
				}
	
				oplock_request = 0;
				fsp = open_directory(conn, fname, &sbuf, desired_access, smb_open_mode, smb_ofun, &smb_action);
				
				if(!fsp) {
					restore_case_semantics(conn, file_attributes);
					END_PROFILE(SMBntcreateX);
					return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
				}
			} else {

				restore_case_semantics(conn, file_attributes);
				END_PROFILE(SMBntcreateX);
				if (open_was_deferred(SVAL(inbuf,smb_mid))) {
					/* We have re-scheduled this call. */
					return -1;
				}
				return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
			}
		} 
	}
		
	restore_case_semantics(conn, file_attributes);
		
	file_len = sbuf.st_size;
	fmode = dos_mode(conn,fname,&sbuf);
	if(fmode == 0) {
		fmode = FILE_ATTRIBUTE_NORMAL;
	}
	if (!fsp->is_directory && (fmode & aDIR)) {
		close_file(fsp,False);
		END_PROFILE(SMBntcreateX);
		return ERROR_DOS(ERRDOS,ERRnoaccess);
	} 
	
	/* Save the requested allocation size. */
	if ((smb_action == FILE_WAS_CREATED) || (smb_action == FILE_WAS_OVERWRITTEN)) {
		SMB_BIG_UINT allocation_size = (SMB_BIG_UINT)IVAL(inbuf,smb_ntcreate_AllocationSize);
#ifdef LARGE_SMB_OFF_T
		allocation_size |= (((SMB_BIG_UINT)IVAL(inbuf,smb_ntcreate_AllocationSize + 4)) << 32);
#endif
		if (allocation_size && (allocation_size > (SMB_BIG_UINT)file_len)) {
			fsp->initial_allocation_size = smb_roundup(fsp->conn, allocation_size);
			if (fsp->is_directory) {
				close_file(fsp,False);
				END_PROFILE(SMBntcreateX);
				/* Can't set allocation size on a directory. */
				return ERROR_NT(NT_STATUS_ACCESS_DENIED);
			}
			if (vfs_allocate_file_space(fsp, fsp->initial_allocation_size) == -1) {
				close_file(fsp,False);
				END_PROFILE(SMBntcreateX);
				return ERROR_NT(NT_STATUS_DISK_FULL);
			}
		} else {
			fsp->initial_allocation_size = smb_roundup(fsp->conn,(SMB_BIG_UINT)file_len);
		}
	}

	/* 
	 * If the caller set the extended oplock request bit
	 * and we granted one (by whatever means) - set the
	 * correct bit for extended oplock reply.
	 */
	
	if (oplock_request && lp_fake_oplocks(SNUM(conn))) {
		extended_oplock_granted = True;
	}
	
	if(oplock_request && EXCLUSIVE_OPLOCK_TYPE(fsp->oplock_type)) {
		extended_oplock_granted = True;
	}

#if 0
	/* W2K sends back 42 words here ! If we do the same it breaks offline sync. Go figure... ? JRA. */
	set_message(outbuf,42,0,True);
#else
	set_message(outbuf,34,0,True);
#endif
	
	p = outbuf + smb_vwv2;
	
	/*
	 * Currently as we don't support level II oplocks we just report
	 * exclusive & batch here.
	 */

	if (extended_oplock_granted) {
		if (flags & REQUEST_BATCH_OPLOCK) {
			SCVAL(p,0, BATCH_OPLOCK_RETURN);
		} else {
			SCVAL(p,0, EXCLUSIVE_OPLOCK_RETURN);
		}
	} else if (LEVEL_II_OPLOCK_TYPE(fsp->oplock_type)) {
		SCVAL(p,0, LEVEL_II_OPLOCK_RETURN);
	} else {
		SCVAL(p,0,NO_OPLOCK_RETURN);
	}
	
	p++;
	SSVAL(p,0,fsp->fnum);
	p += 2;
	if ((create_disposition == FILE_SUPERSEDE) && (smb_action == FILE_WAS_OVERWRITTEN))
		SIVAL(p,0,FILE_WAS_SUPERSEDED);
	else
		SIVAL(p,0,smb_action);
	p += 4;
	
	/* Create time. */  
	c_time = get_create_time(&sbuf,lp_fake_dir_create_times(SNUM(conn)));

	if (lp_dos_filetime_resolution(SNUM(conn))) {
		c_time &= ~1;
		sbuf.st_atime &= ~1;
		sbuf.st_mtime &= ~1;
		sbuf.st_mtime &= ~1;
	}

	put_long_date(p,c_time);
	p += 8;
	put_long_date(p,sbuf.st_atime); /* access time */
	p += 8;
	put_long_date(p,sbuf.st_mtime); /* write time */
	p += 8;
	put_long_date(p,sbuf.st_mtime); /* change time */
	p += 8;
	SIVAL(p,0,fmode); /* File Attributes. */
	p += 4;
	SOFF_T(p, 0, get_allocation_size(conn,fsp,&sbuf));
	p += 8;
	SOFF_T(p,0,file_len);
	p += 8;
	if (flags & EXTENDED_RESPONSE_REQUIRED)
		SSVAL(p,2,0x7);
	p += 4;
	SCVAL(p,0,fsp->is_directory ? 1 : 0);

	DEBUG(5,("reply_ntcreate_and_X: fnum = %d, open name = %s\n", fsp->fnum, fsp->fsp_name));

	result = chain_reply(inbuf,outbuf,length,bufsize);
	END_PROFILE(SMBntcreateX);
	return result;
}

/****************************************************************************
 Reply to a NT_TRANSACT_CREATE call to open a pipe.
****************************************************************************/

static int do_nt_transact_create_pipe( connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize,
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count)
{
	pstring fname;
	char *params = *ppparams;
	int ret;
	int pnum = -1;
	char *p = NULL;
	NTSTATUS status;

	/*
	 * Ensure minimum number of parameters sent.
	 */

	if(parameter_count < 54) {
		DEBUG(0,("do_nt_transact_create_pipe - insufficient parameters (%u)\n", (unsigned int)parameter_count));
		return ERROR_DOS(ERRDOS,ERRnoaccess);
	}

	srvstr_get_path(inbuf, fname, params+53, sizeof(fname), parameter_count-53, STR_TERMINATE, &status, False);
	if (!NT_STATUS_IS_OK(status)) {
		return ERROR_NT(status);
	}

	if ((ret = nt_open_pipe(fname, conn, inbuf, outbuf, &pnum)) != 0)
		return ret;
	
	/* Realloc the size of parameters and data we will return */
	params = nttrans_realloc(ppparams, 69);
	if(params == NULL)
		return ERROR_DOS(ERRDOS,ERRnomem);
	
	p = params;
	SCVAL(p,0,NO_OPLOCK_RETURN);
	
	p += 2;
	SSVAL(p,0,pnum);
	p += 2;
	SIVAL(p,0,FILE_WAS_OPENED);
	p += 8;
	
	p += 32;
	SIVAL(p,0,FILE_ATTRIBUTE_NORMAL); /* File Attributes. */
	p += 20;
	/* File type. */
	SSVAL(p,0,FILE_TYPE_MESSAGE_MODE_PIPE);
	/* Device state. */
	SSVAL(p,2, 0x5FF); /* ? */
	
	DEBUG(5,("do_nt_transact_create_pipe: open name = %s\n", fname));
	
	/* Send the required number of replies */
	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, params, 69, *ppdata, 0);
	
	return -1;
}

/****************************************************************************
 Internal fn to set security descriptors.
****************************************************************************/

static NTSTATUS set_sd(files_struct *fsp, char *data, uint32 sd_len, uint32 security_info_sent)
{
	prs_struct pd;
	SEC_DESC *psd = NULL;
	TALLOC_CTX *mem_ctx;
	BOOL ret;
	
	if (sd_len == 0 || !lp_nt_acl_support(SNUM(fsp->conn))) {
		return NT_STATUS_OK;
	}

	/*
	 * Init the parse struct we will unmarshall from.
	 */

	if ((mem_ctx = talloc_init("set_sd")) == NULL) {
		DEBUG(0,("set_sd: talloc_init failed.\n"));
		return NT_STATUS_NO_MEMORY;
	}

	prs_init(&pd, 0, mem_ctx, UNMARSHALL);

	/*
	 * Setup the prs_struct to point at the memory we just
	 * allocated.
	 */
	
	prs_give_memory( &pd, data, sd_len, False);

	/*
	 * Finally, unmarshall from the data buffer.
	 */

	if(!sec_io_desc( "sd data", &psd, &pd, 1)) {
		DEBUG(0,("set_sd: Error in unmarshalling security descriptor.\n"));
		/*
		 * Return access denied for want of a better error message..
		 */ 
		talloc_destroy(mem_ctx);
		return NT_STATUS_NO_MEMORY;
	}
	
	if (psd->off_owner_sid==0)
		security_info_sent &= ~OWNER_SECURITY_INFORMATION;
	if (psd->off_grp_sid==0)
		security_info_sent &= ~GROUP_SECURITY_INFORMATION;
	if (psd->off_sacl==0)
		security_info_sent &= ~SACL_SECURITY_INFORMATION;
	if (psd->off_dacl==0)
		security_info_sent &= ~DACL_SECURITY_INFORMATION;
	
	ret = SMB_VFS_FSET_NT_ACL( fsp, fsp->fd, security_info_sent, psd);
	
	if (!ret) {
		talloc_destroy(mem_ctx);
		return NT_STATUS_ACCESS_DENIED;
	}
	
	talloc_destroy(mem_ctx);
	
	return NT_STATUS_OK;
}

/****************************************************************************
 Read a list of EA names and data from an incoming data buffer. Create an ea_list with them.
****************************************************************************/
                                                                                                                             
static struct ea_list *read_nttrans_ea_list(TALLOC_CTX *ctx, const char *pdata, size_t data_size)
{
	struct ea_list *ea_list_head = NULL;
	size_t offset = 0;

	if (data_size < 4) {
		return NULL;
	}

	while (offset + 4 <= data_size) {
		size_t next_offset = IVAL(pdata,offset);
		struct ea_list *tmp;
		struct ea_list *eal = read_ea_list_entry(ctx, pdata + offset + 4, data_size - offset - 4, NULL);

		DLIST_ADD_END(ea_list_head, eal, tmp);
		if (next_offset == 0) {
			break;
		}
		offset += next_offset;
	}
                                                                                                                             
	return ea_list_head;
}

/****************************************************************************
 Reply to a NT_TRANSACT_CREATE call (needs to process SD's).
****************************************************************************/

static int call_nt_transact_create(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize,
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	pstring fname;
	char *params = *ppparams;
	char *data = *ppdata;
	/* Breakout the oplock request bits so we can set the reply bits separately. */
	int oplock_request = 0;
	int fmode=0,rmode=0;
	SMB_OFF_T file_len = 0;
	SMB_STRUCT_STAT sbuf;
	int smb_action = 0;
	BOOL bad_path = False;
	files_struct *fsp = NULL;
	char *p = NULL;
	BOOL extended_oplock_granted = False;
	uint32 flags;
	uint32 desired_access;
	uint32 file_attributes;
	uint32 share_access;
	uint32 create_disposition;
	uint32 create_options;
	uint32 sd_len;
	uint32 ea_len;
	uint16 root_dir_fid;
	int smb_ofun;
	int smb_open_mode;
	time_t c_time;
	struct ea_list *ea_list = NULL;
	TALLOC_CTX *ctx = NULL;
	char *pdata = NULL;
	NTSTATUS status;

	DEBUG(5,("call_nt_transact_create\n"));

	/*
	 * If it's an IPC, use the pipe handler.
	 */

	if (IS_IPC(conn)) {
		if (lp_nt_pipe_support())
			return do_nt_transact_create_pipe(conn, inbuf, outbuf, length, 
					bufsize,
					ppsetup, setup_count,
					ppparams, parameter_count,
					ppdata, data_count);
		else
			return ERROR_DOS(ERRDOS,ERRnoaccess);
	}

	/*
	 * Ensure minimum number of parameters sent.
	 */

	if(parameter_count < 54) {
		DEBUG(0,("call_nt_transact_create - insufficient parameters (%u)\n", (unsigned int)parameter_count));
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
	}

	flags = IVAL(params,0);
	desired_access = IVAL(params,8);
	file_attributes = IVAL(params,20);
	share_access = IVAL(params,24);
	create_disposition = IVAL(params,28);
	create_options = IVAL(params,32);
	sd_len = IVAL(params,36);
	ea_len = IVAL(params,40);
	root_dir_fid = (uint16)IVAL(params,4);

	/* Ensure the data_len is correct for the sd and ea values given. */
	if ((ea_len + sd_len > data_count) ||
			(ea_len > data_count) || (sd_len > data_count) ||
			(ea_len + sd_len < ea_len) || (ea_len + sd_len < sd_len)) {
		DEBUG(10,("call_nt_transact_create - ea_len = %u, sd_len = %u, data_count = %u\n",
			(unsigned int)ea_len, (unsigned int)sd_len, (unsigned int)data_count ));
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
	}

	if (ea_len) {
		if (!lp_ea_support(SNUM(conn))) {
			DEBUG(10,("call_nt_transact_create - ea_len = %u but EA's not supported.\n",
				(unsigned int)ea_len ));
			return ERROR_NT(NT_STATUS_EAS_NOT_SUPPORTED);
		}

		if (ea_len < 10) {
			DEBUG(10,("call_nt_transact_create - ea_len = %u - too small (should be more than 10)\n",
				(unsigned int)ea_len ));
			return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
		}
	}

	if (create_options & FILE_OPEN_BY_FILE_ID) {
		return ERROR_NT(NT_STATUS_NOT_SUPPORTED);
	}

	/* 
	 * We need to construct the open_and_X ofun value from the
	 * NT values, as that's what our code is structured to accept.
	 */    

	if((smb_ofun = map_create_disposition( create_disposition )) == -1) {
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
	}

	/*
	 * Get the file name.
	 */

	if(root_dir_fid != 0) {
		/*
		 * This filename is relative to a directory fid.
		 */
		files_struct *dir_fsp = file_fsp(params,4);
		size_t dir_name_len;

		if(!dir_fsp)
			return ERROR_DOS(ERRDOS,ERRbadfid);

		if(!dir_fsp->is_directory) {
			srvstr_get_path(inbuf, fname, params+53, sizeof(fname), parameter_count-53, STR_TERMINATE, &status, False);
			if (!NT_STATUS_IS_OK(status)) {
				return ERROR_NT(status);
			}

			/*
			 * Check to see if this is a mac fork of some kind.
			 */

			if( strchr_m(fname, ':'))
				return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);

			return ERROR_DOS(ERRDOS,ERRbadfid);
		}

		/*
		 * Copy in the base directory name.
		 */

		pstrcpy( fname, dir_fsp->fsp_name );
		dir_name_len = strlen(fname);

		/*
		 * Ensure it ends in a '\'.
		 */

		if((fname[dir_name_len-1] != '\\') && (fname[dir_name_len-1] != '/')) {
			pstrcat(fname, "/");
			dir_name_len++;
		}

		{
			pstring tmpname;
			srvstr_get_path(inbuf, tmpname, params+53, sizeof(tmpname), parameter_count-53, STR_TERMINATE, &status, False);
			if (!NT_STATUS_IS_OK(status)) {
				return ERROR_NT(status);
			}
			pstrcat(fname, tmpname);
		}
	} else {
		srvstr_get_path(inbuf, fname, params+53, sizeof(fname), parameter_count-53, STR_TERMINATE, &status, False);
		if (!NT_STATUS_IS_OK(status)) {
			return ERROR_NT(status);
		}

		/*
		 * Check to see if this is a mac fork of some kind.
		 */

		if( strchr_m(fname, ':'))
			return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);
	}

	/*
	 * Now contruct the smb_open_mode value from the desired access
	 * and the share access.
	 */

	if((smb_open_mode = map_share_mode( fname, create_options, &desired_access,
						share_access, file_attributes)) == -1)
		return ERROR_NT(NT_STATUS_INVALID_PARAMETER);

	oplock_request = (flags & REQUEST_OPLOCK) ? EXCLUSIVE_OPLOCK : 0;
	oplock_request |= (flags & REQUEST_BATCH_OPLOCK) ? BATCH_OPLOCK : 0;

	/*
	 * Check if POSIX semantics are wanted.
	 */

	set_posix_case_semantics(conn, file_attributes);
    
	RESOLVE_DFSPATH(fname, conn, inbuf, outbuf);

	unix_convert(fname,conn,0,&bad_path,&sbuf);
	if (bad_path) {
		restore_case_semantics(conn, file_attributes);
		return ERROR_NT(NT_STATUS_OBJECT_PATH_NOT_FOUND);
	}
	/* All file access must go through check_name() */
	if (!check_name(fname,conn)) {
		restore_case_semantics(conn, file_attributes);
		return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRbadpath);
	}
    
#if 0
	/* This is the correct thing to do (check every time) but can_delete is
	   expensive (it may have to read the parent directory permissions). So
	   for now we're not doing it unless we have a strong hint the client
	   is really going to delete this file. */
	if (desired_access & DELETE_ACCESS) {
#else
	/* Setting FILE_SHARE_DELETE is the hint. */
	if ((share_access & FILE_SHARE_DELETE) && (desired_access & DELETE_ACCESS)) {
#endif
		status = can_delete(conn, fname, file_attributes, bad_path, True);
		/* We're only going to fail here if it's access denied, as that's the
		   only error we care about for "can we delete this ?" questions. */
		if (!NT_STATUS_IS_OK(status) && (NT_STATUS_EQUAL(status,NT_STATUS_ACCESS_DENIED) ||
						 NT_STATUS_EQUAL(status,NT_STATUS_CANNOT_DELETE))) {
			restore_case_semantics(conn, file_attributes);
			END_PROFILE(SMBntcreateX);
			return ERROR_NT(status);
		}
	}

	if (ea_len) {
		ctx = talloc_init("NTTRANS_CREATE_EA");
		if (!ctx) {
			talloc_destroy(ctx);
			restore_case_semantics(conn, file_attributes);
			return ERROR_NT(NT_STATUS_NO_MEMORY);
		}

		pdata = data + sd_len;

		/* We have already checked that ea_len <= data_count here. */
		ea_list = read_nttrans_ea_list(ctx, pdata, ea_len);
		if (!ea_list ) {
			talloc_destroy(ctx);
			restore_case_semantics(conn, file_attributes);
			return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
		}
	}

	/*
	 * If it's a request for a directory open, deal with it separately.
	 */

	if(create_options & FILE_DIRECTORY_FILE) {

		/* Can't open a temp directory. IFS kit test. */
		if (file_attributes & FILE_ATTRIBUTE_TEMPORARY) {
			talloc_destroy(ctx);
			restore_case_semantics(conn, file_attributes);
			return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
		}

		oplock_request = 0;

		/*
		 * We will get a create directory here if the Win32
		 * app specified a security descriptor in the 
		 * CreateDirectory() call.
		 */

		fsp = open_directory(conn, fname, &sbuf, desired_access, smb_open_mode, smb_ofun, &smb_action);

		if(!fsp) {
			talloc_destroy(ctx);
			restore_case_semantics(conn, file_attributes);
			return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
		}

	} else {

		/*
		 * Ordinary file case.
		 */

		fsp = open_file_shared1(conn,fname,&sbuf,desired_access,
						smb_open_mode,smb_ofun,file_attributes,
						oplock_request,&rmode,&smb_action);

		if (!fsp) { 
			if(errno == EISDIR) {

				/*
				 * Fail the open if it was explicitly a non-directory file.
				 */

				if (create_options & FILE_NON_DIRECTORY_FILE) {
					restore_case_semantics(conn, file_attributes);
					return ERROR_FORCE_NT(NT_STATUS_FILE_IS_A_DIRECTORY);
				}
	
				oplock_request = 0;
				fsp = open_directory(conn, fname, &sbuf, desired_access, smb_open_mode, smb_ofun, &smb_action);
				
				if(!fsp) {
					talloc_destroy(ctx);
					restore_case_semantics(conn, file_attributes);
					return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
				}
			} else {
				talloc_destroy(ctx);
				restore_case_semantics(conn, file_attributes);
				if (open_was_deferred(SVAL(inbuf,smb_mid))) {
					/* We have re-scheduled this call. */
					return -1;
				}
				return set_bad_path_error(errno, bad_path, outbuf, ERRDOS,ERRnoaccess);
			}
		} 
	}

	/*
	 * According to the MS documentation, the only time the security
	 * descriptor is applied to the opened file is iff we *created* the
	 * file; an existing file stays the same.
	 * 
	 * Also, it seems (from observation) that you can open the file with
	 * any access mask but you can still write the sd. We need to override
	 * the granted access before we call set_sd
	 * Patch for bug #2242 from Tom Lackemann <cessnatomny@yahoo.com>.
	 */

	if (lp_nt_acl_support(SNUM(conn)) && sd_len && smb_action == FILE_WAS_CREATED) {
		uint32 saved_access = fsp->desired_access;

		/* We have already checked that sd_len <= data_count here. */

		fsp->desired_access = FILE_GENERIC_ALL;

		status = set_sd( fsp, data, sd_len, ALL_SECURITY_INFORMATION);
		if (!NT_STATUS_IS_OK(status)) {
			talloc_destroy(ctx);
			close_file(fsp,False);
			restore_case_semantics(conn, file_attributes);
			return ERROR_NT(status);
		}
		fsp->desired_access = saved_access;
 	}
	
	if (ea_len && (smb_action == FILE_WAS_CREATED)) {
		status = set_ea(conn, fsp, fname, ea_list);
		talloc_destroy(ctx);
		if (!NT_STATUS_IS_OK(status)) {
			close_file(fsp,False);
			restore_case_semantics(conn, file_attributes);
			return ERROR_NT(status);
		}
	}

	restore_case_semantics(conn, file_attributes);

	file_len = sbuf.st_size;
	fmode = dos_mode(conn,fname,&sbuf);
	if(fmode == 0) {
		fmode = FILE_ATTRIBUTE_NORMAL;
	}
	if (!fsp->is_directory && (fmode & aDIR)) {
		close_file(fsp,False);
		return ERROR_DOS(ERRDOS,ERRnoaccess);
	} 
	
	/* Save the requested allocation size. */
	if ((smb_action == FILE_WAS_CREATED) || (smb_action == FILE_WAS_OVERWRITTEN)) {
		SMB_BIG_UINT allocation_size = (SMB_BIG_UINT)IVAL(params,12);
#ifdef LARGE_SMB_OFF_T
		allocation_size |= (((SMB_BIG_UINT)IVAL(params,16)) << 32);
#endif
		if (allocation_size && (allocation_size > file_len)) {
			fsp->initial_allocation_size = smb_roundup(fsp->conn, allocation_size);
			if (fsp->is_directory) {
				close_file(fsp,False);
				/* Can't set allocation size on a directory. */
				return ERROR_NT(NT_STATUS_ACCESS_DENIED);
			}
			if (vfs_allocate_file_space(fsp, fsp->initial_allocation_size) == -1) {
				close_file(fsp,False);
				return ERROR_NT(NT_STATUS_DISK_FULL);
			}
		} else {
			fsp->initial_allocation_size = smb_roundup(fsp->conn, (SMB_BIG_UINT)file_len);
		}
	}

	/* 
	 * If the caller set the extended oplock request bit
	 * and we granted one (by whatever means) - set the
	 * correct bit for extended oplock reply.
	 */
    
	if (oplock_request && lp_fake_oplocks(SNUM(conn))) {
		extended_oplock_granted = True;
	}
  
	if(oplock_request && EXCLUSIVE_OPLOCK_TYPE(fsp->oplock_type)) {
		extended_oplock_granted = True;
	}

	/* Realloc the size of parameters and data we will return */
	params = nttrans_realloc(ppparams, 69);
	if(params == NULL)
		return ERROR_DOS(ERRDOS,ERRnomem);

	p = params;
	if (extended_oplock_granted)
		SCVAL(p,0, BATCH_OPLOCK_RETURN);
	else if (LEVEL_II_OPLOCK_TYPE(fsp->oplock_type))
		SCVAL(p,0, LEVEL_II_OPLOCK_RETURN);
	else
		SCVAL(p,0,NO_OPLOCK_RETURN);
	
	p += 2;
	SSVAL(p,0,fsp->fnum);
	p += 2;
	if ((create_disposition == FILE_SUPERSEDE) && (smb_action == FILE_WAS_OVERWRITTEN))
		SIVAL(p,0,FILE_WAS_SUPERSEDED);
	else
		SIVAL(p,0,smb_action);
	p += 8;

	/* Create time. */
	c_time = get_create_time(&sbuf,lp_fake_dir_create_times(SNUM(conn)));

	if (lp_dos_filetime_resolution(SNUM(conn))) {
		c_time &= ~1;
		sbuf.st_atime &= ~1;
		sbuf.st_mtime &= ~1;
		sbuf.st_mtime &= ~1;
	}

	put_long_date(p,c_time);
	p += 8;
	put_long_date(p,sbuf.st_atime); /* access time */
	p += 8;
	put_long_date(p,sbuf.st_mtime); /* write time */
	p += 8;
	put_long_date(p,sbuf.st_mtime); /* change time */
	p += 8;
	SIVAL(p,0,fmode); /* File Attributes. */
	p += 4;
	SOFF_T(p, 0, get_allocation_size(conn,fsp,&sbuf));
	p += 8;
	SOFF_T(p,0,file_len);
	p += 8;
	if (flags & EXTENDED_RESPONSE_REQUIRED)
		SSVAL(p,2,0x7);
	p += 4;
	SCVAL(p,0,fsp->is_directory ? 1 : 0);

	DEBUG(5,("call_nt_transact_create: open name = %s\n", fname));

	/* Send the required number of replies */
	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, params, 69, *ppdata, 0);

	return -1;
}

/****************************************************************************
 Reply to a NT CANCEL request.
****************************************************************************/

int reply_ntcancel(connection_struct *conn,
		   char *inbuf,char *outbuf,int length,int bufsize)
{
	/*
	 * Go through and cancel any pending change notifies.
	 */
	
	int mid = SVAL(inbuf,smb_mid);
	START_PROFILE(SMBntcancel);
	remove_pending_change_notify_requests_by_mid(mid);
	remove_pending_lock_requests_by_mid(mid);
	srv_cancel_sign_response(mid);
	
	DEBUG(3,("reply_ntcancel: cancel called on mid = %d.\n", mid));

	END_PROFILE(SMBntcancel);
	return(-1);
}

/****************************************************************************
 Copy a file.
****************************************************************************/

static NTSTATUS copy_internals(connection_struct *conn, char *oldname, char *newname, uint16 attrs)
{
	BOOL bad_path_oldname = False;
	BOOL bad_path_newname = False;
	SMB_STRUCT_STAT sbuf1, sbuf2;
	pstring last_component_oldname;
	pstring last_component_newname;
	files_struct *fsp1,*fsp2;
	uint16 fmode;
	int access_mode;
	int smb_action;
	SMB_OFF_T ret=-1;
	int close_ret;
	NTSTATUS status = NT_STATUS_OK;

	ZERO_STRUCT(sbuf1);
	ZERO_STRUCT(sbuf2);

	/* No wildcards. */
	if (ms_has_wild(newname) || ms_has_wild(oldname)) {
		return NT_STATUS_OBJECT_PATH_SYNTAX_BAD;
	}

	if (!CAN_WRITE(conn))
		return NT_STATUS_MEDIA_WRITE_PROTECTED;

	unix_convert(oldname,conn,last_component_oldname,&bad_path_oldname,&sbuf1);
	if (bad_path_oldname) {
		return NT_STATUS_OBJECT_PATH_NOT_FOUND;
	}

	/* Quick check for "." and ".." */
	if (last_component_oldname[0] == '.') {
		if (!last_component_oldname[1] || (last_component_oldname[1] == '.' && !last_component_oldname[2])) {
			return NT_STATUS_OBJECT_NAME_INVALID;
		}
	}

        /* Source must already exist. */
	if (!VALID_STAT(sbuf1)) {
		return NT_STATUS_OBJECT_NAME_NOT_FOUND;
	}
	if (!check_name(oldname,conn)) {
		return NT_STATUS_ACCESS_DENIED;
	}

	/* Ensure attributes match. */
	fmode = dos_mode(conn,oldname,&sbuf1);
	if ((fmode & ~attrs) & (aHIDDEN | aSYSTEM))
		return NT_STATUS_NO_SUCH_FILE;

	unix_convert(newname,conn,last_component_newname,&bad_path_newname,&sbuf2);
	if (bad_path_newname) {
		return NT_STATUS_OBJECT_PATH_NOT_FOUND;
	}

	/* Quick check for "." and ".." */
	if (last_component_newname[0] == '.') {
		if (!last_component_newname[1] || (last_component_newname[1] == '.' && !last_component_newname[2])) {
			return NT_STATUS_OBJECT_NAME_INVALID;
		}
	}

	/* Disallow if newname already exists. */
	if (VALID_STAT(sbuf2)) {
		return NT_STATUS_OBJECT_NAME_COLLISION;
	}

	if (!check_name(newname,conn)) {
		return NT_STATUS_ACCESS_DENIED;
	}

	/* No links from a directory. */
	if (S_ISDIR(sbuf1.st_mode)) {
		return NT_STATUS_FILE_IS_A_DIRECTORY;
	}

	/* Ensure this is within the share. */
	if (!reduce_name(conn, oldname) != 0) {
		return NT_STATUS_ACCESS_DENIED;
	}

	DEBUG(10,("copy_internals: doing file copy %s to %s\n", oldname, newname));

        fsp1 = open_file_shared1(conn,oldname,&sbuf1,FILE_READ_DATA,SET_DENY_MODE(DENY_ALL)|SET_OPEN_MODE(DOS_OPEN_RDONLY),
			(FILE_FAIL_IF_NOT_EXIST|FILE_EXISTS_OPEN),FILE_ATTRIBUTE_NORMAL,0,
			&access_mode,&smb_action);

	if (!fsp1) {
		get_saved_error_triple(NULL, NULL, &status);
		if (NT_STATUS_IS_OK(status)) {
			status = NT_STATUS_ACCESS_DENIED;
		}
		set_saved_error_triple(0, 0, NT_STATUS_OK);
		return status;
	}

	fsp2 = open_file_shared1(conn,newname,&sbuf2,FILE_WRITE_DATA,SET_DENY_MODE(DENY_ALL)|SET_OPEN_MODE(DOS_OPEN_WRONLY),
			(FILE_CREATE_IF_NOT_EXIST|FILE_EXISTS_FAIL),fmode,INTERNAL_OPEN_ONLY,
			&access_mode,&smb_action);

	if (!fsp2) {
		get_saved_error_triple(NULL, NULL, &status);
		if (NT_STATUS_IS_OK(status)) {
			status = NT_STATUS_ACCESS_DENIED;
		}
		set_saved_error_triple(0, 0, NT_STATUS_OK);
		close_file(fsp1,False);
		return status;
	}

	if (sbuf1.st_size)
		ret = vfs_transfer_file(fsp1, fsp2, sbuf1.st_size);

	/*
	 * As we are opening fsp1 read-only we only expect
	 * an error on close on fsp2 if we are out of space.
	 * Thus we don't look at the error return from the
	 * close of fsp1.
	 */
	close_file(fsp1,False);

	/* Ensure the modtime is set correctly on the destination file. */
	fsp_set_pending_modtime(fsp2, sbuf1.st_mtime);

	close_ret = close_file(fsp2,False);

	/* Grrr. We have to do this as open_file_shared1 adds aARCH when it
	   creates the file. This isn't the correct thing to do in the copy case. JRA */
	file_set_dosmode(conn, newname, fmode, &sbuf2, True);

	if (ret < (SMB_OFF_T)sbuf1.st_size) {
		return NT_STATUS_DISK_FULL;
	}

	if (close_ret != 0) {
		status = map_nt_error_from_unix(close_ret);
		DEBUG(3,("copy_internals: Error %s copy file %s to %s\n",
			nt_errstr(status), oldname, newname));
	}
	return status;
}

/****************************************************************************
 Reply to a NT rename request.
****************************************************************************/

int reply_ntrename(connection_struct *conn,
		   char *inbuf,char *outbuf,int length,int bufsize)
{
	int outsize = 0;
	pstring oldname;
	pstring newname;
	char *p;
	NTSTATUS status;
	uint16 attrs = SVAL(inbuf,smb_vwv0);
	uint16 rename_type = SVAL(inbuf,smb_vwv1);

	START_PROFILE(SMBntrename);

	p = smb_buf(inbuf) + 1;
	p += srvstr_get_path(inbuf, oldname, p, sizeof(oldname), 0, STR_TERMINATE, &status, True);
	if (!NT_STATUS_IS_OK(status)) {
		END_PROFILE(SMBntrename);
		return ERROR_NT(status);
	}

	if( strchr_m(oldname, ':')) {
		/* Can't rename a stream. */
		END_PROFILE(SMBntrename);
		return ERROR_NT(NT_STATUS_ACCESS_DENIED);
	}

	if (ms_has_wild(oldname)) {
		END_PROFILE(SMBntrename);
		return ERROR_NT(NT_STATUS_OBJECT_PATH_SYNTAX_BAD);
	}

	p++;
	p += srvstr_get_path(inbuf, newname, p, sizeof(newname), 0, STR_TERMINATE, &status, False);
	if (!NT_STATUS_IS_OK(status)) {
		END_PROFILE(SMBntrename);
		return ERROR_NT(status);
	}
	
	RESOLVE_DFSPATH(oldname, conn, inbuf, outbuf);
	RESOLVE_DFSPATH(newname, conn, inbuf, outbuf);
	
	DEBUG(3,("reply_ntrename : %s -> %s\n",oldname,newname));
	
	switch(rename_type) {
		case RENAME_FLAG_RENAME:
			status = rename_internals(conn, oldname, newname, attrs, False);
			break;
		case RENAME_FLAG_HARD_LINK:
			status = hardlink_internals(conn, oldname, newname);
			break;
		case RENAME_FLAG_COPY:
			status = copy_internals(conn, oldname, newname, attrs);
			break;
		case RENAME_FLAG_MOVE_CLUSTER_INFORMATION:
			status = NT_STATUS_INVALID_PARAMETER;
			break;
		default:
			status = NT_STATUS_ACCESS_DENIED; /* Default error. */
			break;
	}

	if (!NT_STATUS_IS_OK(status)) {
		END_PROFILE(SMBntrename);
		if (open_was_deferred(SVAL(inbuf,smb_mid))) {
			/* We have re-scheduled this call. */
			return -1;
		}
		return ERROR_NT(status);
	}

	/*
	 * Win2k needs a changenotify request response before it will
	 * update after a rename..
	 */	
	process_pending_change_notify_queue((time_t)0);
	outsize = set_message(outbuf,0,0,True);
  
	END_PROFILE(SMBntrename);
	return(outsize);
}

/****************************************************************************
 Reply to an unsolicited SMBNTtranss - just ignore it!
****************************************************************************/

int reply_nttranss(connection_struct *conn,
		   char *inbuf,char *outbuf,int length,int bufsize)
{
	START_PROFILE(SMBnttranss);
	DEBUG(4,("Ignoring nttranss of length %d\n",length));
	END_PROFILE(SMBnttranss);
	return(-1);
}

/****************************************************************************
 Reply to a notify change - queue the request and 
 don't allow a directory to be opened.
****************************************************************************/

static int call_nt_transact_notify_change(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize, 
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	char *setup = *ppsetup;
	files_struct *fsp;
	uint32 flags;

        if(setup_count < 6)
		return ERROR_DOS(ERRDOS,ERRbadfunc);

	fsp = file_fsp(setup,4);
	flags = IVAL(setup, 0);

	DEBUG(3,("call_nt_transact_notify_change\n"));

	if(!fsp)
		return ERROR_DOS(ERRDOS,ERRbadfid);

	if((!fsp->is_directory) || (conn != fsp->conn))
		return ERROR_DOS(ERRDOS,ERRbadfid);

	if (!change_notify_set(inbuf, fsp, conn, flags))
		return(UNIXERROR(ERRDOS,ERRbadfid));

	DEBUG(3,("call_nt_transact_notify_change: notify change called on directory \
name = %s\n", fsp->fsp_name ));

	return -1;
}

/****************************************************************************
 Reply to an NT transact rename command.
****************************************************************************/

static int call_nt_transact_rename(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize,
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	char *params = *ppparams;
	pstring new_name;
	files_struct *fsp = NULL;
	BOOL replace_if_exists = False;
	NTSTATUS status;

        if(parameter_count < 4)
		return ERROR_DOS(ERRDOS,ERRbadfunc);

	fsp = file_fsp(params, 0);
	replace_if_exists = (SVAL(params,2) & RENAME_REPLACE_IF_EXISTS) ? True : False;
	CHECK_FSP(fsp, conn);
	srvstr_get_path(inbuf, new_name, params+4, sizeof(new_name), -1, STR_TERMINATE, &status, True);
	if (!NT_STATUS_IS_OK(status)) {
		return ERROR_NT(status);
	}

	status = rename_internals(conn, fsp->fsp_name,
				  new_name, 0, replace_if_exists);
	if (!NT_STATUS_IS_OK(status))
		return ERROR_NT(status);

	/*
	 * Rename was successful.
	 */
	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, NULL, 0);
	
	DEBUG(3,("nt transact rename from = %s, to = %s succeeded.\n", 
		 fsp->fsp_name, new_name));
	
	/*
	 * Win2k needs a changenotify request response before it will
	 * update after a rename..
	 */
	
	process_pending_change_notify_queue((time_t)0);

	return -1;
}

/******************************************************************************
 Fake up a completely empty SD.
*******************************************************************************/

static size_t get_null_nt_acl(TALLOC_CTX *mem_ctx, SEC_DESC **ppsd)
{
	size_t sd_size;

	*ppsd = make_standard_sec_desc( mem_ctx, &global_sid_World, &global_sid_World, NULL, &sd_size);
	if(!*ppsd) {
		DEBUG(0,("get_null_nt_acl: Unable to malloc space for security descriptor.\n"));
		sd_size = 0;
	}

	return sd_size;
}

/****************************************************************************
 Reply to query a security descriptor.
****************************************************************************/

static int call_nt_transact_query_security_desc(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize, 
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	char *params = *ppparams;
	char *data = *ppdata;
	prs_struct pd;
	SEC_DESC *psd = NULL;
	size_t sd_size;
	uint32 security_info_wanted;
	TALLOC_CTX *mem_ctx;
	files_struct *fsp = NULL;

        if(parameter_count < 8)
		return ERROR_DOS(ERRDOS,ERRbadfunc);

	fsp = file_fsp(params,0);
	if(!fsp)
		return ERROR_DOS(ERRDOS,ERRbadfid);

	security_info_wanted = IVAL(params,4);

	DEBUG(3,("call_nt_transact_query_security_desc: file = %s, info_wanted = 0x%x\n", fsp->fsp_name,
			(unsigned int)security_info_wanted ));

	params = nttrans_realloc(ppparams, 4);
	if(params == NULL)
		return ERROR_DOS(ERRDOS,ERRnomem);

	if ((mem_ctx = talloc_init("call_nt_transact_query_security_desc")) == NULL) {
		DEBUG(0,("call_nt_transact_query_security_desc: talloc_init failed.\n"));
		return ERROR_DOS(ERRDOS,ERRnomem);
	}

	/*
	 * Get the permissions to return.
	 */

	if (!lp_nt_acl_support(SNUM(conn)))
		sd_size = get_null_nt_acl(mem_ctx, &psd);
	else
		sd_size = SMB_VFS_FGET_NT_ACL(fsp, fsp->fd, security_info_wanted, &psd);

	if (sd_size == 0) {
		talloc_destroy(mem_ctx);
		return(UNIXERROR(ERRDOS,ERRnoaccess));
	}

	DEBUG(3,("call_nt_transact_query_security_desc: sd_size = %d.\n",(int)sd_size));

	SIVAL(params,0,(uint32)sd_size);

	if(max_data_count < sd_size) {

		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_BUFFER_TOO_SMALL,
			params, 4, *ppdata, 0);
		talloc_destroy(mem_ctx);
		return -1;
	}

	/*
	 * Allocate the data we will point this at.
	 */

	data = nttrans_realloc(ppdata, sd_size);
	if(data == NULL) {
		talloc_destroy(mem_ctx);
		return ERROR_DOS(ERRDOS,ERRnomem);
	}

	/*
	 * Init the parse struct we will marshall into.
	 */

	prs_init(&pd, 0, mem_ctx, MARSHALL);

	/*
	 * Setup the prs_struct to point at the memory we just
	 * allocated.
	 */

	prs_give_memory( &pd, data, (uint32)sd_size, False);

	/*
	 * Finally, linearize into the outgoing buffer.
	 */

	if(!sec_io_desc( "sd data", &psd, &pd, 1)) {
		DEBUG(0,("call_nt_transact_query_security_desc: Error in marshalling \
security descriptor.\n"));
		/*
		 * Return access denied for want of a better error message..
		 */ 
		talloc_destroy(mem_ctx);
		return(UNIXERROR(ERRDOS,ERRnoaccess));
	}

	/*
	 * Now we can delete the security descriptor.
	 */

	talloc_destroy(mem_ctx);

	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, params, 4, data, (int)sd_size);
	return -1;
}

/****************************************************************************
 Reply to set a security descriptor. Map to UNIX perms or POSIX ACLs.
****************************************************************************/

static int call_nt_transact_set_security_desc(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize,
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	char *params= *ppparams;
	char *data = *ppdata;
	files_struct *fsp = NULL;
	uint32 security_info_sent = 0;
	NTSTATUS nt_status;

	if(parameter_count < 8)
		return ERROR_DOS(ERRDOS,ERRbadfunc);

	if((fsp = file_fsp(params,0)) == NULL)
		return ERROR_DOS(ERRDOS,ERRbadfid);

	if(!lp_nt_acl_support(SNUM(conn)))
		goto done;

	security_info_sent = IVAL(params,4);

	DEBUG(3,("call_nt_transact_set_security_desc: file = %s, sent 0x%x\n", fsp->fsp_name,
		(unsigned int)security_info_sent ));

	if (data_count == 0)
		return ERROR_DOS(ERRDOS, ERRnoaccess);

	if (!NT_STATUS_IS_OK(nt_status = set_sd( fsp, data, data_count, security_info_sent)))
		return ERROR_NT(nt_status);

  done:

	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, NULL, 0);
	return -1;
}
   
/****************************************************************************
 Reply to NT IOCTL
****************************************************************************/

static int call_nt_transact_ioctl(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize, 
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	uint32 function;
	uint16 fidnum;
	files_struct *fsp;
	uint8 isFSctl;
	uint8 compfilter;
	static BOOL logged_message;
	char *pdata = *ppdata;

	if (setup_count != 8) {
		DEBUG(3,("call_nt_transact_ioctl: invalid setup count %d\n", setup_count));
		return ERROR_NT(NT_STATUS_NOT_SUPPORTED);
	}

	function = IVAL(*ppsetup, 0);
	fidnum = SVAL(*ppsetup, 4);
	isFSctl = CVAL(*ppsetup, 6);
	compfilter = CVAL(*ppsetup, 7);

	DEBUG(10,("call_nt_transact_ioctl: function[0x%08X] FID[0x%04X] isFSctl[0x%02X] compfilter[0x%02X]\n", 
		 function, fidnum, isFSctl, compfilter));

	fsp=file_fsp(*ppsetup, 4);
	/* this check is done in each implemented function case for now
	   because I don't want to break anything... --metze
	FSP_BELONGS_CONN(fsp,conn);*/

	switch (function) {
	case FSCTL_SET_SPARSE:
		/* pretend this succeeded - tho strictly we should
		   mark the file sparse (if the local fs supports it)
		   so we can know if we need to pre-allocate or not */

		DEBUG(10,("FSCTL_SET_SPARSE: called on FID[0x%04X](but not implemented)\n", fidnum));
		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, NULL, 0);
		return -1;
	
	case FSCTL_0x000900C0:
		/* pretend this succeeded - don't know what this really is
		   but works ok like this --metze
		 */

		DEBUG(10,("FSCTL_0x000900C0: called on FID[0x%04X](but not implemented)\n",fidnum));
		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, NULL, 0);
		return -1;

	case FSCTL_GET_REPARSE_POINT:
		/* pretend this fail - my winXP does it like this
		 * --metze
		 */

		DEBUG(10,("FSCTL_GET_REPARSE_POINT: called on FID[0x%04X](but not implemented)\n",fidnum));
		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_NOT_A_REPARSE_POINT, NULL, 0, NULL, 0);
		return -1;

	case FSCTL_SET_REPARSE_POINT:
		/* pretend this fail - I'm assuming this because of the FSCTL_GET_REPARSE_POINT case.
		 * --metze
		 */

		DEBUG(10,("FSCTL_SET_REPARSE_POINT: called on FID[0x%04X](but not implemented)\n",fidnum));
		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_NOT_A_REPARSE_POINT, NULL, 0, NULL, 0);
		return -1;
			
	case FSCTL_GET_SHADOW_COPY_DATA: /* don't know if this name is right...*/
	{
		/*
		 * This is called to retrieve the number of Shadow Copies (a.k.a. snapshots)
		 * and return their volume names.  If max_data_count is 16, then it is just
		 * asking for the number of volumes and length of the combined names.
		 *
		 * pdata is the data allocated by our caller, but that uses
		 * total_data_count (which is 0 in our case) rather than max_data_count.
		 * Allocate the correct amount and return the pointer to let
		 * it be deallocated when we return.
		 */
		SHADOW_COPY_DATA *shadow_data = NULL;
		TALLOC_CTX *shadow_mem_ctx = NULL;
		BOOL labels = False;
		uint32 labels_data_count = 0;
		uint32 i;
		char *cur_pdata;

		FSP_BELONGS_CONN(fsp,conn);

		if (max_data_count < 16) {
			DEBUG(0,("FSCTL_GET_SHADOW_COPY_DATA: max_data_count(%u) < 16 is invalid!\n",
				max_data_count));
			return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
		}

		if (max_data_count > 16) {
			labels = True;
		}

		shadow_mem_ctx = talloc_init("SHADOW_COPY_DATA");
		if (shadow_mem_ctx == NULL) {
			DEBUG(0,("talloc_init(SHADOW_COPY_DATA) failed!\n"));
			return ERROR_NT(NT_STATUS_NO_MEMORY);
		}

		shadow_data = TALLOC_ZERO_P(shadow_mem_ctx,SHADOW_COPY_DATA);
		if (shadow_data == NULL) {
			DEBUG(0,("talloc_zero() failed!\n"));
			talloc_destroy(shadow_mem_ctx);
			return ERROR_NT(NT_STATUS_NO_MEMORY);
		}
		
		shadow_data->mem_ctx = shadow_mem_ctx;
		
		/*
		 * Call the VFS routine to actually do the work.
		 */
		if (SMB_VFS_GET_SHADOW_COPY_DATA(fsp, shadow_data, labels)!=0) {
			talloc_destroy(shadow_data->mem_ctx);
			if (errno == ENOSYS) {
				DEBUG(5,("FSCTL_GET_SHADOW_COPY_DATA: connectpath %s, not supported.\n", 
					conn->connectpath));
				return ERROR_NT(NT_STATUS_NOT_SUPPORTED);
			} else {
				DEBUG(0,("FSCTL_GET_SHADOW_COPY_DATA: connectpath %s, failed.\n", 
					conn->connectpath));
				return ERROR_NT(NT_STATUS_UNSUCCESSFUL);			
			}
		}

		labels_data_count = (shadow_data->num_volumes*2*sizeof(SHADOW_COPY_LABEL))+2;

		if (!labels) {
			data_count = 16;
		} else {
			data_count = 12+labels_data_count+4;
		}

		if (max_data_count<data_count) {
			DEBUG(0,("FSCTL_GET_SHADOW_COPY_DATA: max_data_count(%u) too small (%u) bytes needed!\n",
				max_data_count,data_count));
			talloc_destroy(shadow_data->mem_ctx);
			return ERROR_NT(NT_STATUS_BUFFER_TOO_SMALL);
		}

		pdata = nttrans_realloc(ppdata, data_count);
		if (pdata == NULL) {
			talloc_destroy(shadow_data->mem_ctx);
			return ERROR_NT(NT_STATUS_NO_MEMORY);
		}		

		cur_pdata = pdata;

		/* num_volumes 4 bytes */
		SIVAL(pdata,0,shadow_data->num_volumes);

		if (labels) {
			/* num_labels 4 bytes */
			SIVAL(pdata,4,shadow_data->num_volumes);
		}

		/* needed_data_count 4 bytes */
		SIVAL(pdata,8,labels_data_count);

		cur_pdata+=12;

		DEBUG(10,("FSCTL_GET_SHADOW_COPY_DATA: %u volumes for path[%s].\n",
			shadow_data->num_volumes,fsp->fsp_name));
		if (labels && shadow_data->labels) {
			for (i=0;i<shadow_data->num_volumes;i++) {
				srvstr_push(outbuf, cur_pdata, shadow_data->labels[i], 2*sizeof(SHADOW_COPY_LABEL), STR_UNICODE|STR_TERMINATE);
				cur_pdata+=2*sizeof(SHADOW_COPY_LABEL);
				DEBUGADD(10,("Label[%u]: '%s'\n",i,shadow_data->labels[i]));
			}
		}

		talloc_destroy(shadow_data->mem_ctx);

		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, pdata, data_count);

		return -1;
        }
        
	case FSCTL_FIND_FILES_BY_SID: /* I hope this name is right */
	{
		/* pretend this succeeded - 
		 * 
		 * we have to send back a list with all files owned by this SID
		 *
		 * but I have to check that --metze
		 */
		DOM_SID sid;
		uid_t uid;
		size_t sid_len = MIN(data_count-4,SID_MAX_SIZE);
		
		DEBUG(10,("FSCTL_FIND_FILES_BY_SID: called on FID[0x%04X]\n",fidnum));

		FSP_BELONGS_CONN(fsp,conn);

		/* unknown 4 bytes: this is not the length of the sid :-(  */
		/*unknown = IVAL(pdata,0);*/
		
		sid_parse(pdata+4,sid_len,&sid);
		DEBUGADD(10,("for SID: %s\n",sid_string_static(&sid)));

		if (!NT_STATUS_IS_OK(sid_to_uid(&sid, &uid))) {
			DEBUG(0,("sid_to_uid: failed, sid[%s] sid_len[%lu]\n",
				sid_string_static(&sid),(unsigned long)sid_len));
			uid = (-1);
		}
		
		/* we can take a look at the find source :-)
		 *
		 * find ./ -uid $uid  -name '*'   is what we need here
		 *
		 *
		 * and send 4bytes len and then NULL terminated unicode strings
		 * for each file
		 *
		 * but I don't know how to deal with the paged results
		 * (maybe we can hang the result anywhere in the fsp struct)
		 *
		 * we don't send all files at once
		 * and at the next we should *not* start from the beginning, 
		 * so we have to cache the result 
		 *
		 * --metze
		 */
		
		/* this works for now... */
		send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, NULL, 0, NULL, 0);
		return -1;	
	}	
	default:
		if (!logged_message) {
			logged_message = True; /* Only print this once... */
			DEBUG(0,("call_nt_transact_ioctl(0x%x): Currently not implemented.\n",
				 function));
		}
	}

	return ERROR_NT(NT_STATUS_NOT_SUPPORTED);
}


#ifdef HAVE_SYS_QUOTAS
/****************************************************************************
 Reply to get user quota 
****************************************************************************/

static int call_nt_transact_get_user_quota(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize, 
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	NTSTATUS nt_status = NT_STATUS_OK;
	char *params = *ppparams;
	char *pdata = *ppdata;
	char *entry;
	int data_len=0,param_len=0;
	int qt_len=0;
	int entry_len = 0;
	files_struct *fsp = NULL;
	uint16 level = 0;
	size_t sid_len;
	DOM_SID sid;
	BOOL start_enum = True;
	SMB_NTQUOTA_STRUCT qt;
	SMB_NTQUOTA_LIST *tmp_list;
	SMB_NTQUOTA_HANDLE *qt_handle = NULL;
	extern struct current_user current_user;

	ZERO_STRUCT(qt);

	/* access check */
	if (current_user.uid != 0) {
		DEBUG(1,("get_user_quota: access_denied service [%s] user [%s]\n",
			lp_servicename(SNUM(conn)),conn->user));
		return ERROR_DOS(ERRDOS,ERRnoaccess);
	}

	/*
	 * Ensure minimum number of parameters sent.
	 */

	if (parameter_count < 4) {
		DEBUG(0,("TRANSACT_GET_USER_QUOTA: requires %d >= 4 bytes parameters\n",parameter_count));
		return ERROR_DOS(ERRDOS,ERRinvalidparam);
	}
	
	/* maybe we can check the quota_fnum */
	fsp = file_fsp(params,0);
	if (!CHECK_NTQUOTA_HANDLE_OK(fsp,conn)) {
		DEBUG(3,("TRANSACT_GET_USER_QUOTA: no valid QUOTA HANDLE\n"));
		return ERROR_NT(NT_STATUS_INVALID_HANDLE);
	}

	/* the NULL pointer cheking for fsp->fake_file_handle->pd
	 * is done by CHECK_NTQUOTA_HANDLE_OK()
	 */
	qt_handle = (SMB_NTQUOTA_HANDLE *)fsp->fake_file_handle->pd;

	level = SVAL(params,2);
	
	/* unknown 12 bytes leading in params */ 
	
	switch (level) {
		case TRANSACT_GET_USER_QUOTA_LIST_CONTINUE:
			/* seems that we should continue with the enum here --metze */

			if (qt_handle->quota_list!=NULL && 
			    qt_handle->tmp_list==NULL) {
		
				/* free the list */
				free_ntquota_list(&(qt_handle->quota_list));

				/* Realloc the size of parameters and data we will return */
				param_len = 4;
				params = nttrans_realloc(ppparams, param_len);
				if(params == NULL)
					return ERROR_DOS(ERRDOS,ERRnomem);

				data_len = 0;
				SIVAL(params,0,data_len);

				break;
			}

			start_enum = False;

		case TRANSACT_GET_USER_QUOTA_LIST_START:

			if (qt_handle->quota_list==NULL &&
				qt_handle->tmp_list==NULL) {
				start_enum = True;
			}

			if (start_enum && vfs_get_user_ntquota_list(fsp,&(qt_handle->quota_list))!=0)
				return ERROR_DOS(ERRSRV,ERRerror);

			/* Realloc the size of parameters and data we will return */
			param_len = 4;
			params = nttrans_realloc(ppparams, param_len);
			if(params == NULL)
				return ERROR_DOS(ERRDOS,ERRnomem);

			/* we should not trust the value in max_data_count*/
			max_data_count = MIN(max_data_count,2048);
			
			pdata = nttrans_realloc(ppdata, max_data_count);/* should be max data count from client*/
			if(pdata == NULL)
				return ERROR_DOS(ERRDOS,ERRnomem);

			entry = pdata;


			/* set params Size of returned Quota Data 4 bytes*/
			/* but set it later when we know it */
		
			/* for each entry push the data */

			if (start_enum) {
				qt_handle->tmp_list = qt_handle->quota_list;
			}

			tmp_list = qt_handle->tmp_list;

			for (;((tmp_list!=NULL)&&((qt_len +40+SID_MAX_SIZE)<max_data_count));
				tmp_list=tmp_list->next,entry+=entry_len,qt_len+=entry_len) {

				sid_len = sid_size(&tmp_list->quotas->sid);
				entry_len = 40 + sid_len;

				/* nextoffset entry 4 bytes */
				SIVAL(entry,0,entry_len);
		
				/* then the len of the SID 4 bytes */
				SIVAL(entry,4,sid_len);
				
				/* unknown data 8 bytes SMB_BIG_UINT */
				SBIG_UINT(entry,8,(SMB_BIG_UINT)0); /* this is not 0 in windows...-metze*/
				
				/* the used disk space 8 bytes SMB_BIG_UINT */
				SBIG_UINT(entry,16,tmp_list->quotas->usedspace);
				
				/* the soft quotas 8 bytes SMB_BIG_UINT */
				SBIG_UINT(entry,24,tmp_list->quotas->softlim);
				
				/* the hard quotas 8 bytes SMB_BIG_UINT */
				SBIG_UINT(entry,32,tmp_list->quotas->hardlim);
				
				/* and now the SID */
				sid_linearize(entry+40, sid_len, &tmp_list->quotas->sid);
			}
			
			qt_handle->tmp_list = tmp_list;
			
			/* overwrite the offset of the last entry */
			SIVAL(entry-entry_len,0,0);

			data_len = 4+qt_len;
			/* overwrite the params quota_data_len */
			SIVAL(params,0,data_len);

			break;

		case TRANSACT_GET_USER_QUOTA_FOR_SID:
			
			/* unknown 4 bytes IVAL(pdata,0) */	
			
			if (data_count < 8) {
				DEBUG(0,("TRANSACT_GET_USER_QUOTA_FOR_SID: requires %d >= %d bytes data\n",data_count,8));
				return ERROR_DOS(ERRDOS,ERRunknownlevel);				
			}

			sid_len = IVAL(pdata,4);
			/* Ensure this is less than 1mb. */
			if (sid_len > (1024*1024)) {
				return ERROR_DOS(ERRDOS,ERRnomem);
			}

			if (data_count < 8+sid_len) {
				DEBUG(0,("TRANSACT_GET_USER_QUOTA_FOR_SID: requires %d >= %lu bytes data\n",data_count,(unsigned long)(8+sid_len)));
				return ERROR_DOS(ERRDOS,ERRunknownlevel);				
			}

			data_len = 4+40+sid_len;

			if (max_data_count < data_len) {
				DEBUG(0,("TRANSACT_GET_USER_QUOTA_FOR_SID: max_data_count(%d) < data_len(%d)\n",
					max_data_count, data_len));
				param_len = 4;
				SIVAL(params,0,data_len);
				data_len = 0;
				nt_status = NT_STATUS_BUFFER_TOO_SMALL;
				break;
			}

			sid_parse(pdata+8,sid_len,&sid);
		

			if (vfs_get_ntquota(fsp, SMB_USER_QUOTA_TYPE, &sid, &qt)!=0) {
				ZERO_STRUCT(qt);
				/* 
				 * we have to return zero's in all fields 
				 * instead of returning an error here
				 * --metze
				 */
			}

			/* Realloc the size of parameters and data we will return */
			param_len = 4;
			params = nttrans_realloc(ppparams, param_len);
			if(params == NULL)
				return ERROR_DOS(ERRDOS,ERRnomem);

			pdata = nttrans_realloc(ppdata, data_len);
			if(pdata == NULL)
				return ERROR_DOS(ERRDOS,ERRnomem);

			entry = pdata;

			/* set params Size of returned Quota Data 4 bytes*/
			SIVAL(params,0,data_len);
	
			/* nextoffset entry 4 bytes */
			SIVAL(entry,0,0);
	
			/* then the len of the SID 4 bytes */
			SIVAL(entry,4,sid_len);
			
			/* unknown data 8 bytes SMB_BIG_UINT */
			SBIG_UINT(entry,8,(SMB_BIG_UINT)0); /* this is not 0 in windows...-mezte*/
			
			/* the used disk space 8 bytes SMB_BIG_UINT */
			SBIG_UINT(entry,16,qt.usedspace);
			
			/* the soft quotas 8 bytes SMB_BIG_UINT */
			SBIG_UINT(entry,24,qt.softlim);
			
			/* the hard quotas 8 bytes SMB_BIG_UINT */
			SBIG_UINT(entry,32,qt.hardlim);
			
			/* and now the SID */
			sid_linearize(entry+40, sid_len, &sid);

			break;

		default:
			DEBUG(0,("do_nt_transact_get_user_quota: fnum %d unknown level 0x%04hX\n",fsp->fnum,level));
			return ERROR_DOS(ERRSRV,ERRerror);
			break;
	}

	send_nt_replies(inbuf, outbuf, bufsize, nt_status, params, param_len, pdata, data_len);

	return -1;
}

/****************************************************************************
 Reply to set user quota
****************************************************************************/

static int call_nt_transact_set_user_quota(connection_struct *conn, char *inbuf, char *outbuf, int length, int bufsize, 
                                  char **ppsetup, uint32 setup_count,
				  char **ppparams, uint32 parameter_count,
				  char **ppdata, uint32 data_count, uint32 max_data_count)
{
	char *params = *ppparams;
	char *pdata = *ppdata;
	int data_len=0,param_len=0;
	SMB_NTQUOTA_STRUCT qt;
	size_t sid_len;
	DOM_SID sid;
	files_struct *fsp = NULL;

	ZERO_STRUCT(qt);

	/* access check */
	if (current_user.uid != 0) {
		DEBUG(1,("set_user_quota: access_denied service [%s] user [%s]\n",
			lp_servicename(SNUM(conn)),conn->user));
		return ERROR_DOS(ERRDOS,ERRnoaccess);
	}

	/*
	 * Ensure minimum number of parameters sent.
	 */

	if (parameter_count < 2) {
		DEBUG(0,("TRANSACT_SET_USER_QUOTA: requires %d >= 2 bytes parameters\n",parameter_count));
		return ERROR_DOS(ERRDOS,ERRinvalidparam);
	}
	
	/* maybe we can check the quota_fnum */
	fsp = file_fsp(params,0);
	if (!CHECK_NTQUOTA_HANDLE_OK(fsp,conn)) {
		DEBUG(3,("TRANSACT_GET_USER_QUOTA: no valid QUOTA HANDLE\n"));
		return ERROR_NT(NT_STATUS_INVALID_HANDLE);
	}

	if (data_count < 40) {
		DEBUG(0,("TRANSACT_SET_USER_QUOTA: requires %d >= %d bytes data\n",data_count,40));
		return ERROR_DOS(ERRDOS,ERRunknownlevel);		
	}

	/* offset to next quota record.
	 * 4 bytes IVAL(pdata,0)
	 * unused here...
	 */

	/* sid len */
	sid_len = IVAL(pdata,4);

	if (data_count < 40+sid_len) {
		DEBUG(0,("TRANSACT_SET_USER_QUOTA: requires %d >= %lu bytes data\n",data_count,(unsigned long)40+sid_len));
		return ERROR_DOS(ERRDOS,ERRunknownlevel);		
	}

	/* unknown 8 bytes in pdata 
	 * maybe its the change time in NTTIME
	 */

	/* the used space 8 bytes (SMB_BIG_UINT)*/
	qt.usedspace = (SMB_BIG_UINT)IVAL(pdata,16);
#ifdef LARGE_SMB_OFF_T
	qt.usedspace |= (((SMB_BIG_UINT)IVAL(pdata,20)) << 32);
#else /* LARGE_SMB_OFF_T */
	if ((IVAL(pdata,20) != 0)&&
		((qt.usedspace != 0xFFFFFFFF)||
		(IVAL(pdata,20)!=0xFFFFFFFF))) {
		/* more than 32 bits? */
		return ERROR_DOS(ERRDOS,ERRunknownlevel);
	}
#endif /* LARGE_SMB_OFF_T */

	/* the soft quotas 8 bytes (SMB_BIG_UINT)*/
	qt.softlim = (SMB_BIG_UINT)IVAL(pdata,24);
#ifdef LARGE_SMB_OFF_T
	qt.softlim |= (((SMB_BIG_UINT)IVAL(pdata,28)) << 32);
#else /* LARGE_SMB_OFF_T */
	if ((IVAL(pdata,28) != 0)&&
		((qt.softlim != 0xFFFFFFFF)||
		(IVAL(pdata,28)!=0xFFFFFFFF))) {
		/* more than 32 bits? */
		return ERROR_DOS(ERRDOS,ERRunknownlevel);
	}
#endif /* LARGE_SMB_OFF_T */

	/* the hard quotas 8 bytes (SMB_BIG_UINT)*/
	qt.hardlim = (SMB_BIG_UINT)IVAL(pdata,32);
#ifdef LARGE_SMB_OFF_T
	qt.hardlim |= (((SMB_BIG_UINT)IVAL(pdata,36)) << 32);
#else /* LARGE_SMB_OFF_T */
	if ((IVAL(pdata,36) != 0)&&
		((qt.hardlim != 0xFFFFFFFF)||
		(IVAL(pdata,36)!=0xFFFFFFFF))) {
		/* more than 32 bits? */
		return ERROR_DOS(ERRDOS,ERRunknownlevel);
	}
#endif /* LARGE_SMB_OFF_T */
	
	sid_parse(pdata+40,sid_len,&sid);
	DEBUGADD(8,("SID: %s\n",sid_string_static(&sid)));

	/* 44 unknown bytes left... */

	if (vfs_set_ntquota(fsp, SMB_USER_QUOTA_TYPE, &sid, &qt)!=0) {
		return ERROR_DOS(ERRSRV,ERRerror);	
	}

	send_nt_replies(inbuf, outbuf, bufsize, NT_STATUS_OK, params, param_len, pdata, data_len);

	return -1;
}
#endif /* HAVE_SYS_QUOTAS */

/****************************************************************************
 Reply to a SMBNTtrans.
****************************************************************************/

int reply_nttrans(connection_struct *conn,
			char *inbuf,char *outbuf,int length,int bufsize)
{
	int  outsize = 0;
	uint32 max_data_count = IVAL(inbuf,smb_nt_MaxDataCount);
#if 0 /* Not used. */
	uint16 max_setup_count = CVAL(inbuf, smb_nt_MaxSetupCount);
	uint32 max_parameter_count = IVAL(inbuf, smb_nt_MaxParameterCount);
#endif /* Not used. */
	uint32 total_parameter_count = IVAL(inbuf, smb_nt_TotalParameterCount);
	uint32 total_data_count = IVAL(inbuf, smb_nt_TotalDataCount);
	uint32 parameter_count = IVAL(inbuf,smb_nt_ParameterCount);
	uint32 parameter_offset = IVAL(inbuf,smb_nt_ParameterOffset);
	uint32 data_count = IVAL(inbuf,smb_nt_DataCount);
	uint32 data_offset = IVAL(inbuf,smb_nt_DataOffset);
	uint16 setup_count = 2*CVAL(inbuf,smb_nt_SetupCount); /* setup count is in *words* */
	uint16 function_code = SVAL( inbuf, smb_nt_Function);
	char *params = NULL, *data = NULL, *setup = NULL;
	uint32 num_params_sofar, num_data_sofar;
	START_PROFILE(SMBnttrans);

	if(global_oplock_break &&
			((function_code == NT_TRANSACT_CREATE) ||
			 (function_code == NT_TRANSACT_RENAME))) {
		/*
		 * Queue this open message as we are the process of an oplock break.
		 */

		DEBUG(2,("reply_nttrans: queueing message code 0x%x \
due to being in oplock break state.\n", (unsigned int)function_code ));

		push_oplock_pending_smb_message( inbuf, length);
		END_PROFILE(SMBnttrans);
		return -1;
	}

	if (IS_IPC(conn) && (function_code != NT_TRANSACT_CREATE)) {
		END_PROFILE(SMBnttrans);
		return ERROR_DOS(ERRSRV,ERRaccess);
	}

	outsize = set_message(outbuf,0,0,True);

	/* 
	 * All nttrans messages we handle have smb_wct == 19 + setup_count.
	 * Ensure this is so as a sanity check.
	 */

	if(CVAL(inbuf, smb_wct) != 19 + (setup_count/2)) {
		DEBUG(2,("Invalid smb_wct %d in nttrans call (should be %d)\n",
			CVAL(inbuf, smb_wct), 19 + (setup_count/2)));
		goto bad_param;
	}

	/* Don't allow more than 128mb for each value. */
	if ((total_parameter_count > (1024*1024*128)) || (total_data_count > (1024*1024*128))) {
		END_PROFILE(SMBnttrans);
		return ERROR_DOS(ERRDOS,ERRnomem);
	}

	/* Allocate the space for the setup, the maximum needed parameters and data */

	if(setup_count > 0)
		setup = (char *)SMB_MALLOC(setup_count);
	if (total_parameter_count > 0)
		params = (char *)SMB_MALLOC(total_parameter_count);
	if (total_data_count > 0)
		data = (char *)SMB_MALLOC(total_data_count);
 
	if ((total_parameter_count && !params)  || (total_data_count && !data) ||
				(setup_count && !setup)) {
		SAFE_FREE(setup);
		SAFE_FREE(params);
		SAFE_FREE(data);
		DEBUG(0,("reply_nttrans : Out of memory\n"));
		END_PROFILE(SMBnttrans);
		return ERROR_DOS(ERRDOS,ERRnomem);
	}

	/* Copy the param and data bytes sent with this request into the params buffer */
	num_params_sofar = parameter_count;
	num_data_sofar = data_count;

	if (parameter_count > total_parameter_count || data_count > total_data_count)
		goto bad_param;

	if(setup) {
		DEBUG(10,("reply_nttrans: setup_count = %d\n", setup_count));
		if ((smb_nt_SetupStart + setup_count < smb_nt_SetupStart) ||
				(smb_nt_SetupStart + setup_count < setup_count))
			goto bad_param;
		if (smb_nt_SetupStart + setup_count > length)
			goto bad_param;

		memcpy( setup, &inbuf[smb_nt_SetupStart], setup_count);
		dump_data(10, setup, setup_count);
	}
	if(params) {
		DEBUG(10,("reply_nttrans: parameter_count = %d\n", parameter_count));
		if ((parameter_offset + parameter_count < parameter_offset) ||
				(parameter_offset + parameter_count < parameter_count))
			goto bad_param;
		if ((smb_base(inbuf) + parameter_offset + parameter_count > inbuf + length)||
				(smb_base(inbuf) + parameter_offset + parameter_count < smb_base(inbuf)))
			goto bad_param;

		memcpy( params, smb_base(inbuf) + parameter_offset, parameter_count);
		dump_data(10, params, parameter_count);
	}
	if(data) {
		DEBUG(10,("reply_nttrans: data_count = %d\n",data_count));
		if ((data_offset + data_count < data_offset) || (data_offset + data_count < data_count))
			goto bad_param;
		if ((smb_base(inbuf) + data_offset + data_count > inbuf + length) ||
		   		(smb_base(inbuf) + data_offset + data_count < smb_base(inbuf)))
			goto bad_param;

		memcpy( data, smb_base(inbuf) + data_offset, data_count);
		dump_data(10, data, data_count);
	}

	srv_signing_trans_start(SVAL(inbuf,smb_mid));

	if(num_data_sofar < total_data_count || num_params_sofar < total_parameter_count) {
		/* We need to send an interim response then receive the rest
			of the parameter/data bytes */
		outsize = set_message(outbuf,0,0,True);
		srv_signing_trans_stop();
		if (!send_smb(smbd_server_fd(),outbuf))
			exit_server("reply_nttrans: send_smb failed.");

		while( num_data_sofar < total_data_count || num_params_sofar < total_parameter_count) {
			BOOL ret;
			uint32 parameter_displacement;
			uint32 data_displacement;

			ret = receive_next_smb(inbuf,bufsize,SMB_SECONDARY_WAIT);

			/* We need to re-calcuate the new length after we've read the secondary packet. */
			length = smb_len(inbuf) + 4;

			/*
			 * The sequence number for the trans reply is always
			 * based on the last secondary received.
			 */

			srv_signing_trans_start(SVAL(inbuf,smb_mid));

			if((ret && (CVAL(inbuf, smb_com) != SMBnttranss)) || !ret) {
				outsize = set_message(outbuf,0,0,True);
				if(ret) {
					DEBUG(0,("reply_nttrans: Invalid secondary nttrans packet\n"));
				} else {
					DEBUG(0,("reply_nttrans: %s in getting secondary nttrans response.\n",
						(smb_read_error == READ_ERROR) ? "error" : "timeout" ));
				}
				goto bad_param;
			}
      
			/* Revise total_params and total_data in case they have changed downwards */
			if (IVAL(inbuf, smb_nts_TotalParameterCount) < total_parameter_count)
				total_parameter_count = IVAL(inbuf, smb_nts_TotalParameterCount);
			if (IVAL(inbuf, smb_nts_TotalDataCount) < total_data_count)
				total_data_count = IVAL(inbuf, smb_nts_TotalDataCount);

			parameter_count = IVAL(inbuf,smb_nts_ParameterCount);
			parameter_offset = IVAL(inbuf, smb_nts_ParameterOffset);
			parameter_displacement = IVAL(inbuf, smb_nts_ParameterDisplacement);
			num_params_sofar += parameter_count;

			data_count = IVAL(inbuf, smb_nts_DataCount);
			data_displacement = IVAL(inbuf, smb_nts_DataDisplacement);
			data_offset = IVAL(inbuf, smb_nts_DataOffset);
			num_data_sofar += data_count;

			if (num_params_sofar > total_parameter_count || num_data_sofar > total_data_count) {
				DEBUG(0,("reply_nttrans2: data overflow in secondary nttrans packet"));
				goto bad_param;
			}

			if (parameter_count) {
				if (parameter_displacement + parameter_count > total_parameter_count)
					goto bad_param;
				if ((parameter_displacement + parameter_count < parameter_displacement) ||
						(parameter_displacement + parameter_count < parameter_count))
					goto bad_param;
				if (parameter_displacement > total_parameter_count)
					goto bad_param;
				if ((smb_base(inbuf) + parameter_offset + parameter_count > inbuf + length) ||
						(smb_base(inbuf) + parameter_offset + parameter_count < smb_base(inbuf)))
					goto bad_param;
				if (parameter_displacement + params < params)
					goto bad_param;

				memcpy( &params[parameter_displacement], smb_base(inbuf) + parameter_offset, parameter_count);
			}

			if (data_count) {
				if (data_displacement + data_count > total_data_count)
					goto bad_param;
				if ((data_displacement + data_count < data_displacement) ||
						(data_displacement + data_count < data_count))
					goto bad_param;
				if (data_displacement > total_data_count)
					goto bad_param;
				if ((smb_base(inbuf) + data_offset + data_count > inbuf + length) ||
						(smb_base(inbuf) + data_offset + data_count < smb_base(inbuf)))
					goto bad_param;
				if (data_displacement + data < data)
					goto bad_param;

				memcpy( &data[data_displacement], smb_base(inbuf)+ data_offset, data_count);
			}
		}
	}

	if (Protocol >= PROTOCOL_NT1)
		SSVAL(outbuf,smb_flg2,SVAL(outbuf,smb_flg2) | FLAGS2_IS_LONG_NAME);

	/* Now we must call the relevant NT_TRANS function */
	switch(function_code) {
		case NT_TRANSACT_CREATE:
			START_PROFILE_NESTED(NT_transact_create);
			outsize = call_nt_transact_create(conn, inbuf, outbuf,
							length, bufsize, 
							&setup, setup_count,
							&params, total_parameter_count, 
							&data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_create);
			break;
		case NT_TRANSACT_IOCTL:
			START_PROFILE_NESTED(NT_transact_ioctl);
			outsize = call_nt_transact_ioctl(conn, inbuf, outbuf,
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_ioctl);
			break;
		case NT_TRANSACT_SET_SECURITY_DESC:
			START_PROFILE_NESTED(NT_transact_set_security_desc);
			outsize = call_nt_transact_set_security_desc(conn, inbuf, outbuf, 
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_set_security_desc);
			break;
		case NT_TRANSACT_NOTIFY_CHANGE:
			START_PROFILE_NESTED(NT_transact_notify_change);
			outsize = call_nt_transact_notify_change(conn, inbuf, outbuf, 
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_notify_change);
			break;
		case NT_TRANSACT_RENAME:
			START_PROFILE_NESTED(NT_transact_rename);
			outsize = call_nt_transact_rename(conn, inbuf, outbuf,
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_rename);
			break;

		case NT_TRANSACT_QUERY_SECURITY_DESC:
			START_PROFILE_NESTED(NT_transact_query_security_desc);
			outsize = call_nt_transact_query_security_desc(conn, inbuf, outbuf, 
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_query_security_desc);
			break;
#ifdef HAVE_SYS_QUOTAS
		case NT_TRANSACT_GET_USER_QUOTA:
			START_PROFILE_NESTED(NT_transact_get_user_quota);
			outsize = call_nt_transact_get_user_quota(conn, inbuf, outbuf, 
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_get_user_quota);
			break;
		case NT_TRANSACT_SET_USER_QUOTA:
			START_PROFILE_NESTED(NT_transact_set_user_quota);
			outsize = call_nt_transact_set_user_quota(conn, inbuf, outbuf, 
							 length, bufsize, 
							 &setup, setup_count,
							 &params, total_parameter_count, 
							 &data, total_data_count, max_data_count);
			END_PROFILE_NESTED(NT_transact_set_user_quota);
			break;					
#endif /* HAVE_SYS_QUOTAS */
		default:
			/* Error in request */
			DEBUG(0,("reply_nttrans: Unknown request %d in nttrans call\n", function_code));
			SAFE_FREE(setup);
			SAFE_FREE(params);
			SAFE_FREE(data);
			END_PROFILE(SMBnttrans);
			srv_signing_trans_stop();
			return ERROR_DOS(ERRSRV,ERRerror);
	}

	/* As we do not know how many data packets will need to be
		returned here the various call_nt_transact_xxxx calls
		must send their own. Thus a call_nt_transact_xxxx routine only
		returns a value other than -1 when it wants to send
		an error packet. 
	*/

	srv_signing_trans_stop();

	SAFE_FREE(setup);
	SAFE_FREE(params);
	SAFE_FREE(data);
	END_PROFILE(SMBnttrans);
	return outsize; /* If a correct response was needed the call_nt_transact_xxxx 
				calls have already sent it. If outsize != -1 then it is
				returning an error packet. */

 bad_param:

	srv_signing_trans_stop();
	SAFE_FREE(params);
	SAFE_FREE(data);
	SAFE_FREE(setup);
	END_PROFILE(SMBnttrans);
	return ERROR_NT(NT_STATUS_INVALID_PARAMETER);
}