From 36bd2cf34476999d513a1ca60f6ee6c5204c3132 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 2 Oct 2001 16:15:28 +0000 Subject: [PATCH] adjustments ... --- cmd/stat/msg.pl | 4 ++-- perl/DXMsg.pm | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl index dfacd062..715c8667 100644 --- a/cmd/stat/msg.pl +++ b/cmd/stat/msg.pl @@ -13,9 +13,9 @@ return (1, $self->msg('e5')) if $self->priv < 1; if (@list == 0) { my $ref; push @out, "Work Queue Keys"; - push @out, map { " $_" } sort DXMsg::get_all_fwq(); + push @out, map { " $_" } sort (DXMsg::get_all_fwq()); push @out, "Busy Queue Data"; - foreach my $key (sort DXMsg::get_all_busy()) { + foreach my $key (sort (DXMsg::get_all_busy())) { $ref = DXMsg::get_busy($key); if ($ref) { my $msgno = $ref->msgno; diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index f66f98d7..e66c1336 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -1187,6 +1187,7 @@ sub import_msgs my @out = import_one($main::me, \@msg, $splitit); Log('msg', @out); } + queue_msg(0); } # import one message as a list in bbs (as extended) mode -- 2.43.0