Changeset 710

Timestamp:

10/12/07 12:12:04 (2 years ago)

Author:

marksmith

Message:

shutdown graceful [timeout]

Now accepts timeout before doing a hard shutdown. Patch by Jonty Wareing.

Location:

trunk

Files:

• CHANGES (modified) (1 diff)
• lib/Perlbal.pm (modified) (2 diffs)

trunk/CHANGES

@@ +1 @@
+    -- SHUTDOWN GRACEFUL [timeout] - now accepts optional timeout
+       parameter to force shutdown after that period in seconds
+
     -- make SSL non-blocking
 

trunk/lib/Perlbal.pm

@@ -385 +385 @@
 
 sub MANAGE_shutdown {
-    my $mc = shift->parse(qr/^shutdown( graceful)?$/);
+    my $mc = shift->parse(qr/^shutdown(\s?graceful)?\s?(\d+)?$/);
 
     # immediate shutdown
@@ -418 +418 @@
         return 0; # end the event loop and thus we exit perlbal
     });
+
+    # If requested, register a callback to kill the perlbal process after a specified number of seconds
+    if (my $timeout = $mc->arg(2)) {
+        Perlbal::Socket::register_callback($timeout, sub { exit(0); });
+    }
 
     # so they know something happened