1 files changed, 124 insertions, 0 deletions
diff --git a/unblock-contact.c b/unblock-contact.c
new file mode 100644
index 0000000..ad2b5a0
--- /dev/null
+++ b/unblock-contact.c
@@ -0,0 +1,124 @@
+/* See LICENSE file for copyright and license details. */
+#include "common.h"
+
+USAGE("[-a ask-at] [-s service] [-t type] [-u unblock-at] [-y style] contact-id ...");
+
+
+int
+main(int argc, char *argv[])
+{
+	int explicit = 0;
+	enum libcontacts_block_type shadow_block = 0;
+	time_t soft_unblock = 0, hard_unblock = 0;
+	const char *srv = NULL, *type = NULL, *style = NULL, *ask = NULL, *ublk = NULL;
+	struct passwd *user;
+	struct libcontacts_contact contact;
+	struct libcontacts_block **r, **w;
+	char *p;
+	size_t i;
+	int ret = 0;
+
+	ARGBEGIN {
+	case 'a':
+		if (ask)
+			usage();
+		ask = ARG();
+		if (!isdigit(*ask))
+			usage();
+		soft_unblock = (time_t)strtoumax(ask, &p, 10);
+		if (errno || *p)
+			usage();
+		break;
+	case 's':
+		if (srv)
+			usage();
+		srv = ARG();
+		break;
+	case 't':
+		if (type)
+			usage();
+		type = ARG();
+		break;
+	case 'u':
+		if (ublk)
+			usage();
+		ublk = ARG();
+		if (!isdigit(*ublk))
+			usage();
+		hard_unblock = (time_t)strtoumax(ublk, &p, 10);
+		if (errno || *p)
+			usage();
+		break;
+	case 'y':
+		if (style)
+			usage();
+		style = ARG();
+		break;
+	default:
+		usage();
+	} ARGEND;
+
+	if (!argc)
+		usage();
+
+	for (i = 0; argv[i]; i++)
+		if (!*argv[i] || strchr(argv[i], '/'))
+			usage();
+
+	if (type) {
+		if (!strcmp(type, "explicit"))
+			explicit = 1;
+		else if (!strcmp(type, "shadow"))
+			explicit = 0;
+		else
+			eprintf("value of -t shall be either \"explicit\" or \"shadow\"\n");
+	}
+
+	if (style) {
+		if (!strcmp(style, "silent"))
+			shadow_block = LIBCONTACTS_SILENT;
+		else if (!strcmp(style, "as-off"))
+			shadow_block = LIBCONTACTS_BLOCK_OFF;
+		else if (!strcmp(style, "as-busy"))
+			shadow_block = LIBCONTACTS_BLOCK_BUSY;
+		else if (!strcmp(style, "ignore"))
+			shadow_block = LIBCONTACTS_BLOCK_IGNORE;
+		else
+			eprintf("value of -y shall be either \"silent\", \"as-off\", \"as-busy\", or \"ignore\"\n");
+	}
+
+	errno = 0;
+	user = getpwuid(getuid());
+	if (!user)
+		eprintf("getpwuid: %s\n", errno ? strerror(errno) : "user does not exist");
+
+	for (; *argv; argv++) {
+		if (libcontacts_load_contact(*argv, &contact, user)) {
+			weprintf("libcontacts_load_contact %s: %s\n", *argv, errno ? strerror(errno) : "contact file is malformatted");
+			ret = 1;
+			continue;
+		}
+		if ((r = contact.blocks)) {
+			for (w = r; *r; w++) {
+				*w = *r++;
+				if (srv && strcmpnul((*w)->service, srv))
+					continue;
+				if (type && (*w)->explicit != explicit)
+					continue;
+				if (style && (*w)->shadow_block != shadow_block)
+					continue;
+				if (ask && (*w)->soft_unblock != soft_unblock)
+					continue;
+				if (ublk && (*w)->hard_unblock != hard_unblock)
+					continue;
+				libcontacts_block_destroy(*w);
+				free(*w--);
+			}
+			if (libcontacts_save_contact(&contact, user))
+				eprintf("libcontacts_save_contact %s:", *argv);
+		}
+		libcontacts_contact_destroy(&contact);
+	}
+
+	return ret;
+}