#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#$DB::single = 1;
-$cmd = shift @f if $f[0] =~ /^\w+$/;
-$msgno = shift @f if $f[0] =~ /^\d+$/;
+$cmd = shift @f if @f && $f[0] =~ /^\w+$/;
+$msgno = shift @f if @f && $f[0] =~ /^\d+$/;
# handle queuing
if ($cmd =~ /^qu/i && !$msgno) {
$old = $ref->private ? 'P' : 'B';
$new = 'B';
$ref->private(0);
+} elsif ($cmd =~ /^re/i) {
+ $m = 'Msg Type';
+ $old = $ref->read ? 'Read' : 'Unread';
+ $new = 'Read';
+ $ref->read(1);
+} elsif ($cmd =~ /^(nore|unre)/i) {
+ $m = 'Msg Type';
+ $old = $ref->read ? 'Read' : 'Unread';
+ $new = 'Unread';
+ $ref->read(0);
} elsif ($cmd =~ /^rr/i) {
$m = 'RR Req';
$old = $ref->rrreq ? 'RR Req' : 'No RR Req';
$old = $ref->keep ? 'Keep' : 'No Keep';
$new = 'No Keep';
$ref->keep(0);
+} elsif ($cmd =~ /^node/i) {
+ $m = 'Delete';
+ $old = $ref->delete ? 'Delete' : 'Not Delete';
+ $new = 'Not Delete';
+ $ref->unmark_delete;
} elsif ($cmd =~ /^su/i) {
$m = 'Subject';
$old = $ref->subject;
$old = cldatetime($ref->waitt) || 'None';
$new = 'None';
$ref->waitt(0);
-}
+} else {
+ return (1, $self->msg('e15', $cmd));
+}
# store changes and return
$ref->store( [ $ref->read_msg_body() ] );