X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fclear%2Fdupefile.pl;fp=cmd%2Fclear%2Fdupefile.pl;h=909f7f9ed6868867cec0a8928dffa3ecdfc823b2;hb=a6c17071301a48e8d82732fa2dbef3a1bc3691af;hp=0000000000000000000000000000000000000000;hpb=aa63cbca3fa8ba421d356f7e954a69e014204524;p=spider.git

diff --git a/cmd/clear/dupefile.pl b/cmd/clear/dupefile.pl
new file mode 100644
index 00000000..909f7f9e
--- /dev/null
+++ b/cmd/clear/dupefile.pl
@@ -0,0 +1,19 @@
+#
+# clear out and replace dupefile with an empty one
+#
+# Copyright (c) 2007 Dirk Koopman, G1TLH
+#
+#
+
+my ($self, $line) = @_;
+
+# are we permitted (we could allow fairly privileged people to do this)?
+return (1, $self->msg('e5')) if $self->priv < 6;
+
+DXDupe::finish();
+DXDupe::init();
+
+return (1, $self->msg('done'));
+
+
+