torture3: Fix CID 1435119 Error handling issues (CHECKED_RETURN)
[samba.git] / source3 / lib / util_file.c
index 77c0d7888e89cc00905d541a8c210def2283d999..d3139e55b57eb76417118dd7e2d3d3e9a374715b 100644 (file)
 /*
- * Unix SMB/Netbios implementation. Version 1.9. SMB parameters and setup
+ * Unix SMB/CIFS implementation.
+ * SMB parameters and setup
  * Copyright (C) Andrew Tridgell 1992-1998 Modified by Jeremy Allison 1995.
- * 
+ *
  * 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)
+ * Software Foundation; either version 3 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.
+ * this program; if not, see <http://www.gnu.org/licenses/>.
  */
 
-#include "includes.h"
-
-static int gotalarm;
-
-/***************************************************************
- Signal function to tell us we timed out.
-****************************************************************/
-
-static void gotalarm_sig(void)
-{
-  gotalarm = 1;
-}
-
-/***************************************************************
- Lock or unlock a fd for a known lock type. Abandon after waitsecs 
- seconds.
-****************************************************************/
-
-BOOL do_file_lock(int fd, int waitsecs, int type)
-{
-  SMB_STRUCT_FLOCK lock;
-  int             ret;
-
-  gotalarm = 0;
-  CatchSignal(SIGALRM, SIGNAL_CAST gotalarm_sig);
-
-  lock.l_type = type;
-  lock.l_whence = SEEK_SET;
-  lock.l_start = 0;
-  lock.l_len = 1;
-  lock.l_pid = 0;
-
-  alarm(waitsecs);
-  ret = fcntl(fd, SMB_F_SETLKW, &lock);
-  alarm(0);
-  CatchSignal(SIGALRM, SIGNAL_CAST SIG_DFL);
-
-  if (gotalarm) {
-    DEBUG(0, ("do_file_lock: failed to %s file.\n",
-                type == F_UNLCK ? "unlock" : "lock"));
-    return False;
-  }
-
-  return (ret == 0);
-}
-
-
-/***************************************************************
- Lock an fd. Abandon after waitsecs seconds.
-****************************************************************/
-
-BOOL file_lock(int fd, int type, int secs, int *plock_depth)
-{
-  if (fd < 0)
-    return False;
-
-  (*plock_depth)++;
-
-  if ((*plock_depth) == 0)
-  {
-    if (!do_file_lock(fd, secs, type)) {
-      DEBUG(10,("file_lock: locking file failed, error = %s.\n",
-                 strerror(errno)));
-      return False;
-    }
-  }
-
-  return True;
-}
+#include "replace.h"
+#include "lib/util_file.h"
+#include "lib/util/debug.h"
+#include "lib/util/samba_util.h"
+#include "lib/util/sys_rw.h"
+#include "lib/sys_popen.h"
+#include "lib/async_req/async_sock.h"
+#include "lib/util/tevent_unix.h"
+
+struct file_pload_state {
+       struct tevent_context *ev;
+       size_t maxsize;
+       int fd;
+       uint8_t *buf;
+};
 
-/***************************************************************
- Unlock an fd. Abandon after waitsecs seconds.
-****************************************************************/
+static int file_pload_state_destructor(struct file_pload_state *s);
+static void file_pload_readable(struct tevent_req *subreq);
 
-BOOL file_unlock(int fd, int *plock_depth)
+struct tevent_req *file_pload_send(TALLOC_CTX *mem_ctx,
+                                  struct tevent_context *ev,
+                                  const char *syscmd, size_t maxsize)
 {
-  BOOL ret=True;
+       struct tevent_req *req, *subreq;
+       struct file_pload_state *state;
 
-  if(*plock_depth == 1)
-    ret = do_file_lock(fd, 5, F_UNLCK);
+       req = tevent_req_create(mem_ctx, &state, struct file_pload_state);
+       if (req == NULL) {
+               return NULL;
+       }
+       state->ev = ev;
+       state->maxsize = maxsize;
 
-  (*plock_depth)--;
+       state->fd = sys_popen(syscmd);
+       if (state->fd == -1) {
+               tevent_req_error(req, errno);
+               return tevent_req_post(req, ev);
+       }
+       talloc_set_destructor(state, file_pload_state_destructor);
 
-  if(!ret)
-    DEBUG(10,("file_unlock: unlocking file failed, error = %s.\n",
-                 strerror(errno)));
-  return ret;
+       subreq = wait_for_read_send(state, state->ev, state->fd, false);
+       if (tevent_req_nomem(subreq, req)) {
+               return tevent_req_post(req, ev);
+       }
+       tevent_req_set_callback(subreq, file_pload_readable, req);
+       return req;
 }
 
