2 # clear out and replace dupefile with an empty one
4 # Copyright (c) 2007 Dirk Koopman, G1TLH
8 my ($self, $line) = @_;
10 # are we permitted (we could allow fairly privileged people to do this)?
11 return (1, $self->msg('e5')) if $self->priv < 6;
16 return (1, $self->msg('done'));