]> www.dxcluster.org Git - spider.git/blob - cmd/msg.pl
new dbgtrace command
[spider.git] / cmd / msg.pl
1 #
2 # a universal message mangling routine which allows the sysop
3 # tinker with the properties of a message
4 #
5 # Copyright (c) 1999 Dirk Koopman G1TLH
6 #
7 #
8 #
9
10 my ($self, $line) = @_;
11 return (1, $self->msg('e5')) if $self->priv < 6;
12
13 # a line is cmd, msgno, data 
14 my @f = split /\s+/, $line, 3;
15 my $cmd;
16 my $msgno;
17 my $data;
18
19 #$DB::single = 1;
20
21 $cmd = shift @f if @f && $f[0] =~ /^\w+$/;
22 $msgno = shift @f if @f && $f[0] =~ /^\d+$/;
23
24 # handle queuing
25 if ($cmd =~ /^qu/i && !$msgno) {
26         DXMsg::queue_msg(0);
27         return (1, $self->msg('msg1'));
28 }
29 if ($cmd =~ /^qu/i) {
30         DXMsg::queue_msg(1);
31         return (1, $self->msg('msg2'));
32 }
33
34 return (1, $self->msg('msgu')) unless $cmd && $msgno;
35 $data = shift @f;
36
37 # get me message
38 my $ref = DXMsg::get($msgno);
39 return (1, $self->msg('m13', $msgno)) unless $ref;
40
41 my $old;
42 my $new;
43 my $m;
44 if ($cmd =~ /^to/i) {
45     $m = 'To';
46         $old = $ref->to;
47         $new = $ref->to(uc $data);
48 } elsif ($cmd =~ /^fr/i) {
49     $m = 'From';
50         $old = $ref->from;
51         $new = $ref->from(uc $data);
52 } elsif ($cmd =~ /^pr/i) {
53     $m = 'Msg Type';
54         $old = $ref->private ? 'P' : 'B';
55         $new = 'P';
56         $ref->private(1);
57 } elsif ($cmd =~ /^nop/i || $cmd =~ /^bu/i) {
58     $m = 'Msg Type';
59         $old = $ref->private ? 'P' : 'B';
60         $new = 'B';
61         $ref->private(0);
62 } elsif ($cmd =~ /^re/i) {
63     $m = 'Msg Type';
64         $old = $ref->read ? 'Read' : 'Unread';
65         $new = 'Read';
66         $ref->read(1);
67 } elsif ($cmd =~ /^(nore|unre)/i) {
68     $m = 'Msg Type';
69         $old = $ref->read ? 'Read' : 'Unread';
70         $new = 'Unread';
71         $ref->read(0);
72 } elsif ($cmd =~ /^rr/i) {
73     $m = 'RR Req';
74         $old = $ref->rrreq ? 'RR Req' : 'No RR Req';
75         $new = 'RR Req';
76         $ref->rrreq(1);
77 } elsif ($cmd =~ /^norr/i) {
78     $m = 'RR Req';
79         $old = $ref->rrreq ? 'RR Req' : 'No RR Req';
80         $new = 'No RR Req';
81         $ref->rrreq(0);
82 } elsif ($cmd =~ /^ke/i) {
83     $m = 'Keep';
84         $old = $ref->keep ? 'Keep' : 'No Keep';
85     $new = 'Keep';
86         $ref->keep(1);
87 } elsif ($cmd =~ /^noke/i) {
88     $m = 'Keep';
89         $old = $ref->keep ? 'Keep' : 'No Keep';
90     $new = 'No Keep';
91     $ref->keep(0);
92 } elsif ($cmd =~ /^node/i) {
93     $m = 'Delete';
94         $old = $ref->delete ? 'Delete' : 'Not Delete';
95     $new = 'Not Delete';
96     $ref->unmark_delete;
97 } elsif ($cmd =~ /^su/i) {
98     $m = 'Subject';
99     $old = $ref->subject;
100         $new = $ref->subject($data);
101 } elsif ($cmd =~ /^wa/i) {
102     $m = 'Wait Time';
103         $old = cldatetime($ref->waitt) || 'None';
104         $new = 'None'; 
105     $ref->waitt(0);
106 } else {
107         return (1, $self->msg('e15', $cmd));
108 }
109
110 # store changes and return      
111 $ref->store( [ $ref->read_msg_body() ] );
112 return(1, $self->msg('msg3', $msgno, $m, $old, $new));
113
114
115