]> dxcluster.net Git - spider.git/commitdiff
adjustments ...
authorminima <minima>
Tue, 2 Oct 2001 16:15:28 +0000 (16:15 +0000)
committerminima <minima>
Tue, 2 Oct 2001 16:15:28 +0000 (16:15 +0000)
cmd/stat/msg.pl
perl/DXMsg.pm

index dfacd062602fcbd69c0c321ea0661ca9682b0403..715c866701a5af64c075426df20ebc9b858d02c2 100644 (file)
@@ -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;
index f66f98d7f8778c22084a234a6a189e37881f6302..e66c1336e729637a92de745bf344bcd93fb09741 100644 (file)
@@ -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