/*
 * uucp: copy files from one system to another.
 */
#include <stdio.h>
#include <malloc.h>
#include <string.h>
#include <stdlib.h>

#include <news.h>
#if GEMDOS
#include <atari\osbind.h>
#endif
#if OS2
#include <os2.h>
#endif
#include <cico.h>
#include <glob.h>

char destination[80];
char source[80];
int status;
char workto[128];
char *LOGNAME;

extern char *itob36();
char *unixfy();

char immediate=0;		/* immediately call cico */
char makedir=1;			/* make directories during copy */
char notify=0;			/* tell someone on dest system when stuff */
				/* arrives */
char needtocall=0;		/* for -i; set if any uucp command goes off */
				/* the system */
char *destperson;

char program[] = "uucp";

extern int getopt();
extern char *optarg;
extern int optind, optopt;

main(argc, argv)
char **argv;
{
    register i;

    if ((LOGNAME=getenv("LOGNAME")) == (char *)0)
	LOGNAME = "root";
    destperson = LOGNAME;
    argv[0] = program;

    while (getopt(argc, argv, "CiIfFn:N:") != EOF)
	switch (optopt) {
	case 'i':
	case 'I':   immediate = 1;
		    break;
	case 'f':
	case 'F':   makedir = 0;
		    break;
	case 'n':
	case 'N':   destperson = optarg;
		    notify=1;
		    break;
	case 'C':	/* copy?  Okay... */
		    break;
	case '?':
	badboy:     fprintf(stderr, "usage: uucp [-C] [-if] [-nUSER] [system!]from [system!]to\n");
		    fprintf(stderr, "                                 f1 f2 .. fn system!to\n");
		    exit(99);
	}

    if (optind > argc-2)
	goto badboy;

    if (!getcfg())
	exit(1);

    if (getsys(argv[argc-1], destination))
	makepath(workto, SPOOL, destination);

    if (argc-optind == 2)
	docopy(0, argv[optind], destination, argv[argc-1]);
    else for (i=optind; i<argc-1; i++)
	docopy(1, argv[i], destination, argv[argc-1]);

    if (immediate && needtocall)
	system("cico -r1");

    exit(status);
}


/*
 * find if a system exists; trim the system name from the path
 * that was passed to us
 */
getsys(pathname, system)
char *pathname, *system;
{
    register char *p;

    if (p=strchr(pathname, '!')) {
	*p++ = 0;
	strncpy(system, pathname, 7);
	system[7] = 0;
	strcpy(pathname, p);

	if (findsys(system))
	    return 1;
	fprintf(stderr, "uucp: no system %s\n", system);
	exit(9);
    }
    system[0] = 0;
    return 0;
} /* getsys */


char *
fullpathof(s)
register char *s;
{
    static char template[128];

    if (*s != '/' && s[1] != ':') {
	getwd(template);
	strlwr(unixfy(template));
	if (template[strlen(template)-1] != '/')
	    strcat(template, "/");
	strcat(template, s);
    }
    else {
	if (s[1] == ':' && s[2] != '/')
	    sprintf(template, "%c:/%s", s[0], 2+s);
	else if (s[0] == '/') {
#if GEMDOS
	    sprintf(template, "%c:%s", Dgetdrv()+65, s);
#endif
#if OS2
	    short drive;
	    long drivemap;

	    DosQCurDisk(&drive, &drivemap);
	    sprintf(template, "%c:%s", ('a'-1)+drive, s);
#endif
	}
	else
	    strcpy(template, s);
    }
    strlwr(template);
    return template;
}


char *
unixfy(s)
register char *s;
{
    register char *base;

    for (base=s; *s; ++s)
	if (*s == '\\')
	    *s = '/';
    return base;
}


/*
 * copy or set up to remote copy a single file
 */
docopy(todir, from, systo, fileto)
char *from, *systo, *fileto;
{
    FILE *x;
    char workfrom[128];
    register c;
    register char *p;
    int f, t;
    char *suffix;
    char *zseq;

    if (getsys(from, source)) {
	if (x=fopen(makepath(workfrom, SPOOL, source), "a")) {
	    if (destination[0]) {
		fprintf(x, " %3sR %s !%s!%s %s -dc\n",
			    itob36(getseq()), unixfy(from),
			    systo, unixfy(fileto), LOGNAME);
	    }
	    else {
		p = fullpathof(unixfy(fileto));
		if (access(p, 0) >= 0) {
		    fprintf(stderr, "overwrite %s? ", fileto);
		    fflush(stderr);
		    gets(workfrom);
		    if (workfrom[0] == 'y' || workfrom[0] == 'Y')
			remove(p);
		    else
			return (status = 7);
		}
		fprintf(x, " %3sR %s %s %s -dc\n",
			    itob36(getseq()), unixfy(from),
			    unixfy(p), LOGNAME);
	    }
	    fclose(x);
	    needtocall=1;
	    status = 0;
	}
	else {
	    fprintf(stderr, "uucp: cannot open workfile for %s\n", source);
	    status = 5;
	}
    }
    else if (destination[0]) {
	if (x=fopen(workto, "a")) {
	    unixfy(fileto);
	    zseq = itob36(getseq());
	    suffix = (todir && fileto[strlen(fileto)-1] != '/') ? "/" : "";
	    for (c=0,p=glob(from, (void*)0); p;
					    c++,p=glob((char*)0, (void*)0)) {
		fprintf(x, " %3sS %s %s%s %s -%cc%s D.0 666 %s\n",
			zseq,
			fullpathof(unixfy(p)), fileto, suffix,
			LOGNAME, makedir ? 'd' : 'f',
			notify ? "n" : "", destperson);
		needtocall=1;
	    }
	    fclose(x);
	    if (c == 0) {
		fprintf(stderr, "uucp: no %s\n", from);
		status = 6;
	    }
	    else
		status = 0;
	}
	else {
	    fprintf(stderr, "uucp: cannot open workfile for %s\n", source);
	    status = 5;
	}
    }
    else { /* local copy */
	sprintf(workfrom, "cp %s %s", from, fileto);
	status = system(workfrom);
    }
    return status;
} /* docopy */