* $Source$
* $Header$
*/
+/* (c) Copyright 1988 by the Massachusetts Institute of Technology. */
+/* For copying and distribution information, please see the file */
+/* <mit-copyright.h>. */
#ifndef lint
static char *rcsid_send_file_c = "$Header$";
#endif lint
+#include <mit-copyright.h>
#include <stdio.h>
-#include "com_err.h"
-#include "gdb.h"
-#include "smsu_int.h"
+#include <com_err.h>
+#include <gdb.h>
+#include <dcm.h>
+#include <moira.h>
#include <sys/file.h>
-#include "update.h"
-#include "sms_update_int.h"
-#include "kludge.h"
+#include <sys/stat.h>
+#include <des.h>
+#include <krb.h>
+#include <update.h>
+#ifdef POSIX
+#include <fcntl.h>
+#endif
extern CONNECTION conn;
extern int errno;
char buf[BUFSIZ];
-extern struct update_desc *info;
+extern C_Block session;
/*
* syntax:
*/
int
-send_file(pathname, n_to_send)
- char *pathname;
- int n_to_send;
+send_file(pathname, target_path, encrypt)
+char *pathname;
+char *target_path;
+int encrypt;
{
- int n, fd, code;
+ int n, fd, code, n_to_send, i;
STRING data;
+ unsigned char dst[UPDATE_BUFSIZ + 8], *src;
+ struct stat statb;
+ des_key_schedule sched;
+ des_cblock ivec;
+ /* send file over */
fd = open(pathname, O_RDONLY, 0);
- if (fd == -1) {
- sprintf(buf, "%s: can't open %s for transmission",
- error_message(errno), pathname);
- sms_log_error(buf);
- return(1);
+ if (fd < 0) {
+ com_err(whoami, errno, "unable to open %s for read", pathname);
+ return(MR_OCONFIG);
}
+ if (fstat(fd, &statb)) {
+ com_err(whoami, errno, "unable to stat %s", pathname);
+ close(fd);
+ return(MR_OCONFIG);
+ }
+ n_to_send = statb.st_size;
+
+ string_alloc(&data, UPDATE_BUFSIZ);
+ sprintf(STRING_DATA(data), "XFER_00%c %d %d %s",
+ (encrypt ? '3' : '2'), n_to_send,
+ checksum_file(pathname), target_path);
+ code = send_object(conn, (char *)&data, STRING_T);
+ if (code) {
+ com_err(whoami, code, " sending XFER request");
+ close(fd);
+ return(code);
+ }
+ code = receive_object(conn, (char *)&n, INTEGER_T);
+ if (code) {
+ com_err(whoami, code, " getting reply from XFER request");
+ close(fd);
+ return(code);
+ }
+ if (n) {
+ com_err(whoami, n, " transfer request (XFER) rejected");
+ close(fd);
+ return(n);
+ }
+
code = receive_object(conn, (char *)&n, INTEGER_T);
if (code) {
com_err(whoami, connection_errno(conn), ": lost connection");
- info->override = INTERVAL_connection_lost;
close(fd);
- return(1);
+ return(code);
}
if (n) {
- log_priority = log_ERROR;
- com_err(whoami, n, ": from remote server: can't update %s",
+ com_err(whoami, n, " from remote server: can't update %s",
pathname);
- info->override = INTERVAL_update_failed;
close(fd);
- return(1);
+ return(n);
}
- string_alloc(&data, UPDATE_BUFSIZ);
+
+ if (encrypt) {
+#ifdef DEBUG
+ printf("Session key %02x %02x %02x %02x %02x %02x %02x %02x\n",
+ session[0], session[1], session[2], session[3],
+ session[4], session[5], session[6], session[7]);
+#endif /* DEBUG */
+ des_key_sched(session, sched);
+#ifdef POSIX
+ memmove(ivec, session, sizeof(ivec));
+#else
+ bcopy(session, ivec, sizeof(ivec));
+#endif
+ }
+
while (n_to_send > 0) {
#ifdef DEBUG
printf("n_to_send = %d\n", n_to_send);
#endif /* DEBUG */
n = read(fd, STRING_DATA(data), UPDATE_BUFSIZ);
if (n < 0) {
- sprintf(buf, "%s: reading %s for transmission",
- error_message(errno), pathname);
- sms_log_error(buf);
+ com_err(whoami, errno, " reading %s for transmission", pathname);
close(fd);
- return(1);
+ return(MR_ABORTED);
}
MAX_STRING_SIZE(data) = n;
+ if (encrypt) {
+ src = (unsigned char *)STRING_DATA(data);
+#ifdef POSIX
+ memmove(dst, src, n);
+#else
+ bcopy(src, dst, n);
+#endif
+ memset(dst + n, 0, 7);
+ /* encrypt! */
+ des_pcbc_encrypt(dst, src, n, sched, ivec, 0);
+ /* save vector to continue chaining */
+ for (i = 0; i < 8; i++)
+ ivec[i] = dst[n - 8 + i] ^ src[n - 8 + i];
+ /* round up to multiple of 8 */
+ data.length = (data.length + 7) & 0xfffffff8;
+ }
code = send_object(conn, (char *)&data, STRING_T);
if (code) {
- sprintf(buf, "%s: transmitting file %s",
- error_message(connection_errno(conn)), pathname);
- sms_log_error(buf);
+ com_err(whoami, connection_errno(conn), " transmitting file %s",
+ pathname);
close(fd);
- return(1);
+ return(code);
}
n_to_send -= n;
code = receive_object(conn, (char *)&n, INTEGER_T);
if (code) {
- sprintf(buf,
- "%s: awaiting ACK remote server during transmission of %s",
- error_message(connection_errno(conn)), pathname);
- sms_log_error(buf);
+ com_err(whoami, connection_errno(conn),
+ " awaiting ACK remote server during transmission of %s",
+ pathname);
+ close(fd);
+ return(code);
+ }
+ if (n) {
+ com_err(whoami, n, " from remote server during transmission of %s",
+ pathname);
+ close(fd);
+ return(n);
+ }
+ }
+ if (statb.st_size == 0) {
+ code = receive_object(conn, (char *)&n, INTEGER_T);
+ if (code) {
+ com_err(whoami, connection_errno(conn),
+ " awaiting ACK remote server after transmission of %s",
+ pathname);
close(fd);
- return(1);
+ return(code);
}
if (n) {
- sprintf(buf, "%s: from remote server during transmission of %s",
- error_message(n), pathname);
- sms_log_error(buf);
+ com_err(whoami, n, " from remote server after transmission of %s",
+ pathname);
close(fd);
- return(1);
+ return(n);
}
}
close(fd);
- return(0);
+ return(MR_SUCCESS);
}