X-Git-Url: http://git.tuebingen.mpg.de/?p=paraslash.git;a=blobdiff_plain;f=client.c;h=94fff72d9fe558bfb9a1f8a8bcba955814151af0;hp=914c5fb93d4a58d4cf79ec75475da4d3ccb73640;hb=5448648480d30077eee8d751c5256c89fe351a9c;hpb=5124ade7db7ee2eef8a8a6acae2a398d82a666cc

diff --git a/client.c b/client.c
index 914c5fb9..94fff72d 100644
--- a/client.c
+++ b/client.c
@@ -19,15 +19,75 @@
 /** \file client.c the client program used to connect to para_server */
 
 #include "para.h"
+#include "list.h"
+#include "sched.h"
 #include "config.h"
 #include "client.cmdline.h"
 #include "crypt.h"
 #include "rc4.h"
 #include <openssl/rc4.h>
 #include "net.h"
+#include "fd.h"
 #include "string.h"
+#include "stdin.h"
+#include "stdout.h"
+#include "error.h"
+
+enum {
+	CL_CONNECTED,
+	CL_RECEIVED_WELCOME,
+	CL_SENT_AUTH,
+	CL_RECEIVED_CHALLENGE,
+	CL_SENT_CH_RESPONSE,
+	CL_RECEIVED_PROCEED,
+	CL_SENT_COMMAND,
+	CL_SENDING_STDIN,
+	CL_RECEIVING_SERVER_OUTPUT
+};
+
+#define CLIENT_BUFSIZE 8192
+
+struct private_client_data {
+	int status;
+	int fd;
+	struct client_args_info conf;
+	char *config_file;
+	char *key_file;
+	char *user;
+	RC4_KEY rc4_recv_key;
+	RC4_KEY rc4_send_key;
+	struct task task;
+	int eof;
+	char buf[CLIENT_BUFSIZE];
+	size_t loaded;
+	int check_r;
+	int check_w;
+	long unsigned challenge_nr;
+	/* only used if stdin gets sent to para_server */
+	char *inbuf;
+	size_t *in_loaded;
+	int *in_eof;
+};
+
+INIT_CLIENT_ERRLISTS;
+
+static struct private_client_data *pcd;
+static struct stdin_task sit;
+static struct stdout_task sot;
+
+
+static void rc4_send(unsigned long len, const unsigned char *indata,
+		unsigned char *outdata)
+{
+	RC4(&pcd->rc4_send_key, len, indata, outdata);
+}
+
+static void rc4_recv(unsigned long len, const unsigned char *indata,
+		unsigned char *outdata)
+{
+	RC4(&pcd->rc4_recv_key, len, indata, outdata);
+}
 
-struct gengetopt_args_info args_info;
 
 /*
  * client log function
@@ -35,225 +95,346 @@ struct gengetopt_args_info args_info;
 void para_log(int ll, const char* fmt,...)
 {
 	va_list argp;
-	FILE *outfd;
 
 	/* ignore log message if loglevel is not high enough */
-	if (ll < args_info.loglevel_arg)
+	if (pcd && ll < pcd->conf.loglevel_arg)
 		return;
 	va_start(argp, fmt);
 	vfprintf(stderr, fmt, argp);
 	va_end(argp);
 }
 
