/*
 *  UUX.C
 *
 *  $Header: Beta:src/uucp/src/uucico/RCS/uux.c,v 1.1 90/02/02 11:56:20 dillon Exp Locker: dillon $
 *
 *  Copyright 1988 by William Loftus.	All rights reserved.
 *
 *  Example: 1> uux mail-message "burdvax!rmail wpl"
 *
 *  NOTE:   UUX uses C.<host>N<seqno> instead of C.<host>A<seqno> to ensure
 *	    UUX transfers occur *after* any email
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "version.h"
#include "protos.h"

IDENT(".05");

char *NodeName;
char CutNodeName[8];

char user[128];
char file_name[128];
char command[128];

char exec_file[128];
char x_exec_file[128];
char command_file[128];
char data_file[128];
int seq;

char path[128];

void GetTo();
void GetSubject();

#define TRUE 1
#define FALSE 0

int
brk()
{
    return(0);
}

main(argc, argv)
int argc;
char **argv;
{
    int error;
    char *up = GetUserName();

    NodeName = FindConfig(NODENAME);
    strncpy(CutNodeName, NodeName, 7);

    onbreak(brk);
    if (up == NULL) {
	printf("couldn't find config entry for %s\n", USERNAME);
	exit(1);
    }
    strcpy(user, up);

    getcwd(path,128);
    chdir(GetConfigDir(UUSPOOL));
    if (argc == 3) {
	strcpy(file_name, argv[1]);
	strcpy(command, argv[2]);
    } else {
	printf("Usage: uux file-name command\n");
	printf("Example: 1> uux mail-message \"burdvax!rmail wpl\"\n");
	chdir(path);
	exit(1);
    }
    seq = GetSequence(4);
    if (seq >= 0)
	error = Queue();
    UnLockFile(exec_file);
    UnLockFile(x_exec_file);
    UnLockFile(command_file);
    UnLockFile(data_file);
    chdir(path);
    if (seq < 0 || error < 0)
	exit(1);
    return(0);
}

Queue()
{
    FILE *fp;
    char system_name[32];
    int bang;
    int error;

    bang = (int)strchr(command,'!');
    bang = bang - (int)command;

    strncpy(system_name, command, bang);

    system_name[bang] = '\0';

    if (!is_in_L_sys_file(system_name)) {
	printf ("System \"%s\" not in L.sys file.\n", system_name);
	return(-1);
    }

    system_name[7] = '\0';

    /*
     *	exec_file	Exec file as it appears on remote machine
     *	x_exec_file	Remote's Exec file as it appears on this machine
     *	command_file	Command file (this machine only)
     *	data_file	DataFile as it appears on both local & remote machines
     *
     *	local (overload)    txfer_to    remote (uunet)
     *
     *	    C.uunetNxxxx    <not txfered>			command file
     *	    D.overloaXxxxx		X.overloaXxxxx		exec / x_exec
     *	    D.overloaBxxxx		D.overloaBxxxx		data file
     */


    sprintf(exec_file,"D.%sX%04d", CutNodeName, seq++);
    sprintf(x_exec_file,"X.%sX%04d", CutNodeName, seq++);
    sprintf(command_file,"C.%sN%04d", system_name, seq++);
    sprintf(data_file,"D.%sB%04d", CutNodeName, seq);

    LockFile(exec_file);
    LockFile(x_exec_file);
    LockFile(command_file);
    LockFile(data_file);

    fp = fopen(exec_file,"w");
    if (fp) {
	fprintf(fp,"U %s\n", user);
	fprintf(fp,"F %s\n", data_file);
	fprintf(fp,"I %s\n", data_file);
	fprintf(fp,"C %s\n", (char *)command + bang + 1);
	fclose(fp);
    } else {
	perror(exec_file);
	return(-1);
    }

    fp = fopen(command_file,"w");
    if (fp) {
	fprintf(fp,"S %s %s %s - %s 0666\n",
	    data_file,
	    data_file,
	    user,
	    data_file
	);
	fprintf(fp,"S %s %s %s - %s 0666\n",
	    exec_file,
	    x_exec_file,
	    user,
	    exec_file
	);
	fclose(fp);
    } else {
	perror(command_file);
	return(-1);
    }
    chdir(path);
    error =  Copy(file_name, data_file);
    chdir(GetConfigDir(UUSPOOL));
    return(error);
}

/*
 * Read the control file and grab a few parameters.
 */

Copy(from, to)
char *from;
char *to;
{
    FILE *fd;
    FILE *td;
    int c;
    static char to_buf[128];

    fd = fopen(from, "r");
    if (!fd) {
	printf("Could not open %s.\n", from);
	perror(from);
	return(-1);
    }

    strcpy(to_buf, MakeConfigPath(UUSPOOL, to));

    td = fopen(to_buf, "w");
    if (!td) {
	printf("Could not open %s.\n", to_buf);
	perror(to);
	return(-1);
    }
    while ((c = fgetc(fd)) != EOF) {
	fputc((char)c, td);
    }
    fclose(fd);
    fclose(td);
    return(1);
}