Removed save directory argument to become_root() calls. Probably most of
[samba.git] / source3 / rpc_server / srv_pipe_hnd.c
index a371e48bfd52eb97123e902a0462ceeee4f7b7bd..b11c76b75deeab5177ae10f5ab1be394ef9596dc 100644 (file)
@@ -1,10 +1,11 @@
-
+#define OLD_NTDOMAIN 1
 /* 
  *  Unix SMB/Netbios implementation.
  *  Version 1.9.
  *  RPC Pipe client / server routines
- *  Copyright (C) Andrew Tridgell              1992-1997,
- *  Copyright (C) Luke Kenneth Casson Leighton 1996-1997,
+ *  Copyright (C) Andrew Tridgell              1992-1998,
+ *  Copyright (C) Luke Kenneth Casson Leighton 1996-1998,
+ *  Copyright (C) Jeremy Allison                                   1999.
  *  
  *  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
 #define        PIPELEN         strlen(PIPE)
 
 extern int DEBUGLEVEL;
-static int chain_pnum = -1;
+static pipes_struct *chain_p;
+static int pipes_open;
 
 #ifndef MAX_OPEN_PIPES
-#define MAX_OPEN_PIPES 50
+#define MAX_OPEN_PIPES 64
 #endif
 
-#define PIPE_HANDLE_OFFSET 0x800
+static pipes_struct *Pipes;
+static struct bitmap *bmap;
 
-pipes_struct Pipes[MAX_OPEN_PIPES];
+/* this must be larger than the sum of the open files and directories */
+static int pipe_handle_offset;
 
-#define P_OPEN(p) ((p)->open)
-#define P_OK(p,c) (P_OPEN(p) && (c)==((p)->cnum))
-#define VALID_PNUM(pnum)   (((pnum) >= 0) && ((pnum) < MAX_OPEN_PIPES))
-#define OPEN_PNUM(pnum)    (VALID_PNUM(pnum) && P_OPEN(&(Pipes[pnum])))
-#define PNUM_OK(pnum,c) (OPEN_PNUM(pnum) && (c)==Pipes[pnum].cnum)
+/****************************************************************************
+ Set the pipe_handle_offset. Called from smbd/files.c
+****************************************************************************/
 
+void set_pipe_handle_offset(int max_open_files)
+{
+  if(max_open_files < 0x7000)
+    pipe_handle_offset = 0x7000;
+  else
+    pipe_handle_offset = max_open_files + 10; /* For safety. :-) */
+}
 
 /****************************************************************************
-  reset pipe chain handle number
+ Reset pipe chain handle number.
 ****************************************************************************/
-void reset_chain_pnum(void)
+void reset_chain_p(void)
 {
-       chain_pnum = -1;
+       chain_p = NULL;
 }
 
 /****************************************************************************
-  sets chain pipe-file handle
+ Initialise pipe handle states.
 ****************************************************************************/
-void set_chain_pnum(int new_pnum)
+
+void init_rpc_pipe_hnd(void)
 {
-       chain_pnum = new_pnum;
+       bmap = bitmap_allocate(MAX_OPEN_PIPES);
+       if (!bmap)
+               exit_server("out of memory in init_rpc_pipe_hnd\n");
 }
 
 /****************************************************************************
 initialise pipe handle states...
Initialise an outgoing packet.
 ****************************************************************************/
