Recently Written · git

sacc.c (19147 bytes)

 /* See LICENSE file for copyright and license details. */
 #include <ctype.h>
 #include <errno.h>
 #include <fcntl.h>
 #include <limits.h>
 #include <locale.h>
 #include <netdb.h>
 #include <netinet/in.h>
 #include <signal.h>
 #include <stdarg.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
 #include <wchar.h>
 #include <sys/socket.h>
 #include <sys/stat.h>
 #include <sys/types.h>
 #include <sys/wait.h>
 
 #include "version.h"
 #include "common.h"
 #include "io.h"
 
 enum {
 	TXT,
 	DIR,
 	CSO,
 	ERR,
 	MAC,
 	DOS,
 	UUE,
 	IND,
 	TLN,
 	BIN,
 	MIR,
 	IBM,
 	GIF,
 	IMG,
 	URL,
 	INF,
 	UNK,
 	BRK,
 };
 
 #define NEED_CONF
 #include "config.h"
 #undef NEED_CONF
 
 void (*diag)(char *, ...);
 
 int interactive;
 const char ident[] = "@(#) sacc(omys): " VERSION;
 
 static char intbuf[256]; /* 256B ought to be enough for any URI */
 static char *mainurl;
 static Item *mainentry;
 static int devnullfd;
 static int parent = 1;
 
 static void
 stddiag(char *fmt, ...)
 {
 	va_list arg;
 
 	va_start(arg, fmt);
 	vfprintf(stderr, fmt, arg);
 	va_end(arg);
 	fputc('\n', stderr);
 }
 
 void
 die(const char *fmt, ...)
 {
 	va_list arg;
 
 	va_start(arg, fmt);
 	vfprintf(stderr, fmt, arg);
 	va_end(arg);
 	fputc('\n', stderr);
 
 	exit(1);
 }
 
 #ifdef NEED_ASPRINTF
 int
 asprintf(char **s, const char *fmt, ...)
 {
 	va_list ap;
 	int n;
 
 	va_start(ap, fmt);
 	n = vsnprintf(NULL, 0, fmt, ap);
 	va_end(ap);
 
 	if (n == INT_MAX || !(*s = malloc(++n)))
 		return -1;
 
 	va_start(ap, fmt);
 	vsnprintf(*s, n, fmt, ap);
 	va_end(ap);
 
 	return n;
 }
 #endif /* NEED_ASPRINTF */
 
 #ifdef NEED_STRCASESTR
 char *
 strcasestr(const char *h, const char *n)
 {
 	size_t i;
 
 	if (!n[0])
 		return (char *)h;
 
 	for (; *h; ++h) {
 		for (i = 0; n[i] && tolower((unsigned char)n[i]) ==
 		            tolower((unsigned char)h[i]); ++i)
 			;
 		if (n[i] == '\0')
 			return (char *)h;
 	}
 
 	return NULL;
 }
 #endif /* NEED_STRCASESTR */
 
 /* print `len' columns of characters. */
 size_t
 mbsprint(const char *s, size_t len)
 {
 	wchar_t wc;
 	size_t col = 0, i, slen;
 	const char *p;
 	int rl, pl, w;
 
 	if (!len)
 		return col;
 
 	slen = strlen(s);
 	for (i = 0; i < slen; i += rl) {
 		rl = mbtowc(&wc, s + i, slen - i < 4 ? slen - i : 4);
 		if (rl == -1) {
 			/* reset state */
 			mbtowc(NULL, NULL, 0);
 			p = "\xef\xbf\xbd"; /* replacement character */
 			pl = 3;
 			rl = w = 1;
 		} else {
 			if ((w = wcwidth(wc)) == -1)
 				continue;
 			pl = rl;
 			p = s + i;
 		}
 		if (col + w > len || (col + w == len && s[i + rl])) {
 			fputs("\xe2\x80\xa6", stdout); /* ellipsis */
 			col++;
 			break;
 		}
 		fwrite(p, 1, pl, stdout);
 		col += w;
 	}
 	return col;
 }
 
 static void *
 xreallocarray(void *m, size_t n, size_t s)
 {
 	void *nm;
 
 	if (n == 0 || s == 0) {
 		free(m);
 		return NULL;
 	}
 	if (s && n > (size_t)-1/s)
 		die("realloc: overflow");
 	if (!(nm = realloc(m, n * s)))
 		die("realloc: %s", strerror(errno));
 
 	return nm;
 }
 
 static void *
 xmalloc(const size_t n)
 {
 	void *m = malloc(n);
 
 	if (!m)
 		die("malloc: %s", strerror(errno));
 
 	return m;
 }
 
 static void *
 xcalloc(size_t n)
 {
 	char *m = calloc(1, n);
 
 	if (!m)
 		die("calloc: %s", strerror(errno));
 
 	return m;
 }
 
 static char *
 xstrdup(const char *str)
 {
 	char *s;
 
 	if (!(s = strdup(str)))
 		die("strdup: %s", strerror(errno));
 
 	return s;
 }
 
 static void
 usage(void)
 {
 	die("usage: sacc URL");
 }
 
 static void
 clearitem(Item *item)
 {
 	Dir *dir;
 	Item *items;
 	char *tag;
 	size_t i;
 
 	if (!item)
 		return;
 
 	if (dir = item->dat) {
 		items = dir->items;
 		for (i = 0; i < dir->nitems; ++i)
 			clearitem(&items[i]);
 		free(items);
 		clear(&item->dat);
 	}
 
 	if (parent && (tag = item->tag) &&
 	    !strncmp(tag, tmpdir, strlen(tmpdir)))
 		unlink(tag);
 
 	clear(&item->tag);
 	clear(&item->raw);
 }
 
 const char *
 typedisplay(char t)
 {
 	switch (t) {
 	case '0':
 		return typestr[TXT];
 	case '1':
 		return typestr[DIR];
 	case '2':
 		return typestr[CSO];
 	case '3':
 		return typestr[ERR];
 	case '4':
 		return typestr[MAC];
 	case '5':
 		return typestr[DOS];
 	case '6':
 		return typestr[UUE];
 	case '7':
 		return typestr[IND];
 	case '8':
 		return typestr[TLN];
 	case '9':
 		return typestr[BIN];
 	case '+':
 		return typestr[MIR];
 	case 'T':
 		return typestr[IBM];
 	case 'g':
 		return typestr[GIF];
 	case 'I':
 		return typestr[IMG];
 	case 'h':
 		return typestr[URL];
 	case 'i':
 		return typestr[INF];
 	default:
 		/* "Characters '0' through 'Z' are reserved." (ASCII) */
 		if (t >= '0' && t <= 'Z')
 			return typestr[BRK];
 		else
 			return typestr[UNK];
 	}
 }
 
 int
 itemuri(Item *item, char *buf, size_t bsz)
 {
 	int n;
 
 	switch (item->type) {
 	case '8':
 		n = snprintf(buf, bsz, "telnet://%s@%s:%s",
 		             item->selector, item->host, item->port);
 		break;
 	case 'T':
 		n = snprintf(buf, bsz, "tn3270://%s@%s:%s",
 		             item->selector, item->host, item->port);
 		break;
 	case 'h': /* fallthrough */
 		if (!strncmp(item->selector, "URL:", 4)) {
 			n = snprintf(buf, bsz, "%s", item->selector+4);
 			break;
 		}
 	default:
 		n = snprintf(buf, bsz, "gopher://%s", item->host);
 
 		if (n < bsz-1 && strcmp(item->port, "70"))
 			n += snprintf(buf+n, bsz-n, ":%s", item->port);
 		if (n < bsz-1) {
 			n += snprintf(buf+n, bsz-n, "/%c%s",
 			              item->type, item->selector);
 		}
 		if (n < bsz-1 && item->type == '7' && item->tag) {
 			n += snprintf(buf+n, bsz-n, "%%09%s",
 			              item->tag + strlen(item->selector));
 		}
 		break;
 	}
 
 	return n;
 }
 
 static void
 printdir(Item *item)
 {
 	Dir *dir;
 	Item *items;
 	size_t i, nitems;
 
 	if (!item || !(dir = item->dat))
 		return;
 
 	items = dir->items;
 	nitems = dir->nitems;
 
 	for (i = 0; i < nitems; ++i) {
 		printf("%s%s\n",
 		       typedisplay(items[i].type), items[i].username);
 	}
 }
 
 static void
 displaytextitem(Item *item)
 {
 	struct sigaction sa;
 	FILE *pagerin;
 	int pid, wpid;
 
 	sigemptyset(&sa.sa_mask);
 	sa.sa_flags = SA_RESTART;
 	sa.sa_handler = SIG_DFL;
 	sigaction(SIGWINCH, &sa, NULL);
 
 	uicleanup();
 
 	switch (pid = fork()) {
 	case -1:
 		diag("Couldn't fork.");
 		return;
 	case 0:
 		parent = 0;
 		if (!(pagerin = popen("$PAGER", "w")))
 			_exit(1);
 		fputs(item->raw, pagerin);
 		exit(pclose(pagerin));
 	default:
 		while ((wpid = wait(NULL)) >= 0 && wpid != pid)
 			;
 	}
 	uisetup();
 
 	sa.sa_handler = uisigwinch;
 	sigaction(SIGWINCH, &sa, NULL);
 	uisigwinch(SIGWINCH); /* force redraw */
 }
 
 static char *
 pickfield(char **raw, const char *sep)
 {
 	char c, *r, *f = *raw;
 
 	for (r = *raw; (c = *r) && !strchr(sep, c); ++r) {
 		if (c == '\n')
 			goto skipsep;
 	}
 
 	*r++ = '\0';
 skipsep:
 	*raw = r;
 
 	return f;
 }
 
 static char *
 invaliditem(char *raw)
 {
 	char c;
 	int tabs;
 
 	for (tabs = 0; (c = *raw) && c != '\n'; ++raw) {
 		if (c == '\t')
 			++tabs;
 	}
 	if (tabs < 3) {
 		*raw++ = '\0';
 		return raw;
 	}
 
 	return NULL;
 }
 
 static void
 molditem(Item *item, char **raw)
 {
 	char *next;
 
 	if (!*raw)
 		return;
 
 	if ((next = invaliditem(*raw))) {
 		item->username = *raw;
 		*raw = next;
 		return;
 	}
 
 	item->type = *raw[0]++;
 	item->username = pickfield(raw, "\t");
 	item->selector = pickfield(raw, "\t");
 	item->host = pickfield(raw, "\t");
 	item->port = pickfield(raw, "\t\r");
 	while (*raw[0] != '\n')
 		++*raw;
 	*raw[0]++ = '\0';
 }
 
 static Dir *
 molddiritem(char *raw)
 {
 	Item *item, *items = NULL;
 	char *nl, *p;
 	Dir *dir;
 	size_t i, n, nitems;
 
 	for (nl = raw, nitems = 0; p = strchr(nl, '\n'); nl = p+1)
 		++nitems;
 
 	if (!nitems) {
 		diag("Couldn't parse dir item");
 		return NULL;
 	}
 
 	dir = xmalloc(sizeof(Dir));
 	items = xreallocarray(items, nitems, sizeof(Item));
 	memset(items, 0, nitems * sizeof(Item));
 
 	for (i = 0; i < nitems; ++i) {
 		item = &items[i];
 		molditem(item, &raw);
 		if (item->type == '+') {
 			for (n = i - 1; n < (size_t)-1; --n) {
 				if (items[n].type != '+') {
 					item->redtype = items[n].type;
 					break;
 				}
 			}
 		}
 	}
 
 	dir->items = items;
 	dir->nitems = nitems;
 	dir->printoff = dir->curline = 0;
 
 	return dir;
 }
 
 static char *
 getrawitem(struct cnx *c)
 {
 	char *raw, *buf;
 	size_t bn, bs;
 	ssize_t n;
 
 	raw = buf = NULL;
 	bn = bs = n = 0;
 
 	do {
 		bs -= n;
 		buf += n;
 
 		if (buf - raw >= 5) {
 			if (strncmp(buf-5, "\r\n.\r\n", 5) == 0) {
 				buf[-3] = '\0';
 				break;
 			}
 		} else if (buf - raw == 3 && strncmp(buf-3, ".\r\n", 3)) {
 			buf[-3] = '\0';
 			break;
 		}
 
 		if (bs < 1) {
 			raw = xreallocarray(raw, ++bn, BUFSIZ);
 			buf = raw + (bn-1) * BUFSIZ;
 			bs = BUFSIZ;
 		}
 
 	} while ((n = ioread(c, buf, bs)) > 0);
 
 	*buf = '\0';
 
 	if (n == -1) {
 		diag("Can't read socket: %s", strerror(errno));
 		clear(&raw);
 	}
 
 	return raw;
 }
 
 static int
 sendselector(struct cnx *c, const char *selector)
 {
 	char *msg, *p;
 	size_t ln;
 	ssize_t n;
 
 	ln = strlen(selector) + 3;
 	msg = p = xmalloc(ln);
 	snprintf(msg, ln--, "%s\r\n", selector);
 
 	while (ln && (n = iowrite(c, p, ln)) > 0) {
 		ln -= n;
 		p += n;
 	}
 
 	free(msg);
 	if (n == -1)
 		diag("Can't send message: %s", strerror(errno));
 
 	return n;
 }
 
 static int
 connectto(const char *host, const char *port, struct cnx *c)
 {
 	sigset_t set, oset;
 	static const struct addrinfo hints = {
 	    .ai_family = AF_UNSPEC,
 	    .ai_socktype = SOCK_STREAM,
 	    .ai_protocol = IPPROTO_TCP,
 	};
 	struct addrinfo *addrs, *ai;
 	int r, err;
 
 	sigemptyset(&set);
 	sigaddset(&set, SIGWINCH);
 	sigprocmask(SIG_BLOCK, &set, &oset);
 
 	if (r = getaddrinfo(host, port, &hints, &addrs)) {
 		diag("Can't resolve hostname \"%s\": %s",
 		     host, gai_strerror(r));
 		goto err;
 	}
 
 	r = -1;
 	for (ai = addrs; ai && r == -1; ai = ai->ai_next) {
 		do {
 			if ((c->sock = socket(ai->ai_family, ai->ai_socktype,
 			                      ai->ai_protocol)) == -1) {
 				err = errno;
 				break;
 			}
 
 			if ((r = ioconnect(c, ai, host)) < 0) {
 				err = errno;
 				ioclose(c);
 			}
 		} while (r == CONN_RETRY);
 	}
 
 	freeaddrinfo(addrs);
 
 	if (r == CONN_ERROR)
 		ioconnerr(c, host, port, err);
 err:
 	sigprocmask(SIG_SETMASK, &oset, NULL);
 
 	return r;
 }
 
 static int
 download(Item *item, int dest)
 {
 	char buf[BUFSIZ];
 	struct cnx c = { 0 };
 	ssize_t r, w;
 
 	if (item->tag == NULL) {
 		if (connectto(item->host, item->port, &c) < 0 ||
 		    sendselector(&c, item->selector) == -1)
 			return 0;
 	} else {
 		if ((c.sock = open(item->tag, O_RDONLY)) == -1) {
 			printf("Can't open source file %s: %s",
 			       item->tag, strerror(errno));
 			errno = 0;
 			return 0;
 		}
 	}
 
 	w = 0;
 	while ((r = ioread(&c, buf, BUFSIZ)) > 0) {
 		while ((w = write(dest, buf, r)) > 0)
 			r -= w;
 	}
 
 	if (r == -1 || w == -1) {
 		printf("Error downloading file %s: %s",
 		       item->selector, strerror(errno));
 		errno = 0;
 	}
 
 	close(dest);
 	ioclose(&c);
 
 	return (r == 0 && w == 0);
 }
 
 static void
 downloaditem(Item *item)
 {
 	char *file, *path, *tag;
 	mode_t mode = S_IRUSR|S_IWUSR|S_IRGRP;
 	int dest;
 
 	if (file = strrchr(item->selector, '/'))
 		++file;
 	else
 		file = item->selector;
 
 	if (!(path = uiprompt("Download to [%s] (^D cancel): ", file)))
 		return;
 
 	if (!path[0])
 		path = xstrdup(file);
 
 	if (tag = item->tag) {
 		if (access(tag, R_OK) == -1) {
 			clear(&item->tag);
 		} else if (!strcmp(tag, path)) {
 			goto cleanup;
 		}
 	}
 
 	if ((dest = open(path, O_WRONLY|O_CREAT|O_EXCL, mode)) == -1) {
 		diag("Can't open destination file %s: %s",
 		     path, strerror(errno));
 		errno = 0;
 		goto cleanup;
 	}
 
 	if (!download(item, dest))
 		goto cleanup;
 
 	if (item->tag)
 		goto cleanup;
 
 	item->tag = path;
 
 	return;
 cleanup:
 	free(path);
 	return;
 }
 
 static int
 fetchitem(Item *item)
 {
 	struct cnx c;
 	char *raw;
 
 	if (connectto(item->host, item->port, &c) < 0 ||
 	    sendselector(&c, item->selector) == -1)
 		return 0;
 
 	raw = getrawitem(&c);
 	ioclose(&c);
 
 	if (raw == NULL || !*raw) {
 		diag("Empty response from server");
 		clear(&raw);
 	}
 
 	return ((item->raw = raw) != NULL);
 }
 
 static void
 pipeuri(char *cmd, char *msg, char *uri)
 {
 	FILE *sel;
 
 	if ((sel = popen(cmd, "w")) == NULL) {
 		diag("URI not %s\n", msg);
 		return;
 	}
 
 	fputs(uri, sel);
 	pclose(sel);
 	diag("%s \"%s\"", msg, uri);
 }
 
 static void
 execuri(char *cmd, char *msg, char *uri)
 {
 	switch (fork()) {
 	case -1:
 		diag("Couldn't fork.");
 		return;
 	case 0:
 		parent = 0;
 		dup2(devnullfd, 1);
 		dup2(devnullfd, 2);
 		if (execlp(cmd, cmd, uri, NULL) == -1)
 			_exit(1);
 	default:
 		if (modalplumber) {
 			while (waitpid(-1, NULL, 0) != -1)
 				;
 		}
 	}
 
 	diag("%s \"%s\"", msg, uri);
 }
 
 static void
 plumbitem(Item *item)
 {
 	char *file, *path, *tag;
 	mode_t mode = S_IRUSR|S_IWUSR|S_IRGRP;
 	int dest, plumbitem;
 
 	if (file = strrchr(item->selector, '/'))
 		++file;
 	else
 		file = item->selector;
 
 	path = uiprompt("Download %s to (^D cancel, <empty> plumb): ",
 	                file);
 	if (!path)
 		return;
 
 	if ((tag = item->tag) && access(tag, R_OK) == -1) {
 		clear(&item->tag);
 		tag = NULL;
 	}
 
 	plumbitem = path[0] ? 0 : 1;
 
 	if (!path[0]) {
 		clear(&path);
 		if (!tag) {
 			if (asprintf(&path, "%s/%s", tmpdir, file) == -1)
 				die("Can't generate tmpdir path: %s/%s: %s",
 				    tmpdir, file, strerror(errno));
 		}
 	}
 
 	if (path && (!tag || strcmp(tag, path))) {
 		if ((dest = open(path, O_WRONLY|O_CREAT|O_EXCL, mode)) == -1) {
 			diag("Can't open destination file %s: %s",
 			     path, strerror(errno));
 			errno = 0;
 			goto cleanup;
 		}
 		if (!download(item, dest) || tag)
 			goto cleanup;
 	}
 
 	if (!tag)
 		item->tag = path;
 
 	if (plumbitem)
 		execuri(plumber, "Plumbed", item->tag);
 
 	return;
 cleanup:
 	free(path);
 	return;
 }
 
 void
 yankitem(Item *item)
 {
 	if (item->type == 0)
 		return;
 
 	itemuri(item, intbuf, sizeof(intbuf));
 	pipeuri(yanker, "Yanked", intbuf);
 }
 
 static int
 dig(Item *entry, Item *item)
 {
 	char *plumburi = NULL;
 	int t;
 
 	if (item->raw) /* already in cache */
 		return item->type;
 	if (!item->entry)
 		item->entry = entry ? entry : item;
 
 	t = item->redtype ? item->redtype : item->type;
 	switch (t) {
 	case 'h': /* fallthrough */
 		if (!strncmp(item->selector, "URL:", 4)) {
 			execuri(plumber, "Plumbed", item->selector+4);
 			return 0;
 		}
 	case '0':
 		if (!fetchitem(item))
 			return 0;
 		break;
 	case '1':
 	case '7':
 		if (!fetchitem(item) || !(item->dat = molddiritem(item->raw)))
 			return 0;
 		break;
 	case '4':
 	case '5':
 	case '6':
 	case '9':
 		downloaditem(item);
 		return 0;
 	case '8':
 		if (asprintf(&plumburi, "telnet://%s%s%s:%s",
 		             item->selector, item->selector ? "@" : "",
 		             item->host, item->port) == -1)
 			return 0;
 		execuri(plumber, "Plumbed", plumburi);
 		free(plumburi);
 		return 0;
 	case 'T':
 		if (asprintf(&plumburi, "tn3270://%s%s%s:%s",
 		             item->selector, item->selector ? "@" : "",
 		             item->host, item->port) == -1)
 			return 0;
 		execuri(plumber, "Plumbed", plumburi);
 		free(plumburi);
 		return 0;
 	default:
 		if (t >= '0' && t <= 'Z') {
 			diag("Type %c (%s) not supported", t, typedisplay(t));
 			return 0;
 		}
 	case 'g':
 	case 'I':
 		plumbitem(item);
 	case 'i':
 		return 0;
 	}
 
 	return item->type;
 }
 
 static char *
 searchselector(Item *item)
 {
 	char *pexp, *exp, *tag, *selector = item->selector;
 	size_t n = strlen(selector);
 
 	if ((tag = item->tag) && !strncmp(tag, selector, n))
 		pexp = tag + n+1;
 	else
 		pexp = "";
 
 	if (!(exp = uiprompt("Enter search string (^D cancel) [%s]: ", pexp)))
 		return NULL;
 
 	if (exp[0] && strcmp(exp, pexp)) {
 		n += strlen(exp) + 2;
 		tag = xmalloc(n);
 		snprintf(tag, n, "%s\t%s", selector, exp);
 	}
 
 	free(exp);
 	return tag;
 }
 
 static int
 searchitem(Item *entry, Item *item)
 {
 	char *sel, *selector;
 
 	if (!(sel = searchselector(item)))
 		return 0;
 
 	if (sel != item->tag)
 		clearitem(item);
 	if (!item->dat) {
 		selector = item->selector;
 		item->selector = item->tag = sel;
 		dig(entry, item);
 		item->selector = selector;
 	}
 	return (item->dat != NULL);
 }
 
 static void
 printout(Item *hole)
 {
 	char t = 0;
 
 	if (!hole)
 		return;
 
 	switch (hole->redtype ? hole->redtype : (t = hole->type)) {
 	case '0':
 		if (dig(hole, hole))
 			fputs(hole->raw, stdout);
 		return;
 	case '1':
 	case '7':
 		if (dig(hole, hole))
 			printdir(hole);
 		return;
 	default:
 		if (t >= '0' && t <= 'Z') {
 			diag("Type %c (%s) not supported", t, typedisplay(t));
 			return;
 		}
 	case '4':
 	case '5':
 	case '6':
 	case '9':
 	case 'g':
 	case 'I':
 		download(hole, 1);
 	case '2':
 	case '3':
 	case '8':
 	case 'T':
 		return;
 	}
 }
 
 static void
 delve(Item *hole)
 {
 	Item *entry = NULL;
 
 	while (hole) {
 		switch (hole->redtype ? hole->redtype : hole->type) {
 		case 'h':
 		case '0':
 			if (dig(entry, hole))
 				displaytextitem(hole);
 			break;
 		case '1':
 		case '+':
 			if (dig(entry, hole) && hole->dat)
 				entry = hole;
 			break;
 		case '7':
 			if (searchitem(entry, hole))
 				entry = hole;
 			break;
 		case 0:
 			diag("Couldn't get %s", hole->username);
 			break;
 		case '4':
 		case '5':
 		case '6': /* TODO decode? */
 		case '8':
 		case '9':
 		case 'g':
 		case 'I':
 		case 'T':
 		default:
 			dig(entry, hole);
 			break;
 		}
 
 		if (!entry)
 			return;
 
 		do {
 			uidisplay(entry);
 			hole = uiselectitem(entry);
 		} while (hole == entry);
 	}
 }
 
 static Item *
 moldentry(char *url)
 {
 	Item *entry;
 	char *p, *host = url, *port = "70", *gopherpath = "1";
 	int parsed, ipv6;
 
 	host = ioparseurl(url);
 
 	if (*host == '[') {
 		ipv6 = 1;
 		++host;
 	} else {
 		ipv6 = 0;
 	}
 
 	for (parsed = 0, p = host; !parsed && *p; ++p) {
 		switch (*p) {
 		case ']':
 			if (ipv6) {
 				*p = '\0';
 				ipv6 = 0;
 			}
 			continue;
 		case ':':
 			if (!ipv6) {
 				*p = '\0';
 				port = p+1;
 			}
 			continue;
 		case '/':
 			*p = '\0';
 			parsed = 1;
 			continue;
 		}
 	}
 
 	if (*host == '\0' || *port == '\0' || ipv6)
 		die("Can't parse url");
 
 	if (*p != '\0')
 		gopherpath = p;
 
 	entry = xcalloc(sizeof(Item));
 	entry->type = gopherpath[0];
 	entry->username = entry->selector = ++gopherpath;
 	if (entry->type == '7') {
 		if (p = strstr(gopherpath, "%09")) {
 			memmove(p+1, p+3, strlen(p+3)+1);
 			*p = '\t';
 		}
 		if (p || (p = strchr(gopherpath, '\t'))) {
 			asprintf(&entry->tag, "%s", gopherpath);
 			*p = '\0';
 		}
 	}
 	entry->host = host;
 	entry->port = port;
 	entry->entry = entry;
 
 	return entry;
 }
 
 static void
 cleanup(void)
 {
 	clearitem(mainentry);
 	if (parent)
 		rmdir(tmpdir);
 	free(mainentry);
 	free(mainurl);
 	if (interactive)
 		uicleanup();
 }
 
 static void
 sighandler(int signo)
 {
 	exit(128 + signo);
 }
 
 static void
 setup(void)
 {
 	struct sigaction sa;
 	int fd;
 
 	setlocale(LC_CTYPE, "");
 	setenv("PAGER", "more", 0);
 	atexit(cleanup);
 	/* reopen stdin in case we're reading from a pipe */
 	if ((fd = open("/dev/tty", O_RDONLY)) == -1)
 		die("open: /dev/tty: %s", strerror(errno));
 	if (dup2(fd, 0) == -1)
 		die("dup2: /dev/tty, stdin: %s", strerror(errno));
 	close(fd);
 	if ((devnullfd = open("/dev/null", O_WRONLY)) == -1)
 		die("open: /dev/null: %s", strerror(errno));
 
 	sigemptyset(&sa.sa_mask);
 	sa.sa_flags = SA_RESTART;
 	sa.sa_handler = sighandler;
 	sigaction(SIGINT, &sa, NULL);
 	sigaction(SIGHUP, &sa, NULL);
 	sigaction(SIGTERM, &sa, NULL);
 
 	sa.sa_handler = SIG_IGN;
 	sigaction(SIGCHLD, &sa, NULL);
 
 	if (!mkdtemp(tmpdir))
 		die("mkdir: %s: %s", tmpdir, strerror(errno));
 	if (interactive = isatty(1)) {
 		uisetup();
 		diag = uistatus;
 		sa.sa_handler = uisigwinch;
 		sigaction(SIGWINCH, &sa, NULL);
 	} else {
 		diag = stddiag;
 	}
 	iosetup();
 }
 
 int
 main(int argc, char *argv[])
 {
 	if (argc != 2)
 		usage();
 
 	setup();
 
 	mainurl = xstrdup(argv[1]);
 	mainentry = moldentry(mainurl);
 
 	if (interactive)
 		delve(mainentry);
 	else
 		printout(mainentry);
 
 	exit(0);
 }