mods to msg_status

diff --git a/Changes b/Changes
index baf50ccf0e4f5e806b2a29ec6a95a6a42c4438dc..a776e00dab4268e92361bc0b052101451943dc7a 100644 (file)
--- 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 5a2e7e07e4934d7e694f01ca014a5a4d436f3913..835ab8b33dc2f2020f92639e4af9e3ac82baa7fb 100644 (file)
--- 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 bd6baf2fd5935d2bbf3f7bc91047583610537fb5..0bd27bbfa430d3d8f74ae472ff67fc4a16a98cea 100644 (file)
--- 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;