/*
 * uupick() pick files out of uucppublic
 */
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <string.h>

#include <news.h>
#include <glob.h>

char *sys = "";
char *user;
char pu[128];
char cmd[2], dir[100];
char line[100];

#if ATARIST
char *kludges();
#else
#define kludges gets
#endif

extern char *basename();

char program[] = "uupick";

char **systems;
int syscount=0;

main(argc, argv)
char **argv;
{
    struct glob_t st;
    register char *p, *q;
    register i;

    while (argc > 1) {
	--argc, ++argv;
	if (strcmp(argv[0], "-s") == 0) {
	    sys = argv[1];
	    ++argv, --argc;
	}
	else {
	    printf("Usage: uupick [-s system]\n");
	    exit(1);
	}
    }
    if ((user=getenv("LOGNAME")) == (char *)0) {
	printf("uupick: who are you?\n");
	exit(2);
    }

    if (!getcfg())
	exit(3);

    if ((systems = malloc(sizeof systems[0])) == (char**)0) {
	fprintf(stderr, "out of memory\n");
	exit(1);
    }
    if (*sys) {
#if GEMDOS
	sprintf(pu, "%s\\receive\\%s\\%s", PUBLIC, user, sys);
#else
	sprintf(pu, "%s/receive/%s/%s", PUBLIC, user, sys);
#endif
	systems[0] = strdup(pu);
	syscount=1;
    }
    else {
#if GEMDOS
	sprintf(pu, "%s\\receive\\%s\\*.*", PUBLIC, user);
#else
	sprintf(pu, "%s/receive/%s/*.*", PUBLIC, user);
#endif
	for (p=glob(pu, (void*)0); p; p=glob((char*)0, (void*)0)) {
	    systems = realloc(systems, (1+syscount)*sizeof systems[0]);
	    systems[syscount++] = strdup(p);
	}
    }

    for (i=0; i<syscount; i++) {
	makepath(pu, systems[i], "*.*");

	for (q=glob(pu, &st); q; q=glob((char*)0, &st)) {
	    if ((st.attrib & F_DIRECT) == 0) {
		p = q + strlen(systems[i]) + 1;
		printf("from system %s; file %s", basename(systems[i]), p);
		while (1) {
		    putchar('?');
		    putchar(' ');fflush(stdout);
		    if (kludges(line) == (char *)0)
			exit(0);
		    cmd[0] = dir[0] = 0;
		    sscanf(line, "%1s %[^\n]", cmd, dir);
		    switch (cmd[0]) {
		    case 'd':   remove(q);
		    case 0:     goto someplace_else;
		    case 'a':
		    case 'm':   sprintf(line, "%s %s %s",
					(cmd[0]=='m') ? "mv" : "cp",
					q, dir[0] ? dir : ".");
				system(line);
				goto someplace_else;
		    case 'p':   sprintf(line, "cat %s", q);
				system(line);
				break;
		    case 'q':   exit(0);
		    case '!':   system(dir);	/* do the command */
				puts("!");
				break;
		    default:    printf("usage: [d][m|a dir][p][q][^D][!cmd][newline]\n");
				break;
		    }
		}
    someplace_else: ;
	    }
	    else /* it's a directory! eek! */
		printf("uupick: can't deal with subdirectory %s\n", p);
	}
    }
}


#if ATARIST
/*
 * gets() doesn't echo a newline when we type ^D, so we need to kludge
 * around it (Atari ST)
 */
#include <errno.h>
#include <atari\osbind.h>

char *
kludges(s)
register char *s;
{
    register char *base=s;
    register c;

    while ((c=Crawcin()) != 4 && c != '\r') {
	if (c == 3)
	    exit(EINVFN);
	else if (c == 4)
	    break;
	else if (c == '\b') {
	    if (s > base) {
		fputs("\b \b", stdout);
		--s;
	    }
	    else
		putchar(7);
	}
	else if (c == 'X'-'@') {
	    puts("^X");
	    s = base;
	}
	else {
	    *s++ = c;
	    putchar((c >= ' ' && c <= '~') ? c : '?');
	}
	fflush(stdout);
    }
    *s = 0;
    putchar('\n');
    return (c=='\r') ? base : (char *)0;
}
#endif