Index: trunk/Ohana/src/opihi/pantasks/kill.c
===================================================================
--- trunk/Ohana/src/opihi/pantasks/kill.c	(revision 4552)
+++ trunk/Ohana/src/opihi/pantasks/kill.c	(revision 4684)
@@ -12,6 +12,20 @@
   JobID = atoi (argv[1]);
 
-  /* not yet implemented */
+  job = FindJob (JobID);
 
+  if (job[0].mode == JOB_LOCAL) {
+    if (!KillLocalJob (job)) {
+      job[0].state = JOB_HUNG;
+      if (VerboseMode()) fprintf (stderr, "child process %d is hung, cannot kill\n", job[0].pid);
+      return (FALSE);
+    }
+  } else {
+    if (!KillControllerJob (job)) {
+      job[0].state = JOB_HUNG;
+      if (VerboseMode()) fprintf (stderr, "child process %d is hung, cannot kill\n", job[0].pid);
+      return (FALSE);
+    }
+  }    
+    
   fprintf (stderr, "this function is not yet implemented\n");
   return (TRUE);