-/***************************************************************
- locks a file for enumeration / modification.
- update to be set = True if modification is required.
-****************************************************************/
-
-void *startfilepwent(char *pfile, char *s_readbuf, int bufsize,
-                               int *file_lock_depth, BOOL update)
+static int file_pload_state_destructor(struct file_pload_state *s)
 {
-  FILE *fp = NULL;
-
-  if (!*pfile)
- {
-    DEBUG(0, ("startfilepwent: No file set\n"));
-    return (NULL);
-  }
-  DEBUG(10, ("startfilepwent: opening file %s\n", pfile));
-
-  fp = sys_fopen(pfile, update ? "r+b" : "rb");
-
-  if (fp == NULL) {
-    DEBUG(0, ("startfilepwent: unable to open file %s\n", pfile));
-    return NULL;
-  }
-
-  /* Set a buffer to do more efficient reads */
-  setvbuf(fp, s_readbuf, _IOFBF, bufsize);
+       if (s->fd != -1) {
+               sys_pclose(s->fd);
+               s->fd = -1;
+       }
+       return 0;
+}
+
+static void file_pload_readable(struct tevent_req *subreq)
+{
+       struct tevent_req *req = tevent_req_callback_data(
+               subreq, struct tevent_req);
+       struct file_pload_state *state = tevent_req_data(
+               req, struct file_pload_state);
+       uint8_t buf[1024];
+       uint8_t *tmp;
+       ssize_t nread;
+       size_t bufsize;
+       int err;
+       bool ok;
+
+       ok = wait_for_read_recv(subreq, &err);
+       TALLOC_FREE(subreq);
+       if (!ok) {
+               tevent_req_error(req, err);
+               return;
+       }
 
-  if (!file_lock(fileno(fp), (update ? F_WRLCK : F_RDLCK), 5, file_lock_depth))
-  {
-    DEBUG(0, ("startfilepwent: unable to lock file %s\n", pfile));
-    fclose(fp);
-    return NULL;
-  }
+       nread = sys_read(state->fd, buf, sizeof(buf));
+       if (nread == -1) {
+               tevent_req_error(req, errno);
+               return;
+       }
+       if (nread == 0) {
+               tevent_req_done(req);
+               return;
+       }
 
-  /* Make sure it is only rw by the owner */
-  chmod(pfile, 0600);
+       bufsize = talloc_get_size(state->buf);
 
-  /* We have a lock on the file. */
-  return (void *)fp;
-}
+       if (((bufsize + nread) < bufsize) ||
+           ((bufsize + nread + 1) < bufsize)) {
+               /* overflow */
+               tevent_req_error(req, EMSGSIZE);
+               return;
+       }
 
-/***************************************************************
- End enumeration of the file.
-****************************************************************/
-void endfilepwent(void *vp, int *file_lock_depth)
-{
-  FILE *fp = (FILE *)vp;
+       if ((state->maxsize != 0) && ((bufsize + nread) > state->maxsize)) {
+               tevent_req_error(req, EMSGSIZE);
+               return;
+       }
 
-  file_unlock(fileno(fp), file_lock_depth);
-  fclose(fp);
-  DEBUG(7, ("endfilepwent: closed file.\n"));
-}
+       tmp = talloc_realloc(state, state->buf, uint8_t, bufsize + nread + 1);
+       if (tevent_req_nomem(tmp, req)) {
+               return;
+       }
+       state->buf = tmp;
 
-/*************************************************************************
- Return the current position in the file list as an SMB_BIG_UINT.
- This must be treated as an opaque token.
-*************************************************************************/
-SMB_BIG_UINT getfilepwpos(void *vp)
-{
-  return (SMB_BIG_UINT)sys_ftell((FILE *)vp);
-}
+       memcpy(state->buf + bufsize, buf, nread);
+       state->buf[bufsize+nread] = '\0';
 
