* custom sockets need to work buffered too...
[citadel.git] / citadel / clientsocket.c
index a1c93a251309c661ef6699b4eb779b2145ba0d9e..7c69fe67333c93d3d82698f0291c3e078e667fb0 100644 (file)
@@ -6,6 +6,21 @@
  * sockets for the Citadel client; for that you must look in ipc_c_tcp.c
  * (which, uncoincidentally, bears a striking similarity to this file).
  *
+ * Copyright (c) 1987-2009 by the citadel.org team
+ *
+ *  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 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */
 
 #include "sysdep.h"
@@ -23,6 +38,7 @@
 #include <pwd.h>
 #include <errno.h>
 #include <stdarg.h>
+#include <libcitadel.h>
 #include "citadel.h"
 #include "server.h"
 #ifndef HAVE_SNPRINTF
@@ -31,7 +47,8 @@
 #include "sysdep_decls.h"
 #include "config.h"
 #include "clientsocket.h"
-#include "tools.h"
+
+#include "ctdl_module.h"
 
 #ifndef INADDR_NONE
 #define INADDR_NONE 0xffffffff
@@ -60,7 +77,7 @@ int sock_connect(char *host, char *service, char *protocol)
        if (pse) {
                sin.sin_port = pse->s_port;
        } else if ((sin.sin_port = htons((u_short) atoi(service))) == 0) {
-               lprintf(CTDL_CRIT, "Can't get %s service entry: %s\n",
+               CtdlLogPrintf(CTDL_CRIT, "Can't get %s service entry: %s\n",
                        service, strerror(errno));
                return(-1);
        }
@@ -68,12 +85,12 @@ int sock_connect(char *host, char *service, char *protocol)
        if (phe) {
                memcpy(&sin.sin_addr, phe->h_addr, phe->h_length);
        } else if ((sin.sin_addr.s_addr = inet_addr(host)) == INADDR_NONE) {
-               lprintf(CTDL_ERR, "Can't get %s host entry: %s\n",
+               CtdlLogPrintf(CTDL_ERR, "Can't get %s host entry: %s\n",
                        host, strerror(errno));
                return(-1);
        }
        if ((ppe = getprotobyname(protocol)) == 0) {
-               lprintf(CTDL_CRIT, "Can't get %s protocol entry: %s\n",
+               CtdlLogPrintf(CTDL_CRIT, "Can't get %s protocol entry: %s\n",
                        protocol, strerror(errno));
                return(-1);
        }
@@ -85,7 +102,7 @@ int sock_connect(char *host, char *service, char *protocol)
 
        s = socket(PF_INET, type, ppe->p_proto);
        if (s < 0) {
-               lprintf(CTDL_CRIT, "Can't create socket: %s\n", strerror(errno));
+               CtdlLogPrintf(CTDL_CRIT, "Can't create socket: %s\n", strerror(errno));
                return(-1);
        }
 
@@ -106,7 +123,7 @@ int sock_connect(char *host, char *service, char *protocol)
 
        /* Now try to connect to the remote host. */
        if (connect(s, (struct sockaddr *) &sin, sizeof(sin)) < 0) {
-               lprintf(CTDL_ERR, "Can't connect to %s:%s: %s\n",
+               CtdlLogPrintf(CTDL_ERR, "Can't connect to %s:%s: %s\n",
                        host, service, strerror(errno));
                close(s);
                return(-1);
@@ -118,39 +135,128 @@ int sock_connect(char *host, char *service, char *protocol)
 
 
 /*
- * sock_read_to() - input binary data from socket, with a settable timeout.
- * Returns the number of bytes read, or -1 for error.
+ * Read data from the client socket.
+ *
+ * sock                socket fd to read from
+ * buf         buffer to read into 
+ * bytes       number of bytes to read
+ * timeout     Number of seconds to wait before timing out
+ *
+ * Possible return values:
+ *      1       Requested number of bytes has been read.
+ *      0       Request timed out.
+ *     -1      Connection is broken, or other error.
  */
-int sock_read_to(int sock, char *buf, int bytes, int timeout)
+int socket_read_blob(int *Socket, 
+                    StrBuf *Target, 
+                    int bytes, 
+                    int timeout)
 {
-       int len,rlen;
-       fd_set rfds;
-       struct timeval tv;
-       int retval;
+       CitContext *CCC=CC;
+       const char *Error;
+       int retval = 0;
+
+
+       retval = StrBufReadBLOBBuffered(Target, 
+                                       CCC->sReadBuf,
+                                       &CCC->sPos,
+                                       Socket,
+                                       1, 
+                                       bytes,
+                                       O_TERM,
+                                       &Error);
+       if (retval < 0) {
+               CtdlLogPrintf(CTDL_CRIT, 
+                             "%s failed: %s\n",
+                             __FUNCTION__,
+                             Error);
+       }
+       return retval;
+}
 
-       len = 0;
-       while(len<bytes) {
-               FD_ZERO(&rfds);
-               FD_SET(sock, &rfds);
-               tv.tv_sec = timeout;
-               tv.tv_usec = 0;
 
-               retval = select(sock+1, &rfds, NULL, NULL, &tv);
+int sock_read_to(int *sock, char *buf, int bytes, int timeout, int keep_reading_until_full)
+{
+       CitContext *CCC=CC;
+       int rc;
+
+       rc = socket_read_blob(sock, 
+                             CCC->sMigrateBuf, 
+                             bytes, 
+                             timeout);
+       if (rc < 0)
+       {
+               *buf = '\0';
+               return rc;
+       }
+       else
+       {
+               if (StrLength(CCC->MigrateBuf) < bytes)
+                       bytes = StrLength(CCC->MigrateBuf);
+               memcpy(buf, 
+                      ChrPtr(CCC->MigrateBuf),
+                      bytes);
+
+               FlushStrBuf(CCC->MigrateBuf);
+               return rc;
+       }
+}
 
-               if (FD_ISSET(sock, &rfds) == 0) {       /* timed out */
-                       lprintf(CTDL_ERR, "sock_read() timed out.\n");
-                       return(-1);
-               }
 
-               rlen = read(sock, &buf[len], bytes-len);
-               if (rlen<1) {
-                       lprintf(CTDL_ERR, "sock_read() failed: %s\n",
-                               strerror(errno));
-                       return(-1);
-               }
-               len = len + rlen;
+int CtdlSockGetLine(int *sock, StrBuf *Target)
+{
+       CitContext *CCC=CC;
+       const char *Error;
+       int rc;
+
+       rc = StrBufTCP_read_buffered_line_fast(Target, 
+                                              CCC->sReadBuf,
+                                              &CCC->sPos,
+                                              sock,
+                                              5,
+                                              1,
+                                              &Error);
+       if ((rc < 0) && (Error != NULL))
+               CtdlLogPrintf(CTDL_CRIT, 
+                             "%s failed: %s\n",
+                             __FUNCTION__,
+                             Error);
+       return rc;
+}
+
+
+/*
+ * client_getln()   ...   Get a LF-terminated line of text from the client.
+ * (This is implemented in terms of client_read() and could be
+ * justifiably moved out of sysdep.c)
+ */
+int sock_getln(int *sock, char *buf, int bufsize)
+{
+       int i, retval;
+       CitContext *CCC=CC;
+       const char *pCh;
+
+       retval = CtdlSockGetLine(sock, CCC->sMigrateBuf);
+
+       i = StrLength(CCC->sMigrateBuf);
+       pCh = ChrPtr(CCC->sMigrateBuf);
+       /* Strip the trailing LF, and the trailing CR if present.
+        */
+       if (bufsize <= i)
+               i = bufsize - 1;
+       while ( (i > 0)
+               && ( (pCh[i - 1]==13)
+                    || ( pCh[i - 1]==10)) ) {
+               i--;
+       }
+       memcpy(buf, pCh, i);
+       buf[i] = 0;
+
+       FlushStrBuf(CCC->sMigrateBuf);
+       if (retval < 0) {
+               safestrncpy(&buf[i], "000", bufsize - i);
        }
-       return(bytes);
+       return(retval >= 0);
 }
 
 
@@ -158,9 +264,9 @@ int sock_read_to(int sock, char *buf, int bytes, int timeout)
  * sock_read() - input binary data from socket.
  * Returns the number of bytes read, or -1 for error.
  */
-INLINE int sock_read(int sock, char *buf, int bytes)
+INLINE int sock_read(int *sock, char *buf, int bytes, int keep_reading_until_full)
 {
-       return sock_read_to(sock, buf, bytes, CLIENT_TIMEOUT);
+       return sock_read_to(sock, buf, bytes, CLIENT_TIMEOUT, keep_reading_until_full);
 }
 
 
@@ -184,55 +290,21 @@ int sock_write(int sock, char *buf, int nbytes)
 }
 
 
-
-/*
- * Input string from socket - implemented in terms of sock_read()
- * 
- */
-int sock_gets(int sock, char *buf)
-{
-       int i;
-
-       /* Read one character at a time.
-        */
-       for (i = 0;; i++) {
-               if (sock_read(sock, &buf[i], 1) < 0) return(-1);
-               if (buf[i] == '\n' || i == (SIZ-1))
-                       break;
-       }
-
-       /* If we got a long line, discard characters until the newline.
-        */
-       if (i == (SIZ-1))
-               while (buf[i] != '\n')
-                       if (sock_read(sock, &buf[i], 1) < 0) return(-1);
-
-       /* Strip any trailing CR and LF characters.
-        */
-       buf[i] = 0;
-       while ( (!IsEmptyStr(buf))
-             && ((buf[strlen(buf)-1]==13)
-             || (buf[strlen(buf)-1]==10)) ) {
-               buf[strlen(buf)-1] = 0;
-       }
-       return(strlen(buf));
-}
-
 /*
  * Multiline version of sock_gets() ... this is a convenience function for
  * client side protocol implementations.  It only returns the first line of
  * a multiline response, discarding the rest.
  */
-int ml_sock_gets(int sock, char *buf) {
+int ml_sock_gets(int *sock, char *buf) {
        char bigbuf[1024];
        int g;
 
-       g = sock_gets(sock, buf);
+       g = sock_getln(sock, buf, SIZ);
        if (g < 4) return(g);
        if (buf[3] != '-') return(g);
 
        do {
-               g = sock_gets(sock, bigbuf);
+               g = sock_getln(sock, bigbuf, SIZ);
                if (g < 0) return(g);
        } while ( (g >= 4) && (bigbuf[3] == '-') );