Index: /trunk/Ohana/src/opihi/pantasks/task_active.c
===================================================================
--- /trunk/Ohana/src/opihi/pantasks/task_active.c	(revision 10695)
+++ /trunk/Ohana/src/opihi/pantasks/task_active.c	(revision 10695)
@@ -0,0 +1,28 @@
+# include "pantasks.h"
+
+int task_active (int argc, char **argv) {
+
+  Task *task;
+
+  if (argc != 2) goto usage;
+
+  task = GetNewTask ();
+  if (task == NULL) {
+    gprint (GP_ERR, "ERROR: not defining or running a task\n");
+    return (FALSE);
+  }
+
+  if (!strcasecmp (argv[1], "true")) {
+    task[0].active = TRUE;
+  }
+  if (!strcasecmp (argv[1], "false")) {
+    task[0].active = FALSE;
+  }
+
+  gprint (GP_ERR, "ERROR: invalid option: %s\n", argv[1]);
+  return (FALSE);
+
+usage:
+  gprint (GP_ERR, "USAGE: active (true|false)\n");
+  return (FALSE);
+}