]> dxcluster.org Git - spider.git/blob - cmd/stat/msg.pl
rewrote parts of Msg.pm and client.c so that the messages no longer use
[spider.git] / cmd / stat / msg.pl
1 #
2 # show all the values on a message header
3 #
4 # $Id$
5 #
6
7 my ($self, $line) = @_;
8 my @list = split /\s+/, $line;                # generate a list of msg nos
9 my @out;
10
11 return (1, $self->msg('e5')) if $self->priv < 5;
12 return (1, $self->msg('m16')) if @list == 0;
13
14 foreach my $msgno (@list) {
15   my $ref = DXMsg::get($msgno);
16   if ($ref) {
17     @out = print_all_fields($self, $ref, "Msg Parameters $msgno");
18   } else {
19     push @out, $self->msg('m4', $msgno);
20   }
21   push @out, "" if @list > 1;
22 }
23
24 return (1, @out);