-void get_options(int argc, char *argv[],
-	char **config_file, char **key_file)
+static void client_close(struct private_client_data *pcd)
 {
-	char *home;
-	static char default_key_file[_POSIX_PATH_MAX] = "";
-	static char default_config_file[_POSIX_PATH_MAX] = "";
+	if (pcd)
+		return;
+	if (pcd->fd >= 0)
+		close(pcd->fd);
+	free(pcd->user);
+	free(pcd->config_file);
+	free(pcd->key_file);
+	free(pcd);
+}
+
+static int client_parse_config(int argc, char *argv[],
+		struct private_client_data **pcd_ptr)
+{
+	char *home = para_homedir();
 	struct stat statbuf;
 	int ret;
+	struct private_client_data *p =
+		para_calloc(sizeof(struct private_client_data));
 
-	cmdline_parser(argc, argv, &args_info);
-	if (!args_info.user_given)
-		args_info.user_arg = para_logname();
-	if (!args_info.key_file_given) {
-		home = para_homedir();
-		sprintf(default_key_file, "%s/.paraslash/key.%s", home,
-			args_info.user_arg);
-		free(home);
-	}
-	if (!args_info.config_file_given) {
-		home = para_homedir();
-		sprintf(default_config_file, "%s/.paraslash/client.conf",
-			home);
-		free(home);
-	}
-	if (!args_info.config_file_given)
-		*config_file = default_config_file;
-	else
-		*config_file = args_info.config_file_arg;
-	ret = stat(*config_file, &statbuf);
-	if (ret && args_info.config_file_given) {
-		fprintf(stderr, "can not stat config file %s\n",
-			args_info.config_file_arg);
-		exit(EXIT_FAILURE);
+	p->fd = -1;
+	cmdline_parser(argc, argv, &p->conf);
+	ret = - E_CLIENT_SYNTAX;
+	if (!p->conf.inputs_num)
+		goto out;
+	p->user = p->conf.user_given?
+		para_strdup(p->conf.user_arg) : para_logname();
+
+	p->key_file = p->conf.key_file_given?
+		para_strdup(p->conf.key_file_arg) :
+		make_message("%s/.paraslash/key.%s", home, p->user);
+
+	p->config_file = p->conf.config_file_given?
+		para_strdup(p->conf.config_file_arg) :
+		make_message("%s/.paraslash/client.conf", home);
+	ret = stat(p->config_file, &statbuf);
+	if (ret && p->conf.config_file_given) {
+		ret = -E_NO_CONFIG;
+		goto out;
 	}
 	if (!ret)
-		cmdline_parser_configfile(*config_file, &args_info, 0, 0, 0);
-	if (!args_info.key_file_given)
-		*key_file = default_key_file;
-	else
-		*key_file = args_info.key_file_arg;
+		cmdline_parser_configfile(p->config_file, &p->conf, 0, 0, 0);
+	ret = 1;
+	*pcd_ptr = p;
+	PARA_INFO_LOG(
+		"current loglevel: %d\n"
+		"using config_file: %s\n"
+		"using key_file: %s\n"
+		"connecting to %s:%d\n" ,
+		p->conf.loglevel_arg,
+		p->config_file,
+		p->key_file,
+		p->conf.hostname_arg, p->conf.server_port_arg
+	);
+out:
+	free(home);
+	if (ret < 0)
+		client_close(p);
+	return ret;
 }
 
-static RC4_KEY rc4_recv_key;
-static RC4_KEY rc4_send_key;
-static unsigned char rc4_buf[2 * RC4_KEY_LEN];
-
-static void rc4_send(unsigned long len, const unsigned char *indata, unsigned char *outdata)
+static void client_pre_select(struct sched *s, struct task *t)
 {
-	RC4(&rc4_send_key, len, indata, outdata);
-}
+	struct private_client_data *p = t->private_data;
 
-static void rc4_recv(unsigned long len, const unsigned char *indata, unsigned char *outdata)
-{
-	RC4(&rc4_recv_key, len, indata, outdata);
-}
-void (*crypt_function_recv)(unsigned long len, const unsigned char *indata, unsigned char *outdata);
-void (*crypt_function_send)(unsigned long len, const unsigned char *indata, unsigned char *outdata);
+	PARA_INFO_LOG("status %d\n", p->status);
+	t->ret = 1;
+	pcd->check_r = 0;
+	pcd->check_w = 0;
+	if (p->fd < 0)
+		return;
+	switch (pcd->status) {
+	case CL_CONNECTED:
+	case CL_SENT_AUTH:
+	case CL_SENT_CH_RESPONSE:
+	case CL_SENT_COMMAND:
+		para_fd_set(pcd->fd, &s->rfds, &s->max_fileno);
+		pcd->check_r = 1;
+		return;
 
+	case CL_RECEIVED_WELCOME:
+	case CL_RECEIVED_CHALLENGE:
+	case CL_RECEIVED_PROCEED:
+		para_fd_set(pcd->fd, &s->wfds, &s->max_fileno);
+		pcd->check_w = 1;
+		return;
 
-static void append_str(char **data, const char* append)
+	case CL_RECEIVING_SERVER_OUTPUT:
+		if (pcd->loaded < CLIENT_BUFSIZE - 1) {
+			para_fd_set(pcd->fd, &s->rfds, &s->max_fileno);
+			p->check_r = 1;
+		}
+		return;
+	case CL_SENDING_STDIN:
+		if (*p->in_loaded) {
+			PARA_INFO_LOG("loaded: %d\n", *p->in_loaded);
+			para_fd_set(p->fd, &s->wfds, &s->max_fileno);
+			p->check_w = 1;
+		} else {
+			if (*p->in_eof) {
+				t->ret = -E_INPUT_EOF;
+				s->timeout.tv_sec = 0;
+				s->timeout.tv_usec = 1;
+			}
+		}
+		return;
+	}
+}
+
+static ssize_t client_recv_buffer(struct private_client_data *p)
 {
-	if (*data) {
-		char *tmp = make_message("%s\n%s", *data, append);
-		free(*data);
-		*data = tmp;
-	} else
-		*data = para_strdup(append);
+	ssize_t ret = recv_buffer(p->fd, p->buf + p->loaded,
+		CLIENT_BUFSIZE - p->loaded);
+	if (!ret)
+		return -E_SERVER_EOF;
+	if (ret > 0)
+		p->loaded += ret;
+	return ret;
+
 }
 
