cmd/clear/dupefile.pl

   1 #
   2 # clear out and replace dupefile with an empty one
   3 #
   4 # Copyright (c) 2007 Dirk Koopman, G1TLH
   5 #
   6 #
   7
   8 my ($self, $line) = @_;
   9
  10 # are we permitted (we could allow fairly privileged people to do this)?
  11 return (1, $self->msg('e5')) if $self->priv < 6;
  12
  13 DXDupe::finish();
  14 DXDupe::init();
  15
  16 return (1, $self->msg('done'));
  17
  18
  19