From 1566a1eefdf276e28698fc0e94b1cf3113fc25d5 Mon Sep 17 00:00:00 2001
From: minima <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 [<call>] [input] [<filterno>|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