]> www.dxcluster.org Git - spider.git/blob - cmd/clear/dupefile.pl
add CTY-3304
[spider.git] / 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