From 6b904a6db275029dd6d7a5cf0a48c1f0770ea8c2 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 17 Jun 2014 23:02:06 +0100 Subject: [PATCH] fixe shutdown command --- Changes | 1 + cmd/shutdown.pl | 3 +-- perl/Version.pm | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 35e6c9da..752149a2 100644 --- a/Changes +++ b/Changes @@ -6,6 +6,7 @@ 3. Added some usable code to show/wx (finally). 4. Make stats cmds (sh/v?hfstats, sh/v?hftable) non-blocking. 5. Make sh/isolate, sh/registered, sh/lockout non-blocking. +6. Fix shutdown command. 16Jun14======================================================================= 1. Get AsyncMsg working for HTTP type ephemeral connections 21Apr14======================================================================= diff --git a/cmd/shutdown.pl b/cmd/shutdown.pl index 30592ad0..1bcbcb70 100644 --- a/cmd/shutdown.pl +++ b/cmd/shutdown.pl @@ -11,7 +11,6 @@ foreach $ref (DXChannel::get_all()) { $ref->send($self->msg('shutting')) if $ref->is_user; } -# give some time for the buffers to empty and then shutdown (see cluster.pl) -$main::decease = 25; +main::cease(); return (1); diff --git a/perl/Version.pm b/perl/Version.pm index 22163789..42a44847 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -10,7 +10,7 @@ package main; use vars qw($version $build $gitversion); $version = '1.57'; -$build = '29'; -$gitversion = '761aaa7'; +$build = '30'; +$gitversion = 'a76624e'; 1; -- 2.43.0