-void init_rpc_pipe_hnd(void)
+
+static BOOL pipe_init_outgoing_data(output_data *o_data)
 {
-       int i;
-       /* we start at 1 here for an obscure reason I can't now remember,
-       but I think is important :-) */
-       for (i = 1; i < MAX_OPEN_PIPES; i++)
-       {
-               Pipes[i].open = False;
-               Pipes[i].name[0] = 0;
-               Pipes[i].pipe_srv_name[0] = 0;
+       /* Reset the offset counters. */
+       o_data->data_sent_length = 0;
+       o_data->current_pdu_len = 0;
+       o_data->current_pdu_sent = 0;
+
+       memset(o_data->current_pdu, '\0', sizeof(o_data->current_pdu));
+
+       /* Free any memory in the current return data buffer. */
+       prs_mem_free(&o_data->rdata);
+
+       /*
+        * Initialize the outgoing RPC data buffer.
+        * we will use this as the raw data area for replying to rpc requests.
+        */     
+       if(!prs_init(&o_data->rdata, MAX_PDU_FRAG_LEN, 4, MARSHALL)) {
+               DEBUG(0,("pipe_init_outgoing_data: malloc fail.\n"));
+               return False;
+       }
+
+       return True;
+}
+
+/****************************************************************************
+ Attempt to find a remote process to communicate RPC's with.
+****************************************************************************/
 
-               Pipes[i].rhdr.data  = NULL;
-               Pipes[i].rdata.data = NULL;
-               Pipes[i].rhdr.offset  = 0;
-               Pipes[i].rdata.offset = 0;
+static void attempt_remote_rpc_connect(pipes_struct *p)
+{
+       struct user_creds usr;
+       user_struct *vuser = get_valid_user_struct(p->vuid);
 
-               Pipes[i].max_rdata_len = 0;
-               Pipes[i].hdr_offsets   = 0;
+       p->m = NULL;
+
+       if (vuser == NULL) {
+               DEBUG(4,("attempt_remote_rpc_connect: invalid vuid %d\n", (int)p->vuid));
+               return;
        }
 
-       return;
+       ZERO_STRUCT(usr);
+
+       /* set up unix credentials from the smb side, to feed over the pipe */
+       make_creds_unix(&usr.uxc, vuser->user.unix_name, vuser->user.smb_name,
+                                       vuser->user.full_name, vuser->guest);
+       usr.ptr_uxc = 1;
+       make_creds_unix_sec(&usr.uxs, vuser->uid, vuser->gid,
+                                       vuser->n_groups, vuser->groups);
+       usr.ptr_uxs = 1;
+
+       usr.ptr_ssk = 1;
+       DEBUG(10,("user session key not available (yet).\n"));
+       DEBUG(10,("password-change operations may fail.\n"));
+
+#if USER_SESSION_KEY_DEFINED_IN_VUSER_STRUCT
+       memcpy(usr.usr_sess_key, vuser->usr_sess_key, sizeof(usr.usr_sess_key));
+#else
+       memset(usr.usr_sess_key, 0, sizeof(usr.usr_sess_key));
+#endif
+
+       /* set up nt credentials from the smb side, to feed over the pipe */
+       /* lkclXXXX todo!
+       make_creds_nt(&usr.ntc);
+       make_creds_nt_sec(&usr.nts);
+       */
+
+       become_root(); /* to connect to pipe */
+       p->m = msrpc_use_add(p->name, sys_getpid(), &usr, False);
+       unbecome_root();
+
+       if (p->m == NULL)
+               DEBUG(10,("attempt_remote_rpc_connect: msrpc redirect failed - using local implementation.\n"));
 }
 
 /****************************************************************************
-  find first available file slot
+ Find first available pipe slot.
 ****************************************************************************/
-int open_rpc_pipe_hnd(char *pipe_name, int cnum, uint16 vuid)
+
+pipes_struct *open_rpc_pipe_p(char *pipe_name, 
+                             connection_struct *conn, uint16 vuid)
 {
        int i;
-       /* we start at 1 here for an obscure reason I can't now remember,
-       but I think is important :-) */
-       for (i = 1; i < MAX_OPEN_PIPES; i++)
-       {
-               if (!Pipes[i].open)
-               {
-                       Pipes[i].open = True;
-                       Pipes[i].device_state = 0;
-                       Pipes[i].cnum = cnum;
-                       Pipes[i].uid  = vuid;
+       pipes_struct *p;
+       static int next_pipe;
+
+       DEBUG(4,("Open pipe requested %s (pipes_open=%d)\n",
+                pipe_name, pipes_open));
 
-                       Pipes[i].rhdr.data  = NULL;
-                       Pipes[i].rdata.data = NULL;
-                       Pipes[i].rhdr.offset  = 0;
-                       Pipes[i].rdata.offset = 0;
+       
+       /* not repeating pipe numbers makes it easier to track things in 
+          log files and prevents client bugs where pipe numbers are reused
+          over connection restarts */
+       if (next_pipe == 0)
+               next_pipe = (sys_getpid() ^ time(NULL)) % MAX_OPEN_PIPES;
 
-                       Pipes[i].max_rdata_len = 0;
-                       Pipes[i].hdr_offsets   = 0;
+       i = bitmap_find(bmap, next_pipe);
 
-                       fstrcpy(Pipes[i].name, pipe_name);
+       if (i == -1) {
+               DEBUG(0,("ERROR! Out of pipe structures\n"));
+               return NULL;
+       }
 
-                       DEBUG(4,("Opened pipe %s with handle %x\n",
-                                  pipe_name, i + PIPE_HANDLE_OFFSET));
+       next_pipe = (i+1) % MAX_OPEN_PIPES;
 
-                       set_chain_pnum(i);
+       for (p = Pipes; p; p = p->next)
+               DEBUG(5,("open pipes: name %s pnum=%x\n", p->name, p->pnum));  
 
-                       return(i);
-               }
+       p = (pipes_struct *)malloc(sizeof(*p));
+
+       if (!p)
+               return NULL;
+
+       ZERO_STRUCTP(p);
+
+       DLIST_ADD(Pipes, p);
+
+       /*
+        * Initialize the incoming RPC data buffer with one PDU worth of memory.
+        * We cheat here and say we're marshalling, as we intend to add incoming
+        * data directly into the prs_struct and we want it to auto grow. We will
+        * change the type to UNMARSALLING before processing the stream.
+        */
+
+       if(!prs_init(&p->in_data.data, MAX_PDU_FRAG_LEN, 4, MARSHALL)) {
+               DEBUG(0,("open_rpc_pipe_p: malloc fail for in_data struct.\n"));
+               return NULL;
        }
 
-       DEBUG(1,("ERROR! Out of pipe structures - perhaps increase MAX_OPEN_PIPES?\n"));
+       bitmap_set(bmap, i);
+       i += pipe_handle_offset;
+
+       pipes_open++;
+
+       p->pnum = i;
+
+       p->open = True;
+       p->device_state = 0;
+       p->priority = 0;
+       p->conn = conn;
+       p->vuid  = vuid;
+
+       p->max_trans_reply = 0;
+       
+       p->ntlmssp_chal_flags = 0;
+       p->ntlmssp_auth_validated = False;
+       p->ntlmssp_auth_requested = False;
+
+       p->pipe_bound = False;
+       p->fault_state = False;
+
+       /*
+        * Initialize the incoming RPC struct.
+        */
+
+       p->in_data.pdu_needed_len = 0;
+       p->in_data.pdu_received_len = 0;
+
+       /*
+        * Initialize the outgoing RPC struct.
+        */
+
+       p->out_data.current_pdu_len = 0;
+       p->out_data.current_pdu_sent = 0;
+       p->out_data.data_sent_length = 0;
+
+       /*
+        * Initialize the outgoing RPC data buffer with no memory.
+        */     
+       prs_init(&p->out_data.rdata, 0, 4, MARSHALL);
+       
+       p->uid = (uid_t)-1;
+       p->gid = (gid_t)-1;
+       
+       fstrcpy(p->name, pipe_name);
+       
+#if 0
+
+   Comment out until memory leak fixed. JRA.
+
+       /*
+        * For Luke - attempt to connect to RPC redirect process.
+        */
 
-       return(-1);
+       attempt_remote_rpc_connect(p);
+#endif
+
+       DEBUG(4,("Opened pipe %s with handle %x (pipes_open=%d)\n",
+                pipe_name, i, pipes_open));
+       
+       chain_p = p;
+       
+       /* OVERWRITE p as a temp variable, to display all open pipes */ 
+       for (p = Pipes; p; p = p->next)
+               DEBUG(5,("open pipes: name %s pnum=%x\n", p->name, p->pnum));  
+
+       return chain_p;
 }
 
 /****************************************************************************
- reads data from a pipe.
+ Sets the fault state on incoming packets.
+****************************************************************************/
 
- headers are interspersed with the data at regular intervals.  by the time
- this function is called, the start of the data could possibly have been
- read by an SMBtrans (max_rdata_len != 0).
+static void set_incoming_fault(pipes_struct *p)
+{
+       prs_mem_free(&p->in_data.data);
+       p->in_data.pdu_needed_len = 0;
+       p->in_data.pdu_received_len = 0;
+       p->fault_state = True;
+       DEBUG(10,("set_incoming_fault: Setting fault state on pipe %s : pnum = 0x%x\n",
+               p->name, p->pnum ));
+}
 
- calling create_rpc_request() here is a fudge.  the data should already
- have been prepared into arrays of headers + data stream sections.
+/****************************************************************************
+ Ensures we have at least RPC_HEADER_LEN amount of data in the incoming buffer.
+****************************************************************************/
 
- ****************************************************************************/
-int read_pipe(uint16 pnum, char *data, uint32 pos, int n)
+static ssize_t fill_rpc_header(pipes_struct *p, char *data, size_t data_to_copy)
 {
-       int data_pos = pos;
-       pipes_struct *p = &Pipes[pnum - PIPE_HANDLE_OFFSET];
-       DEBUG(6,("read_pipe: %x", pnum));
+       size_t len_needed_to_complete_hdr = MIN(data_to_copy, RPC_HEADER_LEN - p->in_data.pdu_received_len);
 
-       if (VALID_PNUM(pnum - PIPE_HANDLE_OFFSET))
-       {
-               DEBUG(6,("name: %s cnum: %d open: %s data_pos: %lx len: %lx",
-                         p->name,
-                         p->cnum,
-                         BOOLSTR(p->open),
-                         data_pos, n));
+       DEBUG(10,("fill_rpc_header: data_to_copy = %u, len_needed_to_complete_hdr = %u, receive_len = %u\n",
+                       (unsigned int)data_to_copy, (unsigned int)len_needed_to_complete_hdr,
+                       (unsigned int)p->in_data.pdu_received_len ));
+
+       memcpy((char *)&p->in_data.current_in_pdu[p->in_data.pdu_received_len], data, len_needed_to_complete_hdr);
+       p->in_data.pdu_received_len += len_needed_to_complete_hdr;
+
+       return (ssize_t)len_needed_to_complete_hdr;
+}
+
+/****************************************************************************
+ Unmarshalls a new PDU header. Assumes the raw header data is in current_in_pdu.
+****************************************************************************/
+
+static ssize_t unmarshall_rpc_header(pipes_struct *p)
+{
+       /*
+        * Unmarshall the header to determine the needed length.
+        */
+
+       prs_struct rpc_in;
+
+       if(p->in_data.pdu_received_len != RPC_HEADER_LEN) {
+               DEBUG(0,("unmarshall_rpc_header: assert on rpc header length failed.\n"));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       prs_init( &rpc_in, 0, 4, UNMARSHALL);
+       prs_give_memory( &rpc_in, (char *)&p->in_data.current_in_pdu[0],
+                                       p->in_data.pdu_received_len, False);
+
+       /*
+        * Unmarshall the header as this will tell us how much
+        * data we need to read to get the complete pdu.
+        */
+
+       if(!smb_io_rpc_hdr("", &p->hdr, &rpc_in, 0)) {
+               DEBUG(0,("unmarshall_rpc_header: failed to unmarshall RPC_HDR.\n"));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       /*
+        * Validate the RPC header.
+        */
+
+       if(p->hdr.major != 5 && p->hdr.minor != 0) {
+               DEBUG(0,("unmarshall_rpc_header: invalid major/minor numbers in RPC_HDR.\n"));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       /*
+        * If there is no data in the incoming buffer and it's a requst pdu then
+        * ensure that the FIRST flag is set. If not then we have
+        * a stream missmatch.
+        */
+
+       if((p->hdr.pkt_type == RPC_REQUEST) && (prs_offset(&p->in_data.data) == 0) && !(p->hdr.flags & RPC_FLG_FIRST)) {
+               DEBUG(0,("unmarshall_rpc_header: FIRST flag not set in first PDU !\n"));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       /*
+        * Ensure that the pdu length is sane.
+        */
+
+       if((p->hdr.frag_len < RPC_HEADER_LEN) || (p->hdr.frag_len > MAX_PDU_FRAG_LEN)) {
+               DEBUG(0,("unmarshall_rpc_header: assert on frag length failed.\n"));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       DEBUG(10,("unmarshall_rpc_header: type = %u, flags = %u\n", (unsigned int)p->hdr.pkt_type,
+                       (unsigned int)p->hdr.flags ));
+
+       /*
+        * Adjust for the header we just ate.
+        */
+       p->in_data.pdu_received_len = 0;
+       p->in_data.pdu_needed_len = (uint32)p->hdr.frag_len - RPC_HEADER_LEN;
+
+       /*
+        * Null the data we just ate.
+        */
+
+       memset((char *)&p->in_data.current_in_pdu[0], '\0', RPC_HEADER_LEN);
+
+       return 0; /* No extra data processed. */
+}
+
+/****************************************************************************
+ Processes a request pdu. This will do auth processing if needed, and
+ appends the data into the complete stream if the LAST flag is not set.
+****************************************************************************/
+
+static BOOL process_request_pdu(pipes_struct *p, prs_struct *rpc_in_p)
+{
+       BOOL auth_verify = IS_BITS_SET_ALL(p->ntlmssp_chal_flags, NTLMSSP_NEGOTIATE_SIGN);
+       size_t data_len = p->hdr.frag_len - RPC_HEADER_LEN - RPC_HDR_REQ_LEN -
+                               (auth_verify ? RPC_HDR_AUTH_LEN : 0) - p->hdr.auth_len;
+
+       if(!p->pipe_bound) {
+               DEBUG(0,("process_request_pdu: rpc request with no bind.\n"));
+               set_incoming_fault(p);
+               return False;
+       }
+
+       /*
+        * Check if we need to do authentication processing.
+        * This is only done on requests, not binds.
+        */
+
+       /*
+        * Read the RPC request header.
+        */
+
+       if(!smb_io_rpc_hdr_req("req", &p->hdr_req, rpc_in_p, 0)) {
+               DEBUG(0,("process_request_pdu: failed to unmarshall RPC_HDR_REQ.\n"));
+               set_incoming_fault(p);
+               return False;
        }
 
-       if (OPEN_PNUM(pnum - PIPE_HANDLE_OFFSET))
+       if(p->ntlmssp_auth_validated && !api_pipe_auth_process(p, rpc_in_p)) {
+               DEBUG(0,("process_request_pdu: failed to do auth processing.\n"));
+               set_incoming_fault(p);
+               return False;
+       }
+
+       if (p->ntlmssp_auth_requested && !p->ntlmssp_auth_validated) {
+
+               /*
+                * Authentication _was_ requested and it already failed.
+                */
+
+               DEBUG(0,("process_request_pdu: RPC request received on pipe %s where \
+authentication failed. Denying the request.\n", p->name));
+               set_incoming_fault(p);
+        return False;
+    }
+
+       /*
+        * Check the data length doesn't go over the 1Mb limit.
+        */
+       
+       if(prs_data_size(&p->in_data.data) + data_len > 1024*1024) {
+               DEBUG(0,("process_request_pdu: rpc data buffer too large (%u) + (%u)\n",
+                               (unsigned int)prs_data_size(&p->in_data.data), (unsigned int)data_len ));
+               set_incoming_fault(p);
+               return False;
+       }
+
+       /*
+        * Append the data portion into the buffer and return.
+        */
+
        {
-               int num = 0;
-               int len = 0;
-               uint32 hdr_num = 0;
-               uint32 rpc_frag_pos = 0;
+               char *data_from = prs_data_p(rpc_in_p) + prs_offset(rpc_in_p);
 
-               DEBUG(6,("OK\n"));
+               if(!prs_append_data(&p->in_data.data, data_from, data_len)) {
+                       DEBUG(0,("process_request_pdu: Unable to append data size %u to parse buffer of size %u.\n",
+                                       (unsigned int)data_len, (unsigned int)prs_data_size(&p->in_data.data) ));
+                       set_incoming_fault(p);
+                       return False;
+               }
 
-               if (p->rhdr.data == NULL || p->rhdr.data->data == NULL ||
-                   p->rhdr.data->data_used == 0)
+       }
+
+       if(p->hdr.flags & RPC_FLG_LAST) {
+               BOOL ret = False;
+               /*
+                * Ok - we finally have a complete RPC stream.
+                * Call the rpc command to process it.
+                */
+
+               /*
+                * Ensure the internal prs buffer size is *exactly* the same
+                * size as the current offset.
+                */
+
+               if(!prs_set_buffer_size(&p->in_data.data, prs_offset(&p->in_data.data)))
                {
-                       return 0;
+                       DEBUG(0,("process_request_pdu: Call to prs_set_buffer_size failed!\n"));
+                       set_incoming_fault(p);
+                       return False;
                }
 
-               DEBUG(6,("read_pipe: p: %p max_rdata_len: %d data_pos: %d num: %d\n",
-                         p, p->max_rdata_len, data_pos, num));
+               /*
+                * Set the parse offset to the start of the data and set the
+                * prs_struct to UNMARSHALL.
+                */
 
-               /* the read request starts from where the SMBtrans2 left off. */
-               data_pos += p->max_rdata_len;
+               prs_set_offset(&p->in_data.data, 0);
+               prs_switch_type(&p->in_data.data, UNMARSHALL);
 
-               rpc_frag_pos = data_pos % p->hdr.frag_len;
+               /*
+                * Process the complete data stream here.
+                */
 
-               /* headers accumulate an offset */
-               data_pos -= p->hdr_offsets;
+               if(pipe_init_outgoing_data(&p->out_data))
+                       ret = api_pipe_request(p);
 
-               len = mem_buf_len(p->rhdr.data);
-               num = len - (int)data_pos;
+               /*
+                * We have consumed the whole data stream. Set back to
+                * marshalling and set the offset back to the start of
+                * the buffer to re-use it (we could also do a prs_mem_free()
+                * and then re_init on the next start of PDU. Not sure which
+                * is best here.... JRA.
+                */
 
-               if (num > n) num = n;
+               prs_switch_type(&p->in_data.data, MARSHALL);
+               prs_set_offset(&p->in_data.data, 0);
+               return ret;
+       }
 
-               if (!IS_BITS_SET_ALL(p->hdr.flags, RPC_FLG_LAST))
-               {
-                       DEBUG(5,("read_pipe: hdr_offsets: %d rpc_frag_pos: %d frag_len: %d\n",
-                                 p->hdr_offsets, rpc_frag_pos, p->hdr.frag_len));
+       return True;
+}
 
-                       if (rpc_frag_pos == 0)
-                       {
-                               /* this is subtracted from the total data bytes, later */
-                               hdr_num = 0x18;
+/****************************************************************************
+ Processes a finished PDU stored in current_in_pdu. The RPC_HEADER has
+ already been parsed and stored in p->hdr.
+****************************************************************************/
 
-                               /* create and copy in a new header. */
-                               create_rpc_reply(p, data_pos, p->rdata.offset);
-                               mem_buf_copy(data, p->rhdr.data, 0, 0x18);
+static ssize_t process_complete_pdu(pipes_struct *p)
+{
+       prs_struct rpc_in;
+       size_t data_len = p->in_data.pdu_received_len;
+       char *data_p = (char *)&p->in_data.current_in_pdu[0];
+       BOOL reply = False;
+
+       if(p->fault_state) {
+               DEBUG(10,("process_complete_pdu: pipe %s in fault state.\n",
+                       p->name ));
+               set_incoming_fault(p);
+               setup_fault_pdu(p);
+               return (ssize_t)data_len;
+       }
 
-                               /* make room in data stream for header */
-                               p->hdr_offsets += 0x18;
-                               data += 0x18;
+       prs_init( &rpc_in, 0, 4, UNMARSHALL);
+       prs_give_memory( &rpc_in, data_p, (uint32)data_len, False);
+
+       DEBUG(10,("process_complete_pdu: processing packet type %u\n",
+                       (unsigned int)p->hdr.pkt_type ));
+
+       switch (p->hdr.pkt_type) {
+               case RPC_BIND:
+               case RPC_ALTCONT:
+                       /*
+                        * We assume that a pipe bind is only in one pdu.
+                        */
+                       if(pipe_init_outgoing_data(&p->out_data))
+                               reply = api_pipe_bind_req(p, &rpc_in);
+                       break;
+               case RPC_BINDRESP:
+                       /*
+                        * We assume that a pipe bind_resp is only in one pdu.
+                        */
+                       if(pipe_init_outgoing_data(&p->out_data))
+                               reply = api_pipe_bind_auth_resp(p, &rpc_in);
+                       break;
+               case RPC_REQUEST:
+                       reply = process_request_pdu(p, &rpc_in);
+                       break;
+               default:
+                       DEBUG(0,("process_complete_pdu: Unknown rpc type = %u received.\n", (unsigned int)p->hdr.pkt_type ));
+                       break;
+       }
 
-                               DEBUG(6,("read_pipe: hdr_offsets: %d\n", p->hdr_offsets));
-                       }
-               }
+       if (!reply) {
+               DEBUG(3,("process_complete_pdu: DCE/RPC fault sent on pipe %s\n", p->pipe_srv_name));
+               set_incoming_fault(p);
+               setup_fault_pdu(p);
+       } else {
+               /*
+                * Reset the lengths. We're ready for a new pdu.
+                */
+               p->in_data.pdu_needed_len = 0;
+               p->in_data.pdu_received_len = 0;
+       }
 
-               if (num > 0)
-               {
-                       DEBUG(6,("read_pipe: adjusted data_pos: %d num: %d\n",
-                                 data_pos, num - hdr_num));
-                       mem_buf_copy(data, p->rhdr.data, data_pos, num - hdr_num);
+       return (ssize_t)data_len;
+}
 
-                       return num;
+/****************************************************************************
+ Accepts incoming data on an rpc pipe. Processes the data in pdu sized units.
+****************************************************************************/
+
+static ssize_t process_incoming_data(pipes_struct *p, char *data, size_t n)
+{
+       size_t data_to_copy = MIN(n, MAX_PDU_FRAG_LEN - p->in_data.pdu_received_len);
+
+       DEBUG(10,("process_incoming_data: Start: pdu_received_len = %u, pdu_needed_len = %u, incoming data = %u\n",
+               (unsigned int)p->in_data.pdu_received_len, (unsigned int)p->in_data.pdu_needed_len,
+               (unsigned int)n ));
+
+       if(data_to_copy == 0) {
+               /*
+                * This is an error - data is being received and there is no
+                * space in the PDU. Free the received data and go into the fault state.
+                */
+               DEBUG(0,("process_incoming_data: No space in incoming pdu buffer. Current size = %u \
+incoming data size = %u\n", (unsigned int)p->in_data.pdu_received_len, (unsigned int)n ));
+               set_incoming_fault(p);
+               return -1;
+       }
+
+       /*
+        * If we have no data already, wait until we get at least a RPC_HEADER_LEN
+        * number of bytes before we can do anything.
+        */
+
+       if((p->in_data.pdu_needed_len == 0) && (p->in_data.pdu_received_len < RPC_HEADER_LEN)) {
+               /*
+                * Always return here. If we have more data then the RPC_HEADER
+                * will be processed the next time around the loop.
+                */
+               return fill_rpc_header(p, data, data_to_copy);
+       }
+
+       /*
+        * At this point we know we have at least an RPC_HEADER_LEN amount of data
+        * stored in current_in_pdu.
+        */
+
+       /*
+        * If pdu_needed_len is zero this is a new pdu. 
+        * Unmarshall the header so we know how much more
+        * data we need, then loop again.
+        */
+
+       if(p->in_data.pdu_needed_len == 0)
+               return unmarshall_rpc_header(p);
+
+       /*
+        * Ok - at this point we have a valid RPC_HEADER in p->hdr.
+        * Keep reading until we have a full pdu.
+        */
+
+       data_to_copy = MIN(data_to_copy, p->in_data.pdu_needed_len);
+
+       /*
+        * Copy as much of the data as we need into the current_in_pdu buffer.
+        */
+
+       memcpy( (char *)&p->in_data.current_in_pdu[p->in_data.pdu_received_len], data, data_to_copy);
+       p->in_data.pdu_received_len += data_to_copy;
+
+       /*
+        * Do we have a complete PDU ?
+        */
+
+       if(p->in_data.pdu_received_len == p->in_data.pdu_needed_len)
+               return process_complete_pdu(p);
+
+       DEBUG(10,("process_incoming_data: not a complete PDU yet. pdu_received_len = %u, pdu_needed_len = %u\n",
+               (unsigned int)p->in_data.pdu_received_len, (unsigned int)p->in_data.pdu_needed_len ));
+
+       return (ssize_t)data_to_copy;
+
+}
+
+/****************************************************************************
+ Accepts incoming data on an rpc pipe.
+****************************************************************************/
+
+ssize_t write_to_pipe(pipes_struct *p, char *data, size_t n)
+{
+       size_t data_left = n;
+
+       DEBUG(6,("write_to_pipe: %x", p->pnum));
+
+       DEBUG(6,(" name: %s open: %s len: %d\n",
+                p->name, BOOLSTR(p->open), (int)n));
+
+       dump_data(50, data, n);
+
+       while(data_left) {
+               ssize_t data_used;
+
+               DEBUG(10,("write_to_pipe: data_left = %u\n", (unsigned int)data_left ));
+
+               /*
+                * Deal with the redirect to the remote RPC daemon.
+                */
+
+               if(p->m)
+                       data_used = write(p->m->fd, data, data_left);
+               else
+                       data_used = process_incoming_data(p, data, data_left);
+
+               DEBUG(10,("write_to_pipe: data_used = %d\n", (int)data_used ));
+
+               if(data_used < 0)
+                       return -1;
+
+               data_left -= data_used;
+               data += data_used;
+       }       
+
+       return n;
+}
+
+/****************************************************************************
+ Gets data from a remote TNG daemon. Gets data from the remote daemon into
+ the outgoing prs_struct.
+
+ NB. Note to Luke : This code will be broken until Luke implements a length
+ field before reply data...
+
+****************************************************************************/
+
+static BOOL read_from_remote(pipes_struct *p)
+{
+       uint32 data_len;
+       uint32 data_len_left;
+
+       if(prs_offset(&p->out_data.rdata) == 0) {
+
+               ssize_t len = 0;
+
+               /*
+                * Read all the reply data as a stream of pre-created
+                * PDU's from the remote deamon into the rdata struct.
+                */
+
+           /*
+                * Create the response data buffer.
+                */
+
+               if(!pipe_init_outgoing_data(&p->out_data)) {
+                       DEBUG(0,("read_from_remote: failed to create outgoing buffer.\n"));
+                       return False;
                }
 
-               return 0;
+               /* Read from remote here. */
+               if((len = read_with_timeout(p->m->fd, prs_data_p(&p->out_data.rdata), 1, 65536, 10000)) < 0) {
+                       DEBUG(0,("read_from_remote: failed to read from external daemon.\n"));
+                       prs_mem_free(&p->out_data.rdata);
+                       return False;
+               }
 
+               /* Set the length we got. */
+               prs_set_offset(&p->out_data.rdata, (uint32)len);
        }
-       else
-       {
-               DEBUG(6,("NOT\n"));
-               return -1;
+
+       /*
+        * The amount we send is the minimum of the available
+        * space and the amount left to send.
+        */
+
+       data_len_left = prs_offset(&p->out_data.rdata) - p->out_data.data_sent_length;
+
+       /*
+        * Ensure there really is data left to send.
+        */
+
+       if(!data_len_left) {
+               DEBUG(0,("read_from_remote: no data left to send !\n"));
+               return False;
        }
+
+       data_len = MIN(data_len_left, MAX_PDU_FRAG_LEN);
+
+       return False; /* Notfinished... */
 }
 
 /****************************************************************************
-  gets the name of a pipe
+ Replies to a request to read data from a pipe.
+
+ Headers are interspersed with the data at PDU intervals. By the time
+ this function is called, the start of the data could possibly have been
+ read by an SMBtrans (file_offset != 0).
+
+ Calling create_rpc_reply() here is a hack. The data should already
+ have been prepared into arrays of headers + data stream sections.
 ****************************************************************************/
-BOOL get_rpc_pipe(int pnum, pipes_struct **p)
+
+ssize_t read_from_pipe(pipes_struct *p, char *data, size_t n)
 {
-       DEBUG(6,("get_rpc_pipe: "));
+       uint32 pdu_remaining = 0;
+       ssize_t data_returned = 0;
 
-       /* mapping is PIPE_HANDLE_OFFSET up... */
+       if (!p || !p->open) {
+               DEBUG(0,("read_from_pipe: pipe not open\n"));
+               return -1;              
+       }
 
-       if (VALID_PNUM(pnum - PIPE_HANDLE_OFFSET))
-       {
-               DEBUG(6,("name: %s cnum: %d open: %s ",
-                         Pipes[pnum - PIPE_HANDLE_OFFSET].name,
-                         Pipes[pnum - PIPE_HANDLE_OFFSET].cnum,
-                         BOOLSTR(Pipes[pnum - PIPE_HANDLE_OFFSET].open)));
+       DEBUG(6,("read_from_pipe: %x", p->pnum));
+
+       DEBUG(6,(" name: %s len: %u\n", p->name, (unsigned int)n));
+
+       /*
+        * We cannot return more than one PDU length per
+        * read request.
+        */
+
+       if(n > MAX_PDU_FRAG_LEN) {
+               DEBUG(0,("read_from_pipe: loo large read (%u) requested on pipe %s. We can \
+only service %d sized reads.\n", (unsigned int)n, p->name, MAX_PDU_FRAG_LEN ));
+               return -1;
        }
-       if (OPEN_PNUM(pnum - PIPE_HANDLE_OFFSET))
-       {
-               DEBUG(6,("OK\n"));
-               (*p) = &(Pipes[pnum - PIPE_HANDLE_OFFSET]);
-               return True;
+
+       /*
+        * Determine if there is still data to send in the
+        * pipe PDU buffer. Always send this first. Never
+        * send more than is left in the current PDU. The
+        * client should send a new read request for a new
+        * PDU.
+        */
+
+       if((pdu_remaining = p->out_data.current_pdu_len - p->out_data.current_pdu_sent) > 0) {
+               data_returned = (ssize_t)MIN(n, pdu_remaining);
+
+               DEBUG(10,("read_from_pipe: %s: current_pdu_len = %u, current_pdu_sent = %u \
+returning %d bytes.\n", p->name, (unsigned int)p->out_data.current_pdu_len, 
+                       (unsigned int)p->out_data.current_pdu_sent, (int)data_returned));
+
+               memcpy( data, &p->out_data.current_pdu[p->out_data.current_pdu_sent], (size_t)data_returned);
+               p->out_data.current_pdu_sent += (uint32)data_returned;
+               return data_returned;
        }
-       else
-       {
-               DEBUG(6,("NOT\n"));
-               return False;
+
+       /*
+        * At this point p->current_pdu_len == p->current_pdu_sent (which
+        * may of course be zero if this is the first return fragment.
+        */
+
+       DEBUG(10,("read_from_pipe: %s: fault_state = %d : data_sent_length \
+= %u, prs_offset(&p->out_data.rdata) = %u.\n",
+               p->name, (int)p->fault_state, (unsigned int)p->out_data.data_sent_length, (unsigned int)prs_offset(&p->out_data.rdata) ));
+
+       if(p->out_data.data_sent_length >= prs_offset(&p->out_data.rdata)) {
+               /*
+                * We have sent all possible data. Return 0.
+                */
+               return 0;
        }
+
+       if(p->m) {
+               /*
+                * Remote to the RPC daemon.
+                */
+               if(!read_from_remote(p)) {
+                       DEBUG(0,("read_from_pipe: %s: read_from_remote failed.\n", p->name ));
+                       return -1;
+               }
+
+       } else {
+
+               /*
+                * We need to create a new PDU from the data left in p->rdata.
+                * Create the header/data/footers. This also sets up the fields
+                * p->current_pdu_len, p->current_pdu_sent, p->data_sent_length
+                * and stores the outgoing PDU in p->current_pdu.
+                */
+
+               if(!create_next_pdu(p)) {
+                       DEBUG(0,("read_from_pipe: %s: create_next_pdu failed.\n", p->name));
+                       return -1;
+               }
+       }
+
+       data_returned = MIN(n, p->out_data.current_pdu_len);
+
+       memcpy( data, p->out_data.current_pdu, (size_t)data_returned);
+       p->out_data.current_pdu_sent += (uint32)data_returned;
+       return data_returned;
 }
 
 /****************************************************************************
-  gets the name of a pipe
+ Wait device state on a pipe. Exactly what this is for is unknown...
 ****************************************************************************/
-char *get_rpc_pipe_hnd_name(int pnum)
+
+BOOL wait_rpc_pipe_hnd_state(pipes_struct *p, uint16 priority)
 {
-       pipes_struct *p = NULL;
-       get_rpc_pipe(pnum, &p);
-       return p != NULL ? p->name : NULL;
+       if (p == NULL)
+               return False;
+
+       if (p->open) {
+               DEBUG(3,("wait_rpc_pipe_hnd_state: Setting pipe wait state priority=%x on pipe (name=%s)\n",
+                        priority, p->name));
+
+               p->priority = priority;
+               
+               return True;
+       } 
+
+       DEBUG(3,("wait_rpc_pipe_hnd_state: Error setting pipe wait state priority=%x (name=%s)\n",
+                priority, p->name));
+       return False;
 }
 
+
 /****************************************************************************
 set device state on a pipe.  exactly what this is for is unknown...
Set device state on a pipe. Exactly what this is for is unknown...
 ****************************************************************************/
+
 BOOL set_rpc_pipe_hnd_state(pipes_struct *p, uint16 device_state)
 {
-       if (p == NULL) return False;
+       if (p == NULL)
+               return False;
 
-       if (P_OPEN(p))
-       {
-               DEBUG(3,("%s Setting pipe device state=%x on pipe (name=%s cnum=%d)\n",
-                        timestring(), device_state, p->name, p->cnum));
+       if (p->open) {
+               DEBUG(3,("set_rpc_pipe_hnd_state: Setting pipe device state=%x on pipe (name=%s)\n",
+                        device_state, p->name));
 
                p->device_state = device_state;
-   
+               
                return True;
-       }
-       else
-       {
-               DEBUG(3,("%s Error setting pipe device state=%x (name=%s cnum=%d)\n",
-                         timestring(), device_state, p->name, p->cnum));
+       } 
+
+       DEBUG(3,("set_rpc_pipe_hnd_state: Error setting pipe device state=%x (name=%s)\n",
+                device_state, p->name));
+       return False;
+}
+
+
+/****************************************************************************
+ Close an rpc pipe.
+****************************************************************************/
+
+BOOL close_rpc_pipe_hnd(pipes_struct *p, connection_struct *conn)
+{
+       if (!p) {
+               DEBUG(0,("Invalid pipe in close_rpc_pipe_hnd\n"));
                return False;
        }
+
+       prs_mem_free(&p->out_data.rdata);
+       prs_mem_free(&p->in_data.data);
+
+       bitmap_clear(bmap, p->pnum - pipe_handle_offset);
+
+       pipes_open--;
+
+       if (p->m != NULL) {
+               DEBUG(4,("close_rpc_pipe_hnd: closing msrpc redirect: "));
+               if (msrpc_use_del(p->m->pipe_name, &p->m->usr, False, NULL))
+                       DEBUG(4,("OK\n"));
+               else
+                       DEBUG(4,("FAILED\n"));
+       }
+
+       DEBUG(4,("closed pipe name %s pnum=%x (pipes_open=%d)\n", 
+                p->name, p->pnum, pipes_open));  
+
+       DLIST_REMOVE(Pipes, p);
+
+       ZERO_STRUCTP(p);
+
+       free(p);
+       
+       return True;
 }
 
 /****************************************************************************
-  close an rpc pipe
+ Find an rpc pipe given a pipe handle in a buffer and an offset.
 ****************************************************************************/
-BOOL close_rpc_pipe_hnd(int pnum, int cnum)
+
+pipes_struct *get_rpc_pipe_p(char *buf, int where)
 {
-       pipes_struct *p = NULL;
-       get_rpc_pipe(pnum, &p);
-  /* mapping is PIPE_HANDLE_OFFSET up... */
-
-  if (p != NULL && P_OK(p, cnum))
-  {
-    DEBUG(3,("%s Closed pipe name %s pnum=%x cnum=%d\n",
-          timestring(),Pipes[pnum-PIPE_HANDLE_OFFSET].name, pnum,cnum));
-  
-    p->open = False;
-
-       p->rdata.offset = 0;
-       p->rhdr.offset = 0;
-       mem_buf_free(&(p->rdata.data));
-       mem_buf_free(&(p->rhdr .data));
-
-    return True;
-  }
-  else
-  {
-    DEBUG(3,("%s Error closing pipe pnum=%x cnum=%d\n",
-          timestring(),pnum, cnum));
-    return False;
-  }
+       int pnum = SVAL(buf,where);
+
+       if (chain_p)
+               return chain_p;
+
+       return get_rpc_pipe(pnum);
 }
 
 /****************************************************************************
-  close an rpc pipe
+ Find an rpc pipe given a pipe handle.
 ****************************************************************************/
-int get_rpc_pipe_num(char *buf, int where)
+
+pipes_struct *get_rpc_pipe(int pnum)
 {
-       return (chain_pnum != -1 ? chain_pnum : SVAL(buf,where));
+       pipes_struct *p;
+
+       DEBUG(4,("search for pipe pnum=%x\n", pnum));
+
+       for (p=Pipes;p;p=p->next)
+               DEBUG(5,("pipe name %s pnum=%x (pipes_open=%d)\n", 
+                         p->name, p->pnum, pipes_open));  
+
+       for (p=Pipes;p;p=p->next) {
+               if (p->pnum == pnum) {
+                       chain_p = p;
+                       return p;
+               }
+       }
+
+       return NULL;
 }
 
+#undef OLD_NTDOMAIN