From 1566a1eefdf276e28698fc0e94b1cf3113fc25d5 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 2 Nov 2000 00:17:35 +0000 Subject: [PATCH] mods to msg_status --- Changes | 2 ++ cmd/show/msg_status.pl | 23 ++++++++++++++++------- perl/DXMsg.pm | 2 +- 3 files changed, 19 insertions(+), 8 deletions(-) diff --git a/Changes b/Changes index baf50ccf..a776e00d 100644 --- a/Changes +++ b/Changes @@ -34,6 +34,8 @@ You can clear your work with: clear/spots [] [input] [|all] Have fun and someone please write the documentation. +4. Added show/msg_status.pl sysop command (shows some info on what is busy in +the message system) 31Oct00======================================================================= 1. add 0x8e to the list of characters we clobber (make xterm go into graphics mode). diff --git a/cmd/show/msg_status.pl b/cmd/show/msg_status.pl index 5a2e7e07..835ab8b3 100644 --- a/cmd/show/msg_status.pl +++ b/cmd/show/msg_status.pl @@ -5,17 +5,26 @@ # # $Id$ # -my $self = shift; +my ($self, $line) = @_; return (0, $self->msg('e5')) if $self->priv < 5; my @out; -push @out, "Work Queue"; -for (keys %DXMsg::work) { - push @out, "$_ : $DXMsg::work{$_}\n"; +if (!$line || $line =~ /^b/i) { + push @out, "Busy Queue"; + push @out, "----------"; + for (keys %DXMsg::busy) { + my $r = $DXMsg::busy{$_}; + push @out, "$_ : $r->{msgno}, $r->{from} -> $r->{to}, $r->{subject}\n"; + } } -push @out, "Busy Queue"; -for (keys %DXMsg::busy) { - push @out, "$_ : $DXMsg::busy{$_}\n"; +if (!$line || $line =~ /^w/i) { + push @out, "Work Queue"; + push @out, "----------"; + for (keys %DXMsg::work) { + my $r = $DXMsg::work{$_}; + push @out, print_all_fields($self, $r, "Msg Parameters $msgno"); + } } + return (0, @out); diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index bd6baf2f..0bd27bbf 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -669,7 +669,7 @@ sub start_msg my ($self, $dxchan) = @_; dbg('msg', "start msg $self->{msgno}\n"); - $self->{linesreq} = 5; + $self->{linesreq} = 10; $self->{count} = 0; $self->{tonode} = $dxchan->call; $self->{fromnode} = $main::mycall; -- 2.43.0