Minor enhancements of STATUS command.

diff --git a/submit/PROTOCOL b/submit/PROTOCOL
index 37953b8248212a1487ced56a3fc1e032f42314cf..30ae7a73806368c7784c453dbcc9e730948ab773 100644 (file)
--- a/submit/PROTOCOL
+++ b/submit/PROTOCOL
@@ -43,6 +43,17 @@ Submit reply after data:
 
        (only status)
 
+Status request:
+
+       !STATUS
+
+Status reply:
+
+       task status objects defined below with the following added:
+       (T
+               Aallowed_extension
+       )
+
 
 Task status objects
 ~~~~~~~~~~~~~~~~~~~

diff --git a/submit/commands.c b/submit/commands.c
index 93f5b83509f6edf08c86046612afd1d8c4e61ed4..595db773dc7e4c4cb2eaf3494d90bc51e1925d26 100644 (file)
--- a/submit/commands.c
+++ b/submit/commands.c
@@ -108,6 +108,8 @@ cmd_status(struct conn *c)
       struct odes *to = task_status_find_task(c, t, 1);
       struct odes *tr = obj_add_son(c->reply, 'T' + OBJ_ATTR_SON);
       copy_attrs(tr, to);
+      CLIST_FOR_EACH(simp_node *, x, *t->extensions)
+       obj_add_attr(tr, 'A', x->s);
       CLIST_FOR_EACH(simp_node *, p, t->parts)
        {
          struct odes *po = task_status_find_part(to, p->s, 1);