X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdup_ann.pl;fp=cmd%2Fshow%2Fdup_ann.pl;h=e065fbc9b393374721ba8a45763f96f932e2f6b1;hb=840ace66681d2d615ff412e1197fa613f262c1f2;hp=0000000000000000000000000000000000000000;hpb=4fa8a0251b64361c908d056393b46abece6d38be;p=spider.git

diff --git a/cmd/show/dup_ann.pl b/cmd/show/dup_ann.pl
new file mode 100644
index 00000000..e065fbc9
--- /dev/null
+++ b/cmd/show/dup_ann.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding announce dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, AnnTalk::listdups);