Remove dupefile before restarting node.

[spider.git] / cmd / clear / dupefile.pl

diff --git a/cmd/clear/dupefile.pl b/cmd/clear/dupefile.pl
new file mode 100644 (file)
index 0000000..909f7f9
--- /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'));
+
+
+