-/*
- * MAIN
- */
-int main(int argc, char *argv[])
+static void client_post_select(struct sched *s, struct task *t)
 {
+	struct private_client_data *p = t->private_data;
 
-	int sockfd, numbytes, i, received, ret;
+	PARA_INFO_LOG("status %d\n", p->status);
+	t->ret = 1;
+	if (p->fd < 0)
+		return;
+	if (!p->check_r && !p->check_w)
+		return;
+	if (p->check_r && !FD_ISSET(p->fd, &s->rfds))
+		return;
+	if (p->check_w && !FD_ISSET(p->fd, &s->wfds))
+		return;
+	switch (p->status) {
+	case CL_CONNECTED: /* receive welcome message */
+		t->ret = client_recv_buffer(p);
+		if (t->ret > 0)
+			p->status = CL_RECEIVED_WELCOME;
+		return;
+	case CL_RECEIVED_WELCOME: /* send auth command */
+		sprintf(p->buf, "auth %s%s", p->conf.plain_given?
+			"" : "rc4 ", p->user);
+		PARA_INFO_LOG("--> %s\n", p->buf);
+		t->ret = send_buffer(p->fd, p->buf);
+		if (t->ret >= 0)
+			p->status = CL_SENT_AUTH;
+		return;
+	case CL_SENT_AUTH: /* receive challenge number */
+		p->loaded = 0;
+		t->ret = client_recv_buffer(p);
+		if (t->ret < 0)
+			return;
+		if (t->ret != 64) {
+			t->ret = -E_INVALID_CHALLENGE;
+			PARA_ERROR_LOG("received the following: %s\n", p->buf);
+			return;
+		}
+		PARA_INFO_LOG("%s", "<-- [challenge]\n");
+		/* decrypt challenge number */
+		t->ret = para_decrypt_challenge(p->key_file, &p->challenge_nr,
+			(unsigned char *) p->buf, 64);
+		if (t->ret > 0)
+			p->status = CL_RECEIVED_CHALLENGE;
+		return;
+	case CL_RECEIVED_CHALLENGE: /* send decrypted challenge */
+		PARA_INFO_LOG("--> %lu\n", p->challenge_nr);
+		t->ret = send_va_buffer(p->fd, "%s%lu", CHALLENGE_RESPONSE_MSG,
+			p->challenge_nr);
+		if (t->ret > 0)
+			p->status = CL_SENT_CH_RESPONSE;
+		return;
+	case CL_SENT_CH_RESPONSE: /* read server response */
+		{
+		size_t bytes_received;
+		unsigned char rc4_buf[2 * RC4_KEY_LEN] = "";
+		p->loaded = 0;
+		t->ret = client_recv_buffer(p);
+		if (t->ret < 0)
+			return;
+		bytes_received = t->ret;
+		PARA_INFO_LOG("++++ server info ++++\n%s\n++++ end of server "
+			"info ++++\n", p->buf);
+		/* check if server has sent "Proceed" message */
+		t->ret = -E_CLIENT_AUTH;
+		if (!strstr(p->buf, PROCEED_MSG))
+			return;
+		t->ret = 1;
+		p->status = CL_RECEIVED_PROCEED;
+		if (bytes_received < PROCEED_MSG_LEN + 32)
+			return;
+		PARA_INFO_LOG("%s", "decrypting session key\n");
+		t->ret = para_decrypt_buffer(p->key_file, rc4_buf,
+			(unsigned char *)p->buf + PROCEED_MSG_LEN + 1,
+			bytes_received - PROCEED_MSG_LEN - 1);
+		if (t->ret < 0)
+			return;
+		RC4_set_key(&p->rc4_send_key, RC4_KEY_LEN, rc4_buf);
+		RC4_set_key(&p->rc4_recv_key, RC4_KEY_LEN, rc4_buf + RC4_KEY_LEN);
+		enable_crypt(p->fd, rc4_recv, rc4_send);
+		}
+	case CL_RECEIVED_PROCEED: /* concat args and send command */
+		{
+		int i;
+		char *command = NULL;
+		for (i = 0; i < p->conf.inputs_num; i++) {
+			char *tmp = command;
+			command = make_message("%s\n%s", command?
+				command : "", p->conf.inputs[i]);
+			free(tmp);
+		}
+		command = para_strcat(command, EOC_MSG "\n");
+		PARA_INFO_LOG("--> %s\n", command);
+		t->ret = send_buffer(p->fd, command);
+		free(command);
+		if (t->ret > 0)
+			p->status = CL_SENT_COMMAND;
+		return;
+		}
+	case CL_SENT_COMMAND:
+		p->loaded = 0;
+		t->ret = client_recv_buffer(p);
+		if (t->ret < 0)
+			return;
+		t->ret = -E_HANDSHAKE_COMPLETE;
+		if (strstr(p->buf, AWAITING_DATA_MSG))
+			p->status = CL_SENDING_STDIN;
+		else
+			p->status = CL_RECEIVING_SERVER_OUTPUT;
+		return;
+	case CL_SENDING_STDIN: /* FIXME: might block */
+		PARA_INFO_LOG("loaded: %d\n", *p->in_loaded);
+		t->ret = send_bin_buffer(p->fd, p->inbuf, *p->in_loaded);
+		if (t->ret <= 0) {
+			if (!t->ret)
+				t->ret = 1;
+			return;
+		}
+		*p->in_loaded = 0; /* FIXME: short writes */
+		return;
+	case CL_RECEIVING_SERVER_OUTPUT:
+		t->ret = client_recv_buffer(p);
+		return;
+	}
+
+}
+static int client_open(struct private_client_data *pcd)
+{
+	int ret;
 	struct hostent *he;
 	struct sockaddr_in their_addr;
-	char *command = NULL;
-	char buf[8192];
-	char *auth_str;
-	char *key_file, *config_file;
-	long unsigned challenge_nr;
-
-	get_options(argc, argv, &config_file, &key_file);
-	if (args_info.loglevel_arg <= NOTICE)
-		cmdline_parser_print_version();
-	PARA_INFO_LOG(
-		"current loglevel: %d\n"
-		"using config_file: %s\n"
-		"using key_file: %s\n"
-		"connecting to %s:%d\n",
-		args_info.loglevel_arg,
-		config_file,
-		key_file,
-		args_info.hostname_arg,
-		args_info.server_port_arg
-	);
-	if (!args_info.inputs_num) {
-		PARA_ERROR_LOG("%s", "syntax error\n");
-		exit(EXIT_FAILURE);
-	}
-	/* concat args */
-	for (i = 0; i < args_info.inputs_num; i++)
-		append_str(&command, args_info.inputs[i]);
 
-	crypt_function_recv = NULL;
-	crypt_function_send = NULL;
 	/* get the host info */
 	PARA_NOTICE_LOG("getting host info of %s\n",
-		args_info.hostname_arg);
-	if (!(he = get_host_info(args_info.hostname_arg)))
-		exit(EXIT_FAILURE);
+		pcd->conf.hostname_arg);
+	ret = get_host_info(pcd->conf.hostname_arg, &he);
+	if (ret < 0)
+		goto out;
 	/* get new socket */