-/*************************************************************************
- Set the current position in the file list from an SMB_BIG_UINT.
- This must be treated as an opaque token.
-*************************************************************************/
-BOOL setfilepwpos(void *vp, SMB_BIG_UINT tok)
-{
-  return !sys_fseek((FILE *)vp, (SMB_OFF_T)tok, SEEK_SET);
+       subreq = wait_for_read_send(state, state->ev, state->fd, false);
+       if (tevent_req_nomem(subreq, req)) {
+               return;
+       }
+       tevent_req_set_callback(subreq, file_pload_readable, req);
 }
 
-/*************************************************************************
- gets a line out of a file.
- line is of format "xxxx:xxxxxx:xxxxx:".
- lines with "#" at the front are ignored.
-*************************************************************************/
-int getfileline(void *vp, char *linebuf, int linebuf_size)
+int file_pload_recv(struct tevent_req *req, TALLOC_CTX *mem_ctx,
+                   uint8_t **buf)
 {
-       /* Static buffers we will return. */
-       FILE *fp = (FILE *)vp;
-       unsigned char   c;
-       unsigned char  *p;
-       size_t            linebuf_len;
-
-       if (fp == NULL)
-       {
-               DEBUG(0,("getfileline: Bad file pointer.\n"));
-               return -1;
-       }
-
-       /*
-        * Scan the file, a line at a time.
-        */
-       while (!feof(fp))
-       {
-               linebuf[0] = '\0';
-
-               fgets(linebuf, linebuf_size, fp);
-               if (ferror(fp))
-               {
-                       return -1;
-               }
+       struct file_pload_state *state = tevent_req_data(
+               req, struct file_pload_state);
+       int err;
 
-               /*
-                * Check if the string is terminated with a newline - if not
-                * then we must keep reading and discard until we get one.
-                */
-
-               linebuf_len = strlen(linebuf);
-               if (linebuf_len == 0)
-               {
-                       linebuf[0] = '\0';
-                       return 0;
-               }
-
-               if (linebuf[linebuf_len - 1] != '\n')
-               {
-                       c = '\0';
-                       while (!ferror(fp) && !feof(fp))
-                       {
-                               c = fgetc(fp);
-                               if (c == '\n')
-                               {
-                                       break;
-                               }
-                       }
-               }
-               else
-               {
-                       linebuf[linebuf_len - 1] = '\0';
-               }
-
-#ifdef DEBUG_PASSWORD
-               DEBUG(100, ("getfileline: got line |%s|\n", linebuf));
-#endif
-               if ((linebuf[0] == 0) && feof(fp))
-               {
-                       DEBUG(4, ("getfileline: end of file reached\n"));
-                       return 0;
-               }
-
-               if (linebuf[0] == '#' || linebuf[0] == '\0')
-               {
-                       DEBUG(6, ("getfileline: skipping comment or blank line\n"));
-                       continue;
-               }
-
-               p = (unsigned char *) strchr_m(linebuf, ':');
-               if (p == NULL)
-               {
-                       DEBUG(0, ("getfileline: malformed line entry (no :)\n"));
-                       continue;
-               }
-               return linebuf_len;
+       if (tevent_req_is_unix_error(req, &err)) {
+               return err;
        }
-       return -1;
-}
+       *buf = talloc_move(mem_ctx, &state->buf);
 
+       tevent_req_received(req);
 
-/****************************************************************************
-read a line from a file with possible \ continuation chars. 
-Blanks at the start or end of a line are stripped.
-The string will be allocated if s2 is NULL
-****************************************************************************/
-char *fgets_slash(char *s2,int maxlen,XFILE *f)
-{
-  char *s=s2;
-  int len = 0;
-  int c;
-  BOOL start_of_line = True;
-
-  if (x_feof(f))
-    return(NULL);
-
-  if (maxlen <2) return(NULL);
-
-  if (!s2)
-    {
-      maxlen = MIN(maxlen,8);
-      s = (char *)malloc(maxlen);
-    }
-
-  if (!s) return(NULL);
-
-  *s = 0;
-
-  while (len < maxlen-1)
-    {
-      c = x_getc(f);
-      switch (c)
-       {
-       case '\r':
-         break;
-       case '\n':
-         while (len > 0 && s[len-1] == ' ')
-           {
-             s[--len] = 0;
-           }
-         if (len > 0 && s[len-1] == '\\')
-           {
-             s[--len] = 0;
-             start_of_line = True;
-             break;
-           }
-         return(s);
-       case EOF:
-         if (len <= 0 && !s2) 
-           SAFE_FREE(s);
-         return(len>0?s:NULL);
-       case ' ':
-         if (start_of_line)
-           break;
-       default:
-         start_of_line = False;
-         s[len++] = c;
-         s[len] = 0;
-       }
-      if (!s2 && len > maxlen-3)
-       {
-         char *t;
-         
-         maxlen *= 2;
-         t = (char *)Realloc(s,maxlen);
-         if (!t) {
-           DEBUG(0,("fgets_slash: failed to expand buffer!\n"));
-           SAFE_FREE(s);
-           return(NULL);
-         } else s = t;
-       }
-    }
-  return(s);
+       return 0;
 }
 
+/**
+ Load from a pipe into memory.
+**/
 
-/****************************************************************************
-load from a pipe into memory
-****************************************************************************/
-char *file_pload(char *syscmd, size_t *size)
+static char *file_pload(const char *syscmd, size_t *size)
 {
        int fd, n;
-       char *p, *tp;
-       pstring buf;
+       char *p;
+       char buf[1024];
        size_t total;
-       
+
        fd = sys_popen(syscmd);
-       if (fd == -1) return NULL;
+       if (fd == -1) {
+               return NULL;
+       }
 
        p = NULL;
        total = 0;
 
-       while ((n = read(fd, buf, sizeof(buf))) > 0) {
-               tp = Realloc(p, total + n + 1);
-               if (!tp) {
-                       DEBUG(0,("file_pload: failed to exand buffer!\n"));
+       while ((n = sys_read(fd, buf, sizeof(buf))) > 0) {
+               p = talloc_realloc(NULL, p, char, total + n + 1);
+               if (!p) {
+                       DEBUG(0,("file_pload: failed to expand buffer!\n"));
                        close(fd);
-                       SAFE_FREE(p);
                        return NULL;
-               } else p = tp;
+               }
                memcpy(p+total, buf, n);
                total += n;
        }
-       if (p) p[total] = 0;
-
-       sys_pclose(fd);
-
-       if (size) *size = total;
-
-       return p;
-}
-
-/****************************************************************************
-load a file into memory from a fd.
-****************************************************************************/ 
-
-char *fd_load(int fd, size_t *size)
-{
-       SMB_STRUCT_STAT sbuf;
-       char *p;
 
-       if (sys_fstat(fd, &sbuf) != 0) return NULL;
-
-       p = (char *)malloc(sbuf.st_size+1);
-       if (!p) return NULL;
-
-       if (read(fd, p, sbuf.st_size) != sbuf.st_size) {
-               SAFE_FREE(p);
-               return NULL;
+       if (p) {
+               p[total] = 0;
        }
-       p[sbuf.st_size] = 0;
-
-       if (size) *size = sbuf.st_size;
-
-       return p;
-}
-
-/****************************************************************************
-load a file into memory
-****************************************************************************/
-char *file_load(const char *fname, size_t *size)
-{
-       int fd;
-       char *p;
-
-       if (!fname || !*fname) return NULL;
-       
-       fd = open(fname,O_RDONLY);
-       if (fd == -1) return NULL;
-
-       p = fd_load(fd, size);
-
-       close(fd);
-
-       return p;
-}
 
+       /* FIXME: Perhaps ought to check that the command completed
+        * successfully (returned 0); if not the data may be
+        * truncated. */
+       sys_pclose(fd);
 
-/*******************************************************************
-mmap (if possible) or read a file
-********************************************************************/
-void *map_file(char *fname, size_t size)
-{
-       size_t s2 = 0;
-       void *p = NULL;
-#ifdef HAVE_MMAP
-       int fd;
-       fd = open(fname, O_RDONLY, 0);
-       if (fd == -1) {
-               DEBUG(1,("Failed to load %s - %s\n", fname, strerror(errno)));
-               return NULL;
-       }
-       p = mmap(NULL, size, PROT_READ, MAP_SHARED|MAP_FILE, fd, 0);
-       close(fd);
-       if (p == MAP_FAILED) {
-               DEBUG(1,("Failed to mmap %s - %s\n", fname, strerror(errno)));
-               return NULL;
-       }
-#endif
-       if (!p) {
-               p = file_load(fname, &s2);
-               if (!p || s2 != size) {
-                       DEBUG(1,("incorrect size for %s - got %d expected %d\n",
-                                fname, s2, size));
-                       if (p) free(p);
-                       return NULL;
-               }
+       if (size) {
+               *size = total;
        }
 
        return p;
 }
 
 
-/****************************************************************************
-parse a buffer into lines
-****************************************************************************/
-static char **file_lines_parse(char *p, size_t size, int *numlines)
-{
-       int i;
-       char *s, **ret;
-
-       if (!p) return NULL;
-
-       for (s = p, i=0; s < p+size; s++) {
-               if (s[0] == '\n') i++;
-       }
-
-       ret = (char **)malloc(sizeof(ret[0])*(i+2));
-       if (!ret) {
-               SAFE_FREE(p);
-               return NULL;
-       }       
-       memset(ret, 0, sizeof(ret[0])*(i+2));
-       if (numlines) *numlines = i;
-
-       ret[0] = p;
-       for (s = p, i=0; s < p+size; s++) {
-               if (s[0] == '\n') {
-                       s[0] = 0;
-                       i++;
-                       ret[i] = s+1;
-               }
-               if (s[0] == '\r') s[0] = 0;
-       }
-
-       return ret;
-}
-
-
-/****************************************************************************
-load a file into memory and return an array of pointers to lines in the file
-must be freed with file_lines_free(). 
-****************************************************************************/
-char **file_lines_load(const char *fname, int *numlines)
-{
-       char *p;
-       size_t size;
 
-       p = file_load(fname, &size);
-       if (!p) return NULL;
+/**
+ Load a pipe into memory and return an array of pointers to lines in the data
+ must be freed with TALLOC_FREE.
+**/
 
-       return file_lines_parse(p, size, numlines);
-}
-
-/****************************************************************************
-load a fd into memory and return an array of pointers to lines in the file
-must be freed with file_lines_free(). If convert is true calls unix_to_dos on
-the list.
-****************************************************************************/
-char **fd_lines_load(int fd, int *numlines)
-{
-       char *p;
-       size_t size;
-
-       p = fd_load(fd, &size);
-       if (!p) return NULL;
-
-       return file_lines_parse(p, size, numlines);
-}
-
-
-/****************************************************************************
-load a pipe into memory and return an array of pointers to lines in the data
-must be freed with file_lines_free(). 
-****************************************************************************/
-char **file_lines_pload(char *syscmd, int *numlines)
+char **file_lines_pload(TALLOC_CTX *mem_ctx, const char *syscmd,
+                       int *numlines)
 {
        char *p;
        size_t size;
 
        p = file_pload(syscmd, &size);
-       if (!p) return NULL;
-
-       return file_lines_parse(p, size, numlines);
-}
-
-/****************************************************************************
-free lines loaded with file_lines_load
-****************************************************************************/
-void file_lines_free(char **lines)
-{
-       if (!lines) return;
-       SAFE_FREE(lines[0]);
-       SAFE_FREE(lines);
-}
-
-
-/****************************************************************************
-take a lislist of lines and modify them to produce a list where \ continues
-a line
-****************************************************************************/
-void file_lines_slashcont(char **lines)
-{
-       int i, j;
-
-       for (i=0; lines[i];) {
-               int len = strlen(lines[i]);
-               if (lines[i][len-1] == '\\') {
-                       lines[i][len-1] = ' ';
-                       if (lines[i+1]) {
-                               char *p = &lines[i][len];
-                               while (p < lines[i+1]) *p++ = ' ';
-                               for (j = i+1; lines[j]; j++) lines[j] = lines[j+1];
-                       }
-               } else {
-                       i++;
-               }
+       if (!p) {
+               return NULL;
        }
+
+       return file_lines_parse(p, size, numlines, mem_ctx);
 }