1999-12-29 15:20:26 +01:00
|
|
|
/*****************************************************************************
|
|
|
|
* _ _ ____ _
|
|
|
|
* Project ___| | | | _ \| |
|
|
|
|
* / __| | | | |_) | |
|
|
|
|
* | (__| |_| | _ <| |___
|
|
|
|
* \___|\___/|_| \_\_____|
|
|
|
|
*
|
2002-03-19 08:54:55 +01:00
|
|
|
* Copyright (C) 1998 - 2002, Daniel Stenberg, <daniel@haxx.se>, et al.
|
1999-12-29 15:20:26 +01:00
|
|
|
*
|
2001-01-03 10:29:33 +01:00
|
|
|
* In order to be useful for every potential user, curl and libcurl are
|
|
|
|
* dual-licensed under the MPL and the MIT/X-derivate licenses.
|
1999-12-29 15:20:26 +01:00
|
|
|
*
|
2001-01-03 10:29:33 +01:00
|
|
|
* You may opt to use, copy, modify, merge, publish, distribute and/or sell
|
|
|
|
* copies of the Software, and permit persons to whom the Software is
|
|
|
|
* furnished to do so, under the terms of the MPL or the MIT/X-derivate
|
|
|
|
* licenses. You may pick one of these licenses.
|
1999-12-29 15:20:26 +01:00
|
|
|
*
|
2001-01-03 10:29:33 +01:00
|
|
|
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
|
|
* KIND, either express or implied.
|
1999-12-29 15:20:26 +01:00
|
|
|
*
|
2001-01-03 10:29:33 +01:00
|
|
|
* $Id$
|
|
|
|
*****************************************************************************/
|
1999-12-29 15:20:26 +01:00
|
|
|
|
2000-08-24 16:26:33 +02:00
|
|
|
#include "setup.h"
|
|
|
|
|
1999-12-29 15:20:26 +01:00
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include <stdlib.h>
|
2002-01-18 10:25:58 +01:00
|
|
|
#include <errno.h>
|
|
|
|
|
2001-12-11 16:08:27 +01:00
|
|
|
#ifdef HAVE_SYS_TYPES_H
|
|
|
|
#include <sys/types.h>
|
|
|
|
#endif
|
1999-12-29 15:20:26 +01:00
|
|
|
|
2001-12-04 14:03:08 +01:00
|
|
|
#ifdef HAVE_SYS_SOCKET_H
|
|
|
|
#include <sys/socket.h> /* required for send() & recv() prototypes */
|
|
|
|
#endif
|
|
|
|
|
1999-12-29 15:20:26 +01:00
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
#include <unistd.h>
|
|
|
|
#endif
|
|
|
|
#if defined(WIN32) && !defined(__GNUC__) || defined(__MINGW32__)
|
|
|
|
#include <winsock.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include <curl/curl.h>
|
|
|
|
#include "urldata.h"
|
2000-10-03 13:01:32 +02:00
|
|
|
#include "sendf.h"
|
1999-12-29 15:20:26 +01:00
|
|
|
|
2000-10-12 10:22:16 +02:00
|
|
|
#define _MPRINTF_REPLACE /* use the internal *printf() functions */
|
1999-12-29 15:20:26 +01:00
|
|
|
#include <curl/mprintf.h>
|
|
|
|
|
2000-09-21 10:49:16 +02:00
|
|
|
#ifdef KRB4
|
|
|
|
#include "security.h"
|
|
|
|
#endif
|
2000-12-30 14:12:30 +01:00
|
|
|
#include <string.h>
|
2000-10-09 13:12:34 +02:00
|
|
|
/* The last #include file should be: */
|
|
|
|
#ifdef MALLOCDEBUG
|
|
|
|
#include "memdebug.h"
|
|
|
|
#endif
|
2000-09-21 10:49:16 +02:00
|
|
|
|
2001-03-02 08:42:11 +01:00
|
|
|
/* returns last node in linked list */
|
|
|
|
static struct curl_slist *slist_get_last(struct curl_slist *list)
|
|
|
|
{
|
|
|
|
struct curl_slist *item;
|
|
|
|
|
|
|
|
/* if caller passed us a NULL, return now */
|
|
|
|
if (!list)
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
/* loop through to find the last item */
|
|
|
|
item = list;
|
|
|
|
while (item->next) {
|
|
|
|
item = item->next;
|
|
|
|
}
|
|
|
|
return item;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* append a struct to the linked list. It always retunrs the address of the
|
|
|
|
* first record, so that you can sure this function as an initialization
|
|
|
|
* function as well as an append function. If you find this bothersome,
|
|
|
|
* then simply create a separate _init function and call it appropriately from
|
|
|
|
* within the proram. */
|
|
|
|
struct curl_slist *curl_slist_append(struct curl_slist *list,
|
|
|
|
const char *data)
|
|
|
|
{
|
|
|
|
struct curl_slist *last;
|
|
|
|
struct curl_slist *new_item;
|
|
|
|
|
|
|
|
new_item = (struct curl_slist *) malloc(sizeof(struct curl_slist));
|
|
|
|
if (new_item) {
|
|
|
|
new_item->next = NULL;
|
|
|
|
new_item->data = strdup(data);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
fprintf(stderr, "Cannot allocate memory for QUOTE list.\n");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (list) {
|
|
|
|
last = slist_get_last(list);
|
|
|
|
last->next = new_item;
|
|
|
|
return list;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* if this is the first item, then new_item *is* the list */
|
|
|
|
return new_item;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* be nice and clean up resources */
|
|
|
|
void curl_slist_free_all(struct curl_slist *list)
|
|
|
|
{
|
|
|
|
struct curl_slist *next;
|
|
|
|
struct curl_slist *item;
|
|
|
|
|
|
|
|
if (!list)
|
|
|
|
return;
|
|
|
|
|
|
|
|
item = list;
|
|
|
|
do {
|
|
|
|
next = item->next;
|
|
|
|
|
|
|
|
if (item->data) {
|
|
|
|
free(item->data);
|
|
|
|
}
|
|
|
|
free(item);
|
|
|
|
item = next;
|
|
|
|
} while (next);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-03-13 14:22:58 +01:00
|
|
|
/* Curl_infof() is for info message along the way */
|
1999-12-29 15:20:26 +01:00
|
|
|
|
2001-08-31 00:48:34 +02:00
|
|
|
void Curl_infof(struct SessionHandle *data, const char *fmt, ...)
|
1999-12-29 15:20:26 +01:00
|
|
|
{
|
|
|
|
va_list ap;
|
2001-08-31 00:48:34 +02:00
|
|
|
if(data->set.verbose) {
|
2002-04-12 09:21:11 +02:00
|
|
|
char print_buffer[1024 + 1];
|
1999-12-29 15:20:26 +01:00
|
|
|
va_start(ap, fmt);
|
2002-04-12 09:21:11 +02:00
|
|
|
vsnprintf(print_buffer, 1024, fmt, ap);
|
1999-12-29 15:20:26 +01:00
|
|
|
va_end(ap);
|
2002-04-12 09:21:11 +02:00
|
|
|
Curl_debug(data, CURLINFO_TEXT, print_buffer, strlen(print_buffer));
|
1999-12-29 15:20:26 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2001-12-11 14:13:01 +01:00
|
|
|
/* Curl_failf() is for messages stating why we failed.
|
|
|
|
* The message SHALL NOT include any LF or CR.
|
|
|
|
*/
|
1999-12-29 15:20:26 +01:00
|
|
|
|
2001-08-31 00:48:34 +02:00
|
|
|
void Curl_failf(struct SessionHandle *data, const char *fmt, ...)
|
1999-12-29 15:20:26 +01:00
|
|
|
{
|
|
|
|
va_list ap;
|
|
|
|
va_start(ap, fmt);
|
2001-11-02 23:30:34 +01:00
|
|
|
if(data->set.errorbuffer && !data->state.errorbuf) {
|
2001-08-31 00:48:34 +02:00
|
|
|
vsnprintf(data->set.errorbuffer, CURL_ERROR_SIZE, fmt, ap);
|
2001-11-02 23:30:34 +01:00
|
|
|
data->state.errorbuf = TRUE; /* wrote error string */
|
|
|
|
}
|
1999-12-29 15:20:26 +01:00
|
|
|
va_end(ap);
|
|
|
|
}
|
|
|
|
|
2001-01-25 13:20:30 +01:00
|
|
|
/* Curl_sendf() sends formated data to the server */
|
2001-10-31 16:07:45 +01:00
|
|
|
CURLcode Curl_sendf(int sockfd, struct connectdata *conn,
|
|
|
|
const char *fmt, ...)
|
1999-12-29 15:20:26 +01:00
|
|
|
{
|
2001-08-31 00:48:34 +02:00
|
|
|
struct SessionHandle *data = conn->data;
|
2002-01-16 15:49:08 +01:00
|
|
|
ssize_t bytes_written;
|
2002-03-13 14:09:37 +01:00
|
|
|
ssize_t write_len;
|
|
|
|
CURLcode res;
|
1999-12-29 15:20:26 +01:00
|
|
|
char *s;
|
2002-03-13 14:09:37 +01:00
|
|
|
char *sptr;
|
1999-12-29 15:20:26 +01:00
|
|
|
va_list ap;
|
|
|
|
va_start(ap, fmt);
|
2001-01-25 13:20:30 +01:00
|
|
|
s = vaprintf(fmt, ap); /* returns an allocated string */
|
1999-12-29 15:20:26 +01:00
|
|
|
va_end(ap);
|
|
|
|
if(!s)
|
2002-03-13 14:09:37 +01:00
|
|
|
return CURLE_OUT_OF_MEMORY; /* failure */
|
|
|
|
|
|
|
|
bytes_written=0;
|
|
|
|
write_len = strlen(s);
|
|
|
|
sptr = s;
|
|
|
|
|
|
|
|
do {
|
|
|
|
/* Write the buffer to the socket */
|
|
|
|
res = Curl_write(conn, sockfd, sptr, write_len, &bytes_written);
|
|
|
|
|
|
|
|
if(CURLE_OK != res)
|
|
|
|
break;
|
|
|
|
|
2002-04-12 09:21:11 +02:00
|
|
|
if(data->set.verbose)
|
|
|
|
Curl_debug(data, CURLINFO_DATA_OUT, sptr, bytes_written);
|
|
|
|
|
2002-03-13 14:09:37 +01:00
|
|
|
if(bytes_written != write_len) {
|
|
|
|
/* if not all was written at once, we must advance the pointer, decrease
|
|
|
|
the size left and try again! */
|
|
|
|
write_len -= bytes_written;
|
|
|
|
sptr += bytes_written;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
break;
|
|
|
|
|
|
|
|
} while(1);
|
2001-01-25 13:20:30 +01:00
|
|
|
|
1999-12-29 15:20:26 +01:00
|
|
|
free(s); /* free the output string */
|
2001-01-25 13:20:30 +01:00
|
|
|
|
2002-03-13 14:09:37 +01:00
|
|
|
return res;
|
1999-12-29 15:20:26 +01:00
|
|
|
}
|
|
|
|
|
2001-01-25 13:20:30 +01:00
|
|
|
/*
|
|
|
|
* Curl_write() is an internal write function that sends plain (binary) data
|
|
|
|
* to the server. Works with plain sockets, SSL or kerberos.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
CURLcode Curl_write(struct connectdata *conn, int sockfd,
|
|
|
|
void *mem, size_t len,
|
2002-01-16 15:49:08 +01:00
|
|
|
ssize_t *written)
|
2000-08-24 14:33:16 +02:00
|
|
|
{
|
2002-01-16 15:49:08 +01:00
|
|
|
ssize_t bytes_written;
|
2000-08-24 14:33:16 +02:00
|
|
|
|
2000-09-21 10:49:16 +02:00
|
|
|
#ifdef USE_SSLEAY
|
2001-08-14 10:34:09 +02:00
|
|
|
/* SSL_write() is said to return 'int' while write() and send() returns
|
|
|
|
'size_t' */
|
2001-02-20 18:35:51 +01:00
|
|
|
if (conn->ssl.use) {
|
2002-01-16 15:49:08 +01:00
|
|
|
int err;
|
|
|
|
int rc = SSL_write(conn->ssl.handle, mem, len);
|
|
|
|
|
|
|
|
if(rc < 0) {
|
|
|
|
err = SSL_get_error(conn->ssl.handle, rc);
|
|
|
|
|
|
|
|
switch(err) {
|
|
|
|
case SSL_ERROR_WANT_READ:
|
|
|
|
case SSL_ERROR_WANT_WRITE:
|
|
|
|
/* this is basicly the EWOULDBLOCK equivalent */
|
|
|
|
*written = 0;
|
|
|
|
return CURLE_OK;
|
2001-08-14 10:34:09 +02:00
|
|
|
}
|
2002-01-16 15:49:08 +01:00
|
|
|
/* a true error */
|
|
|
|
failf(conn->data, "SSL_write() return error %d\n", err);
|
2002-04-10 15:44:42 +02:00
|
|
|
return CURLE_SEND_ERROR;
|
2001-01-25 13:20:30 +01:00
|
|
|
}
|
2002-01-17 00:28:58 +01:00
|
|
|
bytes_written = rc;
|
2000-08-24 14:33:16 +02:00
|
|
|
}
|
2000-09-21 10:49:16 +02:00
|
|
|
else {
|
|
|
|
#endif
|
|
|
|
#ifdef KRB4
|
|
|
|
if(conn->sec_complete) {
|
2001-08-17 12:14:06 +02:00
|
|
|
bytes_written = Curl_sec_write(conn, sockfd, mem, len);
|
2000-09-21 10:49:16 +02:00
|
|
|
}
|
|
|
|
else
|
|
|
|
#endif /* KRB4 */
|
2002-01-16 15:49:08 +01:00
|
|
|
{
|
2001-01-25 13:20:30 +01:00
|
|
|
bytes_written = swrite(sockfd, mem, len);
|
2002-01-16 15:49:08 +01:00
|
|
|
}
|
|
|
|
if(-1 == bytes_written) {
|
|
|
|
#ifdef WIN32
|
2002-01-18 09:03:54 +01:00
|
|
|
if(WSAEWOULDBLOCK == GetLastError())
|
2002-01-16 15:49:08 +01:00
|
|
|
#else
|
|
|
|
if(EWOULDBLOCK == errno)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
/* this is just a case of EWOULDBLOCK */
|
|
|
|
*written=0;
|
|
|
|
return CURLE_OK;
|
|
|
|
}
|
|
|
|
}
|
2000-09-21 10:49:16 +02:00
|
|
|
#ifdef USE_SSLEAY
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2001-01-25 13:20:30 +01:00
|
|
|
*written = bytes_written;
|
2002-04-10 15:44:42 +02:00
|
|
|
return (-1 != bytes_written)?CURLE_OK:CURLE_SEND_ERROR;
|
2000-08-24 14:33:16 +02:00
|
|
|
}
|
|
|
|
|
2000-11-22 13:53:56 +01:00
|
|
|
/* client_write() sends data to the write callback(s)
|
|
|
|
|
|
|
|
The bit pattern defines to what "streams" to write to. Body and/or header.
|
|
|
|
The defines are in sendf.h of course.
|
|
|
|
*/
|
2001-08-31 00:48:34 +02:00
|
|
|
CURLcode Curl_client_write(struct SessionHandle *data,
|
2001-01-05 11:11:41 +01:00
|
|
|
int type,
|
|
|
|
char *ptr,
|
|
|
|
size_t len)
|
2000-11-22 13:53:56 +01:00
|
|
|
{
|
|
|
|
size_t wrote;
|
|
|
|
|
|
|
|
if(0 == len)
|
|
|
|
len = strlen(ptr);
|
|
|
|
|
|
|
|
if(type & CLIENTWRITE_BODY) {
|
2001-08-31 00:48:34 +02:00
|
|
|
wrote = data->set.fwrite(ptr, 1, len, data->set.out);
|
2000-11-22 13:53:56 +01:00
|
|
|
if(wrote != len) {
|
|
|
|
failf (data, "Failed writing body");
|
|
|
|
return CURLE_WRITE_ERROR;
|
|
|
|
}
|
|
|
|
}
|
2001-08-06 10:22:26 +02:00
|
|
|
if((type & CLIENTWRITE_HEADER) &&
|
2001-08-31 00:48:34 +02:00
|
|
|
(data->set.fwrite_header || data->set.writeheader) ) {
|
2001-04-10 08:49:32 +02:00
|
|
|
/*
|
|
|
|
* Write headers to the same callback or to the especially setup
|
|
|
|
* header callback function (added after version 7.7.1).
|
|
|
|
*/
|
|
|
|
curl_write_callback writeit=
|
2001-08-31 00:48:34 +02:00
|
|
|
data->set.fwrite_header?data->set.fwrite_header:data->set.fwrite;
|
2001-04-10 08:49:32 +02:00
|
|
|
|
2001-08-31 00:48:34 +02:00
|
|
|
wrote = writeit(ptr, 1, len, data->set.writeheader);
|
2000-11-22 13:53:56 +01:00
|
|
|
if(wrote != len) {
|
|
|
|
failf (data, "Failed writing header");
|
|
|
|
return CURLE_WRITE_ERROR;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return CURLE_OK;
|
|
|
|
}
|
|
|
|
|
2001-01-25 13:20:30 +01:00
|
|
|
/*
|
|
|
|
* Internal read-from-socket function. This is meant to deal with plain
|
|
|
|
* sockets, SSL sockets and kerberos sockets.
|
2002-01-15 00:14:59 +01:00
|
|
|
*
|
|
|
|
* If the read would block (EWOULDBLOCK) we return -1. Otherwise we return
|
|
|
|
* a regular CURLcode value.
|
2001-01-25 13:20:30 +01:00
|
|
|
*/
|
2002-01-15 00:14:59 +01:00
|
|
|
int Curl_read(struct connectdata *conn,
|
|
|
|
int sockfd,
|
|
|
|
char *buf,
|
|
|
|
size_t buffersize,
|
|
|
|
ssize_t *n)
|
2001-01-25 13:20:30 +01:00
|
|
|
{
|
2001-01-31 14:54:12 +01:00
|
|
|
ssize_t nread;
|
2001-01-25 13:20:30 +01:00
|
|
|
|
|
|
|
#ifdef USE_SSLEAY
|
2001-02-20 18:35:51 +01:00
|
|
|
if (conn->ssl.use) {
|
2002-01-09 00:19:32 +01:00
|
|
|
bool loop=TRUE;
|
|
|
|
int err;
|
|
|
|
do {
|
2001-02-20 18:35:51 +01:00
|
|
|
nread = SSL_read(conn->ssl.handle, buf, buffersize);
|
2002-01-09 00:19:32 +01:00
|
|
|
|
2002-02-05 16:33:00 +01:00
|
|
|
if(nread >= 0)
|
2002-01-09 00:19:32 +01:00
|
|
|
/* successful read */
|
2001-01-25 13:20:30 +01:00
|
|
|
break;
|
2002-01-09 00:19:32 +01:00
|
|
|
|
|
|
|
err = SSL_get_error(conn->ssl.handle, nread);
|
|
|
|
|
|
|
|
switch(err) {
|
|
|
|
case SSL_ERROR_NONE: /* this is not an error */
|
|
|
|
case SSL_ERROR_ZERO_RETURN: /* no more data */
|
|
|
|
loop=0; /* get out of loop */
|
|
|
|
break;
|
|
|
|
case SSL_ERROR_WANT_READ:
|
|
|
|
case SSL_ERROR_WANT_WRITE:
|
|
|
|
/* if there's data pending, then we re-invoke SSL_read() */
|
|
|
|
break;
|
2002-04-02 11:33:38 +02:00
|
|
|
default:
|
|
|
|
failf(conn->data, "SSL read error: %d", err);
|
2002-04-10 15:44:42 +02:00
|
|
|
return CURLE_RECV_ERROR;
|
2002-01-09 00:19:32 +01:00
|
|
|
}
|
2002-01-30 22:49:29 +01:00
|
|
|
} while(loop);
|
2002-01-15 00:14:59 +01:00
|
|
|
if(loop && SSL_pending(conn->ssl.handle))
|
|
|
|
return -1; /* basicly EWOULDBLOCK */
|
2001-01-25 13:20:30 +01:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
#endif
|
|
|
|
#ifdef KRB4
|
|
|
|
if(conn->sec_complete)
|
2001-08-17 12:14:06 +02:00
|
|
|
nread = Curl_sec_read(conn, sockfd, buf, buffersize);
|
2001-01-25 13:20:30 +01:00
|
|
|
else
|
|
|
|
#endif
|
|
|
|
nread = sread (sockfd, buf, buffersize);
|
2002-01-15 00:14:59 +01:00
|
|
|
|
|
|
|
if(-1 == nread) {
|
|
|
|
#ifdef WIN32
|
2002-01-18 09:03:54 +01:00
|
|
|
if(WSAEWOULDBLOCK == GetLastError())
|
2002-01-15 00:14:59 +01:00
|
|
|
#else
|
|
|
|
if(EWOULDBLOCK == errno)
|
|
|
|
#endif
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
2001-01-25 13:20:30 +01:00
|
|
|
#ifdef USE_SSLEAY
|
|
|
|
}
|
|
|
|
#endif /* USE_SSLEAY */
|
|
|
|
*n = nread;
|
|
|
|
return CURLE_OK;
|
|
|
|
}
|
|
|
|
|
2002-04-12 09:21:11 +02:00
|
|
|
/* return 0 on success */
|
|
|
|
int Curl_debug(struct SessionHandle *data, curl_infotype type,
|
|
|
|
char *ptr, size_t size)
|
|
|
|
{
|
|
|
|
static const char * const s_infotype[CURLINFO_END] = {
|
|
|
|
"* ", "< ", "> ", "{ ", "} " };
|
|
|
|
|
|
|
|
if(data->set.fdebug)
|
|
|
|
return (*data->set.fdebug)(data, type, ptr, size,
|
|
|
|
data->set.debugdata);
|
|
|
|
|
|
|
|
if(type >= CURLINFO_DATA_IN)
|
|
|
|
/* don't do the data parts now */
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
fwrite(s_infotype[type], 2, 1, data->set.err);
|
|
|
|
fwrite(ptr, size, 1, data->set.err);
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2001-09-07 06:01:32 +02:00
|
|
|
|
|
|
|
/*
|
|
|
|
* local variables:
|
|
|
|
* eval: (load-file "../curl-mode.el")
|
|
|
|
* end:
|
2001-10-11 11:32:19 +02:00
|
|
|
* vim600: fdm=marker
|
|
|
|
* vim: et sw=2 ts=2 sts=2 tw=78
|
2001-09-07 06:01:32 +02:00
|
|
|
*/
|