zctl flush_subs

Provide a new zctl subcommand, flush_subs, to flush all subscriptions for
a specified recipient.  This is implemented using a new library function,
ZFlushUserSubscriptions().

This is the client side of #103

3 files changed, 28 insertions, 0 deletions

diff --git a/clients/zctl/zctl.1.in b/clients/zctl/zctl.1.in
index ec9dbf0..5b73b6e 100644
--- a/clients/zctl/zctl.1.in
+++ b/clients/zctl/zctl.1.in
@@ -73,6 +73,12 @@ should only be used to remove any incorrect data that may have been left
 after a system crash.  Note that only Operations staff may flush location
 information associated with another user.
 .TP
+.B flush_subs \fR[ \fIrecipient\fR ]
+Tell the Zephyr servers to flush all of \fIrecipient\fR's subscriptions,
+This differs from the cancel command in that it affects subscriptions for
+all of \fIrecipient\fR's clients.  Note that only Operations staff may flush
+the subscriptions of another user.
+.TP
 .B hide
 Hide your location as maintained by the Zephyr server.  This does not
 affect the value of the exposure variable (see below, under
diff --git a/clients/zctl/zctl.c b/clients/zctl/zctl.c
index 1dfa792..f18df10 100644
--- a/clients/zctl/zctl.c
+++ b/clients/zctl/zctl.c
@@ -75,6 +75,7 @@ void current(int argc, char *argv[]);
 void do_hide(int argc, char *argv[]);
 void do_punt(int argc, char *argv[]);
 void flush_locations(int argc, char *argv[]);
+void flush_subscr(int argc, char *argv[]);
 void hm_control(int argc, char *argv[]);
 void list_punts(int argc, char *argv[]);
 void load_subs(int argc, char *argv[]);
@@ -232,6 +233,22 @@ flush_locations(int argc,
 }
 
 void
+flush_subscr(int argc,
+	     char *argv[])
+{
+    int retval;
+
+    if (argc > 2) {
+	fprintf(stderr,"Usage: %s [recipient]\n",argv[0]);
+	return;
+    }
+
+    retval = ZFlushUserSubscriptions((argc > 1) ? argv[1] : NULL);
+    if (retval != ZERR_NONE)
+	com_err(whoami, retval, "while flushing subscriptions");
+}
+
+void
 wgc_control(int argc,
 	    char *argv[])
 {
@@ -1306,6 +1323,8 @@ static const struct {
     { "new_server" } },
   { flush_locations, "Flush all location information.",
     { "flush_locs" } },
+  { flush_subscr, "Flush all subscription information.",
+    { "flush_subs" } },
   { do_hide, "Hide your location.",
     { "hide" } },
   { do_hide, "Show (un-hide) your location.",
diff --git a/clients/zctl/zctl_cmds.ct b/clients/zctl/zctl_cmds.ct
index 761572c..00b799c 100644
--- a/clients/zctl/zctl_cmds.ct
+++ b/clients/zctl/zctl_cmds.ct
@@ -73,6 +73,9 @@
 	request		flush_locations, "Flush all location information.",
 			flush_locs;
 
+	request		flush_subscr, "Flush all subscription information.",
+			flush_subs;
+
 	request		do_hide, "Hide your location.",
 			hide;