Changeset 24847 for gs2-extensions/parallel-building/trunk

Timestamp:

2011-12-01T12:33:53+13:00 (12 years ago)

Author:

jmt12

Message:

Added the ability for the server to detect if it's calling process has gone away, and shutdown if so. This test is run every 5 seconds or so

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/GDBMServer.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/GDBMServer.pl

@@ -297 +297 @@
     $server = SocketsSwimmingThreadPoolServer->new(host=>$host,
                                                    port=>$port,
+                                                   main_cb => \&exitCheck,
                                                    processor_cb => \&process);
 
@@ -351 +352 @@
 }
 exit(0);
+
+# @function exitCheck
+# A callback function, called every 5 seconds (default) by the socket server,
+# to see whether the parent process (by pid) is actually still running. This
+# will cover the case where the parent process (import.pl or build.pl) dies
+# without properly asking the server to shutdown.
+sub exitCheck
+{
+  my $counter = shift @_;
+  # note: kill, when passed a first argument of 0, checks whether it's possible
+  # to send a signal to the pid given as the second argument, and returns true
+  # if it is. Thus it provides a means to determine if the parent process is
+  # still running (and hence can be signalled) In newer versions of Perl
+  # (5.8.9) it should even work cross-platform.
+  if (!kill(0, $parent_pid))
+  {
+    print " * Parent processs gone away... forcing server shutdown\n";
+    $server->stop;
+    if ($debug)
+    {
+      lock($debug_log);
+      $|++;
+      print "[" . time() . "|MAIN] Parent process gone away... forcing server shutdown.\n\n";
+      $|--;
+    }
+  }
+}
 
 # /** @function process