-	if ((sockfd = get_socket()) < 0)
-		exit(EXIT_FAILURE);
+	ret = get_socket();
+	if (ret < 0)
+		goto out;
+	pcd->fd = ret;
 	/* init their_addr */
-	init_sockaddr(&their_addr, args_info.server_port_arg, he);
-	/* Connect */
-	PARA_NOTICE_LOG("connecting to %s...\n",
-		args_info.hostname_arg);
-	if (para_connect(sockfd, &their_addr) < 0)
-		exit(EXIT_FAILURE);
-	/* Receive Welcome message */
-	if ((numbytes = recv_buffer(sockfd, buf, sizeof(buf))) < 0)
-		exit(EXIT_FAILURE);
-	/* send auth command */
-	auth_str = make_message("auth %s%s", args_info.plain_given?  "" : "rc4 ",
-		args_info.user_arg);
-	PARA_INFO_LOG("<-- %s--> %s\n", buf, auth_str);
-	if (send_buffer(sockfd, auth_str) < 0)
-		exit(EXIT_FAILURE);
-	/* receive challenge number */
-	if ((numbytes = recv_buffer(sockfd, buf, sizeof(buf))) < 0)
-		exit(EXIT_FAILURE);
-	if (numbytes != 64) {
-		PARA_EMERG_LOG("did not receive valid challenge (got %i bytes)\n",
-			numbytes);
-		buf[numbytes] = '\0';
-		PARA_ERROR_LOG("received the following instead: %s\n", buf);
-		exit(EXIT_FAILURE);
-	}
-	PARA_INFO_LOG("<-- [challenge (%i bytes)]\n", numbytes);
-	/* decrypt challenge number */
-	ret = para_decrypt_challenge(key_file, &challenge_nr, (unsigned char *) buf,
-		numbytes);
-	if (ret < 0) {
-		PARA_EMERG_LOG("decrypt error (%d). Bad secret key?\n", ret);
-		exit(EXIT_FAILURE);
-	}
-	/* send decrypted challenge */
-	PARA_INFO_LOG("--> %lu\n", challenge_nr);
-	if (send_va_buffer(sockfd, "%s%lu", CHALLENGE_RESPONSE_MSG, challenge_nr) < 0)
-		exit(EXIT_FAILURE);
-	/* Wait for approval */
-	PARA_NOTICE_LOG("%s", "waiting for approval from server\n");
-	if ((numbytes = recv_buffer(sockfd, buf, sizeof(buf))) < 0)
-		exit(EXIT_FAILURE);
-	PARA_INFO_LOG("++++ server info ++++\n%s\n++++ end of server "
-		"info ++++\n", buf);
-	/* Check if server has sent "Proceed" message */
-	if (!strstr(buf, PROCEED_MSG)) {
-		PARA_EMERG_LOG("%s", "authentication failed\n");
-		exit(EXIT_FAILURE);
-	}
-	if (numbytes >= PROCEED_MSG_LEN + 32) {
-		PARA_INFO_LOG("%s", "decrypting session key\n");
-		if (para_decrypt_buffer(key_file, rc4_buf,
-				(unsigned char *)buf + PROCEED_MSG_LEN + 1,
-				numbytes - PROCEED_MSG_LEN - 1) < 0) {
-			PARA_EMERG_LOG("%s", "error receiving rc4 key\n");
-			exit(EXIT_FAILURE);
-		}
-		RC4_set_key(&rc4_send_key, RC4_KEY_LEN, rc4_buf);
-		RC4_set_key(&rc4_recv_key, RC4_KEY_LEN, rc4_buf + RC4_KEY_LEN);
-		PARA_INFO_LOG("rc4 encrytion activated: %x:%x:%x:%x\n",
-			rc4_buf[0], rc4_buf[1], rc4_buf[2], rc4_buf[3]);
-		crypt_function_recv = rc4_recv;
-		crypt_function_send = rc4_send;
+	init_sockaddr(&their_addr, pcd->conf.server_port_arg, he);
+	/* connect */
+	PARA_NOTICE_LOG("connecting to %s\n", pcd->conf.hostname_arg);
+	ret = para_connect(pcd->fd, &their_addr);
+	if (ret < 0)
+		goto out;
+	pcd->status = CL_CONNECTED;
+	pcd->task.pre_select = client_pre_select;
+	pcd->task.post_select = client_post_select;
+	pcd->task.private_data = pcd;
+	sprintf(pcd->task.status, "client");
+	register_task(&pcd->task);
+	ret = 1;
+out:
+	return ret;
+}
+
+static void client_event_handler(struct task *t)
+{
+	struct private_client_data *p = t->private_data;
+
+	PARA_NOTICE_LOG("%s\n", PARA_STRERROR(-t->ret));
+	if (t->ret != -E_HANDSHAKE_COMPLETE) {
+		unregister_task(t);
+		p->eof = 1;
+		return;
 	}
-	/* send command */
-	PARA_INFO_LOG("--> %s\n", command);
-	if (send_buffer(sockfd, command) < 0)
-		exit(EXIT_FAILURE);
-	free(command);
-	command = NULL;
-	if (send_buffer(sockfd, EOC_MSG "\n") < 0)
-		exit(EXIT_FAILURE);
-	PARA_NOTICE_LOG("%s", "command sent.\n");
-	received = 0;
-	while ((numbytes = recv_bin_buffer(sockfd, buf, sizeof(buf) - 1)) > 0) {
-		buf[numbytes] = '\0';
-		if (!received && strstr(buf, AWAITING_DATA_MSG)) {
-			PARA_NOTICE_LOG("%s", "sending stdin\n");
-			while ((ret = read(STDIN_FILENO, buf,
-					sizeof(buf))) > 0) {
-				if (send_bin_buffer(sockfd, buf, ret) < 0)
-					break;
-			}
-			PARA_NOTICE_LOG("%s", "closing connection\n");
-			numbytes = 1;
-			break;
-		}
-		received = 1;
-		if (write(STDOUT_FILENO, buf, numbytes) != numbytes)
-			break;
+	if (p->status == CL_SENDING_STDIN) {
+		stdin_set_defaults(&sit);
+		sit.buf = para_malloc(sit.bufsize),
+		register_task(&sit.task);
+		p->inbuf = sit.buf;
+		p->in_loaded = &sit.loaded;
+		p->in_eof = &sit.eof;
+		return;
 	}
-	if (!numbytes)
-		PARA_NOTICE_LOG("%s", "connection closed by peer\n");
-	close(sockfd);
-	return ret >= 0? 0: 1;
+	stdout_set_defaults(&sot);
+	sot.buf = p->buf;
+	sot.loaded = &p->loaded;
+	sot.input_eof = &p->eof;
+	register_task(&sot.task);
+}
+
+/*
+ * MAIN
+ */
+int main(int argc, char *argv[])
+{
+
+	int ret;
+	struct sched s;
+
+	s.default_timeout.tv_sec = 1;
+	s.default_timeout.tv_usec = 0;
+	ret = client_parse_config(argc, argv, &pcd);
+	if (ret < 0)
+		goto out;
+	pcd->task.event_handler = client_event_handler;
+	ret = client_open(pcd);
+	if (ret < 0)
+		goto out;
+	ret = sched(&s);
+	client_close(pcd);
+out:
+	if (ret < 0)
+		PARA_ERROR_LOG("%s\n", PARA_STRERROR(-ret));
+	return ret >= 0? EXIT_SUCCESS: EXIT_FAILURE;
 }